Ì € 2
main
[prefix,request]
*(E1)ECA[epx,ec]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
request 32 FREE L ec
completed.date 8 DATE L *(E1)ECA[epx,ec]|9
completed.number 3 PINT R *(E1)ECA[epx,ec]|10
completed.user 10 FREE L MIS.USER VAL=@MRI.CORR.activity.user[@.mri.pfx,MRI.CORR.request
VAL=,@MRI.CORR.completed.date,@MRI.CORR.completed.numb
VAL=er]
date.needed 8 DATE L *(E1)ECA[epx,ec]|11
fee 8 MONEY R *(E1)ECA[epx,ec]|3
id 32 FREE L
last.let.date 8 DATE L *(E1)ECA[epx,ec]|7
last.let.number 3 PINT R *(E1)ECA[epx,ec]|8
last.let.user 10 FREE L MIS.USER VAL=@MRI.CORR.activity.user[@.mri.pfx,MRI.CORR.request
VAL=,@MRI.CORR.last.let.date,@MRI.CORR.last.let.number
VAL=]
last.letter 8 FREE L MRI.COR.LET VAL=@MRI.CORR.activity.letter[@.mri.pfx,MRI.CORR.reque
VAL=st,@MRI.CORR.last.let.date,@MRI.CORR.last.let.numb
VAL=er]
logged.date 8 DATE L *(E1)ECA[epx,ec]|5
logged.number 3 PINT R *(E1)ECA[epx,ec]|6
logged.user 10 FREE L MIS.USER VAL=@MRI.CORR.activity.user[@.mri.pfx,MRI.CORR.request
VAL=,@MRI.CORR.logged.date,@MRI.CORR.logged.number]
name 30 FREE L VAL=IF{@MRI.PAT.name[@patient];@unknown.name}
pages 5 PINT R *(E1)ECA[epx,ec]|2
paid 1 YN L *(E1)ECA[epx,ec]|4
patient 25 URN L MRI.PAT *(E1)ECA[epx,ec]|1
requestor 12 URN L MRI.COR.REQV *(E1)ECA[epx,ec]R|0
requestor.city 20 FREE L *(E1)ECA[epx,ec]R|4
requestor.name 30 FREE L *(E1)ECA[epx,ec]R|1
requestor.phone 18 PHONE L *(E1)ECA[epx,ec]R|7
requestor.pt.list.for.ltr 50 FREE L VAL=%MRI.CORR.letter.field(A,B,C)
requestor.state 2 FREE L *(E1)ECA[epx,ec]R|5
requestor.street.1 30 FREE L *(E1)ECA[epx,ec]R|2
requestor.street.2 30 FREE L *(E1)ECA[epx,ec]R|3
requestor.zip 10 ZIP.POST L *(E1)ECA[epx,ec]R|6
status 8 CHOICE L *(E1)ECA[epx,ec]|0
type 10 FREE L MRI.COR.TYP *(E1)ECA[epx,ec]|12
unknown.name 30 NAME L *(E1)ECA[epx,ec]|13
Ì € 2
comments
[prefix,request, comment.order]
*(E1)ECA[epx,ec]C[ecaC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.order 3 PINT R ecaC
comment 50 FREE L *(E1)ECA[epx,ec]C[ecaC]|0
comments.for.letter 50 FREE L VAL=%MRI.CORR.letter.field(A,B,C)
Ì € 2
reasons
[prefix,request, reason.order]
*(E1)ECA[epx,ec]S[ecaR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reason.order 2 PINT R ecaR
reason 10 FREE L MRI.COR.RSN *(E1)ECA[epx,ec]S[ecaR]|0
reasons.for.letters 50 FREE L VAL=%MRI.CORR.letter.field(A,B,C)
Ì € 2
req.infos
[prefix,request, req.info.order]
*(E1)ECA[epx,ec]I[ecaI]
Field Name Len Dat Typ J DPM Offset/Local/VAL
req.info.order 2 PINT R ecaI
req.info 12 FREE L *(E1)ECA[epx,ec]I[ecaI]|0
req.info.for.letters 55 FREE L VAL=%MRI.CORR.letter.field(A,B,C)
req.info.name 55 FREE L VAL=IF{@MRI.COR.RI.name[@req.inf];@req.inf}
Ì 2
user.file.counts
[corr.user,corr.date]
*(E1)ECACNT[gu,ed]
Field Name Len Dat Typ J DPM Offset/Local/VAL
corr.user 10 FREE L MIS.USER gu
corr.date 8 DATE L ed
corr.count 3 INT R *(E1)ECACNT[gu,ed]
|
|
| | |