sHelp
                                     MRI.CORR
     i   2
 main
   activity
   comments
   merged.from.pts
   reasons
   req.infos
 user.file.counts

 Ì     i   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                                         
 delay.date                  10 DATE     L                 *(E1)ECA[epx,ec]|18                                         
 delay.reason                50 FREE     L                 *(E1)ECA[epx,ec]|17                                         
 fee                          8 MONEY    R                 *(E1)ECA[epx,ec]|3                                          
 from.date                    8 DATE     L                 *(E1)ECA[epx,ec]|21                                         
 hipaa.req                    1 YN       L                 *(E1)ECA[epx,ec]|14                                         
 id                          32 FREE     L                                                                             
 id.ver                       1 YN       L                 *(E1)ECA[epx,ec]|19                                         
 id.ver.comm                 25 FREE     L                 *(E1)ECA[epx,ec]|20                                         
 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                                          
 pat.first.name              25 FREE     L                 VAL=@name#"1,"                                              
 pat.last.name               25 FREE     L                 VAL=@name#"0,"                                              
 pat.name.fl                 25 FREE     L                 VAL=%Z.name.inversion(@name)                                
 pat.name.for.let            25 FREE     L                 VAL=@name                                                   
 patient                     25 URN      L  MRI.PAT        *(E1)ECA[epx,ec]|1                                      
 patient.address             35 FREE     L                 VAL=%MRI.CORR.letter.field(A,B,C)                           
 phy.appr                     1 YN       L                 *(E1)ECA[epx,ec]|15                                         
 phy.mne                     10 FREE     L  MIS.DOC        *(E1)ECA[epx,ec]|16                                     
 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                                          
 thru.date                    8 DATE     L                 *(E1)ECA[epx,ec]|22                                         
 type                        10 FREE     L  MRI.COR.TYP    *(E1)ECA[epx,ec]|12                                     
 unknown.name                30 NAME     L                 *(E1)ECA[epx,ec]|13                                         
 Ì   €   i   2
activity
[prefix,request,  activity.date,activity.number]
*(E1)ECA[epx,ec]X[ecaD,ecaN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 activity.date                8 DATE     L                 ecaD                                                        
 activity.number              3 PINT     R                 ecaN                                                        
 activity.letter              8 FREE     L  MRI.COR.LET    *(E1)ECA[epx,ec]X[ecaD,ecaN]|2                          
 activity.type               15 CHOICE   L                 *(E1)ECA[epx,ec]X[ecaD,ecaN]|1                              
 activity.user               10 FREE     L  MIS.USER       *(E1)ECA[epx,ec]X[ecaD,ecaN]|0                          
 Ì   €   i   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)                           
 Ì   €   i   2
merged.from.pts
[prefix,request,  merged.from.number]
*(E1)ECA[epx,ec]MF[ecZ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 merged.from.number           2 PINT     R                 ecZ                                                         
 merged.from.patient         25 URN      L  MRI.PAT        *(E1)ECA[epx,ec]MF[ecZ]|0                               
 Ì   €   i   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)                           
 Ì   €   i   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                    10 FREE     L  MRI.COR.RI     *(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}                 
 Ì     i   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]                                          

 Index Files                        Subscripts/Physical Base

 acct.req.x                         [prefix,request,completed.date]
                                      ?(E)ECAAR[epx,ec,ecCD]

 hold.type.x                        [prefix,type,request]
                                      ?(E)ECAH[epx,ecc,ec]

 log.type.x                         [prefix,type,request] = logged.date
                                      ?(E)ECATY[epx,ecc,ec]