Ì € 2
nur.pl.patients (patients)
[initials, pt.line]
?NPL[gu]PT[npl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pt.line 3 PINT R npl
patient 30 FREE L NUR.PAT ?NPL[gu]PT[npl]|0
pt.hh.format 10 FREE L NUR.HH.FMT ?NPL[gu]PT[npl]|1
pt.id 44 FREE L ?NPL[gu]PT[npl]|2
Ì € 2
nur.nurse.pt.rooms.and.beds (rooms.and.beds)
[initials, rb.line]
?NPL[gu]R[rbl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rb.line 2 PINT R rbl
bed 3 FREE L ?NPL[gu]R[rbl]|1
occupant 44 FREE L VAL=IF{%NUR.NURSE.PT.occupant(@room,@bed)^patient %NUR
VAL=.NURSE.PT.ee.pt.list.M.pt.label(patient)}
room 10 FREE L MIS.ROOM.DICT ?NPL[gu]R[rbl]|0
|
|