Ì i 2
invert.name.fields
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.oe.resp.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[IF{@ADM.PAT.attend
VAL=.doctor;@ADM.PAT.er.doctor}])
inv.oe.resp.dr.suf 30 FREE L VAL=%MIS.DOC.name.display(IF{@ADM.PAT.attend.doctor;@A
VAL=DM.PAT.er.doctor})
inv.pt.admit.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.admit.doc
VAL=tor])
inv.pt.admit.dr.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.admit.doctor,99,"S"
VAL=)
inv.pt.attend.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.attend.do
VAL=ctor])
inv.pt.attend.dr.suf 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.attend.do
VAL=ctor])
inv.pt.er.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.er.doctor
VAL=])
inv.pt.er.dr.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.er.doctor,99,"S")
inv.pt.fam.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.family.do
VAL=ctor])
inv.pt.fam.dr.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.family.doctor,99,"S
VAL=")
inv.pt.name 30 FREE L VAL=%Z.name.inversion(@ADM.PAT.name)
inv.pt.primary.care.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[@ADM.PAT.prim.care
VAL=.doctor])
inv.pt.primary.care.dr.s 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.prim.care.doctor)
inv.pt.resp.dr 30 FREE L VAL=%Z.name.inversion(@MIS.DOC.name[IF{@ADM.PAT.attend
VAL=.doctor[urn];@ADM.PAT.er.doctor[urn];@t.MRI.PAT.vi
VAL=sit.doctor[MRI.PAT.urn,MRI.PAT.visit.subscript]}])
inv.pt.resp.dr.suf 30 FREE L VAL=%MIS.DOC.name.display(IF{@ADM.PAT.attend.doctor[ur
VAL=n];@ADM.PAT.er.doctor[urn];@t.MRI.PAT.visit.doctor
VAL=[MRI.PAT.urn,MRI.PAT.visit.subscript]})
Ì € i 2
main
[patient]
$(A)AA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient 43 FREE L aa
acct.number 12 FREE L VAL=@ADM.PAT.acct.number
admit.date 8 DATE L VAL=@ADM.PAT.admit.date
admit.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.admit.doctor,99,"S"
VAL=)
age.and.sex 12 FREE L VAL=(@ADM.PAT.age.out_" "_@ADM.PAT.sex)
attend.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.attend.doctor
attend.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.attend.doctor]
attend.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.attend.doctor,99,"S
VAL=")
bed 3 FREE L VAL=@ADM.PAT.bed
department.number 10 FREE L VAL=%RAD.MRI.dept.number(ADM.PAT.urn)
dept.or.unit.number 10 FREE L VAL=%RAD.MRI.dept.or.unit.number(ADM.PAT.urn)
er.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.er.doctor,99,"S")
facility 10 FREE L MIS.FACILITY VAL=@ADM.PAT.facility
family.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.family.doctor,99,"S
VAL=")
location 10 FREE L MIS.LOCN VAL=@ADM.PAT.location
mri.urn 25 URN L MRI.PAT VAL=@ADM.PAT.mri.urn
name 30 FREE L VAL=@ADM.PAT.name
name.first 30 FREE L VAL=IF{@pt.name^NM#"1,";NM#"0 "}
name.last 30 FREE L VAL=@pt.name#"0,"
number.and.name 44 FREE L VAL=(@ADM.PAT.acct.number_" "_@ADM.PAT.name:0S)
prim.care.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(@ADM.PAT.prim.care.doctor,99
VAL=,"S")
prt.location 12 FREE L VAL=IF{"t "_@temporary.location'="t ";@ADM.PAT.locatio
VAL=n}
registration.date 8 DATE L VAL=IF{@ADM.PAT.admit.date;@ADM.PAT.service.date}
respon.doctor 10 FREE L MIS.DOC VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor}
respon.doctor.name 30 FREE L VAL=@MIS.DOC.name[IF{@ADM.PAT.attend.doctor;@ADM.PAT.e
VAL=r.doctor}]
respon.doctor.name.suf 30 FREE L VAL=%MIS.DOC.name.display(IF{@ADM.PAT.attend.doctor;@A
VAL=DM.PAT.er.doctor},99,"S")
room 10 FREE L MIS.ROOM VAL=@ADM.PAT.room
room.and.bed 8 FREE L VAL=IF{@ADM.PAT.room (@ADM.PAT.room_"-"_@ADM.PAT.bed:8
VAL=T)}
room.and.bed.10 10 FREE L VAL=IF{@ADM.PAT.room (@ADM.PAT.room_"-"_@ADM.PAT.bed$1
VAL=0)}
room.and.bed.12 12 FREE L VAL=IF{@ADM.PAT.room (@ADM.PAT.room_"-"_@ADM.PAT.bed$1
VAL=2)}
screen 0 FREE L
screen.begin 0 FREE L VAL=%RAD.PAT.zdisp("")
screen.view 0 FREE L VAL=%RAD.PAT.zdisp("V")
status 8 CHOICE L VAL=@ADM.PAT.status
status.w.obsv 8 FREE L VAL=(@ADM.PAT.status_IF{@ADM.PAT.observation.patient="
VAL=Y" "o"})
unit.number 10 FREE L VAL=@ADM.PAT.unit.number
urn 30 URN L ADM.PAT
Ì i 2
oe.data
[oe.patient]
*(A)AA.OE[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
oe.patient 30 URN L ADM.PAT aa
oe.ht.in.cm 5 INT R *(A)AA.OE[aa]|3
oe.ht.in.ft 1 INT R *(A)AA.OE[aa]|1
oe.ht.in.in 2 INT R *(A)AA.OE[aa]|2
oe.wt.in.kg 6 DEC2 R *(A)AA.OE[aa]|6
oe.wt.in.lb 4 INT R *(A)AA.OE[aa]|4
oe.wt.in.oz 2 INT R *(A)AA.OE[aa]|5
temporary.location 10 FREE L MIS.LOCN *(A)AA.OE[aa]|0
tloc.file.date 8 DATE L *(A)AA.OE[aa]TL|0
tloc.file.time 4 HHMM L *(A)AA.OE[aa]TL|1
tloc.return.date 8 DATE L *(A)AA.OE[aa]TL|2
tloc.return.mins 4 PINT R *(A)AA.OE[aa]TL|4
tloc.return.secs 9 PINT R *(A)AA.OE[aa]TL|5
tloc.return.time 4 HHMM L *(A)AA.OE[aa]TL|3
Ì i 2
rad.data
[rad.patient]
*(R4)RPT[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rad.patient 30 URN L ADM.PAT aa
Index Files Subscripts/Physical Base
temp.location.x [urn,date,time,dept]
*(A)AA.OETL[aa,aaD,aaT,rd]
|
|
| | |