Ì i 2
lab.c.report.batch (main)
[batch]
:SCE[sce]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 8 PINT R sce
description 30 FREE L :SCE[sce]|18
doctor 10 FREE L MIS.DOC.DICT
end.date 8 DATE L :SCE[sce]|5
end.time 4 HHMM L :SCE[sce]|6
form 10 FREE L LAB.C.FORM :SCE[sce]|17
from.date 8 DATE L :SCE[sce]A|0
incl.free.text.drs 1 CHOICE L :SCE[sce]A|3
last.sum.sort.file 5 PINT R :SCE[sce]|14
location 10 FREE L MIS.LOCN.DICT
new.reports.only 1 YN L :SCE[sce]A|2
pth.cus.header 80 FREE L :SCE[sce]PH
pth.form 10 FREE L LAB.C.FORM :SCE[sce]PD|6
pth.from.date 8 DATE L :SCE[sce]PD|7
pth.new.page 1 CHOICE L :SCE[sce]PD|3
pth.renumber 1 YN L :SCE[sce]PD|4
pth.rpt.format 10 FREE L LAB.C.RFMT :SCE[sce]PD|0
pth.sort.by 8 CHOICE L :SCE[sce]PD|1
pth.sort.by.2 8 CHOICE L :SCE[sce]PD|2
pth.thru.date 8 DATE L :SCE[sce]PD|8
pth.title 60 FREE L :SCE[sce]PD|5
records.printed 5 INT R :SCE[sce]|1
records.sorted 5 INT R :SCE[sce]|0
report 10 FREE L LAB.C.RPT :SCE[sce]|2
report.type 5 CHOICE L :SCE[sce]|12
rpt.compile.copies.to 1 YN L VAL=%LAB.C.RB.copies.to("")
site 10 FREE L LAB.C.SITE :SCE[sce]|15
site.code 3 FREE L :SCE[sce]|16
site.error 1 FREE L VAL=IF{@LAB.C.RPT.site[@.new];/.LAB.SITE}^X,"Y"=@LAB.C
VAL=.SITE.reference.lab[X]
sk1.doc.addr.and.phone 91 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"AP")
sk1.doc.addr.csz 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"CSZ")
sk1.doc.addr.line.4 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"LF")
sk1.doc.address 75 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"A")
sk1.doc.city 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"C")
sk1.doc.email 40 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"E")
sk1.doc.phone 15 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"P")
sk1.doc.state 2 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"ST")
sk1.doc.street 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"S")
sk1.doc.zip 10 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#0S,.,"Z")
sk2.doc.addr.and.phone 91 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"AP")
sk2.doc.addr.csz 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"CSZ")
sk2.doc.addr.line.4 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"LF")
sk2.doc.address 75 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"A")
sk2.doc.city 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"C")
sk2.doc.email 40 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"E")
sk2.doc.phone 15 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"P")
sk2.doc.state 2 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"ST")
sk2.doc.street 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"S")
sk2.doc.zip 10 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#1S,.,"Z")
sk3.doc.addr.and.phone 91 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"AP")
sk3.doc.addr.csz 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"CSZ")
sk3.doc.addr.line.4 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"LF")
sk3.doc.address 75 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"A")
sk3.doc.city 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"C")
sk3.doc.email 40 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"E")
sk3.doc.phone 15 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"P")
sk3.doc.state 2 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"ST")
sk3.doc.street 30 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"S")
sk3.doc.zip 10 FREE L VAL=%LAB.C.SPEC.doc.addr(/SS#2S,.,"Z")
sort.key.1 30 FREE L :SCE[sce]|9
sort.key.2 30 FREE L :SCE[sce]|10
sort.key.3 30 FREE L :SCE[sce]|11
start.date 8 DATE L :SCE[sce]|3
start.time 4 HHMM L :SCE[sce]|4
status 8 CHOICE L :SCE[sce]|8
telcom.batch 8 PINT R LAB.C.TELCOM :SCE[sce]|13
thru.date 8 DATE L :SCE[sce]A|1
type 4 CHOICE L VAL=@LAB.C.RPT.type[@LAB.C.RB.report]
user 10 FREE L MIS.USER :SCE[sce]|7
yes.no 1 YN L
Ì € i 2
lab.c.report.batch.actv.specs (act.rpt)
[batch, rpt.sort.1,rpt.sort.2,rpt.sort.3,rpt.acct.number,rpt.module.spec.id]
:SCE[sce]R[sceA,sceB,sceC,aaAN,sceS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.sort.1 15 FREE L sceA
rpt.sort.2 15 FREE L sceB
rpt.sort.3 15 FREE L sceC
rpt.acct.number 12 FREE L aaAN
rpt.module.spec.id 21 FREE L sceS
rpt.new.flag.restart.secs 9 PINT R :SCE[sce]R[sceA,sceB,sceC,aaAN,sceS]|1
rpt.new.flag.seconds 9 PINT R VAL=/NEW.FLAG.SEC
rpt.specimen 10 URN L :SCE[sce]R[sceA,sceB,sceC,aaAN,sceS]|0
Ì € i 2
lab.c.report.batch.actv.sums (act.sum)
[batch, sum.sort.1,sum.sort.2,sum.sort.3,sum.acct.number]
:SCE[sce]S[sceA,sceB,sceC,aaAN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sum.sort.1 15 FREE L sceA
sum.sort.2 15 FREE L sceB
sum.sort.3 15 FREE L sceC
sum.acct.number 12 FREE L aaAN
sum.pt.urn 30 FREE L LAB.C.PAT :SCE[sce]S[sceA,sceB,sceC,aaAN]
Ì € i 2
lab.c.rb.act.sum.sort (act.sum.sort)
[batch, sum.sort.file.number]
:SCE[sce]SS[sceSF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sum.sort.file.number 4 PINT R sceSF
sum.sort.module 1 CHOICE L :SCE[sce]SS[sceSF]|1
sum.sum.sort.fields 45 FREE L :SCE[sce]SS[sceSF]|0
Ì € i 2
lab.c.report.batch.by.patient (by.patient)
[batch, patient.q]
:SCE[sce]BP[sceQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient.q 2 PINT R sceQ
patient 30 FREE L LAB.C.PAT :SCE[sce]BP[sceQ]|1
patient.name 30 FREE L LAB.C.PAT :SCE[sce]BP[sceQ]|0
Ì € i 2
lab.c.report.batch.by.pat.docs (by.patient.doctors)
[batch,patient.q, patient.doctor]
:SCE[sce]BP[sceQ]D[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient.doctor 10 FREE L MIS.DOC.DICT ggg
Ì € i 2
lab.c.rpt.batch.doc.ranges (doc.ranges)
[batch, doc.range]
:SCE[sce]D[schd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doc.range 21 FREE L schd
Ì € i 2
lab.c.rpt.batch.clnt.addresses (doc.client.addresses)
[batch,doc.range, client.address.urn]
:SCE[sce]D[schd]AD[gggLU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.address.urn 2 PINT R gggLU
Ì € i 2
lab.c.rpt.batch.loc.num.ranges (loc.num.ranges)
[batch, loc.num.range]
:SCE[sce]L[schl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loc.num.range 15 FREE L schl
Ì € i 2
lab.c.report.batch.mic.rpt (mic.rpt)
[batch, mic.sort.1,mic.sort.2,mic.spec.num,mic.spec]
:SCE[sce]MR[sceA,sceB,smsNS,sms]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mic.sort.1 30 FREE L sceA
mic.sort.2 30 FREE L sceB
mic.spec.num 17 FREE L smsNS
mic.spec 30 URN L LAB.M.SPEC sms
mic.spec.urn 30 URN L LAB.M.SPEC
Ì € i 2
lab.c.rpt.batch.pt.name.ranges (pat.name.ranges)
[batch, pat.name.range]
:SCE[sce]P[schp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pat.name.range 41 FREE L schp
Ì € i 2
lab.c.report.batch.pth.ds (pth.data.sections)
[batch, data.sect.q]
:SCE[sce]PDQ[sceQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
data.sect.q 2 PINT R sceQ
data.sect 10 FREE L LAB.P.SECT :SCE[sce]PDQ[sceQ]|0
Ì € i 2
lab.c.report.batch.pth.prompts (pth.prompts)
[batch, pth.prompt.q]
:SCE[sce]PP[sceQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.prompt.q 2 PINT R sceQ
pth.prompt 15 FREE L LAB.P.PROMPT :SCE[sce]PP[sceQ]|0
Ì € i 2
lab.c.report.batch.pth.rpt (pth.rpt)
[batch, pth.sort.1,pth.sort.2,pth.spec.num,pth.spec]
:SCE[sce]PR[sceA,sceB,spsNS,sps]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pth.sort.1 30 FREE L sceA
pth.sort.2 30 FREE L sceB
pth.spec.num 13 FREE L spsNS
pth.spec 30 URN L LAB.P.SPEC sps
pth.spec.urn 30 URN L LAB.P.SPEC :SCE[sce]PR[sceA,sceB,spsNS,sps]
Ì € i 2
lab.c.rb.route.ranges (route.ranges)
[batch, route.q]
:SCE[sce]RT[sceRT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
route.q 2 PINT R sceRT
route.range 21 FREE L :SCE[sce]RT[sceRT]|0
stop.range 13 FREE L :SCE[sce]RT[sceRT]|1
Ì € i 2
lab.c.rb.routes (routes)
[batch, route.no]
:SCE[sce]ROU[sceRN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
route.no 3 PINT R sceRN
from.stop 21 FREE L :SCE[sce]ROU[sceRN]|1
route 10 FREE L LAB.C.ROUTE :SCE[sce]ROU[sceRN]|0
thru.stop 21 FREE L :SCE[sce]ROU[sceRN]|2
Ì € i 2
lab.c.rb.rpt.no.of.copies (rpt.no.of.copies)
[batch, rpt.subscripts]
:SCE[sce]CPY[srbRs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.subscripts 50 FREE L srbRs
Ì € i 2
lab.c.rb.rpt.req.specs (rpt.req.specs)
[batch, rpt.req.sort.keys,rpt.req.mod.sort,rpt.req.spec.sort]
:SCE[sce]REQ[sleRS,sleMS,sleSS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.req.sort.keys 30 FREE L sleRS
rpt.req.mod.sort 30 FREE L sleMS
rpt.req.spec.sort 30 FREE L sleSS
rpt.req.spec.urn 9 PINT R :SCE[sce]REQ[sleRS,sleMS,sleSS]|0
Ì € i 2
lab.c.rb.selections (selections)
[batch, selection.q]
:SCE[sce]SEL[sel]
Field Name Len Dat Typ J DPM Offset/Local/VAL
selection.q 3 PINT R sel
sel.all.addr 1 YN L :SCE[sce]SEL[sel]|3
selection 4 FREE L :SCE[sce]SEL[sel]|0
selection.action 10 CHOICE L :SCE[sce]SEL[sel]|2
selection.value 15 FREE L :SCE[sce]SEL[sel]|1
Ì € i 2
lab.c.rpt.batch.spec.px.ranges (spec.px.ranges)
[batch, spec.px.range]
:SCE[sce]X[schx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
spec.px.range 13 FREE L schx
Ì i 2
lab.c.report.batch.page.header (page.header)
Field Name Len Dat Typ J DPM Offset/Local/VAL
add.ins.mnemonic 10 FREE L VAL=/SS#0S%2
add.ins.name 30 FREE L VAL=@MIS.INS.DICT.name[/SS#0S%2]
add.pt.rpt.status 7 FREE L VAL=/SS#0S%1
collection.date.complete 1 YN L VAL=IF{%LAB.C.ACT.check.other.specs(/SS#4S#1_@LAB.C.RB
VAL=.act.rpt[/LAB.C.RB.batch,/SS]|0,"A","DATE") "Y";"N
VAL="}
date.prelim.final.message 24 FREE L VAL=IF{@LAB.C.RB.collection.date.complete="Y" "** FINA
VAL=L REPORT **";"** PRELIMINARY REPORT **"}
end.of.rpt.marker 19 FREE L VAL="** END OF REPORT **"
end.of.rpt.msg 19 FREE L VAL=IF{@LAB.C.RB.end.of.rpt.or.contd.flag="E" "** END
VAL=OF REPORT **"}
end.of.rpt.or.contd.flag 1 CHOICE L VAL=IF{/MC.TRLR.OVERRIDE;/R.PAGE.NUM.PRINT=0 "E";"C"}
end.of.rpt.or.contd.msg 28 FREE L VAL=IF{@LAB.C.RB.end.of.rpt.or.contd.flag^F="E" "** EN
VAL=D OF REPORT **";F="C" "** CONTINUED ON NEXT PAGE *
VAL=*"}
for.date.range 17 FREE L VAL=IF{/LAB.C.RB.batch^LAB.C.RB.batch,%Z.date.out(@LAB
VAL=.C.RB.from.date)_IF{@LAB.C.RB.from.date'=@LAB.C.RB
VAL=.thru.date "-"_%Z.date.out(@LAB.C.RB.thru.date)}}
hospital.name 61 FREE L VAL=/R.HOSP
minimum.lines 1 FREE L VAL=/PRT+1^U,IF{/.LL<U %[/R.NEW.PAGE.PGM](0)},1
page.number 4 PINT R VAL=IF{/R.PAGE.NUM.PRINT>0;/TRLR.PAGE.NUM}
report.batch.number 8 PINT R VAL=/LAB.C.RB.batch
report.site 10 FREE L VAL=IF{@LAB.C.RPT.site[/report];/.LAB.SITE}
req.prelim.final.message 24 FREE L VAL=IF{@LAB.C.RB.requisition.complete="Y" "** FINAL RE
VAL=PORT **";"** PRELIMINARY REPORT **"}
requisition.complete 1 YN L VAL=IF{%LAB.C.ACT.check.other.specs(/SS#4S#1_@LAB.C.RB
VAL=.act.rpt[/LAB.C.RB.batch,/SS]|0,"A","REQ") "Y";"N"
VAL=}
rpt.title 55 FREE L VAL=/R.TITLE
rpt.title.2 55 FREE L VAL=/R.TITLE.2
run.date 8 FREE L VAL=/R.DATE
run.time 4 FREE L VAL=/R.TIME
site.address.line.1 75 FREE L VAL=@LAB.C.SITE.code.address.1[IF{@LAB.C.RPT.site.code
VAL=[/report];@LAB.C.SITE.site.code[/.LAB.SITE]}]
site.address.line.2 75 FREE L VAL=@LAB.C.SITE.code.address.2[IF{@LAB.C.RPT.site.code
VAL=[/report];@LAB.C.SITE.site.code[/.LAB.SITE]}]
sort.key.1.doctor 30 FREE L VAL=IF{@MIS.DOC.DICT.name[/SS#0S];/SS#0S}
sort.key.1.field 30 FREE L VAL=/SS#0S$30
sort.key.1.location 30 FREE L VAL=IF{@MIS.LOCN.DICT.lab.sort.num.x[/SS#0S]^L @MIS.LO
VAL=CN.DICT.name[L];/SS#0S#0="~" @MIS.LOCN.DICT.name[/
VAL=SS#0S%0]}
sort.key.1.route 30 FREE L VAL=(/SS#0S^SS$10:0S,"-",SS%9^SS$10:0S,"-",SS%9:0S+0)
sort.key.1.route.name 30 FREE L VAL=@LAB.C.ROUTE.name[/SS#0S$10:0S]
sort.key.1.rte.client.nm 30 FREE L VAL=IF{@LAB.C.ROUTE.client[/SS#0S^SS$10:0S,SS%9^SS$10:
VAL=0S,SS%9:0S+0]^SS,@MIS.DOC.DICT.name[SS];SS}
sort.key.1.rte.stop.nm 30 FREE L VAL=@LAB.C.ROUTE.stop.name[/SS#0S^SS$10:0S,SS%9$10:0S]
sort.key.2.doctor 30 FREE L VAL=IF{@MIS.DOC.DICT.name[/SS#1S];/SS#1S}
sort.key.2.field 30 FREE L VAL=/SS#1S$30
sort.key.2.location 30 FREE L VAL=IF{@MIS.LOCN.DICT.lab.sort.num.x[/SS#1S]^L @MIS.LO
VAL=CN.DICT.name[L];/SS#1S#0="~" @MIS.LOCN.DICT.name[/
VAL=SS#1S%0]}
sort.key.2.route 30 FREE L VAL=(/SS#1S^SS$10:0S,"-",SS%9^SS$10:0S,"-",SS%9:0S+0)
sort.key.2.route.name 30 FREE L VAL=@LAB.C.ROUTE.name[/SS#1S$10:0S]
sort.key.2.rte.client.nm 30 FREE L VAL=IF{@LAB.C.ROUTE.client[/SS#1S^SS$10:0S,SS%9^SS$10:
VAL=0S,SS%9:0S+0]^SS,@MIS.DOC.DICT.name[SS];SS}
sort.key.2.rte.stop.nm 30 FREE L VAL=@LAB.C.ROUTE.stop.name[/SS#1S^SS$10:0S,SS%9$10:0S]
sort.key.3.doctor 30 FREE L VAL=IF{@MIS.DOC.DICT.name[/SS#2S];/SS#2S}
sort.key.3.field 30 FREE L VAL=/SS#2S$30
sort.key.3.location 30 FREE L VAL=IF{@MIS.LOCN.DICT.lab.sort.num.x[/SS#2S]^L @MIS.LO
VAL=CN.DICT.name[L];/SS#2S#0="~" @MIS.LOCN.DICT.name[/
VAL=SS#2S%0]}
sort.key.3.route 30 FREE L VAL=(/SS#2S^SS$10:0S,"-",SS%9^SS$10:0S,"-",SS%9:0S+0)
sort.key.3.route.name 30 FREE L VAL=@LAB.C.ROUTE.name[/SS#2S$10:0S]
sort.key.3.rte.client.nm 30 FREE L VAL=IF{@LAB.C.ROUTE.client[/SS#2S^SS$10:0S,SS%9^SS$10:
VAL=0S,SS%9:0S+0]^SS,@MIS.DOC.DICT.name[SS];SS}
sort.key.3.rte.stop.nm 30 FREE L VAL=@LAB.C.ROUTE.stop.name[/SS#2S^SS$10:0S,SS%9$10:0S]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.rb.flag.acct.urn.x [batch,patient]
flag.acct.urn.x :SCEA[sce,aa]
|
|
| | | | | | | | | | | | | | | | | | | |