sHelp
                                     RAD.ORD
     i   2
 activity.x
 history.head
   history
     historical.acr.codes
     historical.acr.comments
     historical.pacs
     historical.pacs.numbers
     history.impressions
     history.pictures
       history.pic.annotations
 inv.item.deducts
 inv.item.rejects
 letter.x
 main
   acr.codes
   acr.comments
   billing.data
   clinical.alerts
     clinical.alerts.details
   doc.copies
   duplicate.data
   edit.data
   exam.comments
   materials
     repeats
   findings
     findings.classes
       findings.members
         findings.findings
   icd.modifiers
   icd.prof.modifiers
   impressions
   ins.copies
   mri.follow.ups
   mri.follow.ups.resolved
   other.copies
   pacs
     pacs.numbers
   pc.billing.data
   peer.reviews
     peer.review.text
   pictures
   rcp.copies
   reprint
   responses
     responses.multiple
   user.pictures
     user.pic.annotations
     user.pic.text
   views
   workload.functions
 mm.queue.materials
 oe.activity
 oe.log
 peer.review.summary
 xi.pacs.numbers
 xi.pacs.urls

 Ì     i   2
activity.x
[activity.seconds,activity.q]
?(R)ROA[roaS,roaQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 activity.seconds             9 PINT     R                 roaS                                                        
 activity.q                   3 PINT     R                 roaQ                                                        
 activity.report.status       9 CHOICE   L                 ?(R)ROA[roaS,roaQ]|3                                        
 activity.report.urn         10 URN      L  RAD.RES        ?(R)ROA[roaS,roaQ]|2                                    
 activity.status             10 CHOICE   L                 ?(R)ROA[roaS,roaQ]|1                                        
 activity.urn                15 URN      L  RAD.ORD        ?(R)ROA[roaS,roaQ]|0                                    
 activity.user               10 FREE     L  MIS.USER       ?(R)ROA[roaS,roaQ]|4                                    
 Ì     i   2
history.head
[hx.mri.urn]
*(R2)ROHX[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.mri.urn                  25 URN      L  MRI.PAT        ea                                                      
 Ì   €   i   2
history
[hx.mri.urn,  hx.dept,hx.service.date,hx.pt,hx.urn]
*(R2)ROHX[ea,rd,roSD,aa,ro]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.dept                     10 FREE     L  RAD.DEPT       rd                                                      
 hx.service.date              8 DATE     L                 roSD                                                        
 hx.pt                       30 URN      L  ADM.PAT        aa                                                      
 hx.urn                       0 URN      L                 ro                                                          
 hx.cat                      10 FREE     L  RAD.CAT        *(R2)ROHX[ea,rd,roSD,aa,ro]|0                           
 hx.codes                    60 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|8                               
 hx.conversion                1 YN       L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|9                               
 hx.doctor                   10 FREE     L  MIS.DOC        *(R2)ROHX[ea,rd,roSD,aa,ro]|5                           
 hx.ft.doc.addr              30 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|1                             
 hx.ft.doc.addr2             30 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|2                             
 hx.ft.doc.city              30 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|3                             
 hx.ft.doc.email             40 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|7                             
 hx.ft.doc.fax               24 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|8                             
 hx.ft.doc.name              30 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|0                             
 hx.ft.doc.phone             18 PHONE    L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|6                             
 hx.ft.doc.state              2 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|4                             
 hx.ft.doc.zip               10 ZIP.POST L                 *(R2)ROHX[ea,rd,roSD,aa,ro]DA|5                             
 hx.imp.by                   40 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]I|0                              
 hx.last.status              16 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|10                              
 hx.order.num                10 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|7                               
 hx.other.num                10 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|4                               
 hx.proc                     10 FREE     L  RAD.PROC       *(R2)ROHX[ea,rd,roSD,aa,ro]|1                           
 hx.quantity                  3 PINT     R                 *(R2)ROHX[ea,rd,roSD,aa,ro]|2                               
 hx.report                   10 FREE     L  RAD.REPORT     *(R2)ROHX[ea,rd,roSD,aa,ro]|3                           
 hx.report.num               10 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|17                              
 hx.report.site              10 FREE     L  RAD.SITE       *(R2)ROHX[ea,rd,roSD,aa,ro]|18                          
 hx.report.urn               10 URN      L  RAD.RES        *(R2)ROHX[ea,rd,roSD,aa,ro]|16                          
 hx.req.num                  10 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|6                               
 hx.rpt.last.status           9 CHOICE   L                 *(R2)ROHX[ea,rd,roSD,aa,ro]|11                              
 hx.site                     10 FREE     L  RAD.SITE       *(R2)ROHX[ea,rd,roSD,aa,ro]|15                          
 Ì   €   i   2
historical.acr.codes
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.acr.code.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]A[rohAQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.acr.code.q                2 PINT     R                 rohAQ                                                       
 hx.acr.code                 14 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]A[rohAQ]                         
 Ì   €   i   2
historical.acr.comments
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.acr.comment.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]AC[rohAC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.acr.comment.q             2 PINT     R                 rohAC                                                       
 hx.acr.comment              60 TEXT     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]AC[rohAC]                        
 Ì   €   i   2
historical.pacs
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.pacs.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]HXPACS[rohHP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.pacs.q                    2 PINT     R                 rohHP                                                       
 hx.pacs.id                  39 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]HXPACS[rohHP]|0                  
 hx.pacs.image.ct             3 INT      R                 *(R2)ROHX[ea,rd,roSD,aa,ro]HXPACS[rohHP]|1                  
 hx.pacs.source              10 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]HXPACS[rohHP]|2                  
 hx.pacs.status              10 CHOICE   L                 *(R2)ROHX[ea,rd,roSD,aa,ro]HXPACS[rohHP]|3                  
 Ì   €   i   2
historical.pacs.numbers
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.pacs.num.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]PACS[rohPX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.pacs.num.q                2 PINT     R                 rohPX                                                       
 hx.pacs.number              16 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]PACS[rohPX]|0                    
 Ì   €   i   2
history.impressions
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.imp.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]I[rohxI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.imp.q                     3 PINT     R                 rohxI                                                       
 hx.imp                      80 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]I[rohxI]                         
 Ì   €   i   2
