nameIWIDTH PROVFLAGSsqlparamKSUBTYPEITextsqltextKSUBTYPEITexttemplateKSUBTYPEIBinarydbIWIDTH scriptKSUBTYPEIText use_parameterIWIDTHmoduleIWIDTH2 last_updatereport_versionignore_presetvalueIWIDTH script_dfmKSUBTYPEITexttemplate_previewKSUBTYPEIBinaryprivate_reportIWIDTHencrypt_templateKSUBTYPEIBinary no_overrideIWIDTH preview_pdfKSUBTYPEIBinary preview_jpgKSUBTYPEIBinary report_remarkKSUBTYPEITexthos_guidIWIDTH& hos_guid_extIWIDTH@report_descriptionIWIDTHsupport_multi_languageIWIDTHreporttemplate_id public_reportIWIDTHignore_query_builderIWIDTH PRIMARY_KEY@UUUPCU-FORM-Doctor-OPDCARD-12String^59-12^540816073317:String^93-11^WEENOTEBOOKtselect "1" as test_cc from doctor_order_print where vn = "540816073317" and print_server = "WEENOTEBOOK" limit 1 TPF0 TppReportppReportAutoStop DataPipeline ppDBPipeline PassSetting psTwoPassPrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidth-PrinterSetup.PaperSizeTemplate.FileName/C:\Users\user\AppData\Local\Temp\KSK-Report.RTMAllowPrintToFile ArchiveFileName ($MyDocuments)\ReportArchive.raf DeviceTypeScreenDefaultFileDeviceTypePDFEmailSettings.ReportFormatPDF LanguageIDDefault ModalPreviewOpenFileOutlineSettings.CreateNode OutlineSettings.CreatePageNodes OutlineSettings.EnabledOutlineSettings.VisibleThumbnailSettings.Enabled ThumbnailSettings.Visible ThumbnailSettings.DeadSpacePDFSettings.EmbedFontOptions %PDFSettings.EncryptSettings.AllowCopy )PDFSettings.EncryptSettings.AllowInteract 'PDFSettings.EncryptSettings.AllowModify &PDFSettings.EncryptSettings.AllowPrint (PDFSettings.EncryptSettings.AllowExtract )PDFSettings.EncryptSettings.AllowAssemble -PDFSettings.EncryptSettings.AllowQualityPrint #PDFSettings.EncryptSettings.Enabled%PDFSettings.EncryptSettings.KeyLengthkl40Bit*PDFSettings.EncryptSettings.EncryptionTypeetRC4PDFSettings.FontEncodingfeAnsi!PDFSettings.ImageCompressionLevelRTFSettings.DefaultFont.CharsetDEFAULT_CHARSETRTFSettings.DefaultFont.Color clWindowTextRTFSettings.DefaultFont.HeightRTFSettings.DefaultFont.NameArialRTFSettings.DefaultFont.Style TextFileName($MyDocuments)\Report.pdf TextSearchSettings.DefaultString TextSearchSettings.EnabledXLSSettings.AppName ReportBuilderXLSSettings.Author ReportBuilderXLSSettings.SubjectReportXLSSettings.TitleReportXLSSettings.WorksheetNameReportLeftTTopVersion17.03 mmColumnWidth-DataPipelineName ppDBPipeline TppTitleBand ppTitleBand1Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightZgmmPrintPositionTppLabel ppLabel91 DesignLayerppDesignLayer1UserNameLabel91AutoSizeCaptionOPDCARD Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop^ mmWidthPBandType LayerName Foreground TppDBMemo ppDBMemo1 DesignLayerppDesignLayer1UserNameDBMemo1CharWrap DataFieldpatient_clinic DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style RemoveEmptyLinesStretch Transparent VisibleDataPipelineName ppDBPipelinemmHeightmmLeft8ommTopW)mmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel12 DesignLayerppDesignLayer1UserNameLabel15CaptionHN : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameArial Font.Size Font.Style fsBold Transparent mmHeightmmLeft6mmTopmmWidthF'BandType LayerName Foreground TppDBText ppDBText42 DesignLayerppDesignLayer1UserNameDBText42 DataFieldhn DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameArial Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthsBandType LayerName ForegroundTppLabel ppLabel16 DesignLayerppDesignLayer1UserNameLabel25Caption 7H- Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftImmTop5%mmWidthBandType LayerName Foreground TppDBText ppDBText43 DesignLayerppDesignLayer1UserNameDBText43AutoSize DataField patient_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftxammTop5%mmWidth"BandType LayerName ForegroundTppLabel ppLabel92 DesignLayerppDesignLayer1UserNameLabel92AutoSizeCaption'15H Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftAmmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel93 DesignLayerppDesignLayer1UserNameLabel93Caption-2"8 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft$mmTop<mmWidthBandType LayerName Foreground TppDBText ppDBText45 DesignLayerppDesignLayer1UserNameDBText45AutoSize DataFieldage_y DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeftbmmTop<mmWidthBandType LayerName ForegroundTppLabel ppLabel94 DesignLayerppDesignLayer1UserNameLabel94Caption5 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft mmTop<mmWidthEBandType LayerName Foreground TppDBText ppDBText46 DesignLayerppDesignLayer1UserNameDBText46AutoSize DataFieldage_m DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeft[ mmTop<mmWidthBandType LayerName ForegroundTppLabel ppLabel95 DesignLayerppDesignLayer1UserNameLabel95Caption@7- Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft'mmTop<mmWidthBandType LayerName ForegroundTppLabel ppLabel97 DesignLayerppDesignLayer1UserNameLabel97AutoSizeCaption@%#031' : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftOmmTop<mmWidthQBandType LayerName ForegroundTppLabel ppLabel98 DesignLayerppDesignLayer1UserNameLabel101Caption*442##1)2 : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft!mmTopW)mmWidth{LBandType LayerName ForegroundTppLabel ppLabel101 DesignLayerppDesignLayer1UserNameLabel33Caption@%5H*44 : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent VisiblemmHeightmmLeftmmTop<mmWidth9BandType LayerName Foreground TppDBText ppDBText51 DesignLayerppDesignLayer1UserNameDBText51 DataField pttypeno_1 DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent VisibleDataPipelineName ppDBPipelinemmHeightmmLeftTmmTop<mmWidth}BandType LayerName ForegroundTppLabel ppLabel102 DesignLayerppDesignLayer1UserNameLabel42AutoSizeCaption@'%2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftNmmTopmmWidthBandType LayerName Foreground TppDBText ppDBText52 DesignLayerppDesignLayer1UserName DBText201AutoSize DataFieldvsttime DataPipeline ppDBPipeline DisplayFormathh:nn:ss Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel36 DesignLayerppDesignLayer1UserNameLabel16Caption 5H-"9H : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopOmmWidthBandType LayerName ForegroundTppLabel ppLabel40 DesignLayerppDesignLayer1UserNameLabel34CaptionB##031' : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft%mmTop`*mmWidth{LBandType LayerName ForegroundTppLabel ppLabel42 DesignLayerppDesignLayer1UserNameLabel37AutoSize Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameArial Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidth"BandType LayerName Foreground TppVariable ppVariable1 DesignLayerppDesignLayer1UserName Variable1AutoSize BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop<mmWidthoBandType LayerName Foreground TppVariable ppVariable4 DesignLayerppDesignLayer1UserName Variable4 BlankWhenZero CalcOrderCalcType veReportStart Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent VisiblemmHeightmmLeftOmmTop<mmWidth.BandType LayerName Foreground TppDBText ppDBText39 DesignLayerppDesignLayer1UserNameDBText18 DataField pttype_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftnmmTopW)mmWidth BandType LayerName ForegroundTppSystemVariableppSystemVariable2 DesignLayerppDesignLayer1UserNameSystemVariable2VarType vtDateTime DisplayFormatH( วันที่สั่งพิมพ์ : dd/mm/eeee hh:nn:ss ) Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.Name Angsana New Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeftmmTop^ mmWidth1BandType LayerName Foreground TppDBText ppDBText30 DesignLayerppDesignLayer1UserNameDBText30 DataFieldpatient_clinic DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeft8ommTopW)mmWidthBandType LayerName Foreground TppVariable ppVariable19 DesignLayerppDesignLayer1UserName Variable19 BlankWhenZero CalcOrderCalcType veReportStart Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft7mmTopOmmWidth4BandType LayerName Foreground TppVariable ppVariable12 DesignLayerppDesignLayer1UserName Variable12 BlankWhenZero CalcOrderCalcType veReportStart Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeftmmTopOmmWidth4BandType LayerName ForegroundTppLineppLine1 DesignLayerppDesignLayer1UserNameLine1 Pen.WidthPositionlpBottomWeight?mmHeightM mmLeftmmTop ^mmWidthBandType LayerName Foreground TppVariable ppVariable5 DesignLayerppDesignLayer1UserName Variable5AutoSize BlankWhenZero CalcOrderCalcType veReportStart Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeft^mmTopmmWidthnBandType LayerName Foreground TppVariable ppVariable14 DesignLayerppDesignLayer1UserName Variable14 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftnmmTop^ mmWidth7DBandType LayerName Foreground TppHeaderBand ppHeaderBand1Background.Brush.StylebsClear PrintHeight phDynamicPrintOnFirstPagemmBottomOffsetmmHeight%BmmPrintPositionTppLabel ppLabel39 DesignLayerppDesignLayer1UserNameLabel39AutoSizeCaption C#'#1)29IH'"- (OPD) Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidth+BandType LayerName Foreground TppDBText ppDBText6 DesignLayerppDesignLayer1UserNameDBText5 DataFieldhn DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameArial Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeft_mmTop"mmWidthVBandType LayerName ForegroundTppLabel ppLabel154 DesignLayerppDesignLayer1UserNameLabel154CaptionHN : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameArial Font.Size Font.Style fsBold Transparent mmHeightmmLeft5mmTop"mmWidthF'BandType LayerName Foreground TppDBText ppDBText4 DesignLayerppDesignLayer1UserNameDBText2 DataField patient_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthֳBandType LayerName ForegroundTppLabel ppLabel153 DesignLayerppDesignLayer1UserNameLabel153Caption 7H- : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft=mmTop!mmWidthBandType LayerName Foreground TppDBText ppDBText2 DesignLayerppDesignLayer1UserNameDBText1AutoSize DataFieldvsttime DataPipeline ppDBPipeline DisplayFormathh:nn:ss Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel150 DesignLayerppDesignLayer1UserNameLabel150AutoSizeCaption@'%2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft+mmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel151 DesignLayerppDesignLayer1UserNameLabel151AutoSizeCaption'15H Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLefti7mmTopmmWidthBandType LayerName ForegroundTppSystemVariableppSystemVariable1 DesignLayerppDesignLayer1UserNameSystemVariable1AutoSizeVarTypevtPageNo Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent mmHeightmmLeft@ mmTop+mmWidthxBandType LayerName ForegroundTppLabel ppLabel155 DesignLayerppDesignLayer1UserNameLabel155Caption CH- +I25H Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent mmHeightmmLeft!mmTop+mmWidth ^BandType LayerName ForegroundTppLineppLine7 DesignLayerppDesignLayer1UserNameLine7 Pen.WidthPositionlpBottomWeight?mmHeightV mmLeftmmTop2mmWidthBandType LayerName Foreground TppVariable ppVariable11 DesignLayerppDesignLayer1UserName Variable11AutoSize BlankWhenZero CalcOrderCalcType veReportStart Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftPSmmTopmmWidthnBandType LayerName Foreground TppVariable ppVariable15 DesignLayerppDesignLayer1UserName Variable15 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftommTopmmWidth7DBandType LayerName Foreground TppDetailBandppDetailBand11Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightT>mmPrintPosition TppRegion ppRegion34 DesignLayerppDesignLayer1UserNameRegion34 Brush.StylebsClearCaptionRegion34 Pen.ColorclWindow Pen.StylepsClearShiftRelativeTo ppSubReport9Stretch Transparent mmHeightmmLeftmmTopmmWidthQBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLine ppLine118 DesignLayerppDesignLayer1UserNameLine2 Pen.WidthPositionlpBottomWeight?mmHeightmmLeftmmTopımmWidthOBandType LayerName Foreground TppVariable ppVariable3 DesignLayerppDesignLayer1UserName Variable3 BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style Transparent mmHeight^ mmLeft6mmTop mmWidth/BandType LayerName Foreground TppSubReport ppSubReport1 DesignLayerppDesignLayer1UserName SubReport1 ExpandAll KeepTogether NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthTraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport1AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand2Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPositionTppLabel ppLabel114 DesignLayerppDesignLayer2UserNameLabel2CaptionI-!9% 1#0'141H'D Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight mmLeftmmTopmmWidthJZBandType LayerName Foreground1 TppVariable ppVariable2 DesignLayerppDesignLayer2UserName Variable2 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeft'mmTopmmWidth$#BandType LayerName Foreground1 TppRegion ppRegion28 DesignLayerppDesignLayer2UserNameRegion28 KeepTogether Brush.StylebsClearCaptionRegion28 Pen.StylepsClearStretch Transparent mmHeight8cmmLeftmmTop^ mmWidthOBandType LayerName Foreground1mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel14 DesignLayerppDesignLayer2UserNameLabel13CaptionT. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft mmTopmmWidthEBandType LayerName Foreground1 TppDBText ppDBText9 DesignLayerppDesignLayer2UserNameDBText6 BlankWhenZero DataField temperature DataPipeline ppDBPipeline DisplayFormat #,0.0;-#,0.0 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftEmmTopmmWidth5%BandType LayerName Foreground1TppLabel ppLabel20 DesignLayerppDesignLayer2UserNameLabel20CaptionP. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftMmmTopmmWidthEBandType LayerName Foreground1 TppDBText ppDBText10 DesignLayerppDesignLayer2UserNameDBText9 BlankWhenZero DataFieldpulse DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftXmmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel23 DesignLayerppDesignLayer2UserNameLabel201CaptionRR. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground1 TppDBText ppDBText11 DesignLayerppDesignLayer2UserNameDBText10 BlankWhenZero DataFieldrr DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel27 DesignLayerppDesignLayer2UserNameLabel27CaptionBP. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthxBandType LayerName Foreground1 TppDBText ppDBText16 DesignLayerppDesignLayer2UserName DBText101 BlankWhenZero DataFieldbps DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft@mmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel28 DesignLayerppDesignLayer2UserNameLabel28Caption/ Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground1 TppDBText ppDBText18 DesignLayerppDesignLayer2UserNameDBText16 BlankWhenZero DataFieldbpd DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel24 DesignLayerppDesignLayer2UserNameLabel24Caption. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft mmTop`*mmWidthBandType LayerName Foreground1 TppDBText ppDBText19 DesignLayerppDesignLayer2UserNameDBText19 BlankWhenZero DataFieldbw DataPipeline ppDBPipeline DisplayFormat #,0.0;-#,0.0 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop`*mmWidth!BandType LayerName Foreground1TppLabel ppLabel86 DesignLayerppDesignLayer2UserNameLabel86CaptionC. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft/mmTopmmWidthM BandType LayerName Foreground1TppLabel ppLabel87 DesignLayerppDesignLayer2UserNameLabel87Caption/min. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftsmmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel88 DesignLayerppDesignLayer2UserNameLabel88Caption/min. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftymmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel89 DesignLayerppDesignLayer2UserNameLabel89CaptionmmHg Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft+mmTopmmWidthBandType LayerName Foreground1TppLabel ppLabel90 DesignLayerppDesignLayer2UserNameLabel90Caption. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft2mmTop`*mmWidthxBandType LayerName Foreground1TppLabelppLabel8 DesignLayerppDesignLayer2UserNameLabel3CaptionFBS : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop ?mmWidthBandType LayerName Foreground1 TppDBText ppDBText36 DesignLayerppDesignLayer2UserNameDBText36 BlankWhenZero DataFieldfbs DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop ?mmWidthBandType LayerName Foreground1TppLabel ppLabel18 DesignLayerppDesignLayer2UserNameLabel18Caption*9 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftMmmTop`*mmWidth^ BandType LayerName Foreground1TppLabel ppLabel19 DesignLayerppDesignLayer2UserNameLabel19Caption !. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft~mmTop`*mmWidthBandType LayerName Foreground1 TppDBText ppDBText32 DesignLayerppDesignLayer2UserNameDBText22 BlankWhenZero DataFieldheight DataPipeline ppDBPipeline DisplayFormat #,0.0;-#,0.0 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftYmmTop`*mmWidth,$BandType LayerName Foreground1TppLabel ppLabel22 DesignLayerppDesignLayer2UserNameLabel22CaptionBMI : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop`*mmWidthBandType LayerName Foreground1 TppDBText ppDBText33 DesignLayerppDesignLayer2UserNameDBText32 BlankWhenZero DataFieldbmi DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeft mmTop`*mmWidth"BandType LayerName Foreground1TppLabel ppLabel127 DesignLayerppDesignLayer2UserNameLabel111AutoSizeCaptionmg/dL Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft1mmTop ?mmWidthBandType LayerName Foreground1TppLabel ppLabel10 DesignLayerppDesignLayer2UserNameLabel10AutoSizeCaption* 29IH'" : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftpmmTopxmmWidth8BandType LayerName Foreground1TppLabel ppLabel108 DesignLayerppDesignLayer2UserNameLabel109AutoSizeCaption'2!@#HH' : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopxmmWidthABandType LayerName Foreground1 TppDBText ppDBText1 DesignLayerppDesignLayer2UserNameDBText1 DataFieldpt_priority_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeft@mmTopxmmWidthO(BandType LayerName Foreground1 TppDBText ppDBText5 DesignLayerppDesignLayer2UserNameDBText7 DataField pt_walk_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopxmmWidthF'BandType LayerName Foreground1TppLabel ppLabel173 DesignLayerppDesignLayer2UserName Label1010AutoSizeCaption 2#AI"2 : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopxmmWidth1BandType LayerName Foreground1 TppVariable ppVariable6 DesignLayerppDesignLayer2UserName Variable6 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopxmmWidth%BBandType LayerName Foreground1 TppVariable ppVariable27 DesignLayerppDesignLayer2UserName Variable27 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeight+mmLeft mmTop ?mmWidthK/BandType LayerName Foreground1 TppVariable ppVariable29 DesignLayerppDesignLayer2UserName Variable29 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeight+mmLeft@mmTop ?mmWidthK/BandType LayerName Foreground1 TppDBText ppDBText44 DesignLayerppDesignLayer2UserNameDBText44 DataFielddrinking_type_id DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent VisibleDataPipelineName ppDBPipelinemmHeightmmLeftmmTop ?mmWidthEBandType LayerName Foreground1TppLabel ppLabel152 DesignLayerppDesignLayer2UserNameLabel152Caption 2#7H!*8#2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop ?mmWidthq,BandType LayerName Foreground1 TppDBText ppDBText3 DesignLayerppDesignLayer2UserNameDBText3 DataFieldsmoking_type_id DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent VisibleDataPipelineName ppDBPipelinemmHeightmmLeftLmmTop ?mmWidthxBandType LayerName Foreground1TppLabel ppLabel149 DesignLayerppDesignLayer2UserNameLabel149Caption 2#*88+#5H Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftNmmTop ?mmWidth/BandType LayerName Foreground1TppLabel ppLabel207 DesignLayerppDesignLayer2UserNameLabel207Caption#-@-' Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftimmTop`*mmWidthBandType LayerName Foreground1TppLabel ppLabel208 DesignLayerppDesignLayer2UserNameLabel208Caption .!. Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft6mmTop`*mmWidthBandType LayerName Foreground1 TppDBText ppDBText65 DesignLayerppDesignLayer2UserNameDBText65 DataFieldwaist DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeight+mmLeft mmTop`*mmWidthBandType LayerName Foreground1TppLabel ppLabel113 DesignLayerppDesignLayer2UserNameLabel113AutoSizeCaption+!2"@+8 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBoldfsItalic fsUnderline Transparent VisiblemmHeightmmLeft mmTopRmmWidth0BandType LayerName Foreground1 TppVariable ppVariable13 DesignLayerppDesignLayer2UserName Variable13 BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name Angsana New Font.Size Font.Style fsBoldfsItalic Transparent VisiblemmHeightmmLeft9mmTopRmmWidthz-BandType LayerName Foreground1 TppDetailBand ppDetailBand1Background1.Brush.StylebsClearBackground2.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule1TraProgramInforaProgramInfo65 raClassNameTraEventHandlerraProgram.ProgramNameVariable2OnCalcraProgram.ProgramType ttProcedureraProgram.Source}procedure Variable2OnCalc(var Value: Variant); begin Value := '( พยาบาลซักประวัติ : ' +GetSQLStringData('select d.name from screen_doctor s '+ 'left outer join opduser o on o.loginname = s.staff '+ 'left outer join doctor d on d.code = o.doctorcode '+ 'where vn = "'+DBPipeline['vn']+'" ')+' )' ; end; raProgram.ComponentName Variable2raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo66 raClassNameTraEventHandlerraProgram.ProgramNameVariable6OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceuprocedure Variable6OnCalc(var Value: Variant); begin if DBPipeline['found_allergy']= 'Y' then Value := 'มีอาการแพ้ยา'; if DBPipeline['found_allergy']= 'N' then Value := 'ปฏิเสธการแพ้'; if DBPipeline['found_allergy']= 'U' then Value := 'ไม่ทราบ'; end; raProgram.ComponentName Variable6raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo67 raClassNameTraEventHandlerraProgram.ProgramNameVariable13OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable13OnCalc(var Value: Variant); var aaa : string; begin if (DBPipeline['pregnancy'] = 'Y') and (DBPipeline['breast_feeding'] <> 'Y') then aaa := 'ผู้ป่วยกำลังตั้งครรภ์' ; if (DBPipeline['pregnancy'] <> 'Y') and (DBPipeline['breast_feeding'] = 'Y') then aaa := 'ผู้ป่วยกำลังให้นมบุตร' ; if (DBPipeline['pregnancy'] = 'Y') and (DBPipeline['breast_feeding'] = 'Y') then aaa := 'ผู้ป่วยกำลังตั้งครรภ์ / ให้นมบุตร' ; Value := aaa ; end; raProgram.ComponentName Variable13raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo68 raClassNameTraEventHandlerraProgram.ProgramNameTitleBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source =procedure TitleBeforeGenerate; begin if (DBPipeline['pregnancy'] <> 'Y') and (DBPipeline['breast_feeding'] <> 'Y') then begin Label113.visible := false; Variable13.visible := false; end else begin Label113.visible := true; Variable13.visible := true; end; end; raProgram.ComponentNameTitleraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo69 raClassNameTraEventHandlerraProgram.ProgramNameVariable27OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable27OnCalc(var Value: Variant); begin Value := getsqlstringdata('select smoking_type_name '+ ' from smoking_type where smoking_type_id = "'+DBPipeline['smoking_type_id']+'"'); end; raProgram.ComponentName Variable27raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo70 raClassNameTraEventHandlerraProgram.ProgramNameVariable29OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable29OnCalc(var Value: Variant); begin Value := getsqlstringdata('select drinking_type_name '+ ' from drinking_type where drinking_type_id = "'+DBPipeline['drinking_type_id']+'"'); end; raProgram.ComponentName Variable29raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers2TppDesignLayerppDesignLayer2UserName Foreground1 LayerTypeltBandedIndex TppSubReport ppSubReport2 DesignLayerppDesignLayer1UserName SubReport2 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport1TraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport2AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand3Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppDetailBand ppDetailBand2Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight4mmPrintPosition TppRegion ppRegion12 DesignLayerppDesignLayer3UserNameRegion12 Brush.StylebsClearCaptionRegion12 Pen.ColorclWhiteShiftRelativeTo ppRegion11Stretch Transparent mmHeightmmLeftmmTop˓mmWidthNBandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo10 DesignLayerppDesignLayer3UserNameDBMemo10CharWrap DataFieldpmh DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftmmTopݕmmWidth*BandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel81 DesignLayerppDesignLayer3UserNameLabel81AutoSizeCaptionPMH : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopܕmmWidthBandType LayerName Foreground2 TppRegion ppRegion11 DesignLayerppDesignLayer3UserNameRegion11 Brush.StylebsClearCaptionRegion11 Pen.ColorclWhiteShiftRelativeTo ppRegion52Stretch Transparent mmHeightmmLeftmmTopsmmWidthNBandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel80 DesignLayerppDesignLayer3UserNameLabel80AutoSizeCaptionHPI : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopummWidthBandType LayerName Foreground2 TppDBMemo ppDBMemo9 DesignLayerppDesignLayer3UserNameDBMemo9CharWrap DataFieldhpi DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftmmTopummWidth.BandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion10 DesignLayerppDesignLayer3UserNameRegion10 KeepTogether Brush.StylebsClearCaptionRegion10 Pen.ColorclWhiteStretch Transparent mmHeightmmLeftmmTop mmWidthOBandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo3 DesignLayerppDesignLayer3UserNameDBMemo3CharWrap DataFieldcc DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftmmTopmmWidth6BandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel44 DesignLayerppDesignLayer3UserNameLabel104AutoSizeCaptionCC : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopmmWidthBandType LayerName Foreground2 TppRegion ppRegion52 DesignLayerppDesignLayer3UserName Region101 KeepTogether Brush.StylebsClearCaption Region101 Pen.ColorclWhiteShiftRelativeTo ppRegion10Stretch Transparent mmHeightmmLeftmmTopz-mmWidthOBandType LayerName Foreground2mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel214 DesignLayerppDesignLayer3UserNameLabel214AutoSizeCaption @G!2A%I' : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTop/mmWidth8BandType LayerName Foreground2 TppDBText ppDBText72 DesignLayerppDesignLayer3UserNameDBText72 DataField cc_duration DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightp mmLeft5mmTop/mmWidth BandType LayerName Foreground2TppGroupppGroup3 BreakName opdscreen_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup3mmNewColumnThresholdmmNewPageThresholdDataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand3Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel45 DesignLayerppDesignLayer3UserNameLabel1AutoSizeCaptionB-22#*31  / #0'142#@GH'"181 / #0'142#@GH'"C-5 Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthEBandTypeGroupNo LayerName Foreground2TppLineppLine12 DesignLayerppDesignLayer3UserNameLine12 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground2TppGroupFooterBandppGroupFooterBand3VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule9TppDesignLayersppDesignLayers3TppDesignLayerppDesignLayer3UserName Foreground2 LayerTypeltBandedIndex TppSubReport ppSubReport3 DesignLayerppDesignLayer1UserName SubReport3 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport2TraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTop5%mmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport3AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand4Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppDetailBand ppDetailBand3Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightVmmPrintPosition TppRegion ppRegion3 DesignLayerppDesignLayer4UserNameRegion3 KeepTogether Brush.StylebsClearCaptionRegion3 Pen.ColorclWhiteStretch Transparent mmHeightmmLeftmmTopmmWidthNBandType LayerName Foreground3mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel47 DesignLayerppDesignLayer4UserNameLabel23Caption1H1'1 BP I3 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidth:BandType LayerName Foreground3TppLabel ppLabel48 DesignLayerppDesignLayer4UserNameLabel48Caption@'%2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftRmmTopmmWidthBandType LayerName Foreground3 TppDBText ppDBText21 DesignLayerppDesignLayer4UserNameDBText11 DataField help1_time DataPipeline ppDBPipeline DisplayFormat hh:nn น. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftRfmmTopmmWidth0BandType LayerName Foreground3TppLabel ppLabel49 DesignLayerppDesignLayer4UserNameLabel26CaptionBP. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthp BandType LayerName Foreground3 TppDBText ppDBText22 DesignLayerppDesignLayer4UserNameDBText21 DataField help1_bps DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent DataPipelineName ppDBPipelinemmHeightmmLeftfmmTopmmWidthBandType LayerName Foreground3TppLabel ppLabel50 DesignLayerppDesignLayer4UserNameLabel50Caption/ Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft+mmTopmmWidthBandType LayerName Foreground3 TppDBText ppDBText23 DesignLayerppDesignLayer4UserNameDBText23 DataField help1_bpd DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftVmmTopmmWidthBandType LayerName Foreground3TppLabel ppLabel112 DesignLayerppDesignLayer4UserNameLabel112CaptionmmHg Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground3TppLabel ppLabel53 DesignLayerppDesignLayer4UserNameLabel53AutoSizeCaptionu Font.CharsetSYMBOL_CHARSET Font.ColorclBlack Font.Name Wingdings 3 Font.Size Font.Style TextAlignment taCentered Transparent mmHeight^ mmLeftmmTop4mmWidthBandType LayerName Foreground3 TppRegion ppRegion4 DesignLayerppDesignLayer4UserNameRegion4 KeepTogether Brush.StylebsClearCaptionRegion4 Pen.ColorclWhiteShiftRelativeTo ppRegion3Stretch Transparent mmHeight mmLeftmmTopq,mmWidthNBandType LayerName Foreground3mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel51 DesignLayerppDesignLayer4UserNameLabel51AutoSizeCaptionu Font.CharsetSYMBOL_CHARSET Font.ColorclBlack Font.Name Wingdings 3 Font.Size Font.Style TextAlignment taCentered Transparent mmHeight^ mmLeftmmTop0mmWidthBandType LayerName Foreground3TppLabel ppLabel74 DesignLayerppDesignLayer4UserNameLabel74Captionสั่ง Tepid sponge Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopq,mmWidth<BandType LayerName Foreground3TppLabel ppLabel75 DesignLayerppDesignLayer4UserNameLabel75Caption@'%2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftRmmTopq,mmWidthBandType LayerName Foreground3 TppDBText ppDBText13 DesignLayerppDesignLayer4UserNameDBText1 DataField help2_time DataPipeline ppDBPipeline DisplayFormat hh:nn น. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftRfmmTopq,mmWidth.BandType LayerName Foreground3TppLabel ppLabel76 DesignLayerppDesignLayer4UserNameLabel76CaptionT. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopq,mmWidthEBandType LayerName Foreground3 TppDBText ppDBText17 DesignLayerppDesignLayer4UserNameDBText2 DataField help2_temp DataPipeline ppDBPipeline DisplayFormat #,0.0;-#,0.0 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopq,mmWidthBandType LayerName Foreground3TppLabel ppLabel78 DesignLayerppDesignLayer4UserNameLabel78CaptionC. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLefthmmTopq,mmWidthEBandType LayerName Foreground3 TppRegion ppRegion5 DesignLayerppDesignLayer4UserNameRegion5 KeepTogether Brush.StylebsClearCaptionRegion5 Pen.ColorclWhiteShiftRelativeTo ppRegion4Stretch Transparent VisiblemmHeight"mmLeftmmTopSmmWidthNBandType LayerName Foreground3mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel54 DesignLayerppDesignLayer4UserNameLabel54AutoSizeCaptionu Font.CharsetSYMBOL_CHARSET Font.ColorclBlack Font.Name Wingdings 3 Font.Size Font.Style TextAlignment taCentered Transparent mmHeight^ mmLeftmmTopWmmWidthBandType LayerName Foreground3TppLabel ppLabel55 DesignLayerppDesignLayer4UserNameLabel55CaptionC+I"2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopSmmWidthBandType LayerName Foreground3TppLabel ppLabel57 DesignLayerppDesignLayer4UserNameLabel57Caption@'%2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft mmTopSmmWidthBandType LayerName Foreground3 TppDBText ppDBText26 DesignLayerppDesignLayer4UserNameDBText26 DataField help3_time DataPipeline ppDBPipeline DisplayFormat hh:nn น. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeft}$mmTopSmmWidth5%BandType LayerName Foreground3 TppDBText ppDBText28 DesignLayerppDesignLayer4UserNameDBText28 DataFieldhelp3_drug_name DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftW)mmTopSmmWidthGBandType LayerName Foreground3 TppRegion ppRegion6 DesignLayerppDesignLayer4UserNameRegion6 KeepTogether Brush.StylebsClearCaptionRegion6 Pen.ColorclWhiteShiftRelativeTo ppRegion5Stretch Transparent mmHeight mmLeftmmTop mmWidthNBandType LayerName Foreground3mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel52 DesignLayerppDesignLayer4UserNameLabel52AutoSizeCaptionu Font.CharsetSYMBOL_CHARSET Font.ColorclBlack Font.Name Wingdings 3 Font.Size Font.Style TextAlignment taCentered Transparent mmHeight^ mmLeftmmTopCmmWidthBandType LayerName Foreground3 TppDBText ppDBText27 DesignLayerppDesignLayer4UserNameDBText27 DataField help4_note DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftq,mmTop mmWidth BandType LayerName Foreground3TppLabel ppLabel58 DesignLayerppDesignLayer4UserNameLabel58Caption-7HF - Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop mmWidthBandType LayerName Foreground3TppGroupppGroup2 BreakName opdscreen_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup2mmNewColumnThresholdmmNewPageThreshold!DataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand2Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel11 DesignLayerppDesignLayer4UserNameLabel11Caption H'"@+%7-##@2-22# Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthAdBandTypeGroupNo LayerName Foreground3TppLineppLine13 DesignLayerppDesignLayer4UserNameLine13 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground3TppGroupFooterBandppGroupFooterBand2VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule2TraProgramInforaProgramInfo71 raClassNameTraEventHandlerraProgram.ProgramNameRegion3OnPrintraProgram.ProgramType ttProcedureraProgram.SourceXprocedure Region3OnPrint; begin region3.visible:= DBPipeline['help1']='Y'; end; raProgram.ComponentNameRegion3raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo72 raClassNameTraEventHandlerraProgram.ProgramNameRegion4OnPrintraProgram.ProgramType ttProcedureraProgram.SourceXprocedure Region4OnPrint; begin region4.visible:= DBPipeline['help2']='Y'; end; raProgram.ComponentNameRegion4raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo73 raClassNameTraEventHandlerraProgram.ProgramNameRegion5OnPrintraProgram.ProgramType ttProcedureraProgram.SourceXprocedure Region5OnPrint; begin region5.visible:= DBPipeline['help3']='Y'; end; raProgram.ComponentNameRegion5raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo74 raClassNameTraEventHandlerraProgram.ProgramNameRegion6OnPrintraProgram.ProgramType ttProcedureraProgram.SourceXprocedure Region6OnPrint; begin region6.visible:= DBPipeline['help4']='Y'; end; raProgram.ComponentNameRegion6raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTppDesignLayersppDesignLayers4TppDesignLayerppDesignLayer4UserName Foreground3 LayerTypeltBandedIndex TppSubReport ppSubReport4 DesignLayerppDesignLayer1UserName SubReport4 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport3TraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTop7mmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport4AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand5Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppDetailBand ppDetailBand4Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight/bmmPrintPosition TppRegion ppRegion9 DesignLayerppDesignLayer5UserNameRegion9 KeepTogether Brush.StylebsClearCaptionRegion9 Pen.ColorclWhiteShiftRelativeTo ppRegion8Stretch Transparent mmHeightmmLeftmmTop7mmWidthNBandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo7 DesignLayerppDesignLayer5UserNameDBMemo7 KeepTogether CharWrap DataField observe_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightxmmLeftz-mmTop8mmWidth0BandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel59 DesignLayerppDesignLayer5UserNameLabel59CaptionNote : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTop8mmWidth BandType LayerName Foreground4 TppRegion ppRegion8 DesignLayerppDesignLayer5UserNameRegion8 KeepTogether Brush.StylebsClearCaptionRegion8 Pen.ColorclWhiteShiftRelativeTo ppRegion7Stretch Transparent mmHeightmmLeft mmTopmmWidthNBandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo6 DesignLayerppDesignLayer5UserNameDBMemo6 KeepTogether CharWrap DataFieldobserve_activity DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightwmmLefti+mmTopmmWidthIBandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel60 DesignLayerppDesignLayer5UserNameLabel60Caption 4##! : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeft mmTopmmWidthq,BandType LayerName Foreground4 TppRegion ppRegion7 DesignLayerppDesignLayer5UserNameRegion7 KeepTogether Brush.StylebsClearCaptionRegion7 Pen.ColorclWhiteStretch Transparent mmHeightmmLeftmmTopmmWidthNBandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo5 DesignLayerppDesignLayer5UserNameDBMemo5 KeepTogether CharWrap DataFieldobserve_symptom DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightxmmLeft`*mmTopmmWidthJBandType LayerName Foreground4mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel56 DesignLayerppDesignLayer5UserNameLabel56Caption-22# : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopmmWidth5%BandType LayerName Foreground4TppGroupppGroup4 BreakName observe_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup4mmNewColumnThresholdmmNewPageThresholdDataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand4Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel117 DesignLayerppDesignLayer5UserNameLabel117Caption#1*1@8-22# Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeightg mmLeftmmTop mmWidth.CBandTypeGroupNo LayerName Foreground4TppLineppLine14 DesignLayerppDesignLayer5UserNameLine14 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground4 TppVariable ppVariable7 DesignLayerppDesignLayer5UserName Variable7 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLefttjmmTopmmWidth:BandTypeGroupNo LayerName Foreground4TppLabel ppLabel118 DesignLayerppDesignLayer5UserNameLabel118AutoSizeCaption @'%2#1 : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidth5%BandTypeGroupNo LayerName Foreground4 TppDBText ppDBText20 DesignLayerppDesignLayer5UserNameDBText20 DataFieldobserve_intime DataPipeline ppDBPipeline DisplayFormat h:nn:ss น. Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidth3BandTypeGroupNo LayerName Foreground4TppLabel ppLabel119 DesignLayerppDesignLayer5UserNameLabel119AutoSizeCaption 3+H2" : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft7mmTopmmWidthq,BandTypeGroupNo LayerName Foreground4 TppDBText ppDBText29 DesignLayerppDesignLayer5UserName DBText202 DataFieldobserve_outtime DataPipeline ppDBPipeline DisplayFormat h:nn:ss น. Font.Charset THAI_CHARSET Font.ColorU Font.Name AngsanaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftc!mmTopmmWidthq,BandTypeGroupNo LayerName Foreground4TppLabel ppLabel64 DesignLayerppDesignLayer5UserNameLabel1AutoSizeCaption 85H#1 : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftsKmmTopmmWidth5%BandTypeGroupNo LayerName Foreground4TppGroupFooterBandppGroupFooterBand4VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule3TraProgramInforaProgramInfo75 raClassNameTraEventHandlerraProgram.ProgramNameVariable7OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable7OnCalc(var Value: Variant); begin Value := GetSQLStringData('select name from ward where ward = "'+DBPipeline['observe_ward']+'" '); end; raProgram.ComponentName Variable7raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo76 raClassNameTraEventHandlerraProgram.ProgramNameRegion9OnPrintraProgram.ProgramType ttProcedureraProgram.Sourcebprocedure Region9OnPrint; begin region9.visible:= DBPipeline['observe_note'] <> '' ; end; raProgram.ComponentNameRegion9raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo77 raClassNameTraEventHandlerraProgram.ProgramNameRegion8OnPrintraProgram.ProgramType ttProcedureraProgram.Sourcefprocedure Region8OnPrint; begin region8.visible:= DBPipeline['observe_activity'] <> '' ; end; raProgram.ComponentNameRegion8raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo78 raClassNameTraEventHandlerraProgram.ProgramNameRegion7OnPrintraProgram.ProgramType ttProcedureraProgram.Sourceeprocedure Region7OnPrint; begin region7.visible:= DBPipeline['observe_symptom'] <> '' ; end; raProgram.ComponentNameRegion7raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTppDesignLayersppDesignLayers5TppDesignLayerppDesignLayer5UserName Foreground4 LayerTypeltBandedIndex TppSubReport ppSubReport5 DesignLayerppDesignLayer1UserName SubReport5 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport8TraverseAllDataVisibleDataPipelineName ppDBPipelinemmHeightmmLeftmmTopjJmmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport5AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand6Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppDetailBand ppDetailBand5Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightSmmPrintPosition TppRegion ppRegion16 DesignLayerppDesignLayer6UserNameRegion16 KeepTogether Brush.StylebsClearCaptionRegion16 Pen.ColorclWhiteShiftRelativeTo ppRegion14Stretch Transparent mmHeightmmLeftmmTopmmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabelppLabel9 DesignLayerppDesignLayer6UserNameLabel303AutoSizeCaptionHEENT Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidthF'BandType LayerName Foreground5TppLabel ppLabel115 DesignLayerppDesignLayer6UserNameLabel1AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopmmWidth$#BandType LayerName Foreground5TppLabel ppLabel121 DesignLayerppDesignLayer6UserNameLabel121AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopmmWidth$#BandType LayerName Foreground5TppLabelppLabel1 DesignLayerppDesignLayer6UserNameLabel2AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopmmWidthEBandType LayerName Foreground5TppLabel ppLabel43 DesignLayerppDesignLayer6UserNameLabel43AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopmmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo18 DesignLayerppDesignLayer6UserNameDBMemo18CharWrap DataField pe_heent_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTopmmWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion17 DesignLayerppDesignLayer6UserNameRegion17 KeepTogether Brush.StylebsClearCaptionRegion17 Pen.ColorclWhiteShiftRelativeTo ppRegion16Stretch Transparent mmHeightmmLeftmmTop;mmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel25 DesignLayerppDesignLayer6UserNameLabel6AutoSizeCaptionHEART Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop<mmWidthF'BandType LayerName Foreground5TppLabel ppLabel122 DesignLayerppDesignLayer6UserNameLabel3AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop<mmWidth$#BandType LayerName Foreground5TppLabel ppLabel123 DesignLayerppDesignLayer6UserNameLabel123AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop<mmWidth$#BandType LayerName Foreground5TppLabel ppLabel17 DesignLayerppDesignLayer6UserNameLabel5AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop<mmWidthEBandType LayerName Foreground5TppLabel ppLabel62 DesignLayerppDesignLayer6UserNameLabel102AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop<mmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo19 DesignLayerppDesignLayer6UserNameDBMemo19CharWrap DataField pe_heart_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTopAmmWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion18 DesignLayerppDesignLayer6UserNameRegion18 KeepTogether Brush.StylebsClearCaptionRegion18 Pen.ColorclWhiteShiftRelativeTo ppRegion17Stretch Transparent mmHeightmmLeftmmTop[mmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel30 DesignLayerppDesignLayer6UserNameLabel8AutoSizeCaptionLUNG Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop]mmWidth"BandType LayerName Foreground5TppLabel ppLabel130 DesignLayerppDesignLayer6UserNameLabel130AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop]mmWidth$#BandType LayerName Foreground5TppLabel ppLabel131 DesignLayerppDesignLayer6UserNameLabel131AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop]mmWidth$#BandType LayerName Foreground5TppLabel ppLabel26 DesignLayerppDesignLayer6UserNameLabel7AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop]mmWidthEBandType LayerName Foreground5TppLabel ppLabel63 DesignLayerppDesignLayer6UserNameLabel4AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop]mmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo20 DesignLayerppDesignLayer6UserNameDBMemo20CharWrap DataField pe_lung_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTop'ammWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion19 DesignLayerppDesignLayer6UserNameRegion19 KeepTogether Brush.StylebsClearCaptionRegion19 Pen.ColorclWhiteShiftRelativeTo ppRegion18Stretch Transparent mmHeightmmLeftmmTop!mmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel33 DesignLayerppDesignLayer6UserNameLabel9AutoSizeCaptionAb Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop*mmWidth"BandType LayerName Foreground5TppLabel ppLabel132 DesignLayerppDesignLayer6UserName Label1301AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop*mmWidth$#BandType LayerName Foreground5TppLabel ppLabel133 DesignLayerppDesignLayer6UserNameLabel133AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop*mmWidth$#BandType LayerName Foreground5TppLabel ppLabel31 DesignLayerppDesignLayer6UserNameLabel31AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop*mmWidthEBandType LayerName Foreground5TppLabel ppLabel37 DesignLayerppDesignLayer6UserNameLabel37AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop*mmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo21 DesignLayerppDesignLayer6UserName DBMemo201CharWrap DataField pe_ab_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTopLmmWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion20 DesignLayerppDesignLayer6UserNameRegion20 KeepTogether Brush.StylebsClearCaptionRegion20 Pen.ColorclWhiteShiftRelativeTo ppRegion19Stretch Transparent mmHeightmmLeftmmTop mmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel46 DesignLayerppDesignLayer6UserNameLabel46AutoSizeCaptionExt Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop)mmWidth$#BandType LayerName Foreground5TppLabel ppLabel134 DesignLayerppDesignLayer6UserNameLabel134AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop)mmWidth$#BandType LayerName Foreground5TppLabel ppLabel135 DesignLayerppDesignLayer6UserNameLabel135AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop)mmWidth$#BandType LayerName Foreground5TppLabel ppLabel32 DesignLayerppDesignLayer6UserNameLabel32AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop)mmWidthEBandType LayerName Foreground5TppLabel ppLabel38 DesignLayerppDesignLayer6UserNameLabel38AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop)mmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo22 DesignLayerppDesignLayer6UserNameDBMemo22CharWrap DataField pe_ext_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTopKmmWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion21 DesignLayerppDesignLayer6UserNameRegion21 KeepTogether Brush.StylebsClearCaptionRegion21 Pen.ColorclWhiteShiftRelativeTo ppRegion20Stretch Transparent mmHeightmmLeftmmTop=mmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel79 DesignLayerppDesignLayer6UserNameLabel79AutoSizeCaptionNeuro Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopFmmWidth$#BandType LayerName Foreground5TppLabel ppLabel136 DesignLayerppDesignLayer6UserNameLabel136AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopFmmWidth$#BandType LayerName Foreground5TppLabel ppLabel137 DesignLayerppDesignLayer6UserNameLabel137AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopFmmWidth$#BandType LayerName Foreground5TppLabel ppLabel35 DesignLayerppDesignLayer6UserNameLabel35AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopFmmWidthEBandType LayerName Foreground5TppLabel ppLabel41 DesignLayerppDesignLayer6UserNameLabel41AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopFmmWidthEBandType LayerName Foreground5 TppDBMemo ppDBMemo23 DesignLayerppDesignLayer6UserNameDBMemo23CharWrap DataField pe_neuro_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTophmmWidthBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion13 DesignLayerppDesignLayer6UserNameRegion13 KeepTogether Brush.StylebsClearCaptionRegion13 Pen.ColorclWhiteShiftRelativeTo ppRegion21Stretch Transparent mmHeight$#mmLeftmmTopimmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo11 DesignLayerppDesignLayer6UserNameDBMemo11CharWrap DataFieldpe DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightxmmLeftq,mmTopmmWidth9BandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel83 DesignLayerppDesignLayer6UserNameLabel83AutoSizeCaption PE text : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight mmLeftmmTopmmWidth6BandType LayerName Foreground5 TppRegion ppRegion14 DesignLayerppDesignLayer6UserNameRegion14 KeepTogether Brush.StylebsClearCaptionRegion14 Pen.ColorclWhiteStretch Transparent mmHeightmmLeftmmTopmmWidthNBandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel82 DesignLayerppDesignLayer6UserNameLabel82AutoSizeCaptionGA : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTop mmWidthBandType LayerName Foreground5 TppDBMemo ppDBMemo4 DesignLayerppDesignLayer6UserNameDBMemo4CharWrap DataField pe_ga_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop mmWidth0BandType LayerName Foreground5mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppGroupppGroup5 BreakName opdscreen_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup5mmNewColumnThresholdmmNewPageThresholdDataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand5Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel84 DesignLayerppDesignLayer6UserNameLabel84AutoSizeCaption2##'#H22" Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground5TppLineppLine15 DesignLayerppDesignLayer6UserNameLine15 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground5TppGroupFooterBandppGroupFooterBand5VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule4TraProgramInforaProgramInfo79 raClassNameTraEventHandlerraProgram.ProgramNameSubReport5OnPrintraProgram.ProgramType ttProcedureraProgram.Source-procedure SubReport5OnPrint; begin end; raProgram.ComponentName SubReport5raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo80 raClassNameTraEventHandlerraProgram.ProgramName Label1OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label1OnPrint; begin label1.visible:= DBPipeline['pe_heent']='N'; end; raProgram.ComponentNameLabel1raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo81 raClassNameTraEventHandlerraProgram.ProgramNameLabel121OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label121OnPrint; begin label121.visible:= DBPipeline['pe_heent']='Y'; end; raProgram.ComponentNameLabel121raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo82 raClassNameTraEventHandlerraProgram.ProgramName Label3OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label3OnPrint; begin label3.visible:= DBPipeline['pe_heart']='N'; end; raProgram.ComponentNameLabel3raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo83 raClassNameTraEventHandlerraProgram.ProgramNameLabel123OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label123OnPrint; begin label123.visible:= DBPipeline['pe_heart']='Y'; end; raProgram.ComponentNameLabel123raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo84 raClassNameTraEventHandlerraProgram.ProgramNameLabel130OnPrintraProgram.ProgramType ttProcedureraProgram.Source\procedure Label130OnPrint; begin label130.visible:= DBPipeline['pe_lung']='N'; end; raProgram.ComponentNameLabel130raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo85 raClassNameTraEventHandlerraProgram.ProgramNameLabel131OnPrintraProgram.ProgramType ttProcedureraProgram.Source\procedure Label131OnPrint; begin label131.visible:= DBPipeline['pe_lung']='Y'; end; raProgram.ComponentNameLabel131raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo86 raClassNameTraEventHandlerraProgram.ProgramNameLabel1301OnPrintraProgram.ProgramType ttProcedureraProgram.Source\procedure Label1301OnPrint; begin label1301.visible:= DBPipeline['pe_ab']='N'; end; raProgram.ComponentName Label1301raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo87 raClassNameTraEventHandlerraProgram.ProgramNameLabel133OnPrintraProgram.ProgramType ttProcedureraProgram.SourceZprocedure Label133OnPrint; begin label133.visible:= DBPipeline['pe_ab']='Y'; end; raProgram.ComponentNameLabel133raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo88 raClassNameTraEventHandlerraProgram.ProgramNameLabel134OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label134OnPrint; begin label134.visible:= DBPipeline['pe_ext']='N'; end; raProgram.ComponentNameLabel134raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo89 raClassNameTraEventHandlerraProgram.ProgramNameLabel135OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label135OnPrint; begin label135.visible:= DBPipeline['pe_ext']='Y'; end; raProgram.ComponentNameLabel135raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo90 raClassNameTraEventHandlerraProgram.ProgramNameLabel136OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label136OnPrint; begin label136.visible:= DBPipeline['pe_neuro']='N'; end; raProgram.ComponentNameLabel136raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo91 raClassNameTraEventHandlerraProgram.ProgramNameLabel137OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label137OnPrint; begin label137.visible:= DBPipeline['pe_neuro']='Y'; end; raProgram.ComponentNameLabel137raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo92 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source Mprocedure DetailBeforeGenerate; begin if DBPipeline['pe_ga_text'] = '' then begin Region14.visible := false ; end else begin Region14.visible := true ; end; if DBPipeline['pe_heent'] = '' then begin Region16.visible := false ; end else begin Region16.visible := true ; end; if DBPipeline['pe_heart'] = '' then begin Region17.visible := false ; end else begin Region17.visible := true ; end; if DBPipeline['pe_lung'] = '' then begin Region18.visible := false ; end else begin Region18.visible := true ; end; if DBPipeline['pe_ab'] = '' then begin Region19.visible := false ; end else begin Region19.visible := true ; end; if DBPipeline['pe_ext'] = '' then begin Region20.visible := false ; end else begin Region20.visible := true ; end; if DBPipeline['pe_neuro'] = '' then begin Region21.visible := false ; end else begin Region21.visible := true ; end; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers6TppDesignLayerppDesignLayer6UserName Foreground5 LayerTypeltBandedIndex TppSubReport ppSubReport6 DesignLayerppDesignLayer1UserName SubReport6 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport5TraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTop]mmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport6AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppDetailBand ppDetailBand6Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppRegion ppRegion1 DesignLayerppDesignLayer7UserNameRegion1 KeepTogether Brush.StylebsClearCaptionRegion1 Pen.ColorclWhiteShiftRelativeTo ppRegion27Stretch Transparent mmHeightmmLeftmmTopmmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabelppLabel2 DesignLayerppDesignLayer7UserNameLabel1AutoSizeCaptionHEENT Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidthF'BandType LayerName Foreground6TppLabelppLabel3 DesignLayerppDesignLayer7UserNameLabel2AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTopmmWidth$#BandType LayerName Foreground6TppLabelppLabel4 DesignLayerppDesignLayer7UserNameLabel3AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopmmWidth$#BandType LayerName Foreground6TppLabelppLabel5 DesignLayerppDesignLayer7UserNameLabel4AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopmmWidthEBandType LayerName Foreground6TppLabelppLabel6 DesignLayerppDesignLayer7UserNameLabel5AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopmmWidthEBandType LayerName Foreground6 TppDBMemo ppDBMemo12 DesignLayerppDesignLayer7UserNameDBMemo12CharWrap DataField pe_heent_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmTop mmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion2 DesignLayerppDesignLayer7UserNameRegion2 KeepTogether Brush.StylebsClearCaptionRegion2 Pen.ColorclWhiteShiftRelativeTo ppRegion1Stretch Transparent mmHeightmmLeftmmTop4mmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabelppLabel7 DesignLayerppDesignLayer7UserNameLabel6AutoSizeCaptionHEART Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop5mmWidthF'BandType LayerName Foreground6TppLabel ppLabel13 DesignLayerppDesignLayer7UserNameLabel7AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop5mmWidth$#BandType LayerName Foreground6TppLabel ppLabel15 DesignLayerppDesignLayer7UserNameLabel8AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTop5mmWidth$#BandType LayerName Foreground6TppLabel ppLabel21 DesignLayerppDesignLayer7UserNameLabel21AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop5mmWidthEBandType LayerName Foreground6TppLabel ppLabel29 DesignLayerppDesignLayer7UserNameLabel29AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop5mmWidthEBandType LayerName Foreground6 TppDBMemo ppDBMemo13 DesignLayerppDesignLayer7UserNameDBMemo13CharWrap DataField pe_heart_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmTop9mmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion22 DesignLayerppDesignLayer7UserNameRegion22 KeepTogether Brush.StylebsClearCaptionRegion22 Pen.ColorclWhiteShiftRelativeTo ppRegion2Stretch Transparent mmHeightmmLeftmmTopNmmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel77 DesignLayerppDesignLayer7UserNameLabel77AutoSizeCaptionLUNG Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopOmmWidth"BandType LayerName Foreground6TppLabel ppLabel85 DesignLayerppDesignLayer7UserName Label1302AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTopOmmWidth$#BandType LayerName Foreground6TppLabel ppLabel96 DesignLayerppDesignLayer7UserNameLabel96AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopOmmWidth$#BandType LayerName Foreground6TppLabel ppLabel99 DesignLayerppDesignLayer7UserNameLabel99AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopOmmWidthEBandType LayerName Foreground6TppLabel ppLabel100 DesignLayerppDesignLayer7UserNameLabel100AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopOmmWidthEBandType LayerName Foreground6 TppDBMemo ppDBMemo14 DesignLayerppDesignLayer7UserNameDBMemo14CharWrap DataField pe_lung_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmTopSmmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion23 DesignLayerppDesignLayer7UserNameRegion23 KeepTogether Brush.StylebsClearCaptionRegion23 Pen.ColorclWhiteShiftRelativeTo ppRegion22Stretch Transparent mmHeightmmLeftmmTopZgmmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel103 DesignLayerppDesignLayer7UserNameLabel103AutoSizeCaptionAb Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopchmmWidth"BandType LayerName Foreground6TppLabel ppLabel104 DesignLayerppDesignLayer7UserNameLabel9AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopchmmWidth$#BandType LayerName Foreground6TppLabel ppLabel109 DesignLayerppDesignLayer7UserNameLabel10AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTopchmmWidth$#BandType LayerName Foreground6TppLabel ppLabel110 DesignLayerppDesignLayer7UserNameLabel110AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopchmmWidthEBandType LayerName Foreground6TppLabel ppLabel116 DesignLayerppDesignLayer7UserNameLabel116AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopchmmWidthEBandType LayerName Foreground6 TppDBMemo ppDBMemo15 DesignLayerppDesignLayer7UserNameDBMemo15CharWrap DataField pe_ab_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmToplmmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion24 DesignLayerppDesignLayer7UserName Region201 KeepTogether Brush.StylebsClearCaption Region201 Pen.ColorclWhiteShiftRelativeTo ppRegion23Stretch Transparent mmHeightmmLeftmmTop:mmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel128 DesignLayerppDesignLayer7UserNameLabel128AutoSizeCaptionExt Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopCmmWidth$#BandType LayerName Foreground6TppLabel ppLabel129 DesignLayerppDesignLayer7UserNameLabel129AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTopCmmWidth$#BandType LayerName Foreground6TppLabel ppLabel138 DesignLayerppDesignLayer7UserNameLabel138AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopCmmWidth$#BandType LayerName Foreground6TppLabel ppLabel139 DesignLayerppDesignLayer7UserNameLabel139AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTopCmmWidthEBandType LayerName Foreground6TppLabel ppLabel140 DesignLayerppDesignLayer7UserNameLabel140AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTopCmmWidthEBandType LayerName Foreground6 TppDBMemo ppDBMemo16 DesignLayerppDesignLayer7UserNameDBMemo16CharWrap DataField pe_ext_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmTopemmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion26 DesignLayerppDesignLayer7UserNameRegion26 KeepTogether Brush.StylebsClearCaptionRegion26 Pen.ColorclWhiteShiftRelativeTo ppRegion25Stretch Transparent mmHeightmmLeftmmTop+mmWidth>BandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo2 DesignLayerppDesignLayer7UserNameDBMemo2CharWrap DataFieldpe DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightmmLeftz-mmTop_mmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel146 DesignLayerppDesignLayer7UserNameLabel146AutoSizeCaption PE text : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop_mmWidth/BandType LayerName Foreground6 TppRegion ppRegion27 DesignLayerppDesignLayer7UserNameRegion27 KeepTogether Brush.StylebsClearCaptionRegion27 Pen.ColorclWhiteStretch Transparent mmHeightmmLeftmmTopmmWidth>BandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel147 DesignLayerppDesignLayer7UserNameLabel147AutoSizeCaptionGA : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTop mmWidthBandType LayerName Foreground6 TppDBMemo ppDBMemo8 DesignLayerppDesignLayer7UserNameDBMemo8CharWrap DataField pe_ga_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftmmTop mmWidth_BandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion25 DesignLayerppDesignLayer7UserNameRegion25 KeepTogether Brush.StylebsClearCaptionRegion25 Pen.ColorclWhiteShiftRelativeTo ppRegion24Stretch Transparent mmHeightmmLeftmmTopmmWidth>BandType LayerName Foreground6mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeight TppDBMemo ppDBMemo17 DesignLayerppDesignLayer7UserNameDBMemo17CharWrap DataField pe_neuro_text DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineName ppDBPipelinemmHeightg mmLeftMmmTopDmmWidthBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel141 DesignLayerppDesignLayer7UserNameLabel141AutoSizeCaptionNeuro Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop"mmWidth$#BandType LayerName Foreground6TppLabel ppLabel142 DesignLayerppDesignLayer7UserNameLabel142AutoSizeCaption4 Font.Charset THAI_CHARSET Font.ColorF Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTop"mmWidth$#BandType LayerName Foreground6TppLabel ppLabel143 DesignLayerppDesignLayer7UserNameLabel143AutoSizeCaption44 Font.Charset THAI_CHARSET Font.Colorm Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTop"mmWidth$#BandType LayerName Foreground6TppLabel ppLabel144 DesignLayerppDesignLayer7UserNameLabel144AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft!mmTop"mmWidthEBandType LayerName Foreground6TppLabel ppLabel145 DesignLayerppDesignLayer7UserNameLabel145AutoSizeCaption : Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft?EmmTop"mmWidthEBandType LayerName Foreground6 TppRegion ppRegion51 DesignLayerppDesignLayer7UserNameRegion51 KeepTogether Brush.StylebsClearCaptionRegion51 Pen.StylepsClearStretch Transparent mmHeightmmLeftmmTopmmWidthsBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage1 DesignLayerppDesignLayer7UserNameDBImage1AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage1 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightmmLeft.mmTopmmWidthnBandType LayerName Foreground6 TppDBMemo ppDBMemo36 DesignLayerppDesignLayer7UserNameDBMemo36CharWrap DataField image1_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight5%mmLeft?mmTopݕmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBImage ppDBImage13 DesignLayerppDesignLayer7UserName DBImage13AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage2 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft.mmTopmmWidthnBandType LayerName Foreground6 TppDBMemo ppDBMemo37 DesignLayerppDesignLayer7UserNameDBMemo37CharWrap DataField image2_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo38 DesignLayerppDesignLayer7UserNameDBMemo38CharWrap DataField image3_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo39 DesignLayerppDesignLayer7UserNameDBMemo39CharWrap DataField image4_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo40 DesignLayerppDesignLayer7UserNameDBMemo40CharWrap DataField image5_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo41 DesignLayerppDesignLayer7UserName DBMemo401CharWrap DataField image6_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo42 DesignLayerppDesignLayer7UserNameDBMemo42CharWrap DataField image7_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo43 DesignLayerppDesignLayer7UserNameDBMemo43CharWrap DataField image8_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo44 DesignLayerppDesignLayer7UserNameDBMemo44CharWrap DataField image9_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBMemo ppDBMemo45 DesignLayerppDesignLayer7UserNameDBMemo45CharWrap DataField image10_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLinesStretch TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight"mmLeft?mmTopmmWidthtjBandType LayerName Foreground6mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppDBImage ppDBImage14 DesignLayerppDesignLayer7UserName DBImage14AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage3 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage15 DesignLayerppDesignLayer7UserName DBImage15AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage4 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage16 DesignLayerppDesignLayer7UserName DBImage16AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage5 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage17 DesignLayerppDesignLayer7UserName DBImage17AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage6 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage18 DesignLayerppDesignLayer7UserName DBImage18AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage7 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage19 DesignLayerppDesignLayer7UserName DBImage19AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage8 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage20 DesignLayerppDesignLayer7UserName DBImage20AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage9 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6 TppDBImage ppDBImage21 DesignLayerppDesignLayer7UserName DBImage201AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage10 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightԔmmLeft-mmTopmmWidthnBandType LayerName Foreground6TppGroupppGroup6 BreakName opdscreen_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup6mmNewColumnThresholdmmNewPageThresholdDataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand6Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel148 DesignLayerppDesignLayer7UserNameLabel148AutoSizeCaption2##'#H22" Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthvBandTypeGroupNo LayerName Foreground6TppLineppLine2 DesignLayerppDesignLayer7UserNameLine1 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground6TppGroupFooterBandppGroupFooterBand6VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule5TraProgramInforaProgramInfo93 raClassNameTraEventHandlerraProgram.ProgramName Label2OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label2OnPrint; begin label2.visible:= DBPipeline['pe_heent']='N'; end; raProgram.ComponentNameLabel2raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo94 raClassNameTraEventHandlerraProgram.ProgramName Label3OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label3OnPrint; begin label3.visible:= DBPipeline['pe_heent']='Y'; end; raProgram.ComponentNameLabel3raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo95 raClassNameTraEventHandlerraProgram.ProgramName Label7OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label7OnPrint; begin label7.visible:= DBPipeline['pe_heart']='N'; end; raProgram.ComponentNameLabel7raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo96 raClassNameTraEventHandlerraProgram.ProgramName Label8OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label8OnPrint; begin label8.visible:= DBPipeline['pe_heart']='Y'; end; raProgram.ComponentNameLabel8raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo97 raClassNameTraEventHandlerraProgram.ProgramNameLabel1302OnPrintraProgram.ProgramType ttProcedureraProgram.Source^procedure Label1302OnPrint; begin label1302.visible:= DBPipeline['pe_lung']='N'; end; raProgram.ComponentName Label1302raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo98 raClassNameTraEventHandlerraProgram.ProgramNameLabel96OnPrintraProgram.ProgramType ttProcedureraProgram.SourceZprocedure Label96OnPrint; begin label96.visible:= DBPipeline['pe_lung']='Y'; end; raProgram.ComponentNameLabel96raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo99 raClassNameTraEventHandlerraProgram.ProgramName Label9OnPrintraProgram.ProgramType ttProcedureraProgram.SourceVprocedure Label9OnPrint; begin label9.visible:= DBPipeline['pe_ab']='N'; end; raProgram.ComponentNameLabel9raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo100 raClassNameTraEventHandlerraProgram.ProgramNameLabel10OnPrintraProgram.ProgramType ttProcedureraProgram.SourceXprocedure Label10OnPrint; begin label10.visible:= DBPipeline['pe_ab']='Y'; end; raProgram.ComponentNameLabel10raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo101 raClassNameTraEventHandlerraProgram.ProgramNameLabel129OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label129OnPrint; begin label129.visible:= DBPipeline['pe_ext']='N'; end; raProgram.ComponentNameLabel129raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo102 raClassNameTraEventHandlerraProgram.ProgramNameLabel138OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label138OnPrint; begin label138.visible:= DBPipeline['pe_ext']='Y'; end; raProgram.ComponentNameLabel138raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo103 raClassNameTraEventHandlerraProgram.ProgramNameLabel142OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label142OnPrint; begin label142.visible:= DBPipeline['pe_neuro']='N'; end; raProgram.ComponentNameLabel142raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo104 raClassNameTraEventHandlerraProgram.ProgramNameLabel143OnPrintraProgram.ProgramType ttProcedureraProgram.Source]procedure Label143OnPrint; begin label143.visible:= DBPipeline['pe_neuro']='Y'; end; raProgram.ComponentNameLabel143raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo105 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source Kprocedure DetailBeforeGenerate; begin if DBPipeline['pe_ga_text'] = '' then begin Region27.visible := false ; end else begin Region27.visible := true ; end; if DBPipeline['pe_heent'] = '' then begin Region1.visible := false ; end else begin Region1.visible := true ; end; if DBPipeline['pe_heart'] = '' then begin Region2.visible := false ; end else begin Region2.visible := true ; end; if DBPipeline['pe_lung'] = '' then begin Region22.visible := false ; end else begin Region22.visible := true ; end; if DBPipeline['pe_ab'] = '' then begin Region23.visible := false ; end else begin Region23.visible := true ; end; if DBPipeline['pe_ext'] = '' then begin Region201.visible := false ; end else begin Region201.visible := true ; end; if DBPipeline['pe_neuro'] = '' then begin Region25.visible := false ; end else begin Region25.visible := true ; end; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers7TppDesignLayerppDesignLayer7UserName Foreground6 LayerTypeltBandedIndex TppSubReport ppSubReport8 DesignLayerppDesignLayer1UserName SubReport7 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport4TraverseAllDataDataPipelineName ppDBPipelinemmHeightmmLeftmmTopnmmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport8AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand9Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppDetailBand ppDetailBand8Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight$mmPrintPosition TppRegion ppRegion30 DesignLayerppDesignLayer8UserNameRegion30 KeepTogether Brush.StylebsClearCaptionRegion30 Pen.StylepsClearStretch Transparent mmHeight4mmLeftmmTopmmWidthNBandType LayerName Foreground7mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel157 DesignLayerppDesignLayer8UserNameLabel157AutoSizeCaptionV.A. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold fsUnderline Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText50 DesignLayerppDesignLayer8UserName DBText401 DataFieldlph DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText53 DesignLayerppDesignLayer8UserNameDBText53 DataFieldph_l1 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft$mmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText54 DesignLayerppDesignLayer8UserNameDBText54 DataFieldph_l2 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft mmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText55 DesignLayerppDesignLayer8UserNameDBText55 DataFieldph_l3 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText56 DesignLayerppDesignLayer8UserNameDBText56 DataFieldph_l4 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft/mmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText40 DesignLayerppDesignLayer8UserNameDBText40 DataFieldrph DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText41 DesignLayerppDesignLayer8UserNameDBText41 DataFieldph_r1 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft$mmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText49 DesignLayerppDesignLayer8UserNameDBText49 DataFieldph_r4 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft/mmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText24 DesignLayerppDesignLayer8UserNameDBText24 Border.Weight? DataFieldl01 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftq,mmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText25 DesignLayerppDesignLayer8UserNameDBText25 Border.Weight? DataFieldl02 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft{LmmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText31 DesignLayerppDesignLayer8UserNameDBText31 Border.Weight? DataFieldl03 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft'ammTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText34 DesignLayerppDesignLayer8UserNameDBText34 Border.Weight? DataFieldl04 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLefttmmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText35 DesignLayerppDesignLayer8UserNameDBText35 Border.Weight? DataFieldl05 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmmTop mmWidthBandType LayerName Foreground7 TppDBText ppDBText8 DesignLayerppDesignLayer8UserNameDBText8 Border.Weight? DataFieldr02 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftMmmTopmmWidthBandType LayerName Foreground7TppLabel ppLabel158 DesignLayerppDesignLayer8UserNameLabel158AutoSize Border.Weight?Captionตาขวา[A] : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidthz-BandType LayerName Foreground7TppLabel ppLabel159 DesignLayerppDesignLayer8UserNameLabel159AutoSize Border.Weight?Caption 2 I2"[B] : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidthz-BandType LayerName Foreground7 TppDBText ppDBText7 DesignLayerppDesignLayer8UserNameDBText7 Border.Weight? DataFieldr01 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftq,mmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText12 DesignLayerppDesignLayer8UserNameDBText12 Border.Weight? DataFieldr03 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft'ammTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText14 DesignLayerppDesignLayer8UserNameDBText14 Border.Weight? DataFieldr04 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLefttmmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText15 DesignLayerppDesignLayer8UserNameDBText15 Border.Weight? DataFieldr05 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmmTopmmWidthBandType LayerName Foreground7TppLabel ppLabel163 DesignLayerppDesignLayer8UserNameLabel163AutoSizeCaptionPH : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftfmmTopmmWidthBandType LayerName Foreground7TppLabel ppLabel164 DesignLayerppDesignLayer8UserNameLabel164AutoSizeCaptionPH : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftfmmTopmmWidthBandType LayerName Foreground7TppLineppLine39 DesignLayerppDesignLayer8UserNameLine39 Pen.WidthWeight?mmHeightEmmLeftmmTopmmWidthBandType LayerName Foreground7TppLineppLine40 DesignLayerppDesignLayer8UserNameLine202 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmTopmmWidthBandType LayerName Foreground7TppLineppLine41 DesignLayerppDesignLayer8UserNameLine41 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLineppLine42 DesignLayerppDesignLayer8UserNameLine42 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLineppLine43 DesignLayerppDesignLayer8UserNameLine43 Pen.WidthWeight?mmHeightEmmLeft-mmTopmmWidthBandType LayerName Foreground7TppLineppLine44 DesignLayerppDesignLayer8UserNameLine44 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft$mmTopmmWidthBandType LayerName Foreground7TppLineppLine45 DesignLayerppDesignLayer8UserNameLine45 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft$mmTopmmWidth<BandType LayerName Foreground7TppLineppLine46 DesignLayerppDesignLayer8UserNameLine46 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLineppLine59 DesignLayerppDesignLayer8UserNameLine59 Pen.WidthWeight?mmHeightEmmLeftq,mmTopmmWidthBandType LayerName Foreground7TppLineppLine60 DesignLayerppDesignLayer8UserNameLine60 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftq,mmTopmmWidthBandType LayerName Foreground7TppLineppLine61 DesignLayerppDesignLayer8UserNameLine61 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftq,mmTopmmWidth<BandType LayerName Foreground7TppLineppLine62 DesignLayerppDesignLayer8UserNameLine62 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft7DmmTopmmWidth<BandType LayerName Foreground7TppLineppLine63 DesignLayerppDesignLayer8UserNameLine63 Pen.WidthWeight?mmHeightEmmLeftMmmTopmmWidthBandType LayerName Foreground7TppLineppLine64 DesignLayerppDesignLayer8UserNameLine64 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftMmmTopmmWidthBandType LayerName Foreground7TppLineppLine65 DesignLayerppDesignLayer8UserNameLine65 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftMmmTopmmWidth<BandType LayerName Foreground7TppLineppLine66 DesignLayerppDesignLayer8UserNameLine66 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftWmmTopmmWidth<BandType LayerName Foreground7TppLineppLine67 DesignLayerppDesignLayer8UserNameLine67 Pen.WidthWeight?mmHeightEmmLeft'ammTopmmWidthBandType LayerName Foreground7TppLineppLine68 DesignLayerppDesignLayer8UserNameLine68 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft'ammTopmmWidthBandType LayerName Foreground7TppLineppLine69 DesignLayerppDesignLayer8UserNameLine69 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft'ammTopmmWidth<BandType LayerName Foreground7TppLineppLine70 DesignLayerppDesignLayer8UserNameLine70 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft}kmmTopmmWidth<BandType LayerName Foreground7TppLineppLine71 DesignLayerppDesignLayer8UserNameLine71 Pen.WidthWeight?mmHeightEmmLefttmmTopmmWidthBandType LayerName Foreground7TppLineppLine72 DesignLayerppDesignLayer8UserNameLine72 Pen.WidthPositionlpBottomWeight?mmHeightEmmLefttmmTopmmWidthBandType LayerName Foreground7TppLineppLine73 DesignLayerppDesignLayer8UserNameLine73 Pen.WidthPositionlpLeftWeight?mmHeightxmmLefttmmTopmmWidth<BandType LayerName Foreground7TppLineppLine74 DesignLayerppDesignLayer8UserNameLine74 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft mmTopmmWidth<BandType LayerName Foreground7TppLineppLine75 DesignLayerppDesignLayer8UserNameLine75 Pen.WidthWeight?mmHeightEmmLeftmmmTopmmWidthBandType LayerName Foreground7TppLineppLine76 DesignLayerppDesignLayer8UserNameLine76 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmmTopmmWidthBandType LayerName Foreground7TppLineppLine77 DesignLayerppDesignLayer8UserNameLine77 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmmTopmmWidth<BandType LayerName Foreground7TppLineppLine78 DesignLayerppDesignLayer8UserNameLine78 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftÒmmTopmmWidth<BandType LayerName Foreground7TppLineppLine19 DesignLayerppDesignLayer8UserNameLine19 Pen.WidthWeight?mmHeightEmmLeftq,mmTop"mmWidthBandType LayerName Foreground7TppLineppLine20 DesignLayerppDesignLayer8UserNameLine601 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftq,mmTopO(mmWidthBandType LayerName Foreground7TppLineppLine21 DesignLayerppDesignLayer8UserNameLine21 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftq,mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine22 DesignLayerppDesignLayer8UserNameLine22 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft7DmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine23 DesignLayerppDesignLayer8UserNameLine23 Pen.WidthWeight?mmHeightEmmLeftMmmTop"mmWidthBandType LayerName Foreground7TppLineppLine24 DesignLayerppDesignLayer8UserNameLine24 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftMmmTopO(mmWidthBandType LayerName Foreground7TppLineppLine25 DesignLayerppDesignLayer8UserNameLine25 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftMmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine26 DesignLayerppDesignLayer8UserNameLine26 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftWmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine27 DesignLayerppDesignLayer8UserNameLine27 Pen.WidthWeight?mmHeightEmmLeft'ammTop"mmWidthBandType LayerName Foreground7TppLineppLine28 DesignLayerppDesignLayer8UserNameLine28 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft'ammTopO(mmWidthBandType LayerName Foreground7TppLineppLine29 DesignLayerppDesignLayer8UserNameLine29 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft'ammTop"mmWidth<BandType LayerName Foreground7TppLineppLine30 DesignLayerppDesignLayer8UserNameLine701 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft}kmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine31 DesignLayerppDesignLayer8UserNameLine31 Pen.WidthWeight?mmHeightEmmLefttmmTop"mmWidthBandType LayerName Foreground7TppLineppLine32 DesignLayerppDesignLayer8UserNameLine32 Pen.WidthPositionlpBottomWeight?mmHeightEmmLefttmmTopO(mmWidthBandType LayerName Foreground7TppLineppLine33 DesignLayerppDesignLayer8UserNameLine33 Pen.WidthPositionlpLeftWeight?mmHeightxmmLefttmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine34 DesignLayerppDesignLayer8UserNameLine34 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine35 DesignLayerppDesignLayer8UserNameLine35 Pen.WidthWeight?mmHeightEmmLeftmmmTop"mmWidthBandType LayerName Foreground7TppLineppLine36 DesignLayerppDesignLayer8UserNameLine36 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmmTopO(mmWidthBandType LayerName Foreground7TppLineppLine37 DesignLayerppDesignLayer8UserNameLine37 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine38 DesignLayerppDesignLayer8UserNameLine38 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftÒmmTop"mmWidth<BandType LayerName Foreground7 TppDBText ppDBText47 DesignLayerppDesignLayer8UserNameDBText47 DataFieldph_r2 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeft mmTopmmWidthBandType LayerName Foreground7 TppDBText ppDBText48 DesignLayerppDesignLayer8UserNameDBText48 DataFieldph_r3 DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTopmmWidthBandType LayerName Foreground7TppLineppLine47 DesignLayerppDesignLayer8UserNameLine47 Pen.WidthWeight?mmHeightEmmLeft mmTopmmWidthBandType LayerName Foreground7TppLineppLine48 DesignLayerppDesignLayer8UserNameLine48 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft mmTopmmWidthBandType LayerName Foreground7TppLineppLine49 DesignLayerppDesignLayer8UserNameLine49 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft mmTopmmWidth<BandType LayerName Foreground7TppLineppLine50 DesignLayerppDesignLayer8UserNameLine50 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft mmTopmmWidth<BandType LayerName Foreground7TppLineppLine51 DesignLayerppDesignLayer8UserNameLine51 Pen.WidthWeight?mmHeightEmmLeftmmTopmmWidthBandType LayerName Foreground7TppLineppLine52 DesignLayerppDesignLayer8UserNameLine52 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmTopmmWidthBandType LayerName Foreground7TppLineppLine53 DesignLayerppDesignLayer8UserNameLine53 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLineppLine54 DesignLayerppDesignLayer8UserNameLine54 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft&mmTopmmWidth<BandType LayerName Foreground7TppLineppLine55 DesignLayerppDesignLayer8UserNameLine55 Pen.WidthWeight?mmHeightEmmLeft/mmTopmmWidthBandType LayerName Foreground7TppLineppLine56 DesignLayerppDesignLayer8UserNameLine56 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft/mmTopmmWidthBandType LayerName Foreground7TppLineppLine57 DesignLayerppDesignLayer8UserNameLine57 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft/mmTopmmWidth<BandType LayerName Foreground7TppLineppLine58 DesignLayerppDesignLayer8UserNameLine501 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftvBmmTopmmWidth<BandType LayerName Foreground7TppLineppLine79 DesignLayerppDesignLayer8UserNameLine79 Pen.WidthWeight?mmHeightEmmLeftmmTop"mmWidthBandType LayerName Foreground7TppLineppLine80 DesignLayerppDesignLayer8UserNameLine80 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmTopO(mmWidthBandType LayerName Foreground7TppLineppLine81 DesignLayerppDesignLayer8UserNameLine81 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine82 DesignLayerppDesignLayer8UserNameLine82 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine83 DesignLayerppDesignLayer8UserNameLine83 Pen.WidthWeight?mmHeightEmmLeft-mmTop"mmWidthBandType LayerName Foreground7TppLineppLine84 DesignLayerppDesignLayer8UserNameLine84 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft$mmTopO(mmWidthBandType LayerName Foreground7TppLineppLine85 DesignLayerppDesignLayer8UserNameLine85 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft$mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine86 DesignLayerppDesignLayer8UserNameLine86 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine87 DesignLayerppDesignLayer8UserNameLine87 Pen.WidthWeight?mmHeightEmmLeft mmTop"mmWidthBandType LayerName Foreground7TppLineppLine88 DesignLayerppDesignLayer8UserNameLine88 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft mmTopO(mmWidthBandType LayerName Foreground7TppLineppLine89 DesignLayerppDesignLayer8UserNameLine89 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine90 DesignLayerppDesignLayer8UserNameLine502 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine91 DesignLayerppDesignLayer8UserNameLine91 Pen.WidthWeight?mmHeightEmmLeftmmTop"mmWidthBandType LayerName Foreground7TppLineppLine92 DesignLayerppDesignLayer8UserNameLine92 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmTopO(mmWidthBandType LayerName Foreground7TppLineppLine93 DesignLayerppDesignLayer8UserNameLine93 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTop"mmWidth<BandType LayerName Foreground7TppLineppLine94 DesignLayerppDesignLayer8UserNameLine94 Pen.WidthPositionlpRightWeight?mmHeightxmmLeft&mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine95 DesignLayerppDesignLayer8UserNameLine95 Pen.WidthWeight?mmHeightEmmLeft/mmTop"mmWidthBandType LayerName Foreground7TppLineppLine96 DesignLayerppDesignLayer8UserNameLine96 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeft/mmTopO(mmWidthBandType LayerName Foreground7TppLineppLine97 DesignLayerppDesignLayer8UserNameLine97 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeft/mmTop"mmWidth<BandType LayerName Foreground7TppLineppLine98 DesignLayerppDesignLayer8UserNameLine98 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftvBmmTop"mmWidth<BandType LayerName Foreground7 TppRegion ppRegion31 DesignLayerppDesignLayer8UserNameRegion31 KeepTogether Brush.StylebsClearCaptionRegion31 Pen.StylepsClearShiftRelativeTo ppRegion30Stretch Transparent mmHeightQmmLeftmmTop ^mmWidth BandType LayerName Foreground7mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel160 DesignLayerppDesignLayer8UserNameLabel160AutoSizeCaptionC.T. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold fsUnderline Transparent mmHeightmmLeft mmTop_mmWidthBandType LayerName Foreground7 TppDBText ppDBText58 DesignLayerppDesignLayer8UserName DBText601 DataFieldlct DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmToplmmWidthBandType LayerName Foreground7 TppDBText ppDBText60 DesignLayerppDesignLayer8UserNameDBText60 DataFieldsch_lct DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftmmTop}mmWidthBandType LayerName Foreground7 TppDBText ppDBText57 DesignLayerppDesignLayer8UserNameDBText57 DataFieldrct DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftWmmToplmmWidthBandType LayerName Foreground7 TppDBText ppDBText59 DesignLayerppDesignLayer8UserNameDBText59 DataFieldsch_rct DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftWmmTop}mmWidthBandType LayerName Foreground7TppLabel ppLabel161 DesignLayerppDesignLayer8UserNameLabel161AutoSizeCaptionNC.TN : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmToplmmWidth%BBandType LayerName Foreground7TppLabel ppLabel162 DesignLayerppDesignLayer8UserNameLabel162AutoSizeCaption SCHIOTZ.TN : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTop|mmWidth%BBandType LayerName Foreground7TppLabel ppLabel165 DesignLayerppDesignLayer8UserNameLabel165AutoSizeCaption2 I2" Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmToplmmWidthBandType LayerName Foreground7TppLabel ppLabel166 DesignLayerppDesignLayer8UserNameLabel166AutoSizeCaption2'2 Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft ?mmToplmmWidthBandType LayerName Foreground7TppLabel ppLabel167 DesignLayerppDesignLayer8UserNameLabel167AutoSizeCaptionmmHg. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftxmmToplmmWidth"BandType LayerName Foreground7TppLabel ppLabel168 DesignLayerppDesignLayer8UserNameLabel168AutoSizeCaptionmmHg. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmToplmmWidthBandType LayerName Foreground7TppLabel ppLabel169 DesignLayerppDesignLayer8UserNameLabel169AutoSizeCaption2 I2" Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop}mmWidthBandType LayerName Foreground7TppLabel ppLabel170 DesignLayerppDesignLayer8UserNameLabel170AutoSizeCaption2'2 Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft ?mmTop}mmWidthBandType LayerName Foreground7TppLabel ppLabel171 DesignLayerppDesignLayer8UserNameLabel171AutoSizeCaptionmmHg. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftxmmTop}mmWidth"BandType LayerName Foreground7TppLabel ppLabel172 DesignLayerppDesignLayer8UserNameLabel172AutoSizeCaptionmmHg. Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTop}mmWidthBandType LayerName Foreground7TppLineppLine99 DesignLayerppDesignLayer8UserNameLine99 Pen.WidthWeight?mmHeightEmmLeftWmmTopnmmWidthBandType LayerName Foreground7TppLine ppLine100 DesignLayerppDesignLayer8UserNameLine100 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftWmmToptmmWidthBandType LayerName Foreground7TppLine ppLine101 DesignLayerppDesignLayer8UserNameLine1 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftWmmTopnmmWidth<BandType LayerName Foreground7TppLine ppLine102 DesignLayerppDesignLayer8UserNameLine102 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftommTopnmmWidth<BandType LayerName Foreground7TppLine ppLine103 DesignLayerppDesignLayer8UserNameLine103 Pen.WidthWeight?mmHeightEmmLeftWmmTopmmWidthBandType LayerName Foreground7TppLine ppLine104 DesignLayerppDesignLayer8UserNameLine1001 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftWmmTopSmmWidthBandType LayerName Foreground7TppLine ppLine105 DesignLayerppDesignLayer8UserNameLine105 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftWmmTopmmWidth<BandType LayerName Foreground7TppLine ppLine106 DesignLayerppDesignLayer8UserNameLine106 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftommTopmmWidth<BandType LayerName Foreground7TppLine ppLine111 DesignLayerppDesignLayer8UserNameLine111 Pen.WidthWeight?mmHeightEmmLeftmmTopmmWidthBandType LayerName Foreground7TppLine ppLine112 DesignLayerppDesignLayer8UserNameLine1003 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmTopSmmWidthBandType LayerName Foreground7TppLine ppLine113 DesignLayerppDesignLayer8UserNameLine113 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLine ppLine114 DesignLayerppDesignLayer8UserNameLine114 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTopmmWidth<BandType LayerName Foreground7TppLine ppLine107 DesignLayerppDesignLayer8UserNameLine107 Pen.WidthWeight?mmHeightEmmLeftmmTopnmmWidthBandType LayerName Foreground7TppLine ppLine108 DesignLayerppDesignLayer8UserNameLine1002 Pen.WidthPositionlpBottomWeight?mmHeightEmmLeftmmToptmmWidthBandType LayerName Foreground7TppLine ppLine109 DesignLayerppDesignLayer8UserNameLine109 Pen.WidthPositionlpLeftWeight?mmHeightxmmLeftmmTopnmmWidth<BandType LayerName Foreground7TppLine ppLine110 DesignLayerppDesignLayer8UserNameLine110 Pen.WidthPositionlpRightWeight?mmHeightxmmLeftmmTopnmmWidth<BandType LayerName Foreground7 TppRegion ppRegion32 DesignLayerppDesignLayer8UserNameRegion32 KeepTogether Brush.StylebsClearCaptionRegion32 Pen.StylepsClearShiftRelativeTo ppRegion30Stretch Transparent mmHeightSmmLeftmmTop ^mmWidthXBandType LayerName Foreground7mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage2 DesignLayerppDesignLayer8UserNameDBImage2AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataField image_data1 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightPGmmLeftHmmTop'ammWidthMBandType LayerName Foreground7TppSummaryBandppSummaryBand1Background.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPositionTppGroupppGroup1 BreakNameeye_vn DataPipeline ppDBPipelineGroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup1mmNewColumnThresholdmmNewPageThresholdCDataPipelineName ppDBPipelineNewFileTppGroupHeaderBandppGroupHeaderBand1Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel156 DesignLayerppDesignLayer8UserNameLabel156AutoSizeCaption6การคัดกรองตา ( Eye Screening ) Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthֳBandTypeGroupNo LayerName Foreground7TppLineppLine18 DesignLayerppDesignLayer8UserNameLine18 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground7TppGroupFooterBandppGroupFooterBand1VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModule raCodeModule7TraProgramInforaProgramInfo106 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source wprocedure DetailBeforeGenerate; begin if eye_scr1 = 'N' then Region30.visible := false else Region30.visible := true; if eye_scr2 = 'N' then Region31.visible := false else Region31.visible := true; if eye_img1 = 'N' then Region32.visible := false else Region32.visible := true; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers8TppDesignLayerppDesignLayer8UserName Foreground7 LayerTypeltBandedIndex TppSubReport ppSubReport7 DesignLayerppDesignLayer1UserName SubReport8 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport6TraverseAllDataDataPipelineNameDBPipeLineLink8mmHeightmmLeftmmTop1mmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport7AutoStop DataPipelineDBPipeLineLink8PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink8 TppDetailBand ppDetailBand7Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightXmmPrintPosition TppRegion ppRegion40 DesignLayerppDesignLayer9UserNameRegion40 Brush.StylebsClearCaptionRegion40 Pen.StylepsClearStretch Transparent mmHeightmmLeftmmTopV mmWidth8BandType LayerName Foreground8mmBottomOffset mmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel196 DesignLayerppDesignLayer9UserNameLabel196AutoSizeCaption +!2"@+8 : Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftEmmTopxmmWidthF'BandType LayerName Foreground8 TppVariable ppVariable20 DesignLayerppDesignLayer9UserName Variable20 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftEmmTopmmWidthi+BandType LayerName Foreground8 TppVariable ppVariable21 DesignLayerppDesignLayer9UserName Variable21 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeftaImmTopmmWidthHBandType LayerName Foreground8 TppRegion ppRegion38 DesignLayerppDesignLayer9UserNameRegion38 Brush.StylebsClearCaptionRegion38 Pen.ColorclWindow Pen.StylepsClearStretch Transparent mmHeightmmLeft4mmTopwmmWidth&BandType LayerName Foreground8mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppVariable ppVariable22 DesignLayerppDesignLayer9UserName Variable22AutoSize BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft6mmTopmmWidthBandType LayerName Foreground8 TppRegion ppRegion39 DesignLayerppDesignLayer9UserNameRegion39 Brush.StylebsClearCaptionRegion39 Pen.StylepsClearShiftRelativeTo ppRegion38Stretch Transparent mmHeight!mmLeft4mmTopy-mmWidth&BandType LayerName Foreground8mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppVariable ppVariable23 DesignLayerppDesignLayer9UserName Variable23AutoSize Border.ColorclWindow BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft6mmTop.mmWidthBandType LayerName Foreground8TppGroup ppGroup14 BreakNamevn DataPipelineDBPipeLineLink8GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup14mmNewColumnThresholdmmNewPageThreshold!DataPipelineNameDBPipeLineLink8NewFileTppGroupHeaderBandppGroupHeaderBand14Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel191 DesignLayerppDesignLayer9UserNameLabel191AutoSizeCaption #2"2#1+!2" Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthֳBandTypeGroupNo LayerName Foreground8TppLine ppLine120 DesignLayerppDesignLayer9UserNameLine120 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground8TppGroupFooterBandppGroupFooterBand14Background.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPositionTppGroup ppGroup15 BreakNameoapp_id DataPipelineDBPipeLineLink8GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup15mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink8NewFileTppGroupHeaderBandppGroupHeaderBand15Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffset mmHeightmmPrintPositionTppLabel ppLabel192 DesignLayerppDesignLayer9UserNameLabel192AutoSizeCaption '15H1 : Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeftEmmTopmmWidth`*BandTypeGroupNo LayerName Foreground8TppLabel ppLabel193 DesignLayerppDesignLayer9UserNameLabel193Caption@'%2 : Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground8 TppDBText ppDBText69 DesignLayerppDesignLayer9UserNameDBText69 DataFieldnexttime DataPipelineDBPipeLineLink8 DisplayFormathh:nn Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent DataPipelineNameDBPipeLineLink8mmHeightmmLeftmmTopmmWidth!BandTypeGroupNo LayerName Foreground8 TppDBText ppDBText70 DesignLayerppDesignLayer9UserNameDBText70 DataField nexttime_end DataPipelineDBPipeLineLink8 DisplayFormat hh:nn น. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent DataPipelineNameDBPipeLineLink8mmHeightmmLeft[ mmTopmmWidthO(BandTypeGroupNo LayerName Foreground8TppLabel ppLabel194 DesignLayerppDesignLayer9UserNameLabel17AutoSizeCaption- Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent mmHeightmmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground8TppLabel ppLabel195 DesignLayerppDesignLayer9UserNameLabel195Caption# Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidth<BandTypeGroupNo LayerName Foreground8 TppVariable ppVariable8 DesignLayerppDesignLayer9UserName Variable8AutoSize BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style fsBold Transparent mmHeightmmLeft4mmTopmmWidthzBandTypeGroupNo LayerName Foreground8 TppVariable ppVariable16 DesignLayerppDesignLayer9UserName Variable16 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidth|,BandTypeGroupNo LayerName Foreground8TppGroupFooterBandppGroupFooterBand15Background.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule14TraProgramInforaProgramInfo107 raClassNameTraEventHandlerraProgram.ProgramNameVariable20OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable20OnCalc(var Value: Variant); begin Value := 'คลีนิค : '+GetSQLStringData('select name from clinic where clinic = "'+DBPipelinelink8['clinic']+'" '); end; raProgram.ComponentName Variable20raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo108 raClassNameTraEventHandlerraProgram.ProgramNameVariable21OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable21OnCalc(var Value: Variant); begin Value := 'เหตุที่นัด : '+DBPipelinelink8['app_cause'] ; end; raProgram.ComponentName Variable21raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo109 raClassNameTraEventHandlerraProgram.ProgramNameVariable22OnCalcraProgram.ProgramType ttProcedureraProgram.Sourcekprocedure Variable22OnCalc(var Value: Variant); begin Value := DBPipelinelink8['note']; end; raProgram.ComponentName Variable22raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo110 raClassNameTraEventHandlerraProgram.ProgramNameVariable23OnCalcraProgram.ProgramType ttProcedureraProgram.Sourcelprocedure Variable23OnCalc(var Value: Variant); begin Value := DBPipelinelink8['note2']; end; raProgram.ComponentName Variable23raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo111 raClassNameTraEventHandlerraProgram.ProgramNameRegion38OnPrintraProgram.ProgramType ttProcedureraProgram.Sourceaprocedure Region38OnPrint; begin region38.visible:= DBPipelineLink8['note'] <> '' ; end; raProgram.ComponentNameRegion38raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo112 raClassNameTraEventHandlerraProgram.ProgramNameRegion39OnPrintraProgram.ProgramType ttProcedureraProgram.Sourcebprocedure Region39OnPrint; begin region39.visible:= DBPipelineLink8['note2'] <> '' ; end; raProgram.ComponentNameRegion39raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo113 raClassNameTraEventHandlerraProgram.ProgramNameVariable8OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable8OnCalc(var Value: Variant); begin Value := FormatThaiDate('d mmmm yyyy',DBPipeLineLink8['nextdate']); end; raProgram.ComponentName Variable8raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo114 raClassNameTraEventHandlerraProgram.ProgramNameVariable16OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable16OnCalc(var Value: Variant); begin Value := 'อีก '+GetSQLStringData('select datediff(nextdate,vstdate) as dd from oapp where vn="'+GetUserParameter(0) +'"')+' วัน'; end; raProgram.ComponentName Variable16raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers9TppDesignLayerppDesignLayer9UserName Foreground8 LayerTypeltBandedIndex TppSubReport ppSubReport9 DesignLayerppDesignLayer1UserName SubReport9 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport7TraverseAllDataDataPipelineNameDBPipeLineLink9mmHeightmmLeftmmTop˓mmWidthNBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport9AutoStop DataPipelineDBPipeLineLink9PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthNPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink9 TppDetailBand ppDetailBand9Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight0mmPrintPosition TppDBText ppDBText71 DesignLayerppDesignLayer10UserNameDBText71 DataFieldrefer_hospname DataPipelineDBPipeLineLink9 Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style Transparent DataPipelineNameDBPipeLineLink9mmHeight^ mmLeft8mmTopmmWidthBandType LayerName Foreground9 TppVariable ppVariable24 DesignLayerppDesignLayer10UserName Variable24AutoSize BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style Transparent mmHeight_ mmLeft8mmTopmmWidthBandType LayerName Foreground9 TppVariable ppVariable25 DesignLayerppDesignLayer10UserName Variable25AutoSize BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style Transparent mmHeight_ mmLeft8mmTopo mmWidthBandType LayerName Foreground9TppLabel ppLabel198 DesignLayerppDesignLayer10UserNameLabel198Caption*HH-D"1 : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight mmLeft mmTopmmWidth8BandType LayerName Foreground9TppLabel ppLabel199 DesignLayerppDesignLayer10UserNameLabel199Caption*H1'@7H- : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopp mmWidth1BandType LayerName Foreground9TppLabel ppLabel200 DesignLayerppDesignLayer10UserNameLabel200Caption*2@+85H*H : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTopmmWidth7BandType LayerName Foreground9TppGroup ppGroup16 BreakName refer_number DataPipelineDBPipeLineLink9GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup16mmNewColumnThresholdmmNewPageThreshold!DataPipelineNameDBPipeLineLink9NewFileTppGroupHeaderBandppGroupHeaderBand16Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel197 DesignLayerppDesignLayer10UserNameLabel197AutoSizeCaption 2#*HH- Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeftmmTopmmWidthֳBandTypeGroupNo LayerName Foreground9TppLine ppLine121 DesignLayerppDesignLayer10UserNameLine121 Pen.WidthWeight?mmHeight"mmLeftmmTopmmWidthNBandTypeGroupNo LayerName Foreground9TppGroupFooterBandppGroupFooterBand16Background.Brush.StylebsClearHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule15TraProgramInforaProgramInfo115 raClassNameTraEventHandlerraProgram.ProgramNameVariable24OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable24OnCalc(var Value: Variant); begin Value := GetSQLStringData('select name from rfrcs where rfrcs = "'+DBPipelineLink9['rfrcs']+'" '); end; raProgram.ComponentName Variable24raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo116 raClassNameTraEventHandlerraProgram.ProgramNameVariable25OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable25OnCalc(var Value: Variant); begin Value := GetSQLStringData('select name from refer_cause where id = "'+DBPipelineLink9['refer_cause']+'" '); end; raProgram.ComponentName Variable25raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers10TppDesignLayerppDesignLayer10UserName Foreground9 LayerTypeltBandedIndex TppSubReport ppSubReport11 DesignLayerppDesignLayer1UserName SubReport11 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthTraverseAllDataDataPipelineNameDBPipeLineLink1mmHeightmmLeftimmTopmmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport11AutoStop DataPipelineDBPipeLineLink1PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink1 TppDetailBandppDetailBand12Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPositionTppLabel ppLabel175 DesignLayerppDesignLayer11UserNameLabel114AutoSizeCaption: Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeft5%mmTopmmWidth4BandType LayerName Foreground10 TppDBText ppDBText37 DesignLayerppDesignLayer11UserNameDBText17AutoSize DataFieldicd10 DataPipelineDBPipeLineLink1 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style ParentDataPipeline Transparent DataPipelineNameDBPipeLineLink1mmHeightmmLeftV mmTopmmWidthBandType LayerName Foreground10 TppDBText ppDBText61 DesignLayerppDesignLayer11UserNameDBText61AutoSize DataFieldicd10 DataPipelineDBPipeLineLink1 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBoldParentDataPipeline Transparent VisibleDataPipelineNameDBPipeLineLink1mmHeightmmLeftV mmTopmmWidthBandType LayerName Foreground10 TppDBMemo ppDBMemo24 DesignLayerppDesignLayer11UserNameDBMemo24CharWrap DataFielddxname1 DataPipelineDBPipeLineLink1 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBoldRemoveEmptyLinesStretch Transparent VisibleDataPipelineNameDBPipeLineLink1mmHeightmmLefti+mmTopmmWidthBandType LayerName Foreground10mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppLabel ppLabel176 DesignLayerppDesignLayer11UserNameLabel176AutoSizeCaption: Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightmmLeft5%mmTopmmWidth4BandType LayerName Foreground10 TppDBMemo ppDBMemo25 DesignLayerppDesignLayer11UserNameDBMemo25CharWrap DataFielddxname2 DataPipelineDBPipeLineLink1 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style RemoveEmptyLinesStretch Transparent DataPipelineNameDBPipeLineLink1mmHeightmmLefti+mmTopmmWidthBandType LayerName Foreground10mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppGroupppGroup7 BreakNamevn DataPipelineDBPipeLineLink1GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup7mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink1NewFileTppGroupHeaderBandppGroupHeaderBand7Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel174 DesignLayerppDesignLayer11UserNameLabel174ReprintOnOverFlow AutoSizeCaption2#C+I#+1*ICD: Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight_ mmLeft4mmTopmmWidth7BandTypeGroupNo LayerName Foreground10TppGroupFooterBandppGroupFooterBand7VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightp mmPrintPosition TraCodeModule raCodeModule6TraProgramInforaProgramInfo117 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source procedure DetailBeforeGenerate; begin if (DBPipelineLink1['diagtype'] = '1') then begin Label176.visible := true ; DBMemo24.visible := true ; DBText61.visible := true ; Label114.visible := false ; DBMemo25.visible := false ; DBText17.visible := false ; end else begin Label176.visible := false ; DBMemo24.visible := false ; DBText61.visible := false ; Label114.visible := true ; DBMemo25.visible := true ; DBText17.visible := true ; end; if (copy(DBPipeLineLink1['icd10'],1,3) = 'B20') or (copy(DBPipeLineLink1['icd10'],1,3) = 'B21') or (copy(DBPipeLineLink1['icd10'],1,3) = 'B22') or (copy(DBPipeLineLink1['icd10'],1,3) = 'B23') or (copy(DBPipeLineLink1['icd10'],1,3) = 'B24') then begin DBMemo24.visible := false ; DBMemo25.visible := false ; end; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers11TppDesignLayerppDesignLayer11UserName Foreground10 LayerTypeltBandedIndex TppSubReport ppSubReport12 DesignLayerppDesignLayer1UserName SubReport12 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport11TraverseAllDataDataPipelineNameDBPipeLineLink2mmHeightmmLeftimmTopmmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport12AutoStop DataPipelineDBPipeLineLink2PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink2 TppDetailBandppDetailBand13Background1.Brush.StylebsClearBackground2.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TppDBText ppDBText62 DesignLayerppDesignLayer12UserNameDBText62 DataFieldo_name DataPipelineDBPipeLineLink2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent DataPipelineNameDBPipeLineLink2mmHeightmmLeftmmTopmmWidthjBandType LayerName Foreground11 TppDBCalc ppDBCalc2 DesignLayerppDesignLayer12UserNameDBCalc1 DataFieldcode DataPipelineDBPipeLineLink2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DBCalcTypedcCountDataPipelineNameDBPipeLineLink2mmHeightmmLeftmmTopmmWidthxBandType LayerName Foreground11TppLabel ppLabel178 DesignLayerppDesignLayer12UserNameLabel178AutoSizeCaption. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeftxmmTopmmWidth4BandType LayerName Foreground11TppGroupppGroup8 BreakNamevn DataPipelineDBPipeLineLink2GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup8mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink2NewFileTppGroupHeaderBandppGroupHeaderBand8Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel177 DesignLayerppDesignLayer12UserNameLabel177AutoSizeCaption #2"2#+12# Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight_ mmLeft4mmTopmmWidth7BandTypeGroupNo LayerName Foreground11TppLineppLine4 DesignLayerppDesignLayer12UserNameLine4 Pen.WidthWeight?mmHeight+mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground11TppGroupFooterBandppGroupFooterBand8VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule10TppDesignLayersppDesignLayers12TppDesignLayerppDesignLayer12UserName Foreground11 LayerTypeltBandedIndex TppSubReport ppSubReport13 DesignLayerppDesignLayer1UserName SubReport13 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport12TraverseAllDataDataPipelineNameDBPipeLineLink6mmHeightmmLeftimmTop5%mmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport13AutoStop DataPipelineDBPipeLineLink6PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink6 TppDetailBandppDetailBand14Background1.Brush.StylebsClearBackground2.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TppDBText ppDBText63 DesignLayerppDesignLayer13UserNameDBText63 DataFieldPH_name DataPipelineDBPipeLineLink6 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent DataPipelineNameDBPipeLineLink6mmHeightmmLeftmmTopmmWidthXBandType LayerName Foreground12TppLabel ppLabel180 DesignLayerppDesignLayer13UserNameLabel180AutoSizeCaption. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeftxmmTopmmWidth4BandType LayerName Foreground12 TppDBCalc ppDBCalc3 DesignLayerppDesignLayer13UserNameDBCalc3 DataPipelineDBPipeLineLink5 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBoldParentDataPipeline TextAlignmenttaRightJustified Transparent DBCalcTypedcCountDataPipelineNameDBPipeLineLink5mmHeightmmLeftmmTopmmWidthxBandType LayerName Foreground12TppGroupppGroup9 BreakNamevn DataPipelineDBPipeLineLink6GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup9mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink6NewFileTppGroupHeaderBandppGroupHeaderBand9Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel179 DesignLayerppDesignLayer13UserNameLabel179AutoSizeCaption2" 231 / A"LAD" Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight_ mmLeft4mmTopmmWidthBandTypeGroupNo LayerName Foreground12TppLineppLine9 DesignLayerppDesignLayer13UserNameLine9 Pen.WidthWeight?mmHeight4mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground12TppGroupFooterBandppGroupFooterBand9VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule18TppDesignLayersppDesignLayers13TppDesignLayerppDesignLayer13UserName Foreground12 LayerTypeltBandedIndex TppSubReport ppSubReport14 DesignLayerppDesignLayer1UserName SubReport14 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport13TraverseAllDataDataPipelineNameDBPipeLineLink4mmHeightmmLeftimmTop7mmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport14AutoStop DataPipelineDBPipeLineLink4PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink4 TppHeaderBand ppHeaderBand2VisibleBackground.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TppDetailBandppDetailBand15Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppSubReport ppSubReport19 DesignLayerppDesignLayer15UserName SubReport141 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentWidthTraverseAllDataDataPipelineNameDBPipeLineLink7mmHeightmmLeftmmTop mmWidthBandType LayerName Foreground14mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport19AutoStopColumnsColumnPositions.Strings03704174082 DataPipelineDBPipeLineLink7PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink7TppColumnHeaderBandppColumnHeaderBand1Background.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TppDetailBandppDetailBand20Background1.Brush.StylebsClearBackground2.Brush.StylebsClearColumnTraversal ctLeftToRightmmBottomOffsetmmHeightW mmPrintPosition TppDBText ppDBText64 DesignLayerppDesignLayer14UserNameDBText64 DataField lab_report DataPipelineDBPipeLineLink7 Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style Transparent DataPipelineNameDBPipeLineLink7mmHeightV mmLeft4mmTopmmWidthdBandType LayerName Foreground13TppColumnFooterBandppColumnFooterBand1Visible AlignToBottom Background.Brush.StylebsClearmmBottomOffsetmmHeightF'mmPrintPositionTppGroup ppGroup11 BreakNamelab_order_number DataPipelineDBPipeLineLink7GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup11mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink7NewFileTppGroupHeaderBandppGroupHeaderBand11Background.Brush.StylebsClearmmBottomOffsetmmHeighti mmPrintPosition TppVariable ppVariable18 DesignLayerppDesignLayer14UserName Variable18 BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeft4mmTopmmWidth2BandTypeGroupNo LayerName Foreground13TppGroupFooterBandppGroupFooterBand11VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule12TraProgramInforaProgramInfo118 raClassNameTraEventHandlerraProgram.ProgramNameVariable18OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable18OnCalc(var Value: Variant); begin Value := DBPipeLineLink7['form_name']+' ( ผู้รายงานผล : ' +GetSQLStringData('select o.name from lab_head l '+ 'left outer join opduser o on o.loginname = l.reporter_name '+ 'where l.vn = "'+DBPipeLineLink7['vn']+'" '+ 'and l.lab_order_number = "'+DBPipeLineLink7['lab_order_number']+'" ')+' )' ; end; raProgram.ComponentName Variable18raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers14TppDesignLayerppDesignLayer14UserName Foreground13 LayerTypeltBandedIndex TppFooterBand ppFooterBand2VisibleBackground.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPositionTppSummaryBandppSummaryBand15Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightxmmPrintPositionTppLine ppLine116 DesignLayerppDesignLayer15UserNameLine116 Pen.ColorclWhitePositionlpBottomWeight?mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground14TppGroup ppGroup10 BreakNamevn DataPipelineDBPipeLineLink4GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup10mmNewColumnThresholdmmNewPageThresholdN%DataPipelineNameDBPipeLineLink4NewFileTppGroupHeaderBandppGroupHeaderBand10Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLabel ppLabel182 DesignLayerppDesignLayer15UserNameLabel45AutoSizeCaption#2"2##'2+I-4142# Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight_ mmLeft4mmTopmmWidthiBandTypeGroupNo LayerName Foreground14TppLine ppLine115 DesignLayerppDesignLayer15UserNameLine115 Pen.WidthWeight?mmHeight4mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground14TppGroupFooterBandppGroupFooterBand10VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule11TraProgramInforaProgramInfo119 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforePrintraProgram.ProgramType ttProcedureraProgram.SourceNprocedure DetailBeforePrint; begin ChangeDBPipeLineLink7SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+ 'lh.vn,lh.lab_order_number,lh.form_name,lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+ 'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref)," = ", '+ 'if((lo.lab_order_result = "" or lo.lab_order_result is null),"รอผล",lo.lab_order_result)," ", '+ 'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report '+ 'from lab_head lh '+ 'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+ 'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+ 'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code '+ 'where lh.lab_order_number = "'+DBPipeLineLink4['lab_order_number']+'" and lo.confirm = "Y" '+ 'and (lo.lab_order_result is not null and lo.lab_order_result <>"") '+ 'order by lh.lab_order_number,lo.lab_items_sub_group_code,li.display_order '); end; raProgram.ComponentNameDetailraProgram.EventName BeforePrintraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers15TppDesignLayerppDesignLayer15UserName Foreground14 LayerTypeltBandedIndex TppSubReport ppSubReport15 DesignLayerppDesignLayer1UserName SubReport15 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport14TraverseAllDataDataPipelineNameDBPipeLineLink5mmHeightmmLeftimmTopjJmmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport15AutoStop DataPipelineDBPipeLineLink5PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink5 TppDetailBandppDetailBand16Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight5mmPrintPosition TppRegion ppRegion15 DesignLayerppDesignLayer16UserNameRegion15 KeepTogether Brush.StylebsClearCaptionRegion15 Pen.StylepsClearStretch Transparent mmHeightF'mmLeftmmTopmmWidthBandType LayerName Foreground15mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBText ppDBText66 DesignLayerppDesignLayer16UserNameDBText66 DataFieldxrayname DataPipelineDBPipeLineLink5 Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent DataPipelineNameDBPipeLineLink5mmHeight_ mmLeftmmTopmmWidthBandType LayerName Foreground15 TppDBCalc ppDBCalc1 DesignLayerppDesignLayer16UserNameDBCalc1 DataPipelineDBPipeLineLink5 Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DBCalcTypedcCountDataPipelineNameDBPipeLineLink5mmHeight^ mmLeftmmTop mmWidthBandType LayerName Foreground15TppLabel ppLabel183 DesignLayerppDesignLayer16UserNameLabel183AutoSizeCaption . Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeight^ mmLeftmmTop mmWidthxBandType LayerName Foreground15TppLabel ppLabel184 DesignLayerppDesignLayer16UserNameLabel184Caption 2#-H2% : Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name Angsana New Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopV mmWidth0BandType LayerName Foreground15 TppDBRichText ppDBRichText1 DesignLayerppDesignLayer16UserName DBRichText1 Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold Border.Weight?ExportRTFAsBitmap DataField report_rtf DataPipelineDBPipeLineLink5RemoveEmptyLinesStretch Transparent DataPipelineNameDBPipeLineLink5mmHeightmmLeftMmmTopp mmWidthmmTopmmWidthBandType LayerName Foreground15TppLabel ppLabel188 DesignLayerppDesignLayer16UserNameLabel188Caption P Font.CharsetSYMBOL_CHARSET Font.Color clWindowText Font.Name Wingdings 2 Font.Size Font.Style TextAlignment taCentered Transparent VisiblemmHeightmmLeftpmmTopmmWidthBandType LayerName Foreground15TppGroup ppGroup12 BreakNamevn DataPipelineDBPipeLineLink5GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup12mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink5NewFileTppGroupHeaderBandppGroupHeaderBand12Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightwmmPrintPositionTppLineppLine16 DesignLayerppDesignLayer16UserNameLine16 Pen.WidthWeight?mmHeight+mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground15TppLabel ppLabel181 DesignLayerppDesignLayer16UserNameLabel181AutoSizeCaption#2"2#*1H x-ray Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeft4mmTopmmWidth_BandTypeGroupNo LayerName Foreground15TppGroupFooterBandppGroupFooterBand12VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule13TraProgramInforaProgramInfo120 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source procedure DetailBeforeGenerate; begin if (DBPipeLineLink5['normal'] = '') then begin Label185.visible := false; Label186.visible := false; Shape2.visible := false; Shape4.visible := false; end else begin Label185.visible := true; Label186.visible := true; Shape2.visible := true; Shape4.visible := true; end; if (DBPipeLineLink5['normal'] = 'Y') then Label187.visible := true else Label187.visible := false ; if (DBPipeLineLink5['normal'] = 'N') then Label188.visible := true else Label188.visible := false ; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers16TppDesignLayerppDesignLayer16UserName Foreground15 LayerTypeltBandedIndex TppSubReport ppSubReport16 DesignLayerppDesignLayer1UserName SubReport16 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthShiftRelativeTo ppSubReport15TraverseAllDataDataPipelineNameDBPipeLineLink3mmHeightmmLeftimmTop]mmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport16AutoStop DataPipelineDBPipeLineLink3PrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineNameDBPipeLineLink3 TppDetailBandppDetailBand17Background1.Brush.StylebsClearBackground2.Brush.StylebsClearColumnTraversal ctLeftToRightmmBottomOffsetmmHeightmmPrintPosition TppDBText ppDBText67 DesignLayerppDesignLayer17UserNameDBText67 DataField drug_name DataPipelineDBPipeLineLink3 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold Transparent DataPipelineNameDBPipeLineLink3mmHeightmmLeftmmTopmmWidthhBandType LayerName Foreground16 TppDBText ppDBText68 DesignLayerppDesignLayer17UserNameDBText13 DataField shortlist DataPipelineDBPipeLineLink3 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent DataPipelineNameDBPipeLineLink3mmHeightmmLeft>mmTop mmWidthBandType LayerName Foreground16 TppDBCalc ppDBCalc4 DesignLayerppDesignLayer17UserNameDBCalc2 DataField drug_name DataPipelineDBPipeLineLink3 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent DBCalcTypedcCountDataPipelineNameDBPipeLineLink3mmHeightmmLeftmmTopmmWidthp BandType LayerName Foreground16TppLabel ppLabel190 DesignLayerppDesignLayer17UserNameLabel190AutoSizeCaption. Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightmmLeftmmTopmmWidth4BandType LayerName Foreground16TppSummaryBandppSummaryBand17Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight3mmPrintPositionTppLine ppLine117 DesignLayerppDesignLayer17UserNameLine117 Pen.ColorclWhitePositionlpBottomWeight?mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground16TppGroup ppGroup13 BreakNamevn DataPipelineDBPipeLineLink3GroupFileSettings.NewFileGroupFileSettings.EmailFileOutlineSettings.CreateNode StartOnOddPageUserNameGroup13mmNewColumnThresholdmmNewPageThresholdDataPipelineNameDBPipeLineLink3NewFileTppGroupHeaderBandppGroupHeaderBand13Background.Brush.StylebsClearmmBottomOffsetmmHeightwmmPrintPositionTppLineppLine17 DesignLayerppDesignLayer17UserNameLine20 Pen.WidthWeight?mmHeight4mmLeftmmTopmmWidthBandTypeGroupNo LayerName Foreground16TppLabel ppLabel189 DesignLayerppDesignLayer17UserNameLabel189AutoSizeCaption #2"2#*1H"2 Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeight^ mmLeft4mmTopmmWidthwBandTypeGroupNo LayerName Foreground16TppGroupFooterBandppGroupFooterBand13VisibleBackground.Brush.StylebsClear PrintHeight phDynamicHideWhenOneDetailmmBottomOffsetmmHeightmmPrintPositionTppDesignLayersppDesignLayers17TppDesignLayerppDesignLayer17UserName Foreground16 LayerTypeltBandedIndex TppRegion ppRegion35 DesignLayerppDesignLayer1UserNameRegion35 Brush.StylebsClearCaptionRegion35 Pen.ColorclWindow Pen.StylepsClearShiftRelativeTo ppSubReport16Stretch Transparent mmHeightmmLefthmmToptmmWidth&BandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLine ppLine119 DesignLayerppDesignLayer1UserNameLine119 Pen.WidthPositionlpBottomWeight?mmHeightmmLeftimmTopvmmWidthBandType LayerName ForegroundTppLineppLine8 DesignLayerppDesignLayer1UserNameLine8 Pen.WidthPositionlpRightReprintOnOverFlow StretchWithParent Weight?mmHeightT>mmLeftxammTopmmWidthEBandType LayerName Foreground TppDBText ppDBText74 DesignLayerppDesignLayer1UserNameDBText74Angle DataField khuad_test DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.ColorclRed Font.NameMicrosoft Sans Serif Font.Size Font.Style fsBold TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeightYmmLeftq,mmTopmmWidthBandType LayerName ForegroundRotatedOriginLeftyRotatedOriginTopTppLabel ppLabel209 DesignLayerppDesignLayer1UserNameLabel209Caption3'44 1"B#: : Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.Name Angsana New Font.Size Font.Style fsBold Transparent mmHeightmmLeftommTopRmmWidthYHBandType LayerName Foreground TppVariable ppVariable35 DesignLayerppDesignLayer1UserName Variable35 BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.Name Angsana New Font.Size Font.Style Transparent mmHeightmmLeft mmTopRmmWidth1BandType LayerName Foreground TppFooterBand ppFooterBand1Background.Brush.StylebsClearmmBottomOffsetmmHeight9mmPrintPosition TppSubReport ppSubReport17 DesignLayerppDesignLayer1UserName SubReport17 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidth PrintBehaviorpbFixedTraverseAllDataVisibleDataPipelineName ppDBPipelinemmHeight.mmLeftimmTopmmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport17AutoStop DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidthPrinterSetup.PaperSizeVersion17.03 mmColumnWidthDataPipelineName ppDBPipeline TppTitleBand ppTitleBand17Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight6mmPrintPosition TppVariable ppVariable28 DesignLayerppDesignLayer18UserName Variable28AutoSize BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent VisiblemmHeightmmLeft<mmTopmmWidthi+BandType LayerName Foreground17TppLine ppLine123 DesignLayerppDesignLayer18UserNameLine123 Pen.WidthPositionlpRightWeight?mmHeight1mmLefthmmTopmmWidth<BandType LayerName Foreground17TppLine ppLine122 DesignLayerppDesignLayer18UserNameLine122 Pen.WidthPositionlpLeftWeight?mmHeight1mmLeftmmTopmmWidth^ BandType LayerName Foreground17 TppVariable ppVariable30 DesignLayerppDesignLayer18UserName Variable30 BlankWhenZero CalcOrderDataType dtInteger DisplayFormat#,0;-#,0 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent mmHeightmmLeft2mmTopmmWidth>&BandType LayerName Foreground17TppLabel ppLabel212 DesignLayerppDesignLayer18UserNameLabel212Caption!9%H21I*4I Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft<mmTopmmWidth~+BandType LayerName Foreground17TppLabel ppLabel201 DesignLayerppDesignLayer18UserNameLabel1CaptionI- 3#0 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftommTopmmWidth"BandType LayerName Foreground17 TppVariable ppVariable26 DesignLayerppDesignLayer18UserName Variable26 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent mmHeightmmLeftݕmmTopmmWidth!BandType LayerName Foreground17TppLabel ppLabel203 DesignLayerppDesignLayer18UserNameLabel203Caption 2 H2"2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftz-mmTopmmWidth,$BandType LayerName Foreground17 TppVariable ppVariable32 DesignLayerppDesignLayer18UserName Variable32 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeftSmmTopmmWidthBandType LayerName Foreground17TppLabel ppLabel202 DesignLayerppDesignLayer18UserNameLabel202CaptionUC Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeft<mmTopmmWidth BandType LayerName Foreground17 TppVariable ppVariable33 DesignLayerppDesignLayer18UserName Variable33 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground17TppLabel ppLabel204 DesignLayerppDesignLayer18UserNameLabel204Caption 2 1*9# Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftommTopmmWidth.BandType LayerName Foreground17TppLabel ppLabel205 DesignLayerppDesignLayer18UserNameLabel205Caption2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground17 TppVariable ppVariable34 DesignLayerppDesignLayer18UserName Variable34 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent mmHeightmmLeft2mmTopmmWidthBandType LayerName Foreground17TppLabel ppLabel206 DesignLayerppDesignLayer18UserNameLabel206Caption2 Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName Foreground17 TppDetailBandppDetailBand18Background1.Brush.StylebsClearBackground2.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule17TraProgramInforaProgramInfo121 raClassNameTraEventHandlerraProgram.ProgramNameVariable28OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable28OnCalc(var Value: Variant); begin Value := '> ส่งผู้ป่วย Admit ที่'+DBPipeline['admit_ward']; end; raProgram.ComponentName Variable28raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo122 raClassNameTraEventHandlerraProgram.ProgramNameVariable30OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable30OnCalc(var Value: Variant); begin Value := GetSQLintegerData('select sum(sum_price) from opitemrece where vn ="'+DBPipeline['vn']+'" '); end; raProgram.ComponentName Variable30raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo123 raClassNameTraEventHandlerraProgram.ProgramNameTitleBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Sourceprocedure TitleBeforeGenerate; begin if DBPipeline['admit_vn'] = '' then variable28.visible := false else variable28.visible := true; end; raProgram.ComponentNameTitleraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo124 raClassNameTraEventHandlerraProgram.ProgramNameVariable26OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable26OnCalc(var Value: Variant); begin Value := GetSQLintegerData('select paid_money from vn_stat where vn ="'+DBPipeline['vn']+'" limit 1'); end; raProgram.ComponentName Variable26raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo125 raClassNameTraEventHandlerraProgram.ProgramNameVariable32OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable32OnCalc(var Value: Variant); begin Value := GetSQLintegerData('select inc12 from vn_stat where vn ="'+DBPipeline['vn']+'" '); end; raProgram.ComponentName Variable32raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo126 raClassNameTraEventHandlerraProgram.ProgramNameVariable33OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable33OnCalc(var Value: Variant); begin Value := GetSQLintegerData('select uc_money from vn_stat where vn ="'+DBPipeline['vn']+'" limit 1'); end; raProgram.ComponentName Variable33raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo127 raClassNameTraEventHandlerraProgram.ProgramNameVariable34OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable34OnCalc(var Value: Variant); begin Value := GetSQLintegerData('select inc01+inc03 as lab from vn_stat where vn ="'+DBPipeline['vn']+'" '); end; raProgram.ComponentName Variable34raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers18TppDesignLayerppDesignLayer18UserName Foreground17 LayerTypeltBandedIndex TppRegion ppRegion33 DesignLayerppDesignLayer1UserNameRegion33 KeepTogether Brush.StylebsClearCaptionRegion33 Pen.StylepsClearStretch Transparent mmHeight/mmLeftz9mmTopmmWidthXBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppVariable ppVariable17 DesignLayerppDesignLayer1UserName Variable17AutoSize BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style TextAlignment taCentered Transparent mmHeightmmLeftmmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel34 DesignLayerppDesignLayer1UserNameLabel1AutoSizeCaption 9I#'#1)2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style fsBold TextAlignmenttaRightJustified Transparent mmHeightmmLeft<mmTopmmWidthABandType LayerName ForegroundTppLabel ppLabel120 DesignLayerppDesignLayer1UserNameLabel120AutoSizeCaption Rx-doctor Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name AngsanaUPC Font.Size Font.Style TextAlignmenttaRightJustified Transparent VisiblemmHeightmmLeftmmTopmmWidthz-BandType LayerName Foreground TppVariable ppVariable10 DesignLayerppDesignLayer1UserName Variable10 BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Name Angsana New Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthO(BandType LayerName Foreground TppVariable ppVariable31 DesignLayerppDesignLayer1UserName Variable31 BlankWhenZero CalcOrder Font.Charset THAI_CHARSET Font.Color clWindowText Font.Name AngsanaUPC Font.Size Font.Style Transparent mmHeightmmLeftMmmTopmmWidthO(BandType LayerName Foreground TppRegion ppRegion36 DesignLayerppDesignLayer1UserNameRegion36 KeepTogether Brush.StylebsClearCaptionRegion36 Pen.StylepsClearStretch Transparent VisiblemmHeight2mmLeftmmTopmmWidthKBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel61 DesignLayerppDesignLayer1UserNameLabel61Caption3A03 Font.CharsetDEFAULT_CHARSET Font.ColorU Font.NameTahoma Font.Size Font.Style fsBold fsUnderline Transparent mmHeightg mmLeftmmTop mmWidthO(BandType LayerName ForegroundTppShape ppShape17 DesignLayerppDesignLayer1UserNameShape17mmHeight^ mmLeftmmTopmmWidth^ BandType LayerName ForegroundTppShape ppShape18 DesignLayerppDesignLayer1UserNameShape18mmHeight^ mmLeftmmTopmmWidth^ BandType LayerName ForegroundTppShape ppShape19 DesignLayerppDesignLayer1UserNameShape19mmHeightg mmLeftmmTopmmWidth^ BandType LayerName ForegroundTppLabel ppLabel68 DesignLayerppDesignLayer1UserNameLabel68Caption2#!2#'2!1 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeft[mmTopp mmWidth ?BandType LayerName ForegroundTppShape ppShape20 DesignLayerppDesignLayer1UserNameShape20mmHeight^ mmLeft|LmmTopmmWidth^ BandType LayerName ForegroundTppLabel ppLabel69 DesignLayerppDesignLayer1UserNameLabel69CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightp mmLeftNmmTopmmWidth<BandType LayerName ForegroundTppLabel ppLabel70 DesignLayerppDesignLayer1UserNameLabel70Caption2#--3%12" Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeft[mmTopmmWidth9BandType LayerName ForegroundTppLabel ppLabel65 DesignLayerppDesignLayer1UserNameLabel63CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightxmmLeftmmTopmmWidth<BandType LayerName ForegroundTppShape ppShape21 DesignLayerppDesignLayer1UserNameShape201mmHeight^ mmLeft|LmmTopmmWidth^ BandType LayerName ForegroundTppLabel ppLabel66 DesignLayerppDesignLayer1UserNameLabel62Caption2#C I"2 Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeftr,mmTopp mmWidthBandType LayerName ForegroundTppLabel ppLabel71 DesignLayerppDesignLayer1UserNameLabel71CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightp mmLeftNmmTop mmWidth<BandType LayerName ForegroundTppLabel ppLabel67 DesignLayerppDesignLayer1UserNameLabel65CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightp mmLeftmmTop mmWidth<BandType LayerName ForegroundTppLabel ppLabel72 DesignLayerppDesignLayer1UserNameLabel701Caption2#I-1 2'0A# I- Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopp mmWidthXBandType LayerName ForegroundTppLabel ppLabel73 DesignLayerppDesignLayer1UserNameLabel64Caption2#4141'5H@+!20*!1B# Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeftmmTopmmWidthRfBandType LayerName ForegroundTppShape ppShape22 DesignLayerppDesignLayer1UserNameShape22mmHeight^ mmLeft3mmTopmmWidth^ BandType LayerName ForegroundTppLabel ppLabel105 DesignLayerppDesignLayer1UserNameLabel67CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightp mmLeftmmTopmmWidth<BandType LayerName ForegroundTppLabel ppLabel106 DesignLayerppDesignLayer1UserNameLabel73CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent VisiblemmHeightp mmLeftEmmTopmmWidth<BandType LayerName ForegroundTppLabel ppLabel107 DesignLayerppDesignLayer1UserNameLabel66Caption2##1#02-2+2# Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeft\ mmTopp mmWidthHFBandType LayerName ForegroundTppLabel ppLabel111 DesignLayerppDesignLayer1UserNameLabel105Caption44!2A"L Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeftm"mmTopmmWidth7DBandType LayerName ForegroundTppLabel ppLabel124 DesignLayerppDesignLayer1UserNameLabel106Caption-7HF - Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent mmHeightmmLeftr,mmTopmmWidthBandType LayerName ForegroundTppShapeppShape1 DesignLayerppDesignLayer1UserNameShape1mmHeight^ mmLeftmmTopmmWidth^ BandType LayerName ForegroundTppShapeppShape3 DesignLayerppDesignLayer1UserNameShape3mmHeight^ mmLeftmmTopmmWidth^ BandType LayerName ForegroundTppLabel ppLabel125 DesignLayerppDesignLayer1UserNameLabel107CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightp mmLeftmmTopmmWidth<BandType LayerName ForegroundTppLabel ppLabel126 DesignLayerppDesignLayer1UserNameLabel108CaptionX Font.CharsetDEFAULT_CHARSET Font.ColorF Font.NameTahoma Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeightp mmLeftmmTop mmWidth<BandType LayerName Foreground TppDBText ppDBText38 DesignLayerppDesignLayer1UserNameDBText4 DataField advice7_note DataPipeline ppDBPipeline Font.Charset THAI_CHARSET Font.ColorclBlack Font.Name DilleniaUPC Font.Size Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftQGmmTopmmWidthRBandType LayerName ForegroundTppLineppLine10 DesignLayerppDesignLayer1UserNameLine10 Pen.WidthWeight?mmHeight+mmLeftmmTopmmWidthBandType LayerName Foreground TppRegion ppRegion37 DesignLayerppDesignLayer1UserNameRegion37 KeepTogether Brush.StylebsClearCaptionRegion37 Pen.StylepsClearShiftRelativeTo ppRegion36Stretch Transparent mmHeightmmLeftmmTopmmWidthkBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppVariable ppVariable9 DesignLayerppDesignLayer1UserName Variable9AutoSize BlankWhenZero CalcOrder Font.CharsetDEFAULT_CHARSET Font.ColorclBlue Font.NameTahoma Font.Size Font.Style fsBold Transparent mmHeightmmLeftmmTopmmWidth`BandType LayerName ForegroundTppSummaryBandppSummaryBand2Background.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeightmmPrintPosition TppSubReport ppSubReport10 DesignLayerppDesignLayer1UserName SubReport10 ExpandAll NewPrintJobOutlineSettings.CreateNode ParentPrinterSetup ParentWidthTraverseAllDataVisibleDataPipelineName ppDBPipelinemmHeightp mmLeftmmTopmmWidthc-BandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppChildReportppChildReport10AutoStopColumnsColumnPositions.Strings069426138852 DataPipeline ppDBPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.DuplexdpNonePrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightx?PrinterSetup.mmPaperWidth-PrinterSetup.PaperSizeVersion17.03 mmColumnWidth2DataPipelineName ppDBPipeline TppHeaderBand ppHeaderBand3VisibleBackground.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPositionTppColumnHeaderBandppColumnHeaderBand3Background.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TppDetailBandppDetailBand10Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeight{XmmPrintPosition TppRegion ppRegion41 DesignLayerppDesignLayer19UserNameRegion41 KeepTogether Brush.StylebsClearCaptionRegion41 Pen.ColorclWhiteStretch Transparent VisiblemmHeightQmmLeft<mmTopmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage3 DesignLayerppDesignLayer19UserNameDBImage3AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage1 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightGmmLeftmmTopmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo26 DesignLayerppDesignLayer19UserNameDBMemo26Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image1_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopNmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion42 DesignLayerppDesignLayer19UserNameRegion42 KeepTogether Brush.StylebsClearCaptionRegion42 Pen.ColorclWhiteShiftRelativeTo ppRegion41Stretch Transparent VisiblemmHeightQmmLeft<mmTopxmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage4 DesignLayerppDesignLayer19UserNameDBImage4AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage2 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTopmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo27 DesignLayerppDesignLayer19UserNameDBMemo27Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image2_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopT]mmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion43 DesignLayerppDesignLayer19UserNameRegion43 KeepTogether Brush.StylebsClearCaptionRegion43 Pen.ColorclWhiteShiftRelativeTo ppRegion42Stretch Transparent VisiblemmHeightQmmLeft<mmTopmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage5 DesignLayerppDesignLayer19UserNameDBImage5AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage3 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightImmLeftmmTopmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo28 DesignLayerppDesignLayer19UserNameDBMemo28Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image3_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopkmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion44 DesignLayerppDesignLayer19UserNameRegion44 KeepTogether Brush.StylebsClearCaptionRegion44 Pen.ColorclWhiteShiftRelativeTo ppRegion43Stretch Transparent VisiblemmHeightQmmLeftEmmTop.mmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage6 DesignLayerppDesignLayer19UserNameDBImage6AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage4 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTop/mmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo29 DesignLayerppDesignLayer19UserNameDBMemo29Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image4_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopV|mmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion45 DesignLayerppDesignLayer19UserNameRegion45 KeepTogether Brush.StylebsClearCaptionRegion45 Pen.ColorclWhiteShiftRelativeTo ppRegion44Stretch Transparent VisiblemmHeightQmmLeft<mmTop@mmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage7 DesignLayerppDesignLayer19UserNameDBImage7AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage5 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTop@mmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo30 DesignLayerppDesignLayer19UserNameDBMemo30Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image5_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftxmmTopmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion46 DesignLayerppDesignLayer19UserNameRegion46 KeepTogether Brush.StylebsClearCaptionRegion46 Pen.ColorclWhiteShiftRelativeTo ppRegion45Stretch Transparent VisiblemmHeightQmmLeftEmmTopQmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage8 DesignLayerppDesignLayer19UserNameDBImage8AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage6 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTopQmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo31 DesignLayerppDesignLayer19UserName DBMemo301Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image6_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion47 DesignLayerppDesignLayer19UserNameRegion47 KeepTogether Brush.StylebsClearCaptionRegion47 Pen.ColorclWhiteShiftRelativeTo ppRegion46Stretch Transparent VisiblemmHeightQmmLeft<mmTop`mmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage9 DesignLayerppDesignLayer19UserNameDBImage9AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage7 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTop`mmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo32 DesignLayerppDesignLayer19UserNameDBMemo32Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image7_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftxmmTopmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion48 DesignLayerppDesignLayer19UserNameRegion48 KeepTogether Brush.StylebsClearCaptionRegion48 Pen.ColorclWhiteShiftRelativeTo ppRegion47Stretch Transparent VisiblemmHeightQmmLeftEmmTopnmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage10 DesignLayerppDesignLayer19UserName DBImage10AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage8 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTopnmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo33 DesignLayerppDesignLayer19UserNameDBMemo33Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image8_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTop|mmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion49 DesignLayerppDesignLayer19UserNameRegion49 KeepTogether Brush.StylebsClearCaptionRegion49 Pen.ColorclWhiteShiftRelativeTo ppRegion48Stretch Transparent VisiblemmHeightQmmLeftEmmTop~mmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage11 DesignLayerppDesignLayer19UserName DBImage101AlignHorizontalahCenter AlignVerticalavCenter DirectDraw MaintainAspectRatio Stretch DataFieldimage9 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightlGmmLeftmmTop1mmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo34 DesignLayerppDesignLayer19UserNameDBMemo34Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image9_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopmmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeading TppRegion ppRegion50 DesignLayerppDesignLayer19UserNameRegion50 KeepTogether Brush.StylebsClearCaptionRegion50 Pen.ColorclWhiteShiftRelativeTo ppRegion49Stretch Transparent VisiblemmHeightQmmLeft<mmTopmmWidthYBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight TppDBImage ppDBImage12 DesignLayerppDesignLayer19UserName DBImage12AlignHorizontalahCenter AlignVerticalavCenterMaintainAspectRatio Stretch DataFieldimage10 DataPipeline ppDBPipeline GraphicTypeJPEGDataPipelineName ppDBPipelinemmHeightGmmLeftmmTopmmWidthBandType LayerName Foreground18 TppDBMemo ppDBMemo35 DesignLayerppDesignLayer19UserNameDBMemo35Border.BorderPositions bpLeftbpTopbpRightbpBottom Border.ColorclWindowBorder.Visible Border.Weight[?CharWrap DataField image10_note DataPipeline ppDBPipeline Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.NameTahoma Font.Size Font.Style RemoveEmptyLines TextAlignment taCentered Transparent DataPipelineName ppDBPipelinemmHeight8cmmLeftmmTopemmWidthBandType LayerName Foreground18mmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeight mmLeadingTppColumnFooterBandppColumnFooterBand3 AlignToBottom Background.Brush.StylebsClearmmBottomOffsetmmHeightmmPrintPosition TraCodeModuleraCodeModule16TraProgramInforaProgramInfo128 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source Cprocedure DetailBeforeGenerate; begin if GetSQLStringData('select image1 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region41.visible := false else Region41.visible := true; if GetSQLStringData('select image2 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region42.visible := false else Region42.visible := true; if GetSQLStringData('select image3 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region43.visible := false else Region43.visible := true; if GetSQLStringData('select image4 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region44.visible := false else Region44.visible := true; if GetSQLStringData('select image5 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region45.visible := false else Region45.visible := true; if GetSQLStringData('select image6 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region46.visible := false else Region46.visible := true; if GetSQLStringData('select image7 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region47.visible := false else Region47.visible := true; if GetSQLStringData('select image8 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region48.visible := false else Region48.visible := true; if GetSQLStringData('select image9 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region49.visible := false else Region49.visible := true; if GetSQLStringData('select image10 from pe_image where vn = "'+DBPipeline['vn']+'" ') = '' then Region50.visible := false else Region50.visible := true; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTppDesignLayersppDesignLayers19TppDesignLayerppDesignLayer19UserName Foreground18 LayerTypeltBandedIndex TraCodeModule raCodeModule8TraProgramInforaProgramInfo129 raClassName TraVarProgramraProgram.ChildTyperaProgram.ProgramName VariablesraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variables; var permit_user1,permit_user2 : string; pe_img1,pe_img2,pe_img3,pe_img4,pe_img5 : string; pe_img6,pe_img7,pe_img8,pe_img9,pe_img10 : string; eye_img1,eye_scr1,eye_scr2 : string; begin end; raProgram.CaretPosTraProgramInforaProgramInfo130 raClassName TraProgramraProgram.ChildTyperaProgram.ProgramNameGlobalOnCreateraProgram.ProgramType ttProcedureraProgram.Source*procedure GlobalOnCreate; begin permit_user1 := '"weerawatjai","แพทย์","พยาบาล","พยาบาลห้องฉุกเฉิน","ผู้ดูแลระบบ","test4"'; permit_user2 := GetSQLSubQueryData('select loginname from opduser '+ 'where groupname in ("admin","doctor","nurse","พยาบาล","แพทย์","ทันตกรรม","พยาบาลห้องฉุกเฉิน","ผู้ดูแลระบบ") '); ChangeReportSQL('select o1.*,v1.*,s.*,pe.*,concat(p.pname,p.fname," ",p.lname) as patient_name, '+ 'p.drugallergy,ps.chronic_disease_list as patient_clinic,p.nationality,p.hometel as pt_tel, '+ 'p2.pttype as pttype_pttype,p2.name as pttype_name,p2.pcode as pttype_pcode, '+ 'p2.requirecode as pttype_requirecode,p2.require_hcode as pttype_require_hcode, '+ 'oo.vn as observe_vn,oo.observe_id,oo.send_date_time as observe_intime, '+ 'oo.leave_date_time as observe_outtime,oo.symptom as observe_symptom, '+ 'oo.nurse_activity as observe_activity,oo.note as observe_note, '+ 'oo.ward as observe_ward,pp.name as pt_priority_name,pw.name as pt_walk_name, '+ 'concat(help3_icode," # ",if(help3_qty is null,"",help3_qty)) as help3_drug_name, '+ 'iaq.vn as admit_vn,w1.name as admit_ward,es.vn as eye_vn,es.*,s.vn as opdscreen_vn '+ 'from ovst o1 '+ 'left outer join vn_stat v1 on v1.vn = o1.vn '+ 'left outer join opdscreen s on s.vn = o1.vn '+ 'left outer join pe_image pe on pe.vn = o1.vn '+ 'left outer join opd_observe oo on oo.vn = o1.vn '+ 'left outer join patient p on p.hn = o1.hn '+ 'left outer join person ps on ps.cid = p.cid '+ 'left outer join pttype p2 on p2.pttype = v1.pttype '+ 'left outer join pt_priority pp on pp.id = o1.pt_priority '+ 'left outer join pt_walk pw on pw.walk_id = s.walk_id '+ 'left outer join ipt_admit_queue iaq on iaq.vn = o1.vn '+ 'left outer join ward w1 on w1.ward = iaq.request_ward '+ 'left outer join eye_screen es on es.vn = o1.vn '+ 'where o1.vn = "'+GetUserParameter(0)+'" '); if (GetSQLStringData('select r01 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select r02 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select r03 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select r04 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select r05 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select l01 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select l02 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select l03 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select l04 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select l05 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select rph from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_r1 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_r2 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_r3 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_r4 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select lph from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_l1 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_l2 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_l3 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select ph_l4 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') then eye_scr1 := 'N' else eye_scr1 := 'Y'; if (GetSQLStringData('select rct from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select lct from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select sch_rct from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') and (GetSQLStringData('select sch_lct from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '') then eye_scr2 := 'N' else eye_scr2 := 'Y'; if GetSQLStringData('select image_data1 from eye_screen where vn = "'+DBPipeline['vn']+'" ') = '' then eye_img1 := 'N' else eye_img1 := 'Y'; ChangeDBPipeLineLink1SQL('select o.vn,if(o.icd10 is null," - ",o.icd10) as icd10,o.diagtype, '+ 'trim(concat(if(i3.name is null,"",i3.name)," ",if(i2.name is null,"",i2.name)," ",if(i1.name is null,"",i1.name)," ( PDx )")) as dxname1, '+ 'trim(concat(if(i3.name is null,"",i3.name)," ",if(i2.name is null,"",i2.name)," ",if(i1.name is null,"",i1.name)," ( ", '+ 'if(o.diagtype is null,"",o.diagtype)," )")) as dxname2 '+ 'from ovstdiag o '+ 'left outer join icd101 i1 on i1.code = o.icd10 '+ 'left outer join icd101 i2 on i2.code = substring(i1.code,1,4) and Length(i1.code) > "4" '+ 'left outer join icd101 i3 on i3.code = substring(i1.code,1,3) and Length(i1.code) > "4" '+ 'and substring(i1.code,1,1) in ("V","W","X","Y") '+ 'where o.vn = "'+DBPipeline['vn']+'" '+ 'and (o.icd10 between "A" and "Z9999") '+ 'order by o.diagtype,o.icd10 '); ChangeDBPipeLineLink2SQL('select e1.vn as vn,e1.er_oper_code as code,e.name,e.icd9cm,e.price, '+ 'concat("[ ER ] ",if((e.name = "" or e.name is null)," - ",e.name)," # ", '+ 'if((e.icd9cm = "" or e.icd9cm is null),"",concat(" ICD9CM ",e.icd9cm))," # ", '+ 'if((e1.oper_qty = "" or e1.oper_qty is null),"",e1.oper_qty)," # ", '+ 'if((d.name = "" or d.name is null),"",d.name)) as o_name '+ 'from er_oper_code e '+ 'left outer join er_regist_oper e1 on e1.er_oper_code = e.er_oper_code '+ 'left outer join doctor d on d.code = e1.doctor '+ 'where e1.vn = "'+DBPipeline['vn']+'" '+ 'union '+ 'select d1.vn as vn,d1.er_oper_code as code,e.name,e.icd9cm,e.price, '+ 'concat("[ OPD ] ",if((e.name = "" or e.name is null)," - ",e.name)," # ", '+ 'if((e.icd9cm = "" or e.icd9cm is null),"",concat(" ICD9CM ",e.icd9cm))," # ", '+ 'if((d.name = "" or d.name is null),"",d.name)) as o_name '+ 'from er_oper_code e '+ 'left outer join doctor_operation d1 on d1.er_oper_code = e.er_oper_code '+ 'left outer join doctor d on d.code = d1.doctor '+ 'where d1.vn = "'+DBPipeline['vn']+'" '); ChangeDBPipeLineLink3SQL('select o.vn,concat(if((s.name is null or s.name = ""),"-",s.name)," ", '+ 'if(d.strength is null,"",s.strength)," # ",if(o.qty is null,"",o.qty)) as drug_name, '+ 'concat(if((du.shortlist is null or du.shortlist = "" or du.shortlist = "*( ใช้ตามแพทย์สั่ง***)") '+ ',">",du.shortlist),if((su.name1 is null or su.name1 = ""),"",su.name1),if((su.name2 is null or '+ 'su.name2 = ""),"",su.name2),if((su.name3 is null or su.name3 = ""),"",su.name3)) as shortlist '+ 'from opitemrece o '+ 'left outer join drugitems d on d.icode = o.icode '+ 'left outer join s_drugitems s on s.icode= o.icode '+ 'left outer join drugusage du on du.drugusage = o.drugusage '+ 'left outer join sp_use su on su.sp_use = o.sp_use '+ 'where o.vn = "'+DBPipeline['vn']+'" '+ 'order by d.therapeuticgroup,d.name '); ChangeDBPipeLineLink4SQL('select vn,lab_order_number from lab_head '+ 'where vn = "'+DBPipeline['vn']+'" order by lab_order_number '); ChangeDBPipeLineLink5SQL('select concat(if((x2.xray_items_name is null '+ 'or x2.xray_items_name = "")," -- ",x2.xray_items_name)," # ", '+ 'if((x3.name is null or x3.name = "")," -- ",x3.name)," # ", '+ 'if((x4.name is null or x4.name = "")," -- ",x4.name)," ") as xrayname,x1.* '+ 'from xray_report x1 '+ 'left outer join xray_items x2 on x2.xray_items_code = x1.xray_items_code '+ 'left outer join xray_type x3 on x3.xray_type = x1.xray_type '+ 'left outer join xray_side x4 on x4.xray_side = x1.xray_side '+ 'where vn = "'+DBPipeline['vn']+'" '); ChangeDBPipeLineLink6SQL('select p1.vn as vn,p1.physic_items_id as item_list,p1.doctor as doctor_code, '+ 'p2.name as item_name,d.name as doctor_name, '+ 'concat("[กายภาพ] ",if(p2.name is null," - ",p2.name)," # ",if(d.name is null," - ",d.name)) as PH_name '+ 'from physic_list p1 '+ 'left outer join physic_items p2 on p2.physic_items_id = p1.physic_items_id '+ 'left outer join doctor d on d.code = p1.doctor '+ 'where vn = "'+DBPipeline['vn']+'" '+ 'union '+ 'select h1.vn as vn,h1.item_id as item_list,h1.doctor as doctor_code, '+ 'h2.name as item_name,d.name as doctor_name, '+ 'concat("[แผนไทย] ",if(h2.name is null," - ",h2.name)," # ",if(d.name is null," - ",d.name)) as PH_name '+ 'from health_med_list h1 '+ 'left outer join health_med_items h2 on h2.item_id = h1.item_id '+ 'left outer join doctor d on d.code = h1.doctor '+ 'where vn = "'+DBPipeline['vn']+'" '); ChangeDBPipeLineLink7SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+ 'lh.vn,lh.lab_order_number,lh.form_name,lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+ 'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref)," = ", '+ 'if((lo.lab_order_result = "" or lo.lab_order_result is null),"รอผล",lo.lab_order_result)," ", '+ 'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report '+ 'from lab_head lh '+ 'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+ 'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+ 'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code '+ 'limit 0 '); ChangeDBPipeLineLink8SQL('select * from oapp where vn = "'+DBPipeline['vn']+'" order by nextdate '); ChangeDBPipeLineLink9SQL('select concat(if(h.hosptype is null ,"",h.hosptype), '+ 'if(h.name is null,"",h.name)) as refer_hospname,r.* from referout r '+ 'left outer join hospcode h on h.hospcode = r.hospcode '+ 'where r.vn = "'+DBPipeline['vn']+'" '); end; raProgram.CaretPos:XTraProgramInforaProgramInfo131 raClassNameTraEventHandlerraProgram.ProgramNameVariable1OnCalcraProgram.ProgramType ttProcedureraProgram.Source procedure Variable1OnCalc(var Value: Variant); begin if DBPipeline['nationality'] = '99' then Value := GetSQLStringData('select cardno from ptcardno '+ 'where hn = "'+DBPipeline['hn']+'" and cardtype = "01" '); if DBPipeline['nationality'] <> '99' then Value := GetSQLStringData('select cardno from ptcardno '+ 'where hn = "'+DBPipeline['hn']+'" and cardtype = "02" '); end; raProgram.ComponentName Variable1raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo132 raClassNameTraEventHandlerraProgram.ProgramNameVariable4OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable4OnCalc(var Value: Variant); begin Value := 'สถานพยาบาลหลัก : ' +GetSQLStringData('select concat(if(h.hosptype,"",h.hosptype), '+ 'if(h.name,"",h.name)) as cc from vn_stat v '+ 'left outer join hospcode h on h.hospcode = v.hospmain '+ 'where v.vn = "'+DBPipeline['vn']+'" '+ 'and "'+DBPipeline['pttype_require_hcode']+'" = "Y" '); end; raProgram.ComponentName Variable4raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo133 raClassNameTraEventHandlerraProgram.ProgramNameVariable10OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable10OnCalc(var Value: Variant); begin Value := getsqlstringdata('select d.name '+ ' from ovst r ,doctor d '+ ' where r.doctor = d.code '+ ' and r.vn = "'+ DBPipeline['vn']+'" '+ ' '); end; raProgram.ComponentName Variable10raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo134 raClassNameTraEventHandlerraProgram.ProgramNameVariable17OnCalcraProgram.ProgramType ttProcedureraProgram.Source procedure Variable17OnCalc(var Value: Variant); begin {Value := '( '+GetSQLStringData('select d2.name '+ 'from ovst d1 '+ 'left outer join doctor d2 on d2.code = d1.doctor '+ 'where d1.vn = "'+DBPipeline['vn']+'" ')+' )' ; } end; raProgram.ComponentName Variable17raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo135 raClassNameTraEventHandlerraProgram.ProgramNameVariable19OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable19OnCalc(var Value: Variant); begin if GetSQLStringData('select chwpart from patient where hn = "'+DBPipeline['HN']+'" ') = '10' then Value := GetSQLStringData('select addrpart from patient where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" ",if((road = ""),null,road)) from patient '+ 'where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" ม.",if((moopart = ""),null,moopart)) from patient '+ 'where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" แขวง",t3.name," ",t2.name," ",t1.name) from patient p '+ 'left outer join thaiaddress t1 on t1.chwpart = p.chwpart and t1.codetype = "1" '+ 'left outer join thaiaddress t2 on t2.chwpart = p.chwpart and t2.amppart = p.amppart '+ 'and t2.codetype = "2" '+ 'left outer join thaiaddress t3 on t3.chwpart = p.chwpart and t3.amppart = p.amppart '+ 'and t3.tmbpart = p.tmbpart and t3.codetype = "3" '+ 'where p.hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" โทร. ",if((hometel is null or hometel = ""), '+ ' " - ",hometel)) from patient where hn = "'+DBPipeline['HN']+'" ') else Value := GetSQLStringData('select addrpart from patient where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" ",if((road = ""),null,road)) from patient '+ 'where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" ม.",if((moopart = ""),null,moopart)) from patient '+ 'where hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" ต.",t3.name," อ.",t2.name," จ.",t1.name) from patient p '+ 'left outer join thaiaddress t1 on t1.chwpart = p.chwpart and t1.codetype = "1" '+ 'left outer join thaiaddress t2 on t2.chwpart = p.chwpart and t2.amppart = p.amppart '+ 'and t2.codetype = "2" '+ 'left outer join thaiaddress t3 on t3.chwpart = p.chwpart and t3.amppart = p.amppart '+ 'and t3.tmbpart = p.tmbpart and t3.codetype = "3" '+ 'where p.hn = "'+DBPipeline['HN']+'" ')+ GetSQLStringData('select concat(" โทร. ",if((hometel is null or hometel = ""), '+ ' " - ",hometel)) from patient where hn = "'+DBPipeline['HN']+'" '); end; raProgram.ComponentName Variable19raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo136 raClassNameTraEventHandlerraProgram.ProgramNameVariable3OnCalcraProgram.ProgramType ttProcedureraProgram.Source procedure Variable3OnCalc(var Value: Variant); begin if Length(DBPipeline['observe_id']) > 1 then begin SubReport4.visible := true ; end else begin SubReport4.visible := false ; end; if ((DBPipeline['help1']<> 'Y') and (DBPipeline['help2']<> 'Y')and (DBPipeline['help3']<> 'Y')and (DBPipeline['help4']<> 'Y')) then begin SubReport3.visible := false ; end else begin SubReport3.visible := true ; end; end; raProgram.ComponentName Variable3raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo137 raClassNameTraEventHandlerraProgram.ProgramNameVariable12OnCalcraProgram.ProgramType ttProcedureraProgram.Source&procedure Variable12OnCalc(var Value: Variant); begin Value := 'ประวัติการแพ้ยา : '+GetSQLStringData('select if(drugallergy is null or drugallergy = ""," - " '+ ',drugallergy) as cc from patient where hn = "'+DBPipeline['hn']+'" '); end; raProgram.ComponentName Variable12raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo138 raClassNameTraEventHandlerraProgram.ProgramNameLabel69OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label69OnPrint; begin label69.visible:= DBPipeline['advice4']='Y'; end; raProgram.ComponentNameLabel69raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo139 raClassNameTraEventHandlerraProgram.ProgramNameLabel63OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label63OnPrint; begin label63.visible:= DBPipeline['advice1']='Y'; end; raProgram.ComponentNameLabel63raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo140 raClassNameTraEventHandlerraProgram.ProgramNameLabel71OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label71OnPrint; begin label71.visible:= DBPipeline['advice5']='Y'; end; raProgram.ComponentNameLabel71raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo141 raClassNameTraEventHandlerraProgram.ProgramNameLabel65OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label65OnPrint; begin label65.visible:= DBPipeline['advice2']='Y'; end; raProgram.ComponentNameLabel65raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo142 raClassNameTraEventHandlerraProgram.ProgramNameLabel67OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label67OnPrint; begin label67.visible:= DBPipeline['advice3']='Y'; end; raProgram.ComponentNameLabel67raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo143 raClassNameTraEventHandlerraProgram.ProgramNameLabel73OnPrintraProgram.ProgramType ttProcedureraProgram.SourceYprocedure Label73OnPrint; begin label73.visible:= DBPipeline['advice6']='Y'; end; raProgram.ComponentNameLabel73raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo144 raClassNameTraEventHandlerraProgram.ProgramNameLabel107OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label107OnPrint; begin label107.visible:= DBPipeline['advice7']='Y'; end; raProgram.ComponentNameLabel107raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo145 raClassNameTraEventHandlerraProgram.ProgramNameLabel108OnPrintraProgram.ProgramType ttProcedureraProgram.Source[procedure Label108OnPrint; begin label108.visible:= DBPipeline['advice8']='Y'; end; raProgram.ComponentNameLabel108raProgram.EventNameOnPrintraProgram.EventID raProgram.CaretPosTraProgramInforaProgramInfo146 raClassNameTraEventHandlerraProgram.ProgramNameVariable9OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable9OnCalc(var Value: Variant); begin if Report.PageNo <> Report.PageCount then value := 'มีต่อในแผ่นต่อหน้าที่ '+ inttostr(Report.PageNo+1) else value := '' ; end; raProgram.ComponentName Variable9raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo147 raClassNameTraEventHandlerraProgram.ProgramNameDetailBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source procedure DetailBeforeGenerate; begin if GetSQLIntegerData('select (count(image1)+count(image2)+count(image3)+count(image4)+count(image5)+count(image6)+count(image7)+count(image8)+count(image9)+count(image10)) '+ 'from pe_image where vn = "'+DBPipeline['vn']+'" ') = 1 then begin SubReport5.visible := false; SubReport6.visible := true; end else begin SubReport5.visible := true; SubReport6.visible := false; end; if (DBPipeline['eye_vn'] = '') then SubReport7.visible := false else SubReport7.visible := true; if (DBPipeline['vn'] = 'khuad') then DBText74.visible := true else DBText74.visible := false; end; raProgram.ComponentNameDetailraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo148 raClassNameTraEventHandlerraProgram.ProgramNameSummaryBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source ~procedure SummaryBeforeGenerate; begin if GetSQLIntegerData('select (count(image1)+count(image2)+count(image3)+count(image4)+count(image5)+count(image6)+count(image7)+count(image8)+count(image9)+count(image10)) '+ 'from pe_image where vn = "'+DBPipeline['vn']+'" ') = 1 then SubReport10.visible := false else SubReport10.visible := true; end; raProgram.ComponentNameSummaryraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo149 raClassNameTraEventHandlerraProgram.ProgramNameFooterBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source procedure FooterBeforeGenerate; begin if Report.PageNo = Report.PageCount then begin Region36.visible := true; SubReport17.visible := true; end else begin Region36.visible := false; SubReport17.visible := false; end; end; raProgram.ComponentNameFooterraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo150 raClassNameTraEventHandlerraProgram.ProgramNameTitleBeforeGenerateraProgram.ProgramType ttProcedureraProgram.Source procedure TitleBeforeGenerate; begin if Length(DBPipeline['patient_clinic']) > 32 then begin DBMemo1.visible := true; DBText30.visible := false; end else begin DBMemo1.visible := false; DBText30.visible := true; end; if (DBPipeline['pttype_require_hcode'] = 'Y') then begin variable4.visible := true; end else begin variable4.visible := false; end; if (DBPipeline['pttype_requirecode'] = 'Y') then begin Label33.visible := true; DBText51.visible := true; end else begin Label33.visible := false; DBText51.visible := false; end; end; raProgram.ComponentNameTitleraProgram.EventNameBeforeGenerateraProgram.EventIDraProgram.CaretPosTraProgramInforaProgramInfo151 raClassNameTraEventHandlerraProgram.ProgramNameVariable5OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable5OnCalc(var Value: Variant); begin if DBPipeline['vn'] = 'khuad' then Value := '' else Value := FormatThaiDate('d mmmm yyyy',DBPipeline['vstdate']); end; raProgram.ComponentName Variable5raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo152 raClassNameTraEventHandlerraProgram.ProgramNameVariable11OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable11OnCalc(var Value: Variant); begin if DBPipeline['vn'] = 'khuad' then Value := '' else Value := FormatThaiDate('d mmmm yyyy',DBPipeline['vstdate']); end; raProgram.ComponentName Variable11raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo153 raClassNameTraEventHandlerraProgram.ProgramNameVariable14OnCalcraProgram.ProgramType ttProcedureraProgram.Source\procedure Variable14OnCalc(var Value: Variant); begin Value := HospitalName; end; raProgram.ComponentName Variable14raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo154 raClassNameTraEventHandlerraProgram.ProgramNameVariable15OnCalcraProgram.ProgramType ttProcedureraProgram.Source\procedure Variable15OnCalc(var Value: Variant); begin Value := HospitalName; end; raProgram.ComponentName Variable15raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo155 raClassNameTraEventHandlerraProgram.ProgramNameVariable31OnCalcraProgram.ProgramType ttProcedureraProgram.Source(procedure Variable31OnCalc(var Value: Variant); begin if DBPipeline['command_doctor'] <>'' then begin Value :=getsqlstringdata('select concat("รับคำสั่งแพทย์ ",d.name) as docname '+ ' FROM doctor d ' + ' WHERE d.code=(' + ' SELECT o.command_doctor FROM ovst o ' + ' WHERE o.vn = "'+ DBPipeline['vn']+ '" ) '); end else begin Value :=getsqlstringdata('SELECT concat("แพทย์ผู้ควบคุม ",d.name) as docname '+ ' FROM doctor d ' + ' WHERE d.code=(' + ' SELECT o.doctor FROM ovst_control_doctor o ' + ' WHERE o.vn = "'+ DBPipeline['vn']+ '" ) '); end; {"'+ DBPipeline['command_doctor']+'" '); } end; {"'+ DBPipeline['command_doctor']+'" '); end; {"'+ DBPipeline['command_doctor']+'" '); end; raProgram.ComponentName Variable31raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTraProgramInforaProgramInfo156 raClassNameTraEventHandlerraProgram.ProgramNameVariable35OnCalcraProgram.ProgramType ttProcedureraProgram.Sourceprocedure Variable35OnCalc(var Value: Variant); begin Value := GetSQLStringData('select diag_text from ovst where vn="'+DBPipeline['vn'] +'" '); end; raProgram.ComponentName Variable35raProgram.EventNameOnCalcraProgram.EventID!raProgram.CaretPosTppDesignLayersppDesignLayers1TppDesignLayerppDesignLayer1UserName Foreground LayerTypeltBandedIndexTppParameterListppParameterList1MySQL System_reporttB?N