Ì i 2
pha.tape.file (main)
[log]
:TE[te]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log 3 PINT R te
date 8 DATE L VAL=%Z.date.in.magic(@PHA.TAPE.entered)
entered 9 PINT R :TE[te]|0
start.date 8 DATE L :TE[te]|3
status 3 CHOICE L :TE[te]|5
stop.date 8 DATE L :TE[te]|4
time 4 HHMM L VAL=%Z.time.out(@PHA.TAPE.entered)
type 3 CHOICE L :TE[te]|1
user 10 FREE L MIS.USER :TE[te]|2
ver.date 8 DATE L VAL=%Z.date.in.magic(@PHA.TAPE.ver.entered)
ver.entered 9 PINT R :TE[te]|6
ver.time 4 HHMM L VAL=%Z.time.out(@PHA.TAPE.ver.entered)
ver.user 10 FREE L MIS.USER :TE[te]|7
Ì € i 2
pha.tape.patients (patients)
[log, patient]
:TE[te]P[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient 30 FREE L PHA.PAT aa
pat.acct.number 12 FREE L :TE[te]P[aa]|0
pat.name 30 FREE L :TE[te]P[aa]|1
pat.unit.number 10 FREE L :TE[te]P[aa]|2
Ì € i 2
pha.tape.rxs (rxs)
[log,patient, rx]
:TE[te]P[aa]R[tr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rx 10 URN L PHA.RX tr
rx.instr 35 FREE L :TE[te]P[aa]R[tr]|2
rx.meds 35 FREE L :TE[te]P[aa]R[tr]|1
rx.number 11 FREE L :TE[te]P[aa]R[tr]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
pha.tape.entered.index [entered] = log
entered.x :TEE[teE]
|
|
| |