Ì € i 2
main
[batch]
*(S)SCE[sce]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 7 PINT R sce
description 30 FREE L *(S)SCE[sce]|18
doctor 10 FREE L MIS.DOC
end.date 8 DATE L *(S)SCE[sce]|5
end.time 4 HHMM L *(S)SCE[sce]|6
form 10 FREE L LAB.C.FORM *(S)SCE[sce]|17
from.date 8 DATE L *(S)SCE[sce]A|0
immediate 1 YN L *(S)SCE[sce]|21
incl.free.text.drs 1 CHOICE L *(S)SCE[sce]A|3
index 1 YN L *(S)SCE[sce]|19
last.activity 10 PINT R *(S)SCE[sce]|20
last.sum.sort.file 5 PINT R *(S)SCE[sce]|14
location 10 FREE L MIS.LOCN
new.reports.only 1 YN L *(S)SCE[sce]A|2
pth.cus.header 80 FREE L *(S)SCE[sce]PH
pth.form 10 FREE L LAB.C.FORM *(S)SCE[sce]PD|6
pth.from.date 8 DATE L *(S)SCE[sce]PD|7
pth.new.page 1 CHOICE L *(S)SCE[sce]PD|3
pth.renumber 1 YN L *(S)SCE[sce]PD|4
pth.report 60 FREE L *(S)SCE[sce]PD|11
pth.rpt.format 10 FREE L LAB.C.RFMT *(S)SCE[sce]PD|0
pth.sort.by 8 CHOICE L *(S)SCE[sce]PD|1
pth.sort.by.2 8 CHOICE L *(S)SCE[sce]PD|2
pth.thru.date 8 DATE L *(S)SCE[sce]PD|8
pth.title 60 FREE L *(S)SCE[sce]PD|5
pth.use.word 1 YN L *(S)SCE[sce]PD|9
pth.word.when 5 CHOICE L *(S)SCE[sce]PD|10
recipient 10 FREE L
records.printed 5 INT R *(S)SCE[sce]|1
records.sorted 5 INT R *(S)SCE[sce]|0
report 10 FREE L LAB.C.RPT *(S)SCE[sce]|2
report.type 4 CHOICE L *(S)SCE[sce]|12
rpt.compile.copies.to 1 YN L VAL=%LAB.C.RB.copies.to("")
site 10 FREE L LAB.C.SITE *(S)SCE[sce]|15
site.code 3 FREE L *(S)SCE[sce]|16
site.error 1 FREE L VAL=IF{@LAB.C.RPT.site[@.new];@.lis.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.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.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.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 *(S)SCE[sce]|9
sort.key.2 30 FREE L *(S)SCE[sce]|10
sort.key.3 30 FREE L *(S)SCE[sce]|11
sort.type 3 CHOICE L
specimen 10 FREE L
start.date 8 DATE L *(S)SCE[sce]|3
start.time 4 HHMM L *(S)SCE[sce]|4
status 8 CHOICE L *(S)SCE[sce]|8
telcom.batch 7 PINT R LAB.C.TELCOM *(S)SCE[sce]|13
temp.prefix 2 FREE L VAL=CR
thru.date 8 DATE L *(S)SCE[sce]A|1
type 4 CHOICE L VAL=IF{@LAB.C.RB.report.type="PTH" @LAB.C.RFMT.type[@L
VAL=AB.C.RB.report];@LAB.C.RPT.type[@LAB.C.RB.report]}
user 10 FREE L MIS.USER *(S)SCE[sce]|7
yes.no 1 YN L
Ì € i 2
act.rpt
[batch, rpt.sort.1,rpt.sort.2,rpt.sort.3,rpt.acct.number,rpt.module.spec.id]
*(S)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 17 FREE L sceS
rpt.specimen 10 URN L *(S)SCE[sce]R[sceA,sceB,sceC,aaAN,sceS]|0
Ì € i 2
act.sum
[batch, sum.sort.1,sum.sort.2,sum.sort.3,sum.acct.number]
*(S)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 *(S)SCE[sce]S[sceA,sceB,sceC,aaAN]
Ì € i 2
act.sum.sort
[batch, sum.sort.file.number]
*(S)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 *(S)SCE[sce]SS[sceSF]|1
sum.sum.sort.fields 45 FREE L *(S)SCE[sce]SS[sceSF]|0
Ì € i 2
by.patient
[batch, patient.q]
*(S)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 *(S)SCE[sce]BP[sceQ]|1
patient.name 30 FREE L LAB.C.PAT *(S)SCE[sce]BP[sceQ]|0
Ì € i 2
by.patient.doctors
[batch,patient.q, patient.doctor]
*(S)SCE[sce]BP[sceQ]D[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient.doctor 10 FREE L MIS.DOC ggg
Ì € i 2
doc.ranges
[batch, doc.range]
*(S)SCE[sce]D[schd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
doc.range 21 FREE L schd
Ì € i 2
doc.client.addresses
[batch,doc.range, client.address.urn]
*(S)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
loc.num.ranges
[batch, loc.num.range]
*(S)SCE[sce]L[schl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loc.num.range 15 FREE L schl
Ì € i 2
mic.rpt
[batch, mic.sort.1,mic.sort.2,mic.spec.num,mic.spec]
*(S)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
pat.name.ranges
[batch, pat.name.range]
*(S)SCE[sce]P[schp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pat.name.range 41 FREE L schp
Ì € i 2
pth.rpt
[batch, pth.sort.1,pth.sort.2,pth.spec.num,pth.spec]
*(S)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 15 FREE L spsNS
pth.spec 30 URN L LAB.P.SPEC sps
pth.spec.urn 30 URN L LAB.P.SPEC *(S)SCE[sce]PR[sceA,sceB,spsNS,sps]
Ì € i 2
route.ranges
[batch, route.q]
*(S)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 *(S)SCE[sce]RT[sceRT]|0
stop.range 13 FREE L *(S)SCE[sce]RT[sceRT]|1
Ì € i 2
routes
[batch, route.no]
*(S)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 *(S)SCE[sce]ROU[sceRN]|1
route 10 FREE L LAB.C.ROUTE *(S)SCE[sce]ROU[sceRN]|0
thru.stop 21 FREE L *(S)SCE[sce]ROU[sceRN]|2
Ì € i 2
rpt.no.of.copies
[batch, rpt.subscripts]
*(S)SCE[sce]CPY[srbRs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rpt.subscripts 50 FREE L srbRs
Ì € i 2
rpt.req.specs
[batch, rpt.req.sort.keys,rpt.req.mod.sort,rpt.req.spec.sort]
*(S)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 *(S)SCE[sce]REQ[sleRS,sleMS,sleSS]|0
Ì € i 2
selections
[batch, selection.q]
*(S)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 *(S)SCE[sce]SEL[sel]|3
selection 4 FREE L *(S)SCE[sce]SEL[sel]|0
selection.action 10 CHOICE L *(S)SCE[sce]SEL[sel]|2
selection.value 15 FREE L *(S)SCE[sce]SEL[sel]|1
Ì € i 2
spec.px.ranges
[batch, spec.px.range]
*(S)SCE[sce]X[schx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
spec.px.range 13 FREE L schx
Ì i 2
page.header
Field Name Len Dat Typ J DPM Offset/Local/VAL
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.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{/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{@.lines.left<U [@.new.page.pgm](0)}
VAL=,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];@.lis.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[/rep
VAL=ort];@LAB.C.SITE.site.code[@.lis.site]}]
site.address.line.2 75 FREE L VAL=@LAB.C.SITE.code.address.2[IF{@LAB.C.RPT.site[/rep
VAL=ort];@LAB.C.SITE.site.code[@.lis.site]}]
sort.key.1.doctor 30 FREE L VAL=IF{@MIS.DOC.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.lab.sort.num.x[/SS#0S]^L @MIS.LOCN.na
VAL=me[L];/SS#0S#0="~" @MIS.LOCN.name[/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.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.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.lab.sort.num.x[/SS#1S]^L @MIS.LOCN.na
VAL=me[L];/SS#1S#0="~" @MIS.LOCN.name[/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.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.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.lab.sort.num.x[/SS#2S]^L @MIS.LOCN.na
VAL=me[L];/SS#2S#0="~" @MIS.LOCN.name[/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.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]
Index Files Subscripts/Physical Base
pending.reports.x [specimen,report,sort.type,recipient,batch] = @.sd
?(S)SCEP[sceSU,sch,sceST,sceR,sce]
|
|
| | | | | | | | | | | | | | | | | |