Ein-/Ausschleichschema von Medikationen Medizin true 233 16 0 2030 3 45 2031 0 45 2050 0 45 2605 0 38 4 2 28 2 1 28 18 0 28 93 0 28 2800 0 38 2801 4 38 2804 0 38 2807 0 38 2808 0 38 2809 0 38 2810 0 38 2817 0 38 2835 0 38 1 0 28 2502 0 47 2503 0 47 2504 0 47 2837 0 38 2823 0 38 2824 0 38 2825 0 38 2826 0 38 2827 0 38 2828 0 38 2829 0 38 2830 0 38 2831 0 38 2806 0 38 2839 5 38 2838 0 38 3 111 Ein-/Ausschleichschema von Medikationen Abfrage Verordnungen 877 0 TDefinedBasisContainer false 0 false 0 878 877 TDefinedAusdruckContainer false 2800018 gleich Aktuelle false 28 879 877 TUndOderContainer true 0 false 0 880 877 TDefinedAusdruckContainer false 3802800 gleich Medikation false 38 881 877 TUndOderContainer true 0 false 0 882 877 TDefinedAusdruckContainer false 3802809 gleich Nein false 38 883 877 TUndOderContainer true 0 false 0 884 877 TDefinedAusdruckContainer false 3802804 gleich Nein false 38 885 877 TUndOderContainer true 0 false 0 886 877 TKontextContainer false 4502030 gleich false 45 887 877 TUndOderContainer true 0 false 0 888 877 TAufenthaltContainer false 0 false 0 889 877 TUndOderContainer true 0 false 0 890 877 TDefinedAusdruckContainer false 3802801 gleich false 38 object Header: TComponentFileHeader UserData = {} end object RuntimeDatamodule: TRuntimeDatamodule OldCreateOrder = False Height = 0 Width = 0 end object QuickReport: TDesignQuickReport Frame.Width = 0 DataSet = DatabaseOwner.mmEinzelVerordnungen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE') Functions.DATA = ( '0' '0' #39#39) Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = A4 Page.Ruler = False Page.Continuous = False Page.Values = ( 100.000000000000000000 2970.000000000000000000 100.000000000000000000 2100.000000000000000000 100.000000000000000000 100.000000000000000000 0.000000000000000000) PrinterSettings.Copies = 1 PrinterSettings.OutputBin = First PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.UseStandardprinter = False PrinterSettings.UseCustomBinCode = False PrinterSettings.CustomBinCode = 0 PrinterSettings.ExtendedDuplex = 0 PrinterSettings.UseCustomPaperCode = False PrinterSettings.CustomPaperCode = 0 PrinterSettings.PrintMetaFile = False PrinterSettings.MemoryLimit = 1000000 PrinterSettings.PrintQuality = 0 PrinterSettings.Collate = 0 PrinterSettings.ColorOption = 1 PrintIfEmpty = True SnapToGrid = True Units = MM Zoom = 100 PrevFormStyle = fsNormal PreviewInitialState = wsMaximized PreviewWidth = 300 PreviewHeight = 300 PrevInitialZoom = qrZoomToFit PreviewDefaultSaveType = stPDF PreviewLeft = 0 PreviewTop = 0 ShowingPreview = False LabelSettings.FirstLabel = 0 LabelSettings.LabelCount = 0 PrepareAutomatically = False DesignBackgroundDX = 0 DesignBackgroundDY = 0 RulerPanel = ReportDesignerForm.RulerPanel1 Script.Strings = ( '[BAND9.BeforePrint]' '' '[BAND9.AfterPrint]' 'SETVAR('#39'Gesamtmorgens'#39',0)' 'SETVAR('#39'Gesamtmittags'#39',0)' 'SETVAR('#39'Gesamtabends'#39',0)' 'SETVAR('#39'Gesamtnachts'#39',0)' 'SETVAR('#39'proTag'#39',0)' '[BAND7.BeforePrint]' 'SETVAR('#39'morgens'#39', IF(mmEinzelVerordnungen.EV_EVZeitpunkt='#39'morgen' + 's'#39', mmEinzelVerordnungen.EV_EVAnzahl, 0))' 'SETVAR('#39'mittags'#39', IF(mmEinzelVerordnungen.EV_EVZeitpunkt='#39'mittag' + 's'#39', mmEinzelVerordnungen.EV_EVAnzahl, 0))' 'SETVAR('#39'abends'#39', IF(mmEinzelVerordnungen.EV_EVZeitpunkt='#39'abends'#39 + ', mmEinzelVerordnungen.EV_EVAnzahl, 0))' 'SETVAR('#39'nachts'#39', IF(mmEinzelVerordnungen.EV_EVZeitpunkt='#39'nachts'#39 + ', mmEinzelVerordnungen.EV_EVAnzahl, 0))' '' 'SETVAR('#39'proTag'#39', IF((mmEinzelVerordnungen.Verordnungen_Zeitpunkt' + 'e<>'#39'pro Zeitpunkt'#39'), mmEinzelVerordnungen.Verordnungen_AnzahlMor' + 'gens, '#39' '#39'))' 'SETVAR('#39'Gesamtmorgens'#39', GETVAR('#39'Gesamtmorgens'#39')+1*IF(GETVAR('#39'mor' + 'gens'#39') > 0, mmEinzelVerordnungen.EV_EVAnzahl, 0)) ' 'SETVAR('#39'Gesamtmittags'#39', GETVAR('#39'Gesamtmittags'#39')+1*IF(GETVAR('#39'mit' + 'tags'#39') > 0, mmEinzelVerordnungen.EV_EVAnzahl, 0)) ' 'SETVAR('#39'Gesamtabends'#39', GETVAR('#39'Gesamtabends'#39')+1*IF(GETVAR('#39'abend' + 's'#39') > 0, mmEinzelVerordnungen.EV_EVAnzahl, 0)) ' 'SETVAR('#39'Gesamtnachts'#39', GETVAR('#39'Gesamtnachts'#39')+1*IF(GETVAR('#39'nacht' + 's'#39') > 0, mmEinzelVerordnungen.EV_EVAnzahl, 0)) ' '' '[BAND7.AfterPrint]' '' '[BAND2.AfterPrint]' 'SETVAR('#39'Gesamtmorgens'#39',0)' 'SETVAR('#39'Gesamtmittags'#39',0)' 'SETVAR('#39'Gesamtabends'#39',0)' 'SETVAR('#39'Gesamtnachts'#39',0)' 'SETVAR('#39'proTag'#39',0)') object BAND2: TQRDesignBand Left = 38 Top = 38 Width = 718 Height = 92 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 243.416666666666700000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbTitle EditorEnabled = True BandNum = 0 object Reportlabel1: TQRDesignLabel Left = 181 Top = 44 Width = 376 Height = 23 Size.Values = ( 60.854166666666680000 478.895833333333400000 116.416666666666700000 994.833333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taCenter AlignToBand = False Caption = 'Ein-/Ausschleichschema von Medikation' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold, fsUnderline] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces VerticalAlignment = tlTop FixBottomPosition = False StretchHeightWithBand = False FontSize = 14 end object Expression1: TQRDesignExpr Left = 4 Top = 1 Width = 358 Height = 17 Size.Values = ( 44.979166666666670000 10.583333333333330000 2.645833333333333000 947.208333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'MxVarLogUntermmEinzelVerordnungen.MxVarLog_AnzeigeName+'#39' '#39'+MxVar' + 'LogUntermmEinzelVerordnungen.MxVarLog_KlinikStrasse+'#39', '#39'+MxVarLo' + 'gUntermmEinzelVerordnungen.MxVarLog_KlinikOrt' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Sysdata1: TQRDesignSysdata Left = 570 Top = 1 Width = 138 Height = 20 Size.Values = ( 52.916666666666660000 1508.125000000000000000 2.645833333333333000 365.125000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Color = clWhite Data = qrsDateTime Text = 'Datum: ' Transparent = False ExportAs = exptText FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND5: TQRDesignGroup Left = 38 Top = 130 Width = 718 Height = 30 Frame.DrawBottom = True AlignToBottom = False Color = clSilver TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 79.375000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False Expression = 'mmEinzelVerordnungen.PPP_PatNr' FooterBand = BAND3 Master = Owner ReprintOnNewPage = True CompMoverMoving = False EditorEnabled = True BandNum = 0 object Expression2: TQRDesignExpr Left = 5 Top = 6 Width = 384 Height = 17 Size.Values = ( 44.979166666666670000 13.229166666666670000 15.875000000000000000 1016.000000000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Color = clWhite ParentFont = False ResetAfterPrint = False Transparent = True Expression = 'TRIM(mmEinzelVerordnungen.PPP_NAME)+'#39', '#39'+TRIM(mmEinzelVerordnung' + 'en.PPP_Vorname)' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression3: TQRDesignExpr Left = 539 Top = 6 Width = 176 Height = 17 Size.Values = ( 44.979166666666670000 1426.104166666667000000 15.875000000000000000 465.666666666666800000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite ResetAfterPrint = False Transparent = True Expression = #39'Zimmer:'#39'+'#39' '#39'+mmEinzelVerordnungen.PPP_Zimmer' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND6: TQRDesignGroup Left = 38 Top = 160 Width = 718 Height = 24 AlignToBottom = False Color = clYellow TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 63.500000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False Expression = 'mmEinzelVerordnungen.EV_EVDat' FooterBand = BAND4 Master = Owner ReprintOnNewPage = True CompMoverMoving = False EditorEnabled = True BandNum = 0 object Expression4: TQRDesignExpr Left = 6 Top = 4 Width = 389 Height = 17 Size.Values = ( 44.979166666666670000 15.875000000000000000 10.583333333333330000 1029.229166666667000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False Color = clWhite ResetAfterPrint = False Transparent = True Expression = 'DAYSTRING(DAYOFWEEK(mmEinzelVerordnungen.EV_EVDat)) + '#39', den '#39'+m' + 'mEinzelVerordnungen.EV_EVDat' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND7: TQRDesignBand Left = 38 Top = 184 Width = 718 Height = 0 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 0.000000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbDetail EditorEnabled = True BandNum = 0 Expression = '(mmEinzelVerordnungen.Verordnungen_Bedarf = '#39'Falsch'#39') and (mmEin' + 'zelVerordnungen.Verordnungen_Abgesetzt='#39'Falsch'#39') and (mmEinzelVe' + 'rordnungen.Verordnungen_Stellen='#39'Wahr'#39')' object DBText2: TQRDesignDBText Left = 52 Top = 4 Width = 186 Height = 17 Size.Values = ( 44.979166666666670000 137.583333333333300000 10.583333333333330000 492.124999999999900000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite DataSet = DatabaseOwner.mmEinzelVerordnungen DataField = 'Verordnungen_Leistung' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 SuppressRepeatedValues = True ReprintOnNewPage = True ReprintOnNewGroup = True FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object TQRDesignDBText Left = 540 Top = 4 Width = 196 Height = 17 Size.Values = ( 44.979166666666670000 1428.750000000000000000 10.583333333333330000 518.583333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite DataSet = DatabaseOwner.mmEinzelVerordnungen DataField = 'Verordnungen_Hinweis' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 SuppressRepeatedValues = True ReprintOnNewPage = True ReprintOnNewGroup = True FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object DBText3: TQRDesignDBText Left = 244 Top = 4 Width = 43 Height = 17 Size.Values = ( 44.979166666666670000 645.583333333333400000 10.583333333333330000 113.770833333333300000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite DataSet = DatabaseOwner.mmEinzelVerordnungen DataField = 'Verordnungen_Einheit' Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 SuppressRepeatedValues = True ReprintOnNewPage = True ReprintOnNewGroup = True FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression5: TQRDesignExpr Left = 297 Top = 4 Width = 75 Height = 24 Size.Values = ( 63.500000000000000000 785.812500000000000000 10.583333333333330000 198.437500000000000000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'IF(mmEinzelVerordnungen.EV_EVZeitpunkt='#39't'#228'glich'#39', '#39'am Tag'#39', mmEi' + 'nzelVerordnungen.EV_EVZeitpunkt)' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end object BAND3: TQRDesignBand Left = 38 Top = 208 Width = 718 Height = 0 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 0.000000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbGroupFooter EditorEnabled = True BandNum = 0 end object BAND4: TQRDesignBand Left = 38 Top = 208 Width = 718 Height = 0 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 0.000000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbGroupFooter EditorEnabled = True BandNum = 0 end object BAND8: TQRDesignGroup Left = 38 Top = 184 Width = 718 Height = 0 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 0.000000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False Expression = 'mmEinzelVerordnungen.Verordnungen_Leistung + mmEinzelVerordnunge' + 'n.Verordnungen_Staerke' FooterBand = BAND9 Master = Owner ReprintOnNewPage = False CompMoverMoving = False EditorEnabled = True BandNum = 0 end object BAND9: TQRDesignBand Left = 38 Top = 184 Width = 718 Height = 24 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 63.500000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbGroupFooter EditorEnabled = True BandNum = 0 object Expression6: TQRDesignExpr Left = 300 Top = 4 Width = 148 Height = 17 Size.Values = ( 44.979166666666670000 793.750000000000000000 10.583333333333330000 391.583333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taCenter AlignToBand = False AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Color = clWhite ParentFont = False ResetAfterPrint = False Transparent = False Expression = 'IF(mmEinzelVerordnungen.Verordnungen_Zeitpunkte = '#39'pro Zeitpunkt' + #39', GETVAR('#39'Gesamtmorgens'#39')+'#39' - '#39'+GETVAR('#39'Gesamtmittags'#39')+'#39' - '#39'+G' + 'ETVAR('#39'Gesamtabends'#39')+'#39' - '#39'+GETVAR('#39'Gesamtnachts'#39'), '#39'am Tag'#39'+'#39' ' + #39'+GETVAR('#39'proTag'#39'))' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object TQRDesignDBText Left = 484 Top = 4 Width = 223 Height = 17 Size.Values = ( 44.979166666666670000 1280.583333333333000000 10.583333333333330000 590.020833333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite DataSet = DatabaseOwner.mmEinzelVerordnungen DataField = 'Verordnungen_Hinweis' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False ExportAs = exptText WrapStyle = BreakOnSpaces FullJustify = False MaxBreakChars = 0 FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end object Expression7: TQRDesignExpr Left = 26 Top = 4 Width = 268 Height = 17 Size.Values = ( 44.979166666666670000 68.791666666666680000 10.583333333333330000 709.083333333333400000) XLColumn = 0 XLNumFormat = nfGeneral Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Color = clWhite ResetAfterPrint = False Transparent = False Expression = 'mmEinzelVerordnungen.Verordnungen_Leistung +'#39' '#39' + IF(ISEMPTY('#39'm' + 'mEinzelVerordnungen'#39', '#39'Verordnungen_Handelsname'#39'), '#39' '#39', '#39'('#39'+mmEi' + 'nzelVerordnungen.Verordnungen_Handelsname+'#39')'#39') +'#39' '#39' +mmEinzelVer' + 'ordnungen.Verordnungen_Staerke' ExportAs = exptText WrapStyle = BreakOnSpaces FixBottomPosition = False StretchHeightWithBand = False FontSize = 10 end end end object TPropertyAddons end