Ì i 2
lab.c.telcom.list.patient (list.patient)
[pat.q]
/TSCRAP[tscra]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pat.q 2 PINT R tscra
pat.acct 12 FREE L /TSCRAP[tscra]|1
pat.name 30 FREE L /TSCRAP[tscra]|0
pat.unit 10 FREE L /TSCRAP[tscra]|3
pat.urn 30 FREE L /TSCRAP[tscra]|2
Ì i 2
lab.c.telcom.main (main)
[batch]
?SRT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 8 PINT R srt
account 30 FREE L LAB.C.PAT
autodialer 15 FREE L MIS.AUTODIAL ?SRT[srt]|12
batch.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(1)"
date 8 DATE L ?SRT[srt]|0
device 15 FREE L ?SRT[srt]|13
entered.offset 9 TIME L ?SRT[srt]|1
eval.print.error 1 YN L VAL=IF{"Y"'=c.error.only;@LAB.C.TELCOM.except.x "Y";"N
VAL="}
eval.time 1 YN L VAL=IF{LAB.C.TELCOM.date=b.date&(@LAB.C.TELCOM.time<
VAL=;b.time) "N";LAB.C.TELCOM.date=e.date&(@LAB.C.TELC
VAL=OM.time>e.time) "N";"Y"}
from.date 8 DATE L ?SRT[srt]|10
from.date.ext 3 FREE L ?SRT[srt]|5
last.activity.date 8 DATE L VAL=-@LAB.C.TELCOM.activity.x[LAB.C.TELCOM.site,""]
line.class 15 FREE L MIS.LINE.CLASS
new.only 1 YN L ?SRT[srt]|7
print.q.cnt 1 PINT R ?SRT[srt]|15
printq.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(2)"
prt.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(3)"
records.printed 5 PINT R VAL=@LAB.C.RB.records.printed[LAB.C.TELCOM.report.batc
VAL=h]
records.sorted 5 PINT R VAL=@LAB.C.RB.records.sorted[LAB.C.TELCOM.report.batch
VAL=]
report 10 FREE L LAB.C.RPT ?SRT[srt]|4
report.batch 8 PINT R LAB.C.RB ?SRT[srt]|9
restart.batch 8 PINT R LAB.C.TELCOM ?SRT[srt]|8
schedule.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(0)"
site 10 FREE L LAB.C.TELSITE ?SRT[srt]|2
status 10 CHOICE L ?SRT[srt]|14
thru.date 8 DATE L ?SRT[srt]|11
thru.date.ext 3 FREE L ?SRT[srt]|6
time 4 HHMM L VAL=%Z.time.out(@LAB.C.TELCOM.entered.offset)
type 6 CHOICE L ?SRT[srt]|3
Ì € i 2
lab.c.telcom.audit.trail (audit.trail)
[batch, audit.q]
?SRT[srt]A[srtAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.q 2 PINT R srtAQ
audit.error.flag 1 YN L ?SRT[srt]A[srtAQ]|2
audit.line 60 FREE L ?SRT[srt]A[srtAQ]|1
audit.time 7 PINT R ?SRT[srt]A[srtAQ]|0
audit.time.out 8 FREE L VAL=$TIME(@LAB.C.TELCOM.audit.time+@LAB.C.TELCOM.enter
VAL=ed.offset)
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.telcom.act.by.pat.x [account,date,time,batch] = LAB.C.RB.batch
activity.by.pat.x :SRTAP[aa,srtD,srtT,srt]
lab.c.telcom.activity.x [site,date,batch]
activity.x :SRTA[srs,srtD,srt]
lab.c.telcom.autodial.x [autodialer] = batch
autodial.x :SRTD[add]
lab.c.telcom.except.x [date,batch]
except.x :SRTE[srtD,srt]
lab.c.telcom.stop.x [report.batch] = batch
stop.x :SRTSTP[sce]
|
|
| |