history.pictures
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,  hx.picture]
*(R2)ROHX[ea,rd,roSD,aa,ro]P[geg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.picture                  15 FREE     L  MIS.PICTURE    geg                                                     
 hx.picture.added            10 PINT     R                 *(R2)ROHX[ea,rd,roSD,aa,ro]P[geg]|0                         
 Ì   €   i   2
history.pic.annotations
[hx.mri.urn,hx.dept,hx.service.date,hx.pt,hx.urn,hx.picture,  hx.pic.ann.q]
*(R2)ROHX[ea,rd,roSD,aa,ro]P[geg]A[gegAQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 hx.pic.ann.q                 2 PINT     R                 gegAQ                                                       
 hx.pic.annotation          200 FREE     L                 *(R2)ROHX[ea,rd,roSD,aa,ro]P[geg]A[gegAQ]                   
 Ì     i   2
inv.item.deducts
[inv.ded.inventory,inv.ded.date,inv.ded.item]
?(R)ROID[mi,miDD,mt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv.ded.inventory           10 FREE     L  MM.INVENT      mi                                                      
 inv.ded.date                 8 DATE     L                 miDD                                                        
 inv.ded.item                43 URN      L  MM.ITEM        mt                                                      
 inv.ded.qty                  6 PINT     R                 ?(R)ROID[mi,miDD,mt]|0                                      
 Ì     i   2
inv.item.rejects
[inv.rej.inventory,inv.rej.date,inv.rej.q]
?(R)ROIR[mi,miRD,miRQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv.rej.inventory           10 FREE     L  MM.INVENT      mi                                                      
 inv.rej.date                 8 DATE     L                 miRD                                                        
 inv.rej.q                    3 PINT     R                 miRQ                                                        
 inv.rej.item                43 URN      L  MM.ITEM        ?(R)ROIR[mi,miRD,miRQ]|0                                
 inv.rej.msg                 50 FREE     L                 ?(R)ROIR[mi,miRD,miRQ]|3                                    
 inv.rej.qty                  4 PINT     R                 ?(R)ROIR[mi,miRD,miRQ]|2                                    
 inv.rej.stock               18 URN      L  MM.STOCK       ?(R)ROIR[mi,miRD,miRQ]|1                                
 Ì     i   2
letter.x
[letter.date,letter.order,letter.type,letter.code]
?(R)ROL[roLD,ro,roLT,roLC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 letter.date                  8 DATE     L                 roLD                                                        
 letter.order                15 URN      L  RAD.ORD        ro                                                      
 letter.type                  1 CHOICE   L                 roLT                                                        
 letter.code                 10 FREE     L                 roLC                                                        
 letter.index                 8 DATE     L                 ?(R)ROL[roLD,ro,roLT,roLC]|0                                
 letter.index.user           10 FREE     L  MIS.USER       ?(R)ROL[roLD,ro,roLT,roLC]|1                            
 letter.patient               8 DATE     L                 ?(R)ROL[roLD,ro,roLT,roLC]|2                                
 letter.patient.user         10 FREE     L  MIS.USER       ?(R)ROL[roLD,ro,roLT,roLC]|3                            
 letter.provider              8 DATE     L                 ?(R)ROL[roLD,ro,roLT,roLC]|4                                
 letter.provider.user        10 FREE     L  MIS.USER       ?(R)ROL[roLD,ro,roLT,roLC]|5                            
 Ì     i   2
main
[urn]
$(R)RO[ro]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                         15 URN      L                 ro                                                          
 archive.date                 8 DATE     L                 $(R)RO[ro]A|5                                               
 arrive.time                  4 HHMM     L                 $(R)RO[ro]EX|11                                             
 bill.on.status               1 FREE     L                 $(R)RO[ro]|8                                                
 cancel.comment              60 FREE     L                 $(R)RO[ro]XC|9                                              
 cancel.date                  8 DATE     L                 $(R)RO[ro]XC|6                                              
 cancel.device               15 FREE     L                 $(R)RO[ro]XC|8                                              
 cancel.rank                  1 INT      R                 VAL=(L("RQTRDNCNDLRJ",@cancel.status)/2)                    
 cancel.req.comment          60 FREE     L                 $(R)RO[ro]XC|4                                              
 cancel.req.date              8 DATE     L                 $(R)RO[ro]XC|1                                              
 cancel.req.device           15 FREE     L                 $(R)RO[ro]XC|3                                              
 cancel.req.time              4 HHMM     L                 $(R)RO[ro]XC|2                                              
 cancel.req.user             10 FREE     L  MIS.USER       $(R)RO[ro]XC|0                                          
 cancel.status                2 CHOICE   L                 $(R)RO[ro]XC|10                                             
 cancel.time                  4 HHMM     L                 $(R)RO[ro]XC|7                                              
 cancel.user                 10 FREE     L  MIS.USER       $(R)RO[ro]XC|5                                          
 cat.screen                  15 FREE     L  MIS.SCREEN     $(R)RO[ro]R|0                                           
 category                    10 FREE     L  RAD.CAT        $(R)RO[ro]|5                                            
 category.name               30 FREE     L                 VAL=@RAD.CAT.name[@category]                                
 category.type                1 FREE     L                 VAL=@RAD.CAT.type[@category]#0                              
 class                       10 FREE     L                 VAL=@RAD.PROC.class[@category,@procedure]                   
 comp.date                    8 DATE     L                 $(R)RO[ro]S|3                                               
 comp.order.num              13 FREE     L                 VAL=(@service.date_(@order.num%3))                          
 comp.time                    4 HHMM     L                 $(R)RO[ro]S|4                                               
 comp.user                   10 FREE     L  MIS.USER       $(R)RO[ro]S|5                                           
 copied.to.order             15 URN      L  RAD.ORD        $(R)RO[ro]AA|0                                          
 day.of.stay                  3 INT      R                 VAL=(%Z.date.sub(@service.date,@ADM.PAT.admit.date[@pa      
                                                           VAL=tient])+1<10000)                                     
 days.old                     3 INT      R                 VAL=(%Z.date.sub(@.today,@service.date)+1)                  
 depart.date                  8 DATE     L                 $(R)RO[ro]EX|12                                             
 depart.seconds               9 PINT     R                 VAL=%Z.date.clinical(@depart.date)*86400+%Z.time.in(@d      
                                                           VAL=epart.time)                                             
 depart.time                  4 HHMM     L                 $(R)RO[ro]EX|13                                             
 dept                        10 FREE     L  RAD.DEPT       VAL=@RAD.CAT.dept[@category]                            
 dept.name                   30 FREE     L                 VAL=@RAD.DEPT.name[@dept]                                   
 dept.num                    10 FREE     L                 VAL=%RAD.MRI.dept.number(@patient,@dept,"","",@site)        
 dept.or.unit.num            10 FREE     L                 VAL=%RAD.MRI.dept.or.unit.number(@patient,@dept,"","",      
                                                           VAL=@site)                                                  
 device                      15 FREE     L                 $(R)RO[ro]|17                                               
 dictated.by                 10 FREE     L  MIS.DOC        VAL=@RAD.RES.dictated.by[@report.urn]                   
 dictated.by.name            30 FREE     L                 VAL=IF{@RAD.RES.dictated.by[@report.urn]^XX$2="U " @MI      
                                                           VAL=S.USER.name[XX];@MIS.DOC.name[XX]}                      
 doctor                      10 FREE     L  MIS.DOC        $(R)RO[ro]|4                                            
 doctor.address              30 FREE     L                 VAL=IF{@ft.doc.addr;@doctor^doc,@MIS.DOC.address}           
 doctor.address2             30 FREE     L                 VAL=IF{@ft.doc.addr2;@doctor^doc,@MIS.DOC.address2}         
 doctor.city                 30 FREE     L                 VAL=IF{@ft.doc.city;@doctor^doc,@MIS.DOC.city}              
 doctor.email                40 FREE     L                 VAL=IF{@ft.doc.email;@doctor^doc,@MIS.DOC.email}            
 doctor.name                 30 FREE     L                 VAL=IF{@ft.doc.name;@MIS.DOC.name[@doctor]}                 
 doctor.name.first           30 FREE     L                 VAL=@doctor.name#"1,"                                       
 doctor.name.invert          30 FREE     L                 VAL=%Z.name.inversion(@doctor.name)                         
 doctor.name.last            30 FREE     L                 VAL=@doctor.name#"0,"                                       
 doctor.phone                18 PHONE    L                 VAL=IF{@ft.doc.phone;@doctor^doc,@MIS.DOC.phone}            
 doctor.state                 2 FREE     L                 VAL=IF{@ft.doc.state;@doctor^doc,@MIS.DOC.state}            
 doctor.zip                  10 ZIP.POST L                 VAL=IF{@ft.doc.zip;@doctor^doc,@MIS.DOC.zip}                
 dup.date.and.time            8 FREE     L                 $(R)RO[ro]|18                                               
 dup.reason                  60 FREE     L                 $(R)RO[ro]XD                                                
 edit.reprint.msg             1 FREE     L                 VAL=IF{/FILE.VAL|1="Y" "(REPRINT)";/FILE.VAL|1="E" "(E      
                                                           VAL=DITED)"}                                                
 end.date                     8 DATE     L                 $(R)RO[ro]EX|6                                              
 end.seconds                  9 PINT     R                 VAL=%Z.date.clinical(@end.date)*86400+%Z.time.in(@end.      
                                                           VAL=time)                                                   
 end.time                     4 HHMM     L                 $(R)RO[ro]EX|7                                              
 exam.result                 10 FREE     L  RAD.RESULT     $(R)RO[ro]EX|14                                         
 exam.result.date             8 DATE     L                 $(R)RO[ro]EX|15                                             
 exam.room                   10 FREE     L  RAD.ROOM       $(R)RO[ro]EX|3                                          
 film.type                    2 CHOICE   L                                                                             
 follow.up                   10 FREE     L  RAD.FOLLOW     $(R)RO[ro]EX|16                                         
 follow.up.date               8 DATE     L                 $(R)RO[ro]EX|17                                             
 from.oe                     10 URN      L  OE.ORD         $(R)RO[ro]A|13                                          
 ft.doc.addr                 30 FREE     L                 $(R)RO[ro]DA|1                                              
 ft.doc.addr2                30 FREE     L                 $(R)RO[ro]DA|2                                              
 ft.doc.city                 30 FREE     L                 $(R)RO[ro]DA|3                                              
 ft.doc.email                40 FREE     L                 $(R)RO[ro]DA|7                                              
 ft.doc.fax                  24 FREE     L                 $(R)RO[ro]DA|8                                              
 ft.doc.name                 30 FREE     L                 $(R)RO[ro]DA|0                                              
 ft.doc.phone                18 PHONE    L                 $(R)RO[ro]DA|6                                              
 ft.doc.postal               10 ZIP.POST L                 $(R)RO[ro]DA|5                                              
 ft.doc.province              2 FREE     L                 $(R)RO[ro]DA|4                                              
 ft.doc.state                 2 FREE     L                 $(R)RO[ro]DA|4                                              
 ft.doc.zip                  10 ZIP.POST L                 $(R)RO[ro]DA|5                                              
 gl.amount                    9 SMONEY   R                 $(R)RO[ro]GL|0                                              
 group.by.3                   0 FREE     L                 VAL=ord.q-1/3+1                                             
 group.by.3.order.1          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*3+1]                        
 group.by.3.order.2          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*3+2]                        
 group.by.3.order.3          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*3+3]                        
 group.by.4                   0 FREE     L                 VAL=ord.q-1/4+1                                             
 group.by.4.order.1          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*4+1]                        
 group.by.4.order.2          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*4+2]                        
 group.by.4.order.3          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*4+3]                        
 group.by.4.order.4          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*4+4]                        
 group.by.5                   0 FREE     L                 VAL=ord.q-1/5+1                                             
 group.by.5.order.1          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*5+1]                        
 group.by.5.order.2          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*5+2]                        
 group.by.5.order.3          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*5+3]                        
 group.by.5.order.4          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*5+4]                        
 group.by.5.order.5          15 URN      L  RAD.ORD        VAL=@temp.order.x[group.q-1*5+5]                        
 icd.bill.proc               10 FREE     L  BAR.PROC       $(R)RO[ro]ICD|12                                        
 icd.code                     7 FREE     L                 $(R)RO[ro]ICD|0                                             
 icd.comment                 60 FREE     L                 $(R)RO[ro]ICD|3                                             
 icd.cpt                     10 FREE     L  MIS.CPT        $(R)RO[ro]ICD|9                                         
 icd.oe.cmt.asked             1 YN       L                 $(R)RO[ro]ICD|11                                            
 icd.printed                  1 YN       L                 $(R)RO[ro]ICD|8                                             
 icd.prof.bill.proc          10 FREE     L  BAR.PROC       $(R)RO[ro]ICD|13                                        
 icd.prof.code                7 FREE     L                 $(R)RO[ro]ICD|4                                             
 icd.prof.comment            60 FREE     L                 $(R)RO[ro]ICD|7                                             
 icd.prof.cpt                10 FREE     L  MIS.CPT        $(R)RO[ro]ICD|10                                        
 icd.prof.reject              1 CHOICE   L                 $(R)RO[ro]ICD|5                                             
 icd.prof.sign                1 YN       L                 $(R)RO[ro]ICD|6                                             
 icd.reject                   1 CHOICE   L                 $(R)RO[ro]ICD|1                                             
 icd.sign                     1 YN       L                 $(R)RO[ro]ICD|2                                             
 impression.by               40 FREE     L                 $(R)RO[ro]I|0                                               
 in.pro.date                  8 DATE     L                 $(R)RO[ro]S|0                                               
 in.pro.time                  4 HHMM     L                 $(R)RO[ro]S|1                                               
 in.pro.user                 10 FREE     L  MIS.USER       $(R)RO[ro]S|2                                           
 inp.service.time             4 FREE     L                 $(R)RO[ro]|11                                               
 jacket.urn                  10 FREE     L                 $(R)RO[ro]A|3                                               
 lab.spec.urn                30 URN      L  LAB.L.SPEC     $(R)RO[ro]A|16                                          
 label.priority               4 FREE     L                 VAL=(IF{@priority ("STAT,URG,ROUT"#(L("SUR",@priority)      
                                                           VAL=_","))})                                                
 label.status.10             10 FREE     L                 VAL=%RAD.ORD.status(urn,10,1)                               
 label.status.10.cr          10 FREE     L                 VAL=%RAD.ORD.status(urn,10)                                 
 label.status.10.cr.buf      10 FREE     L                 VAL=%RAD.ORD.status(urn,10,"",rank.status)                  
 label.status.6               6 FREE     L                 VAL=%RAD.ORD.status(urn,6,1)                                
 label.status.6.cr            6 FREE     L                 VAL=%RAD.ORD.status(urn,6)                                  
 label.status.6.cr.buf        6 FREE     L                 VAL=%RAD.ORD.status(urn,6,"",rank.status)                   
 last.sent.to.hub             9 PINT     R                 $(R)RO[ro]S|9                                               
 library.path                10 FREE     L  RAD.LIBPATH    $(R)RO[ro]A|10                                          
 loc.sign.in.status          10 CHOICE   L                 VAL=".Logged.In Process.Taken.Complete.Resulted"#(@loc      
                                                           VAL=.sign.in.status.rank_.)                                 
 loc.sign.in.status.rank      1 CHOICE   L                 $(R)RO[ro]A|9                                               
 locator.code                10 FREE     L  RAD.LC         $(R)RO[ro]A|8                                           
 man.ent.perf.phys           10 FREE     L  MIS.DOC        $(R)RO[ro]A|15                                          
 master.jacket                3 PINT     R                 $(R)RO[ro]A|0                                               
 material.type                9 CHOICE   L                                                                             
 meal.time.rank               1 INT      R                                                                             
 med.rec.form                15 FREE     L  MIS.MR.FORM    $(R)RO[ro]AA|6                                          
 mic.spec.urn                30 URN      L  LAB.M.SPEC     $(R)RO[ro]A|17                                          
 mj.number                   30 FREE     L                 VAL=""                                                      
 mm.count                     3 INT      R                 $(R)RO[ro]A|11                                              
 mri.urn                     10 FREE     L                 VAL=@ADM.PAT.mri.urn[@patient]                              
 oe.can.request.rejected      1 YN       L                 $(R)RO[ro]A|7                                               
 oe.cancel.request.rsn       60 FREE     L                 $(R)RO[ro]A|4                                               
 oe.comp.request.rejected     1 YN       L                 $(R)RO[ro]AA|3                                              
 oe.complete.request.rsn     60 FREE     L                 $(R)RO[ro]AA|2                                              
 oe.order.urn                10 URN      L  OE.ORD         $(R)RO[ro]|30                                           
 om.order.block              20 FREE     L                 $(R)RO[ro]AA|4                                              
 om.order.urn                10 URN      L                 $(R)RO[ro]|33                                               
 om.stop.flag                 1 YN       L                 $(R)RO[ro]|34                                               
 order.date                   8 DATE     L                 $(R)RO[ro]|0                                                
 order.num                    9 FREE     L                 $(R)RO[ro]|12                                               
 order.num.bar               13 BAR.CODE L                 VAL=@comp.order.num                                         
 order.source                10 FREE     L  MIS.SOURCE     $(R)RO[ro]AA|5                                          
 order.time                   4 HHMM     L                 $(R)RO[ro]|1                                                
 origin                       2 CHOICE   L                 $(R)RO[ro]|21                                               
 outcome                     10 FREE     L  RAD.OUTCOME    $(R)RO[ro]EX|18                                         
 outcome.date                 8 DATE     L                 $(R)RO[ro]EX|19                                             
 ov.id                       10 FREE     L                 $(R)RO[ro]|31                                               
 ov.sender                   12 FREE     L                 $(R)RO[ro]|32                                               
 page.hdr.w.pt                0 FREE     L                 VAL=%RAD.PRT.prt.patient("")                                
 page.hdr.w.pt.nur            0 FREE     L                 VAL=%RAD.PRT.prt.patient({1})                               
 page.hdr.w.pt.nur.cat        0 FREE     L                 VAL=%RAD.PRT.prt.patient({1,1})                             
 parent.order                15 URN      L  RAD.ORD        $(R)RO[ro]A|14                                          
 patient                     43 FREE     L  RAD.PAT        $(R)RO[ro]|3                                            
 patient.location            10 FREE     L                 VAL=@RAD.PAT.location[@patient]                             
 patient.type                 3 FREE     L                 VAL=IF{@RAD.PAT.status^ST="ADM IN"!(ST="DIS IN") "IN";      
                                                           VAL=ST#2A="ER";ST "OUT"}                                    
 pc.bill.on.status            6 FREE     L                 $(R)RO[ro]|25                                               
 pc.proc.number              10 FREE     L                 $(R)RO[ro]|24                                               
 pc.unit.price                9 MONEY    R                 $(R)RO[ro]|26                                               
 performing.dr               10 FREE     L  MIS.DOC                                                                
 pre.report.status            1 CHOICE   L                 $(R)RO[ro]A|6                                               
 prev.cat.ord.number          9 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,6)                      
 prev.cat.ord.proc.mne       10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,2)                      
 prev.cat.ord.proc.name      30 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,1)                      
 prev.cat.ord.req.num         9 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,9)                      
 prev.cat.ord.site.mne       10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,8)                      
 prev.cat.ord.site.name      30 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,7)                      
 prev.cat.ord.status         10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,3)                      
 prev.cat.ord.svc.date        8 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,4)                      
 prev.cat.ord.svc.time        4 HHMM     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,5)                      
 prev.dept.ord.number         9 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,6,1)                    
 prev.dept.ord.proc.mne      10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,2,1)                    
 prev.dept.ord.proc.name     30 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,1,1)                    
 prev.dept.ord.req.num        9 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,9,1)                    
 prev.dept.ord.site.mne      10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,8,1)                    
 prev.dept.ord.site.name     30 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,7,1)                    
 prev.dept.ord.status        10 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,3,1)                    
 prev.dept.ord.svc.date       8 FREE     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,4,1)                    
 prev.dept.ord.svc.time       4 HHMM     L                 VAL=%RAD.ORD.prev.order(RAD.ORD.urn,5,1)                    
 print.destination           15 FREE     L                                                                             
 print.format                10 FREE     L                                                                             
 print.format.text            0 FREE     L                 VAL=%RAD.PRT.prt.proc.dest.text(RAD.ORD.urn)                
 print.message                0 FREE     L                 VAL=%RAD.ORD.prt.macros.M.message(RAD.ORD.urn)              
 print.proc.queries           0 FREE     L                 VAL=IF{@RAD.ORD.proc.order.screen %MIS.SCREEN.print(@R      
                                                           VAL=AD.ORD.proc.order.screen,^@Root(@RAD.ORD.responses      
                                                           VAL=),1,0)}                                                 
 print.trailer                0 FREE     L                 VAL=%RAD.PRT.prt.trailer(RAD.ORD.urn)                       
 priority                     1 CHOICE   L                 $(R)RO[ro]|13                                               
 priority.7                   7 FREE     L                 VAL=.Stat.Urgent.Routine#(L(.SUR,@RAD.ORD.priority)_.)      
 proc.number                 10 FREE     L                 $(R)RO[ro]|7                                                
 proc.order.screen           15 FREE     L  MIS.SCREEN     $(R)RO[ro]R|1                                           
 proc.screen.size             2 INT      R                 VAL=IF{@RAD.ORD.proc.order.screen^MIS.SCREEN.mnemonic_      
                                                           VAL=.=. 0;@Last(MIS.SCREEN.print.index);@Last(MIS.SCRE      
                                                           VAL=EN.sect.page)*@MIS.SCREEN.max.rows.used}                
 procedure                   10 FREE     L  RAD.PROC       $(R)RO[ro]|6                                            
 procedure.mnemonic          10 FREE     L                 VAL=@RAD.PROC.mnemonic[@category,@procedure]                
 procedure.name              30 FREE     L                 VAL=@RAD.PROC.name[@category,@procedure]                    
 pt.location                 10 FREE     L  RAD.ROOM       $(R)RO[ro]EX|2                                          
 pth.spec.urn                30 URN      L  LAB.P.SPEC     $(R)RO[ro]A|12                                          
 quantity                     3 PINT     R                 $(R)RO[ro]|14                                               
 quest.screen                15 FREE     L  MIS.SCREEN     $(R)RO[ro]R|3                                           
 rad                          1 YN       L                 $(R)RO[ro]|29                                               
 rad.dose                     8 PDEC     R                 $(R)RO[ro]EX|20                                             
 rank.bill.on.status          1 INT      R                 VAL=(IF{@bill.on.status L("XLITCR",@bill.on.status#0)}      
                                                           VAL=)                                                       
 rank.pc.bill.on.status       1 INT      R                 VAL=(IF{@pc.bill.on.status IF{L("CPDIHAS",@pc.bill.on.      
                                                           VAL=status#0)'>3;4}})                                    
 rank.status                  1 INT      R                 VAL=L("XLITCR",@status)                                     
 rank.wkld.bill.on.status     1 PINT     R                 VAL=(IF{@wkld.bill.on.status L("XLITCR",@wkld.bill.on.      
                                                           VAL=status#0)})                                             
 record.procedure.date        8 DATE     L                 $(R)RO[ro]EX|21                                             
 report.status                6 FREE     L                 VAL=IF{@RAD.RES.status[@RAD.ORD.report.urn]^XX "Canc,P      
                                                           VAL=end,Draft,ISignd,HAdden,Adden,Signed"#(L("CPDIHAS"      
                                                           VAL=,XX#0)_",")}                                            
 report.urn                  10 URN      L  RAD.RES        $(R)RO[ro]|23                                           
 req.dept                    10 FREE     L  RAD.DEPT       $(R)RO[ro]|20                                           
 req.number                  10 FREE     L                 $(R)RO[ro]REQNUM                                            
 req.number.bar              10 BAR.CODE L                 VAL=@req.number.padded                                      
 req.number.padded           10 FREE     L                 VAL=@RAD.ORD.req.number^x$"1-"_(x#"1-"+10000000%0)          
 res.req.chk                  1 YN       L                 VAL=IF{"Y"=c.yn IF{@RAD.PROC.proc.result.required[@cat      
                                                           VAL=egory,@procedure];@RAD.CAT.result.required[@catego      
                                                           VAL=ry]};"Y"}                                               
 result.date                  8 DATE     L                 $(R)RO[ro]S|6                                               
 result.time                  4 HHMM     L                 $(R)RO[ro]S|7                                               
 result.user                 10 FREE     L  MIS.USER       $(R)RO[ro]S|8                                           
 room.date                    8 DATE     L                 $(R)RO[ro]EX|8                                              
 room.seconds                 9 PINT     R                 VAL=%Z.date.clinical(@room.date)*86400+%Z.time.in(@roo      
                                                           VAL=m.time)                                                 
 room.time                    4 HHMM     L                 $(R)RO[ro]EX|10                                             
 service.date                 8 DATE     L                 $(R)RO[ro]|10                                               
 service.time                 4 HHMM     L                 $(R)RO[ro]|11                                               
 site                        10 FREE     L  RAD.SITE       $(R)RO[ro]|28                                           
 sj.number                   30 FREE     L                 VAL=""                                                      
 sort.date                    8 DATE     L                                                                             
 start.date                   8 DATE     L                 $(R)RO[ro]EX|4                                              
 start.seconds                9 PINT     R                 VAL=%Z.date.clinical(@start.date)*86400+%Z.time.in(@st      
                                                           VAL=art.time)                                               
 start.time                   4 HHMM     L                 $(R)RO[ro]EX|5                                              
 status                       1 CHOICE   L                 $(R)RO[ro]|2                                                
 status.prt3                  3 FREE     L                 VAL=("CNC,LOG,IPR,TKN,CMP,RES"#(@rank.status_","))          
 status.qual                  4 FREE     L                 VAL=IF{@cancel.status="TR"!(@cancel.status="RQ") "CNC?      
                                                           VAL="}                                                      
 stock.location              10 FREE     L  MIS.LOCN       $(R)RO[ro]|19                                           
 subjacket                    3 PINT     R                 $(R)RO[ro]A|1                                               
 subjacket.sort              30 FREE     L                 $(R)RO[ro]A|2                                               
 tech.2                      10 FREE     L  MIS.USER       $(R)RO[ro]EX|0                                          
 tech.3                      10 FREE     L  MIS.USER       $(R)RO[ro]EX|1                                          
 tech.screen                 15 FREE     L  MIS.SCREEN     $(R)RO[ro]R|2                                           
 technologist                10 FREE     L  MIS.USER       $(R)RO[ro]|22                                           
 technologist.monogram        3 FREE     L                 VAL=@UNV.USER.monogram[@technologist]                       
 technologist.name           34 FREE     L                 VAL=@MIS.USER.name[@technologist]                           
 time.block                  60 FREE     L                 $(R)RO[ro]TB                                                
 transport                    1 CHOICE   L                 $(R)RO[ro]EX|9                                              
 unit.price                   9 MONEY    R                 $(R)RO[ro]|9                                                
 user                        10 FREE     L  MIS.USER       $(R)RO[ro]|16                                           
 wkld.bill.on.status          9 FREE     L                 $(R)RO[ro]AA|1                                              
 Ì   €   i   2
acr.codes
[urn,  acr.code.q]
$(R)RO[ro]ACR[roAQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 acr.code.q                   2 PINT     R                 roAQ                                                        
 acr.code                    14 FREE     L                 $(R)RO[ro]ACR[roAQ]                                         
 Ì   €   i   2
acr.comments
[urn,  acr.comment.q]
$(R)RO[ro]AC[roAC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 acr.comment.q                2 PINT     R                 roAC                                                        
 acr.comment                 60 TEXT     L                 $(R)RO[ro]AC[roAC]                                          
 Ì   €   i   2
billing.data
[urn,  bill.date.and.urn]
$(R)RO[ro]B[roBD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 bill.date.and.urn            0 FREE     L                 roBD                                                        
 bill.activity.date           8 DATE     L                 VAL=(@bill.date.and.urn$8)                                  
 bill.amount                  9 MONEY    R                 $(R)RO[ro]B[roBD]|1                                         
 bill.comment                35 FREE     L                 $(R)RO[ro]B[roBD]|6                                         
 bill.comment.or.source      35 FREE     L                 VAL=IF{@bill.comment;@bill.source^XX#0="M" @RAD.MAT.na      
                                                           VAL=me[XX%0];XX#0="W" @RAD.WFCN.name[XX%0]}                 
 bill.credit                  1 YN       L                 $(R)RO[ro]B[roBD]|3                                         
 bill.device                 15 FREE     L                 $(R)RO[ro]B[roBD]|5                                         
 bill.else.order.site        10 FREE     L                 VAL=IF{@bill.site;@site}                                    
 bill.msp.fac.code            5 FREE     L                 $(R)RO[ro]B[roBD]|10                                        
 bill.msp.sub.fac.code        5 FREE     L                 $(R)RO[ro]B[roBD]|11                                        
 bill.post.type               1 CHOICE   L                 $(R)RO[ro]B[roBD]|2                                         
 bill.proc.mat.wfunc         30 FREE     L                 VAL=IF{@bill.source^XX#0="M" @RAD.MAT.name[XX%0];XX#0=      
                                                           VAL="W" @RAD.WFCN.name[XX%0];@RAD.PROC.name[@category,      
                                                           VAL=@procedure]}                                            
 bill.proc.number            10 FREE     L                 $(R)RO[ro]B[roBD]|7                                         
 bill.qty                     3 INT      R                 $(R)RO[ro]B[roBD]|0                                         
 bill.site                   10 FREE     L  RAD.SITE       $(R)RO[ro]B[roBD]|8                                     
 bill.source                 11 FREE     L                 $(R)RO[ro]B[roBD]|9                                         
 bill.user                   10 FREE     L  MIS.USER       $(R)RO[ro]B[roBD]|4                                     
 Ì   €   i   2
clinical.alerts
[urn,  clin.alert]
$(R)RO[ro]CA[gqa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 clin.alert                  10 FREE     L  MIS.CLIN.ALERT gqa                                                     
 Ì   €   i   2
clinical.alerts.details
[urn,clin.alert,  clin.alerts.details]
$(R)RO[ro]CA[gqa]D[aqaDE]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 clin.alerts.details         72 FREE     L                 aqaDE                                                       
 Ì   €   i   2
doc.copies
[urn,  doc.urn]
$(R)RO[ro]CD[cd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 doc.urn                      2 URN      L                 cd                                                          
 doc                         10 FREE     L  MIS.DOC        $(R)RO[ro]CD[cd]|0                                      
 doc.add1                    30 FREE     L                 VAL=%MIS.DOC.get.address(@doc,MIS.DOC.facility,"ADDRES      
                                                           VAL=S")                                                     
 doc.add2                    30 FREE     L                 VAL=%MIS.DOC.get.address(@doc,MIS.DOC.facility,"ADDRES      
                                                           VAL=S2")                                                    
 doc.add3                    30 FREE     L                 VAL=IF{@doc %MIS.DOC.get.address(@doc,MIS.DOC.facility      
                                                           VAL=,"CITY")_", "_%MIS.DOC.get.address(@doc,MIS.DOC.fa      
                                                           VAL=cility,"STATE")_"  "_%MIS.DOC.get.address(@doc,MIS      
                                                           VAL=.DOC.facility,"ZIP")}                                   
 doc.email                   40 FREE     L                 VAL=@MIS.DOC.email[@doc]                                    
 doc.fax                     24 FREE     L                 VAL=@MIS.DOC.fax.number[@doc]                               
 doc.ltr                      1 YN       L                 $(R)RO[ro]CD[cd]|3                                          
 doc.name                    30 FREE     L                 VAL=@MIS.DOC.name[@doc]                                     
 doc.phone                   18 PHONE    L                 VAL=@MIS.DOC.phone[@doc]                                    
 doc.quest                    1 YN       L                 $(R)RO[ro]CD[cd]|2                                          
 doc.rpt                      1 YN       L                 $(R)RO[ro]CD[cd]|1                                          
 Ì   €   i   2
duplicate.data
[urn,  dupl.ord]
$(R)RO[ro]XD[roDO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dupl.ord                     8 URN      L                 roDO                                                        
 dupl.date                    8 DATE     L                 VAL=@RAD.ORD.service.date[@dupl.urn]                        
 dupl.doctor                 42 FREE     L                 VAL=(@RAD.ORD.doctor[@dupl.urn]^DR:10L_" "_IF{@RAD.ORD      
                                                           VAL=.ft.doc.name;@MIS.DOC.name[DR]})                        
 dupl.priority                1 CHOICE   L                 VAL=@RAD.ORD.priority[@dupl.urn]                            
 dupl.time                    4 HHMM     L                 VAL=@RAD.ORD.service.time[@dupl.urn]                        
 dupl.urn                     6 FREE     L                 $(R)RO[ro]XD[roDO]                                          
 Ì   €   i   2
edit.data
[urn,  edit.urn]
$(R)RO[ro]E[roED]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 edit.urn                     3 URN      L                 roED                                                        
 edit.date                    8 DATE     L                 $(R)RO[ro]E[roED]|0                                         
 edit.device                 30 FREE     L  UNV.CLIENT     $(R)RO[ro]E[roED]|4                                     
 edit.event                  63 FREE     L                 $(R)RO[ro]E[roED]|3                                         
 edit.time                    4 HHMM     L                 $(R)RO[ro]E[roED]|1                                         
 edit.user                   10 FREE     L  MIS.USER       $(R)RO[ro]E[roED]|2                                     
 Ì   €   i   2
exam.comments
[urn,  exam.comment.q]
$(R)RO[ro]EC[roEC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 exam.comment.q               2 PINT     R                 roEC                                                        
 exam.comment                80 TEXT     L                 $(R)RO[ro]EC[roEC]                                          
 Ì   €   i   2
materials
[urn,  material]
$(R)RO[ro]EX["M",rm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 material                    10 FREE     L  RAD.MAT        rm                                                      
 material.amt                 7 PDEC     R                 $(R)RO[ro]EX["M",rm]|2                                      
 material.mm.count            3 PINT     R                 $(R)RO[ro]EX["M",rm]|3                                      
 material.qc.qty              3 PINT     R                 $(R)RO[ro]EX["M",rm]|1                                      
 material.qty                 3 PINT     R                 $(R)RO[ro]EX["M",rm]|0                                      
 Ì   €   i   2
repeats
[urn,material,  repeat.reason]
$(R)RO[ro]EX["M",rm]R[rj]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 repeat.reason               10 FREE     L  RAD.REPEAT     rj                                                      
 repeat.qty                   3 PINT     R                 $(R)RO[ro]EX["M",rm]R[rj]|0                                 
 Ì   €   i   2
findings
[urn,  finding.q]
$(R)RO[ro]F[roFQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 finding.q                    2 PINT     R                 roFQ                                                        
 finding                     10 FREE     L  RAD.FIND       $(R)RO[ro]F[roFQ]                                       
 Ì   €   i   2
findings.classes
[urn,finding.q,  finding.class.q]
$(R)RO[ro]F[roFQ]C[roFCQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 finding.class.q              2 PINT     R                 roFCQ                                                       
 finding.class               10 FREE     L                 $(R)RO[ro]F[roFQ]C[roFCQ]                                   
 Ì   €   i   2
findings.members
[urn,finding.q,finding.class.q,  finding.member.q]
$(R)RO[ro]F[roFQ]C[roFCQ]M[roFMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 finding.member.q             2 PINT     R                 roFMQ                                                       
 finding.member              10 FREE     L                 $(R)RO[ro]F[roFQ]C[roFCQ]M[roFMQ]                           
 Ì   €   i   2
findings.findings
[urn,finding.q,finding.class.q,finding.member.q,  finding.finding.q]
$(R)RO[ro]F[roFQ]C[roFCQ]M[roFMQ]F[roFFQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 finding.finding.q            2 PINT     R                 roFFQ                                                       
 finding.finding             10 FREE     L                 $(R)RO[ro]F[roFQ]C[roFCQ]M[roFMQ]F[roFFQ]                   
 Ì   €   i   2
icd.modifiers
[urn,  icd.mod.q]
$(R)RO[ro]ICD["M",gzmQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 icd.mod.q                    3 PINT     R                 gzmQ                                                        
 icd.modifier                 2 FREE     L  MIS.CPT.MOD    $(R)RO[ro]ICD["M",gzmQ]|0                               
 Ì   €   i   2
icd.prof.modifiers
[urn,  icd.prof.mod.q]
$(R)RO[ro]ICD["PM",gzmQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 icd.prof.mod.q               3 PINT     R                 gzmQ                                                        
 icd.prof.modifier            2 FREE     L  MIS.CPT.MOD    $(R)RO[ro]ICD["PM",gzmQ]|0                              
 Ì   €   i   2
impressions
[urn,  impression.q]
$(R)RO[ro]I[roI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 impression.q                 3 PINT     R                 roI                                                         
 impression                  80 TEXT     L                 $(R)RO[ro]I[roI]                                            
 Ì   €   i   2
ins.copies
[urn,  ins.urn]
$(R)RO[ro]CI[ci]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ins.urn                      2 URN      L                 ci                                                          
 ins                         10 FREE     L  MIS.INS        $(R)RO[ro]CI[ci]|0                                      
 ins.add1                    30 FREE     L                 VAL=@MIS.INS.address[@ins]                                  
 ins.add2                    30 FREE     L                 VAL=@MIS.INS.address2[@ins]                                 
 ins.add3                    30 FREE     L                 VAL=IF{@ins @MIS.INS.city[@ins]_", "_@MIS.INS.state[@i      
                                                           VAL=ns]_"  "_@MIS.INS.zip[@ins]}                            
 ins.email                   40 FREE     L                 VAL=@MIS.INS.email[@ins]                                    
 ins.fax                     24 FREE     L                 VAL=@MIS.INS.fax.number[@ins]                               
 ins.ltr                      1 YN       L                 $(R)RO[ro]CI[ci]|3                                          
 ins.name                    30 FREE     L                 VAL=@MIS.INS.name[@ins]                                     
 ins.phone                   18 PHONE    L                 VAL=@MIS.INS.phone[@ins]                                    
 ins.quest                    1 YN       L                 $(R)RO[ro]CI[ci]|2                                          
 ins.rpt                      1 YN       L                 $(R)RO[ro]CI[ci]|1                                          
 Ì   €   i   2
mri.follow.ups
[urn,  mri.follow.up]
$(R)RO[ro]FU[rfFU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mri.follow.up               10 URN      L                 rfFU                                                        
 mri.follow.up.date           8 DATE     L                 $(R)RO[ro]FU[rfFU]|0                                        
 Ì   €   i   2
mri.follow.ups.resolved
[urn,  mri.follow.up.resolved]
$(R)RO[ro]FR[rfFU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mri.follow.up.resolved      10 URN      L                 rfFU                                                        
 Ì   €   i   2
other.copies
[urn,  oth.urn]
$(R)RO[ro]CO[co]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 oth.urn                      2 URN      L                 co                                                          
 oth.add1                    30 FREE     L                 $(R)RO[ro]CO[co]|1                                          
 oth.add2                    30 FREE     L                 $(R)RO[ro]CO[co]|2                                          
 oth.add3                    30 FREE     L                 $(R)RO[ro]CO[co]|3                                          
 oth.email                   40 FREE     L                 $(R)RO[ro]CO[co]|4                                          
 oth.fax                     24 FREE     L                 $(R)RO[ro]CO[co]|10                                         
 oth.ltr                      1 YN       L                 $(R)RO[ro]CO[co]|7                                          
 oth.mnemonic                30 FREE     L                 $(R)RO[ro]CO[co]|0                                          
 oth.name                    30 FREE     L                 $(R)RO[ro]CO[co]|8                                          
 oth.phone                   18 PHONE    L                 $(R)RO[ro]CO[co]|9                                          
 oth.quest                    1 YN       L                 $(R)RO[ro]CO[co]|6                                          
 oth.rpt                      1 YN       L                 $(R)RO[ro]CO[co]|5                                          
 Ì   €   i   2
pacs
[urn,  pacs.q]
$(R)RO[ro]PACS[roPAC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pacs.q                       2 PINT     R                 roPAC                                                       
 pacs.date                    8 DATE     L                 $(R)RO[ro]PACS[roPAC]|1                                     
 pacs.id                     39 FREE     L                 $(R)RO[ro]PACS[roPAC]|0                                     
 pacs.image.ct                3 INT      R                 $(R)RO[ro]PACS[roPAC]|6                                     
 pacs.interp.id              30 FREE     L                 $(R)RO[ro]PACS[roPAC]|5                                     
 pacs.interp.out             40 FREE     L                 VAL=@pacs.interp.id_(" ("_@pacs.interp.type_")"'=" ()"      
                                                           VAL=)                                                       
 pacs.interp.type             4 CHOICE   L                 $(R)RO[ro]PACS[roPAC]|4                                     
 pacs.source                 10 FREE     L                 $(R)RO[ro]PACS[roPAC]|7                                     
 pacs.status                 10 CHOICE   L                 $(R)RO[ro]PACS[roPAC]|3                                     
 pacs.time                    4 HHMM     L                 $(R)RO[ro]PACS[roPAC]|2                                     
 Ì   €   i   2
pacs.numbers
[urn,pacs.q,  pacs.num.q]
$(R)RO[ro]PACS[roPAC]PACSNUM[roPXN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pacs.num.q                   2 PINT     R                 roPXN                                                       
 pacs.number                 16 FREE     L                 $(R)RO[ro]PACS[roPAC]PACSNUM[roPXN]|0                       
 Ì   €   i   2
pc.billing.data
[urn,  pc.date.and.urn]
$(R)RO[ro]PB[roPBD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pc.date.and.urn              0 FREE     L                 roPBD                                                       
 pc.activity.date             8 DATE     L                 VAL=(@pc.date.and.urn$8)                                    
 pc.amount                    9 MONEY    R                 $(R)RO[ro]PB[roPBD]|1                                       
 pc.comment                  35 FREE     L                 $(R)RO[ro]PB[roPBD]|6                                       
 pc.credit                    1 YN       L                 $(R)RO[ro]PB[roPBD]|3                                       
 pc.device                   15 FREE     L                 $(R)RO[ro]PB[roPBD]|5                                       
 pc.else.order.site          10 FREE     L                 VAL=IF{@pc.site;@site}                                      
 pc.post.type                 1 CHOICE   L                 $(R)RO[ro]PB[roPBD]|2                                       
 pc.qty                       3 INT      R                 $(R)RO[ro]PB[roPBD]|0                                       
 pc.site                     10 FREE     L  RAD.SITE       $(R)RO[ro]PB[roPBD]|7                                   
 pc.user                     10 FREE     L  MIS.USER       $(R)RO[ro]PB[roPBD]|4                                   
 Ì   €   i   2
peer.reviews
[urn,  peer.review.dr]
$(R)RO[ro]PR[ggg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 peer.review.dr              10 FREE     L  MIS.DOC        ggg                                                     
 peer.agree                   1 YN       L                 $(R)RO[ro]PR[ggg]|0                                         
 peer.enter.date              8 DATE     L                 $(R)RO[ro]PR[ggg]|1                                         
 peer.enter.time              4 HHMM     L                 $(R)RO[ro]PR[ggg]|2                                         
 Ì   €   i   2
peer.review.text
[urn,peer.review.dr,  peer.review.q]
$(R)RO[ro]PR[ggg]T[roprq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 peer.review.q                3 PINT     R                 roprq                                                       
 peer.review                 92 TEXT     L                 $(R)RO[ro]PR[ggg]T[roprq]                                   
 Ì   €   i   2
pictures
[urn,  picture]
$(R)RO[ro]PIC[geg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 picture                     15 FREE     L  MIS.PICTURE    geg                                                     
 picture.added               10 PINT     R                 $(R)RO[ro]PIC[geg]|0                                        
 Ì   €   i   2
rcp.copies
[urn,  rcp.urn]
$(R)RO[ro]CR[cr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rcp.urn                      2 URN      L                 cr                                                          
 rcp                         10 FREE     L  RAD.RCP        $(R)RO[ro]CR[cr]|0                                      
 rcp.add1                    30 FREE     L                 VAL=@RAD.RCP.addr1[@rcp]                                    
 rcp.add2                    30 FREE     L                 VAL=@RAD.RCP.addr2[@rcp]                                    
 rcp.add3                    30 FREE     L                 VAL=IF{@rcp @RAD.RCP.city[@rcp]_", "_@RAD.RCP.state[@r      
                                                           VAL=cp]_"  "_@RAD.RCP.zip[@rcp]}                            
 rcp.email                   40 FREE     L                 VAL=@RAD.RCP.email.address[@rcp]                            
 rcp.fax                     24 FREE     L                 VAL=@RAD.RCP.fax.number[@rcp]                               
 rcp.ltr                      1 YN       L                 $(R)RO[ro]CR[cr]|3                                          
 rcp.name                    30 FREE     L                 VAL=@RAD.RCP.name[@rcp]                                     
 rcp.phone                   18 PHONE    L                 VAL=@RAD.RCP.phone[@rcp]                                    
 rcp.quest                    1 YN       L                 $(R)RO[ro]CR[cr]|2                                          
 rcp.rpt                      1 YN       L                 $(R)RO[ro]CR[cr]|1                                          
 Ì   €   i   2
reprint
[urn,  reprint.urn]
$(R)RO[ro]RPT[roRPT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 reprint.urn                  2 URN      L                 roRPT                                                       
 reprint.copies               2 PINT     R                 $(R)RO[ro]RPT[roRPT]|2                                      
 reprint.destination         15 FREE     L                 $(R)RO[ro]RPT[roRPT]|1                                      
 reprint.dict.destination    15 FREE     L                 $(R)RO[ro]RPT[roRPT]|3                                      
 reprint.for                  1 CHOICE   L                 $(R)RO[ro]RPT[roRPT]|6                                      
 reprint.for.text             4 FREE     L                 VAL=IF{@reprint.for "NONE.BOTH.ITS.OE"#(L("NBIO",@repr      
                                                           VAL=int.for)_.)}                                            
 reprint.format              10 FREE     L                 $(R)RO[ro]RPT[roRPT]|0                                      
 reprint.rule                10 FREE     L  RAD.RULE       $(R)RO[ro]RPT[roRPT]|5                                  
 reprint.yn                   1 YN       L                 $(R)RO[ro]RPT[roRPT]|4                                      
 Ì   €   i   2
responses
[urn,  query]
$(R)RO[ro]R[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 query                       10 FREE     L  MIS.QUERY      ggv                                                     
 resp.yn.comment             70 QRY.RESP L                 $(R)RO[ro]R[ggv]|5                                          
 response                    70 QRY.RESP L                 $(R)RO[ro]R[ggv]|0                                          
 Ì   €   i   2
responses.multiple
[urn,query,  response.q]
$(R)RO[ro]R[ggv]M[ggvMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 response.q                   3 PINT     R                 ggvMQ                                                       
 response.mult               70 QRY.RESP L                 $(R)RO[ro]R[ggv]M[ggvMQ]|0                                  
 Ì   €   i   2
user.pictures
[urn,  pic.q]
$(R)RO[ro]UPIC[roPQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pic.q                        3 PINT     R                 roPQ                                                        
 pic.desc                    60 FREE     L                 $(R)RO[ro]UPIC[roPQ]|0                                      
 pic.filename                20 FREE     L                 $(R)RO[ro]UPIC[roPQ]|3                                      
 pic.temp                    20 FREE     L                 $(R)RO[ro]UPIC[roPQ]|4                                      
 pic.urn                      3 PINT     R                 $(R)RO[ro]UPIC[roPQ]|1                                      
 Ì   €   i   2
user.pic.annotations
[urn,pic.q,  pic.anno.q]
$(R)RO[ro]UPIC[roPQ]A[roPa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pic.anno.q                   2 PINT     R                 roPa                                                        
 pic.anno                   200 FREE     L                 $(R)RO[ro]UPIC[roPQ]A[roPa]                                 
 Ì   €   i   2
user.pic.text
[urn,pic.q,  pic.text.q]
$(R)RO[ro]UPIC[roPQ]T[roPtq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pic.text.q                   3 PINT     R                 roPtq                                                       
 pic.text.line               60 TEXT     L                 $(R)RO[ro]UPIC[roPQ]T[roPtq]                                
 Ì   €   i   2
views
[urn,  view]
$(R)RO[ro]V[rrv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 view                        10 FREE     L  RAD.VIEW       rrv                                                     
 view.qty                     1 PINT     R                 $(R)RO[ro]V[rrv]|0                                          
 Ì   €   i   2
workload.functions
[urn,  wl.function]
$(R)RO[ro]WF[rwf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wl.function                 10 FREE     L  RAD.WFCN       rwf                                                     
 wl.count                     2 INT      R                 $(R)RO[ro]WF[rwf]|0                                         
 Ì     i   2
mm.queue.materials
[mm.q.seconds,mm.q.urn,  mm.q.material]
?(R)ROMMQ[roMMS,ro]M[rm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mm.q.material               10 FREE     L  RAD.MAT        rm                                                      
 mm.q.mat.qty                 4 SINT     R                 ?(R)ROMMQ[roMMS,ro]M[rm]|0                                  
 Ì     i   2
oe.activity
[oe.act.facility,oe.act.seconds,oe.act.oe.urn,oe.act.urn]
?(R)ROEA[gqb,roea,po,ro]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 oe.act.facility             10 FREE     L  MIS.FACILITY   gqb                                                     
 oe.act.seconds               5 PINT     R                 roea                                                        
 oe.act.oe.urn               10 URN      L  OE.ORD         po                                                      
 oe.act.urn                  15 URN      L  RAD.ORD        ro                                                      
 oe.act.error                50 FREE     L                 ?(R)ROEA[gqb,roea,po,ro]|1                                  
 oe.act.new.ord.from.edit     1 YN       L                 ?(R)ROEA[gqb,roea,po,ro]|3                                  
 oe.act.status                3 CHOICE   L                 ?(R)ROEA[gqb,roea,po,ro]|0                                  
 oe.act.user                 10 FREE     L  MIS.USER       ?(R)ROEA[gqb,roea,po,ro]|2                              
 Ì     i   2
oe.log
[oe.date.time,oe.log.q]
?(R)ROEL[roeot,roelq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 oe.date.time                 9 FREE     L                 roeot                                                       
 oe.log.q                     3 PINT     R                 roelq                                                       
 oe.log.date                  8 DATE     L                 VAL=%Z.date.in.magic(@oe.date.time)                         
 oe.log.db                   12 FREE     L  MIS.APPL.DB    ?(R)ROEL[roeot,roelq]|4                                 
 oe.log.message              65 FREE     L                 ?(R)ROEL[roeot,roelq]|5                                     
 oe.log.order                10 URN      L  OE.ORD         ?(R)ROEL[roeot,roelq]|3                                 
 oe.log.patient              43 FREE     L  RAD.PAT        ?(R)ROEL[roeot,roelq]|2                                 
 oe.log.time                  4 HHMM     L                 VAL=%Z.time.out(@oe.date.time)                              
 oe.log.type                  1 CHOICE   L                 ?(R)ROEL[roeot,roelq]|0                                     
 oe.log.type.ok               1 YN       L                 VAL=IF{L(c.oe.log.types,@oe.log.type)<L(c.oe.log.ty      
                                                           VAL=pes) "Y";"N"}                                           
 oe.log.types                 5 FREE     L                                                                             
 oe.log.user                 10 FREE     L  MIS.USER       ?(R)ROEL[roeot,roelq]|1                                 
 Ì     i   2
peer.review.summary
[peer.sum.date,peer.sum.site,peer.sum.review.dr,peer.sum.report.dr,peer.sum.category,peer.sum.p
?(R)ROPRS[roprD,rsi,ggg,ggg1,rc,rp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 peer.sum.date                8 DATE     L                 roprD                                                       
 peer.sum.site               10 FREE     L  RAD.SITE       rsi                                                     
 peer.sum.review.dr          10 FREE     L  MIS.DOC        ggg                                                     
 peer.sum.report.dr          10 FREE     L  MIS.DOC        ggg1                                                    
 peer.sum.category           10 FREE     L  RAD.CAT        rc                                                      
 peer.sum.procedure          10 FREE     L  RAD.PROC       rp                                                      
 peer.sum.agree               5 PINT     R                 ?(R)ROPRS[roprD,rsi,ggg,ggg1,rc,rp]|1                       
 peer.sum.count               5 PINT     R                 ?(R)ROPRS[roprD,rsi,ggg,ggg1,rc,rp]|0                       
 Ì     i   2
xi.pacs.numbers
[xi.pacs.num.q]
/XI["PACS"]PACSNUM[roPXN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 xi.pacs.num.q                2 PINT     R                 roPXN                                                       
 xi.pacs.number              16 FREE     L                 /XI["PACS"]PACSNUM[roPXN]|0                                 
 Ì     i   2
xi.pacs.urls
/XI["PACS"]URL

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 xi.pacs.url                255 FREE     L                 /XI["PACS"]URL                                              

 Index Files                        Subscripts/Physical Base

 acr.code.x                         [anatomy,pathology,mri.urn,service.date,urn] = acr.code
                                      ?(R)ROACR[rb,ry,ea,roSD,ro]

 adm.room.bed.index                 [facility,room,bed] = patient
                                      ?(A)AARB[gqb,ggr,hrmB]

 archive.id.x                       [category,comp.order.num,urn]
                                      ?(R)ROAI[rc,roCN,ro]

 archive.x                          [archive.date,urn]
                                      ?(R)ROAR[roARD,ro]

 bar.bch.x                          [bill.date.and.urn,urn]
                                      ?(R)ROBX[roBD,ro]

 bar.comp.x                         [category,urn]
                                      ?(R)ROBBC[rc,ro]

 bar.x                              [category,urn]
                                      ?(R)ROBB[rc,ro]

 bill.x                             [category,bill.date.and.urn,comp.order.num,urn]
                                      ?(R)ROB[rc,roBD,roCN,ro]

 canc.x                             [category,canc.date,cancel.rank,urn]
                                      ?(R)ROCX[rc,roCD,roCS,ro]

 cash.x                             [user,order.date,order.time,urn]
                                      ?(R)ROCC[gu,roOD,roOT,ro]

 cat.proc.x                         [category,procedure.mnemonic,urn]
                                      ?(R)ROCPX[rc,rpm,ro]

 cat.x                              [category,comp.order.num,urn]
                                      ?(R)ROC[rc,roCN,ro]

 check.dup.x                        [patient,category,procedure,dup.date.and.time,urn]
                                      ?(R)ROD[aa,rc,rp,roDD,ro]

 consult.x                          [response,mri.urn,urn]
                                      ?(R)ROCN[roR,ea,ro]

 delete.x                           [patient,urn]
                                      ?(R)RODL[aa,ro]

 dept.x                             [dept,category]
                                      &(R)RCD[rd,rc]

 dup.x                              [category,service.date,urn]
                                      ?(R)RODX[rc,roSD,ro]

 foc.urn.x                          [om.order.urn] = urn
                                      ?(R)ROTSURN[roFOC]

 follow.up.x                        [follow.up.date,doctor,urn] = 0
                                      ?(R)ROFU[roD,ggg,ro]

 icd.x                              [order.date,urn]
                                      ?(R)ROICD[roOD,ro]

 material.x                         [site,dept,sort.date,film.type,material] = material.qty
                                      ?(R)ROEF[rsi,rd,roDT,roRF,rm]

 mis.loc.rm.index                   [location,room]
                                      &(G)GGRI[ggn,ggr]

 mri.date.x                         [mri.urn,service.date,service.time,category,patient,urn]
                                      ?(R)ROG[ea,roSD,roST,rc,aa,ro]

 mri.x                              [mri.urn,urn]
                                      ?(R)ROM[ea,ro]

 nonpt.ord.x                        [service.date,urn]
                                      ?(R)RONP[roSD,ro]

 ord.cat.date.x                     [category,order.date,urn]
                                      ?(R)ROOCDX[rc,roOD,ro]

 ord.date.x                         [order.date,urn]
                                      ?(R)ROODX[roOD,ro]

 order.num.x                        [category,comp.order.num]
                                      ?(R)RONUM[rc,roCN]

 order.x                            [patient,order.date,urn]
                                      ?(R)ROE[aa,roOD,ro]

 ov.id.x                            [ov.sender,ov.id] = urn
                                      ?(R)ROI[roSN,roID]

 patient.x                          [category,patient,comp.order.num,urn]
                                      ?(R)ROPT[rc,aa,roCN,ro]

 pc.bar.bch.x                       [pc.date.and.urn,urn]
                                      ?(R)ROPX[roPBD,ro]

 pc.bar.x                           [category,urn]
                                      ?(R)ROPBB[rc,ro]

 pc.bill.x                          [category,pc.date.and.urn,comp.order.num,urn]
                                      ?(R)ROPB[rc,roPBD,roCN,ro]

 pc.pt.log.x                        [category,patient,pc.date.and.urn,urn]
                                      ?(R)ROPPL[rc,aa,roPBD,ro]

 peer.review.x                      [peer.enter.date,peer.review.dr,peer.report.dr,urn]
                                      ?(R)ROPRX[roprD,ggg,ggg1,ro]

 prof.fee.x                         [category,patient,batch.date,urn]
                                      ?(R)ROPF[rc,aa,gyD,ro]

 provider.x                         [doctor,urn]
                                      ?(R)ROPVX[ggg,ro]

 pt.log.x                           [category,patient,bill.date.and.urn,urn]
                                      ?(R)ROPL[rc,aa,roBD,ro]

 pt.ord.x                           [patient,service.date,urn]
                                      ?(R)ROPO[aa,roSD,ro]

 quest.x                            [mri.urn,category,service.date,urn]
                                      ?(R)ROQ[ea,rc,roSD,ro]

 report.dr.x                        [peer.report.dr,peer.review.dr,urn]
                                      ?(R)ROPD[ggg1,ggg,ro]

 req.num.x                          [dept,year,req.number,urn]
                                      ?(R)RORN[rd,roY,roRN,ro]

 review.dr.x                        [peer.review.dr,peer.report.dr,urn]
                                      ?(R)ROVD[ggg,ggg1,ro]

 service.date.x                     [service.date,urn]
                                      ?(R)ROO[roSD,ro]

 site.x                             [site,urn]
                                      ?(R)ROSI[rsi,ro]

 status.x                           [category,rank.status,comp.order.num,urn]
                                      ?(R)ROS[rc,roS,roCN,ro]

 stock.x                            [stock.location,order.date,category,procedure,urn]
                                      ?(R)ROST[ggn,roOD,rc,rp,ro]

 tech.x                             [technologist,urn]
                                      ?(R)ROTECH[gu,ro]

 temp.group.x                       [group.q] = urn
                                      /ROGX[rog]

 temp.order.x                       [ord.q] = urn
                                      /ROOX[roq]

 temp.performing.dr.x               [site,category,performing.dr,urn]
                                      /ROTPPX[rsi,rc,ggg,ro]

 urn.x                              [urn]
                                      *(R)ROZ[ro]