ใน Summary ยังไม่ปรากฏ สัญชาติ และเวลา Admit เวลาแก้ไขต้องไปเพิ่ม Code ตรงไหน อย่างไร ลองแล้วแต่ไม่สำเร็จ สมมติว่า Code ด้านล่างที่ส่งไป ถ้าจะแก้ให้ปรากฏสัญชาติ และก็เวลา Admit จะต้องแก้อย่างไรครับ ขอความช่วยเหลือหน่อยครับ
–เฝ hname I WIDTH ๚ sqlparam K SUBTYPE I Text sqltext K SUBTYPE I Text template K SUBTYPE I Binary db I WIDTH
script K SUBTYPE I Text
use_parameter I WIDTH module I WIDTH 2 last_update report_version ignore_presetvalue I WIDTH U REPORT-RG501 String^1277-9^460101000 select
"Thai" as eclinic ,
"Medicine" as admitdepart,
i.*,
pcn.cardno as CID_CODE,
concat(pt.pname,pt.fname," ",pt.lname) as PT_NAME,
concat(pt.addrpart," หมู่ ",pt.moopart," ต.",t3.name," อ.",t2.name," จ.",t1.name) as ADDRESS,
sx.name as SEX_NAME,
mr.name as MARRYSTATUS,
oc.name as OCCUPATION,
pt.birthday as DOB,
pt.informname as INFORMNAME,
concat("<",pt.informrelation,">") as INFORMRELATION,
pt.informaddr as INFORMADDR,
pty.name as PTTYPENAME,
wd.name as WARD_NAME,
sp.name as SPCLTY_NAME
from an_stat i
left outer join ptcardno pcn on pcn.hn=i.hn and pcn.cardtype="01"
left outer join patient pt on pt.hn=i.hn
left outer join sex sx on sx.code=pt.sex
left outer join marrystatus mr on mr.code=pt.marrystatus
left outer join occupation oc on oc.occupation=pt.occupation
left outer join pttype pty on pty.pttype=i.pttype
left outer join ward wd on wd.ward=i.ward
left outer join spclty sp on sp.spclty=i.spclty
left outer join thaiaddress t1 on t1.codetype="1" and t1.chwpart=pt.chwpart
left outer join thaiaddress t2 on t2.codetype="2" and t2.chwpart=pt.chwpart and t2.amppart=pt.amppart
left outer join thaiaddress t3 on t3.codetype="3" and t3.chwpart=pt.chwpart and t3.amppart=pt.amppart
and t3.tmbpart=pt.tmbpart
where i.an="460101000"
limit 1
ฌ TPF0 TppReportppReportAutoStop DataPipeline ppDBPipelinePrinterSetup.BinName Manual feedPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameDefaultPrinterSetup.mmMarginBottomฮPrinterSetup.mmMarginLeftฮPrinterSetup.mmMarginRightฮPrinterSetup.mmMarginTopฮPrinterSetup.mmPaperHeight PrinterSetup.mmPaperWidth4 PrinterSetup.PaperSize Template.FileName.C:\DOCUME~1\Manoi\LOCALS~1\Temp\KSK-Report.RTM
DeviceTypeScreenOutlineSettings.CreateNode OutlineSettings.CreatePageNodes OutlineSettings.EnabledLeftATopNVersion7.0
mmColumnWidth DataPipelineName ppDBPipeline
TppDetailBand
ppDetailBand1mmBottomOffset mmHeight่' mmPrintPosition TppDBText ppDBText1UserNameDBText1AutoSize DataFieldan DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.NameArial Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeight[mmLeft/mmTop: mmWidth.hBandType TppDBText ppDBText2UserNameDBText2 DataFieldPT_NAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeight mmLeft ?mmTopึณ mmWidth๕2 BandType TppDBText ppDBText4UserNameDBText4AutoSize DataField MARRYSTATUS DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeft& mmTopา mmWidth_ BandType TppDBText ppDBText5UserNameDBText5AutoSize DataFieldhn DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.NameArial Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeight[mmLeftY mmTop~mmWidthQBandType TppDBText ppDBText6UserNameDBText6AutoSize DataFieldADDRESS DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style Transparent DataPipelineName ppDBPipelinemmHeightmmLeftฯ mmTopึณ mmWidth
BandType TppDBText ppDBText7UserNameDBText7AutoSize DataFieldSEX_NAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftNmmTopA mmWidthQ BandType TppDBText
ppDBText10UserNameDBText10AutoSize DataFieldregdate DataPipeline ppDBPipeline
DisplayFormat d mmmm eeee Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLefttฝ mmTopG mmWidth“|BandType TppDBText
ppDBText12UserNameDBText12AutoSize DataFieldward DataPipeline ppDBPipeline Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.NameArial Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightช mmLeft mmTopฆค mmWidthuBandType TppDBText ppDBText9UserNameDBText9AutoSize
BlankWhenZero DataFieldage_y DataPipeline ppDBPipeline Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.Name Courier New Font.Size
Font.Style fsBold
TextAlignment
taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftRbmmTopc mmWidthช BandType TppDBText
ppDBText15UserNameDBText15AutoSize DataFieldDOB DataPipeline ppDBPipeline
DisplayFormat
dd/mm/eeee Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.Name Courier New Font.Size
Font.Style
TextAlignment
taCentered Transparent DataPipelineName ppDBPipelinemmHeight1mmLeftxmmTopN mmWidth8cBandType TppDBText
ppDBText16UserNameDBText14AutoSize DataField
OCCUPATION DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style Transparent DataPipelineName ppDBPipelinemmHeight'mmLeft่' mmTop mmWidthlึ BandType TppDBText
ppDBText19UserNameDBText19AutoSize DataFieldCID_CODE DataPipeline ppDBPipeline Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.NameCourier Font.Size
Font.Style Transparent DataPipelineName ppDBPipelinemmHeightิ#mmLeftถํ mmTopB mmWidthิ BandType TppDBText ppDBText3UserNameDBText3AutoSize
BlankWhenZero DataFieldage_m DataPipeline ppDBPipeline Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.Name Courier New Font.Size
Font.Style fsBold
TextAlignment
taCentered Transparent DataPipelineName ppDBPipelinemmHeight mmLeftommTopc mmWidthฏRBandType TppDBText
ppDBText20UserNameDBText20AutoSize
BlankWhenZero DataFieldage_d DataPipeline ppDBPipeline Font.Charset ANSI_CHARSET
Font.ColorclBlack Font.Name Courier New Font.Size
Font.Style fsBold
TextAlignment
taCentered Transparent DataPipelineName ppDBPipelinemmHeightmmLeftWฟ mmTopc mmWidthช BandType TppDBText ppDBText8UserNameDBText8 DataField
INFORMNAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeight mmLeftYHmmTopiไ mmWidth BandType TppDBText
ppDBText11UserNameDBText11 DataFieldINFORMRELATION DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeight mmLeftฺ mmTopiไ mmWidth BandType TppDBText
ppDBText13UserNameDBText13AutoSize DataField
INFORMADDR DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style Transparent DataPipelineName ppDBPipelinemmHeightQ mmLeftaImmTop. mmWidth. BandType TppLabelppLabel1UserNameLabel1Caption B# "22%B 2#2! Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent mmHeight่mmLeftฮ$ mmTopะ7mmWidthd BandType TppDBText
ppDBText14UserNameDBText16AutoSize DataField
PTTYPENAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightmmLeftฮ$ mmTopลmmWidth<SBandType TppDBText
ppDBText17UserNameDBText17AutoSize DataField WARD_NAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightAmmLeft๚<mmTopเ mmWidth bBandType TppDBText
ppDBText18UserNameDBText18AutoSize DataField SPCLTY_NAME DataPipeline ppDBPipeline Font.Charset THAI_CHARSET
Font.ColorclBlack Font.Name EucrosiaUPC Font.Size
Font.Style fsBold Transparent DataPipelineName ppDBPipelinemmHeightAmmLeft mmTopฯ mmWidth๛:BandType
หัวข้อ: ขอคำแนะนำในการแก้ Summary (อ่าน 5109 ครั้ง)