sHelp
                                     MRI.CHART.REQ
     i   2
   chart.requests
     charts.requested
       chart.activity
         chart.visit.activity
       chart.visit.dates
   proc.closed.charts
   temp.visits

 Ì     i   2
chart.requests    (main) 
[request.no]
:ECR[ecr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 request.no                  10 PINT     R                 ecr                                                         
 dates.needed.from            8 DATE     L                 :ECR[ecr]|4                                                 
 dates.needed.thru            8 DATE     L                 :ECR[ecr]|5                                                 
 reason.for.request          40 FREE     L                 :ECR[ecr]|3                                                 
 request.comment             40 FREE     L                 :ECR[ecr]|6                                                 
 request.date                 8 DATE     L                 :ECR[ecr]|8                                                 
 request.priority             1 FREE     L                 :ECR[ecr]|7                                                 
 requestor                   10 FREE     L  MIS.USER       :ECR[ecr]|0                                             
 requestor.name              30                            VAL=@MIS.USER.name[@requestor]                              
 requestors.email            60 FREE     L                 :ECR[ecr]|2                                                 
 requestors.location         10 FREE     L  MIS.USER.LOCN  :ECR[ecr]|9                                             
 requestors.phone            18 PHONE    L                 :ECR[ecr]|1                                                 
 Ì     i   2
charts.requested    (charts.requested) 
[request.no, chart.seq.no]
:ECR[ecr]CH[ecrN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 chart.seq.no                 4 PINT     R                 ecrN                                                        
 chart.age                    7 AGE      L                 :ECR[ecr]CH[ecrN]|4                                         
 chart.date.approved.from     8 DATE     L                 :ECR[ecr]CH[ecrN]|11                                        
 chart.date.approved.thru     8 DATE     L                 :ECR[ecr]CH[ecrN]|12                                        
 chart.dob                    8 BDATE    L                 :ECR[ecr]CH[ecrN]|3                                         
 chart.medical.record        25 FREE     L                 :ECR[ecr]CH[ecrN]|1                                         
 chart.name                  25 FREE     L                 :ECR[ecr]CH[ecrN]|0                                         
 chart.req.active             1 YN       L                 :ECR[ecr]CH[ecrN]|10                                        
 chart.req.ea.found          25 URN      L  MRI.PAT        :ECR[ecr]CH[ecrN]|9                                     
 chart.req.status             9 CHOICE   L                 :ECR[ecr]CH[ecrN]|7                                         
 chart.req.status.comment    40 FREE     L                 :ECR[ecr]CH[ecrN]|13                                        
 chart.req.status.date        8 DATE     L                 :ECR[ecr]CH[ecrN]|8                                         
 chart.sex                    1 FREE     L                 :ECR[ecr]CH[ecrN]|2                                         
 chart.soc                   12 FREE     L                 :ECR[ecr]CH[ecrN]|5                                         
 incl.all                     1 YN       L                 :ECR[ecr]CH[ecrN]|14                                        
 Ì     i   2
chart.activity    (activity) 
[request.no,chart.seq.no, activity.date,activity.number]
:ECR[ecr]CH[ecrN]A[ecrD,ecrAN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 activity.date                8 DATE     L                 ecrD                                                        
 activity.number              3 PINT     R                 ecrAN                                                       
 activity.comment            40 FREE     L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|2                            
 activity.event              20 FREE     L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|4                            
 activity.oa.msg             10 FREE     L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|5                            
 activity.time                4 HHMM     L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|3                            
 activity.type               15 CHOICE   L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|1                            
 activity.user               10 FREE     L  MIS.USER       :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]|0                        
 Ì     i   2
chart.visit.activity    (activity.visits) 
[request.no,chart.seq.no,activity.date,activity.number, activity.vs.number]
:ECR[ecr]CH[ecrN]A[ecrD,ecrAN]V[ecrVN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 activity.vs.number           8 PINT     R                 ecrVN                                                       
 activity.acct.number        12 FREE     L                 :ECR[ecr]CH[ecrN]A[ecrD,ecrAN]V[ecrVN]|0                    
 Ì     i   2
chart.visit.dates    (chart.visit.dates) 
[request.no,chart.seq.no, chart.visit.subscript]
:ECR[ecr]CH[ecrN]D[ecvD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 chart.visit.subscript        0 FREE     L                 ecvD                                                        
 chart.visit.acct.num        12 FREE     L                 VAL=(@chart.visit.sub#"2|")                                 
 chart.visit.date             8 DATE     L                 VAL=(99999999-(@chart.visit.sub#"0|"$8)<99999999)        
 chart.visit.dis.date         8 DATE     L                 VAL=@MRI.PAT.visit.discharge.date[@chart.req.ea.found,      
                                                           VAL=@chart.visit.sub]                                       
 chart.visit.doctor          10 FREE     L                 VAL=@MRI.PAT.visit.doctor[@chart.req.ea.found,@chart.v      
                                                           VAL=isit.sub]                                               
 chart.visit.images           1 YN       L                 :ECR[ecr]CH[ecrN]D[ecvD]|1                                  
 chart.visit.include          1 YN       L                 :ECR[ecr]CH[ecrN]D[ecvD]|0                                  
 chart.visit.location        10 FREE     L                 VAL=@MRI.PAT.visit.location[@chart.req.ea.found,@chart      
                                                           VAL=.visit.sub]                                             
 chart.visit.sub              0 FREE     L                 :ECR[ecr]CH[ecrN]D[ecvD]|2                                  
 chart.visit.type             3 CHOICE   L                 VAL=(@chart.visit.sub#"1|")                                 
 Ì     i   2
proc.closed.charts    (proc.closed.charts) 
[pr.cchart.sort,pr.cchart.mrm.urn]
/ECRC[ecrS,hga]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pr.cchart.sort              35 FREE     L                 ecrS                                                        
 pr.cchart.mrm.urn           10 PINT     R                 hga                                                         
 pr.cchart.acct              12 FREE     L                 /ECRC[ecrS,hga]|2                                           
 pr.cchart.date               8 DATE     L                 /ECRC[ecrS,hga]|0                                           
 pr.cchart.forms              4 FREE     L                 /ECRC[ecrS,hga]|4                                           
 pr.cchart.medical.record    10 FREE     L                 /ECRC[ecrS,hga]|3                                           
 pr.cchart.mri.urn           25 URN      L                 /ECRC[ecrS,hga]|5                                           
 pr.cchart.mri.vs             0 FREE     L                 /ECRC[ecrS,hga]|6                                           
 pr.cchart.mrm.doc.urn       12 PINT     R                 /ECRC[ecrS,hga]|7                                           
 pr.cchart.name              25 FREE     L                 /ECRC[ecrS,hga]|1                                           
 Ì     i   2
temp.visits    (visits.temp) 
[vs.subscript]
/VSTMP[eaVS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 vs.subscript                 4 PINT     R                 eaVS                                                        
 incl.vs                      1 YN       L                 /VSTMP[eaVS]|9                                              
 mri.visit.subscript          0 FREE     L                 /VSTMP[eaVS]|8                                              
 vs.acct.number              12 FREE     L                 /VSTMP[eaVS]|3                                              
 vs.date                      8 DATE     L                 /VSTMP[eaVS]|0                                              
 vs.discharge.date            8 DATE     L                 /VSTMP[eaVS]|6                                              
 vs.doctor                   10 FREE     L  MIS.DOC.DICT   /VSTMP[eaVS]|5                                          
 vs.image                     1 YN       L                 /VSTMP[eaVS]|7                                              
 vs.location                 10 FREE     L  MIS.LOCN.DICT  /VSTMP[eaVS]|4                                          
 vs.time                      4 HHMM     L                 /VSTMP[eaVS]|1                                              
 vs.type                      3 CHOICE   L                 /VSTMP[eaVS]|2                                              
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 requestor.chart.index              [requestor,request.no,chart.seq.no]
   requestor.chart.x                  ?ERCI[gu,ecr,ecrN]

 requestor.patient.index            [requestor,chart.req.ea.found]
   requestor.patient.x                ?ECPTRX[gu,ea]

 requestor.status.index             [requestor,chart.medical.record,request.no,chart.seq.no,chart.req.status,chart.r
   requestor.status.x                 ?ECRST[gu,ecmR,ecr,ecrN,ecrST,ecrDT]

 submitted.index                    [request.no,chart.seq.no]
   submitted.x                        ?ECSUB[ecr,ecrN]