Ì 2
mis.oa.msg (main)
[urn]
\GOM[gom]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 20 INT R gom
from 30 FREE L \GOM[gom]|4
input.complete 1 YN L \GOM[gom]|1
input.date 8 DATE L \GOM[gom]|5
input.text 0 FREE L VAL=%Z.text.ed.shell(^/GOM[urn]L,9,27,79,6,"D")
input.text.get 0 FREE L VAL=%Z.text.ed.shell(^/GOM[urn]L,16,27,79,6,"D")
input.text.no.get 0 FREE L VAL=%Z.text.ed.shell(^/GOM[urn]L,16,27,79,6,"D")
input.time 4 HHMM L \GOM[gom]|6
job.info 12 FREE L \GOM[gom]|2
oa.message.urn 20 FREE L \GOM[gom]|7
originating.device 15 FREE L \GOM[gom]|8
pt 43 FREE L \GOM[gom]P|0
pt.abs.pt.status 8 FREE L \GOM[gom]P|18
pt.acct.type 8 FREE L \GOM[gom]P|15
pt.age.and.sex 12 FREE L \GOM[gom]P|1
pt.bed 3 FREE L \GOM[gom]P|4
pt.birthdate 8 FREE L \GOM[gom]P|13
pt.dis.ser.date 8 FREE L \GOM[gom]P|14
pt.location 10 FREE L \GOM[gom]P|2
pt.mothers.name 30 FREE L \GOM[gom]P|12
pt.name 30 FREE L \GOM[gom]P|10
pt.other.name 30 FREE L \GOM[gom]P|11
pt.pri.ins 10 FREE L \GOM[gom]P|16
pt.registration.date 8 FREE L \GOM[gom]P|5
pt.respon.doctor 10 FREE L \GOM[gom]P|8
pt.respon.doctor.name 30 FREE L \GOM[gom]P|9
pt.room 10 FREE L \GOM[gom]P|3
pt.status 10 FREE L \GOM[gom]P|17
pt.status.w.obsv 8 FREE L \GOM[gom]P|6
pt.unit.number 10 FREE L \GOM[gom]P|7
sender 10 FREE L MIS.USER \GOM[gom]|3
time 10 PINT R \GOM[gom]|0
Ì € 2
lines.from.a.message (line)
[urn, line.urn]
\GOM[gom]L[gomL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
line.urn 5 PINT R gomL
line.text 80 FREE L \GOM[gom]L[gomL]
Ì € 2
send.to.user.and.term (receivers)
[urn, receiver]
\GOM[gom]R[gomR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
receiver 30 FREE L gomR
receiver.urn 10 FREE L \GOM[gom]R[gomR]
|
|
|