sHelp
                                     RAD.PROC
     i   2
 main
   destinations
   lab.tests
   location.priorities
   materials
   mic.procs
   order.rules
   pom.rules
   print.text
   queries
     queries.multiple
   restrict.to.sites
   rooms
   sites
     site.materials
     site.rooms
   sites1
     site.order.rules
   sites2
   views
   workload.functions
   workload.unit.functions

 Ì     i   2
main
[category,number]
&(R)RP[rc,rp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 category                    10 FREE     L  RAD.CAT        rc                                                      
 number                      10 FREE     R                 rp                                                          
 active                       1 YN       L                 &(R)RP[rc,rp]|0                                             
 add.bill.proc.number        10 FREE     L                 &(R)RP[rc,rp]TB|3                                           
 add.price                    9 MONEY    R                 &(R)RP[rc,rp]TB|2                                           
 add.time.block               4 HHMM     L                 &(R)RP[rc,rp]TB|1                                           
 ask.qty                      1 YN       L                 &(R)RP[rc,rp]|3                                             
 ask.quest                    1 YN       L                 &(R)RP[rc,rp]EX|1                                           
 bill.on.status              10 CHOICE   L                 &(R)RP[rc,rp]|15                                            
 bill.proc.number            10 FREE     L                 &(R)RP[rc,rp]|17                                            
 chg.no.bill.code             1 YN       L                 &(R)RP[rc,rp]B|8                                            
 class                       10 FREE     L  RAD.CLASS      &(R)RP[rc,rp]EX|6                                       
 confidential.flag            1 YN       L                 &(R)RP[rc,rp]|30                                            
 cpt.code                    10 FREE     L  MIS.CPT        &(R)RP[rc,rp]B|9                                        
 cr.gl.acct                  20 FREE     L                 &(R)RP[rc,rp]A|2                                            
 default.priority             1 CHOICE   L                 &(R)RP[rc,rp]|6                                             
 default.qty                  3 PINT     R                 &(R)RP[rc,rp]|7                                             
 dept                        10 FREE     L  RAD.DEPT       VAL=@RAD.CAT.dept[category]                             
 dept.header                 16 FREE     L                 VAL=("DEPT: "_dept)                                         
 dft.room                    10 FREE     L  RAD.ROOM       &(R)RP[rc,rp]EX|0                                       
 dr.gl.acct                  20 FREE     L                 &(R)RP[rc,rp]A|1                                            
 duplicate.order.hours        4 PDEC     R                 &(R)RP[rc,rp]|12                                            
 edit.flag                    1 YN       L                 &(R)RP[rc,rp]|19                                            
 edit.text.doc                0 FREE     L                                                                             
 enter.findings               1 YN       L                 &(R)RP[rc,rp]EX|4                                           
 enter.outcome                1 YN       L                 &(R)RP[rc,rp]EX|5                                           
 enter.picture                1 YN       L                 &(R)RP[rc,rp]EX|7                                           
 file.materials.w.order       1 YN       L                 &(R)RP[rc,rp]B|7                                            
 header                      34 FREE     L                 VAL=("DEPT: "_dept_" - CAT: "_category)                     
 history                      1 YN       L                 &(R)RP[rc,rp]|24                                            
 hub.data.editable            1 YN       L                 &(R)RP[rc,rp]HUB|1                                          
 hub.data.name               35 FREE     L                 &(R)RP[rc,rp]HUB|0                                          
 id                          10 FREE     L                 VAL=@RAD.PROC.mnemonic                                      
 initial.time.block           4 HHMM     L                 &(R)RP[rc,rp]TB|0                                           
 item.number                 15 FREE     L                 &(R)RP[rc,rp]|29                                            
 last.update                 30 FREE     L                 &(R)RP[rc,rp]UPD                                            
 library.path                10 FREE     L  RAD.LIBPATH    &(R)RP[rc,rp]B|1                                        
 limit.qty                    3 PINT     R                 &(R)RP[rc,rp]|10                                            
 loc.sign.in.status          10 CHOICE   L                 &(R)RP[rc,rp]B|2                                            
 locator.code                10 FREE     L  RAD.LC         &(R)RP[rc,rp]B|0                                        
 med.rec.form                15 FREE     L  MIS.MR.FORM    &(R)RP[rc,rp]B|12                                       
 mm.status                   10 CHOICE   L                 &(R)RP[rc,rp]|22                                            
 mnemonic                    10 FREE     L                 &(R)RP[rc,rp]|2                                             
 name                        30 FREE     L                 &(R)RP[rc,rp]|1                                             
 order.lis.view.group        10 FREE     L  LAB.C.TEST.VIEW&(R)RP[rc,rp]B|4                                        
 order.picture               15 FREE     L  MIS.PICTURE    &(R)RP[rc,rp]B|3                                        
 payment.type                10 CHOICE   L                 &(R)RP[rc,rp]A|0                                            
 pc.bill.proc.number         10 FREE     L                 &(R)RP[rc,rp]|25                                            
 pc.edit.flag                 1 YN       L                 &(R)RP[rc,rp]|27                                            
 pc.price                     9 MONEY    R                 &(R)RP[rc,rp]|26                                            
 performing.dr                1 CHOICE   L                 &(R)RP[rc,rp]|28                                            
 price                        9 MONEY    R                 &(R)RP[rc,rp]|18                                            
 proc.result.required         1 YN       L                 &(R)RP[rc,rp]B|10                                           
 rad.only                     1 YN       L                 &(R)RP[rc,rp]|31                                            
 radiation.dose               8 PDEC     R                 &(R)RP[rc,rp]EX|3                                           
 record.lis.view.group       10 FREE     L  LAB.C.TEST.VIEW&(R)RP[rc,rp]B|5                                        
 screen                      15 FREE     L  MIS.SCREEN     &(R)RP[rc,rp]|16                                        
 series.limit                 2 PINT     R                 &(R)RP[rc,rp]|11                                            
 subjacket.sort               8 CHOICE   L                 &(R)RP[rc,rp]B|6                                            
 tech.1.1.exam                3 INT      R                 &(R)RP[rc,rp]WE|0                                           
 tech.1.1.proc                3 INT      R                 &(R)RP[rc,rp]WP|0                                           
 tech.1.1.units               9 DEC2     R                 &(R)RP[rc,rp]WU|0                                           
 tech.1.2.exam                3 INT      R                 &(R)RP[rc,rp]WE|1                                           
 tech.1.2.proc                3 INT      R                 &(R)RP[rc,rp]WP|1                                           
 tech.1.2.units               9 DEC2     R                 &(R)RP[rc,rp]WU|1                                           
 tech.1.3.exam                3 INT      R                 &(R)RP[rc,rp]WE|3                                           
 tech.1.3.proc                3 INT      R                 &(R)RP[rc,rp]WP|3                                           
 tech.1.3.units               9 DEC2     R                 &(R)RP[rc,rp]WU|3                                           
 tech.2.2.exam                3 INT      R                 &(R)RP[rc,rp]WE|2                                           
 tech.2.2.proc                3 INT      R                 &(R)RP[rc,rp]WP|2                                           
 tech.2.2.units               9 DEC2     R                 &(R)RP[rc,rp]WU|2                                           
 tech.2.3.exam                3 INT      R                 &(R)RP[rc,rp]WE|4                                           
 tech.2.3.proc                3 INT      R                 &(R)RP[rc,rp]WP|4                                           
 tech.2.3.units               9 DEC2     R                 &(R)RP[rc,rp]WU|4                                           
 tech.3.3.exam                3 INT      R                 &(R)RP[rc,rp]WE|5                                           
 tech.3.3.proc                3 INT      R                 &(R)RP[rc,rp]WP|5                                           
 tech.3.3.units               9 DEC2     R                 &(R)RP[rc,rp]WU|5                                           
 tech.screen                 15 FREE     L  MIS.SCREEN     &(R)RP[rc,rp]EX|2                                       
 turnaround.mins              4 PINT     R                 &(R)RP[rc,rp]|20                                            
 unit.value                   6 DEC2     R                 &(R)RP[rc,rp]|21                                            
 wkld.bill.on.status         10 CHOICE   L                 &(R)RP[rc,rp]B|11                                           
 Ì   €   i   2
destinations
[category,number,  dest.urn]
&(R)RP[rc,rp]D[rpDU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dest.urn                     2 URN      R                 rpDU                                                        
 any.text                     1 YN       L                 VAL=IF{+@main[category,number]T[@format,@destination,"      
                                                           VAL="] "Y";" "}                                             
 copies                       2 PINT     R                 &(R)RP[rc,rp]D[rpDU]|2                                      
 destination                 15 FREE     L                 &(R)RP[rc,rp]D[rpDU]|1                                      
 edit.text                    1 YN       L                 &(R)RP[rc,rp]D[rpDU]|3                                      
 format                      10 FREE     L                 &(R)RP[rc,rp]D[rpDU]|0                                      
 hold.form                    9 CHOICE   L                 &(R)RP[rc,rp]D[rpDU]|8                                      
 multiple.orders              1 YN       L                 &(R)RP[rc,rp]D[rpDU]|7                                      
 print                        1 CHOICE   L                 &(R)RP[rc,rp]D[rpDU]|5                                      
 print.rule                  10 FREE     L  RAD.RULE       &(R)RP[rc,rp]D[rpDU]|6                                  
 type                         3 FREE     L                 &(R)RP[rc,rp]D[rpDU]|4                                      
 Ì   €   i   2
lab.tests
[category,number,  lab.test.num]
&(R)RP[rc,rp]LT[slt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 lab.test.num                 9 URN      L                 slt                                                         
 lab.test.mne                15 FREE     L                 &(R)RP[rc,rp]LT[slt]                                        
 Ì   €   i   2
location.priorities
[category,number,  location]
&(R)RP[rc,rp]LP[rpL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 location                    10 FREE     L  MIS.LOCN       rpL                                                     
 loc.priority                 1 CHOICE   L                 &(R)RP[rc,rp]LP[rpL]|0                                      
 Ì   €   i   2
materials
[category,number,  material]
&(R)RP[rc,rp]M[rm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 material                    10 FREE     L  RAD.MAT        rm                                                      
 material.qty                 3 PINT     R                 &(R)RP[rc,rp]M[rm]|0                                        
 Ì   €   i   2
mic.procs
[category,number,  mic.proc.num]
&(R)RP[rc,rp]MP[smp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mic.proc.num                 9 URN      L                 smp                                                         
 mic.proc.mne                15 FREE     L                 &(R)RP[rc,rp]MP[smp]                                        
 Ì   €   i   2
order.rules
[category,number,  order.rule.q]
&(R)RP[rc,rp]OR[rpOR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 order.rule.q                 2 PINT     R                 rpOR                                                        
 edit.order.rule              1 YN       L                 &(R)RP[rc,rp]OR[rpOR]|1                                     
 order.rule                  10 FREE     L  RAD.RULE       &(R)RP[rc,rp]OR[rpOR]|0                                 
 Ì   €   i   2
pom.rules
[category,number,  pom.rule.q]
&(R)RP[rc,rp]POR[rpPOR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pom.rule.q                   2 PINT     R                 rpPOR                                                       
 pom.rule                    10 FREE     L  RAD.RULE       &(R)RP[rc,rp]POR[rpPOR]|0                               
 Ì   €   i   2
print.text
[category,number,  text.format,text.dest,text.urn]
&(R)RP[rc,rp]T[rpF,rpD,rpT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 text.format                 10 FREE     L                 rpF                                                         
 text.dest                   15 FREE     L                 rpD                                                         
 text.urn                     2 URN      L                 rpT                                                         
 text                        69 TEXT     L                 &(R)RP[rc,rp]T[rpF,rpD,rpT]                                 
 text.out                    69 FREE     L                 VAL=@Text.out(@text)                                        
 Ì   €   i   2
queries
[category,number,  query]
&(R)RP[rc,rp]Q[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 query                       10 FREE     L  MIS.QUERY      ggv                                                     
 query.resp.yn.comment       70 QRY.RESP L                 &(R)RP[rc,rp]Q[ggv]|5                                       
 query.response              70 QRY.RESP L                 &(R)RP[rc,rp]Q[ggv]|0                                       
 Ì   €   i   2
queries.multiple
[category,number,query,  query.resp.q]
&(R)RP[rc,rp]Q[ggv]M[ggvMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 query.resp.q                 3 PINT     R                 ggvMQ                                                       
 query.resp.mult             70 QRY.RESP L                 &(R)RP[rc,rp]Q[ggv]M[ggvMQ]|0                               
 Ì   €   i   2
restrict.to.sites
[category,number,  restrict.to.site]
&(R)RP[rc,rp]RS[rsi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 restrict.to.site            10 FREE     L  RAD.SITE       rsi                                                     
 Ì   €   i   2
rooms
[category,number,  room]
&(R)RP[rc,rp]R[rr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 room                        10 FREE     L  RAD.ROOM       rr                                                      
 Ì   €   i   2
sites
[category,number,  site]
&(R)RP[rc,rp]S[rsi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site                        10 FREE     L  RAD.SITE       rsi                                                     
 site.ask.quest               1 YN       L                 &(R)RP[rc,rp]S[rsi]|1                                       
 site.dft.room               10 FREE     L  RAD.ROOM       &(R)RP[rc,rp]S[rsi]|0                                   
 site.enter.findings          1 YN       L                 &(R)RP[rc,rp]S[rsi]|3                                       
 site.enter.outcome           1 YN       L                 &(R)RP[rc,rp]S[rsi]|4                                       
 site.enter.picture           1 YN       L                 &(R)RP[rc,rp]S[rsi]|9                                       
 site.library.path           10 FREE     L  RAD.LIBPATH    &(R)RP[rc,rp]S[rsi]|6                                   
 site.loc.data                0 FREE     L                 VAL=@Color.use(@Z.color.labels)_IF{IF{@site.subjacket.      
                                                           VAL=sort;@site.locator.code;@site.loc.sign.in.sts;@sit      
                                                           VAL=e.library.path} @Z.check.mark.data;" "}_@Color.use      
                                                           VAL=(@Z.color.data)                                         
 site.loc.edit                1 YN       L                 &(R)RP[rc,rp]S[rsi]x                                        
 site.loc.sign.in.sts        10 CHOICE   L                 &(R)RP[rc,rp]S[rsi]|7                                       
 site.locator.code           10 FREE     L  RAD.LC         &(R)RP[rc,rp]S[rsi]|5                                   
 site.subjacket.sort          8 CHOICE   L                 &(R)RP[rc,rp]S[rsi]|8                                       
 site.tech.screen            15 FREE     L  MIS.SCREEN     &(R)RP[rc,rp]S[rsi]|2                                   
 Ì   €   i   2
site.materials
[category,number,site,  site.material]
&(R)RP[rc,rp]S[rsi]M[rm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site.material               10 FREE     L  RAD.MAT        rm                                                      
 site.material.qty            3 PINT     R                 &(R)RP[rc,rp]S[rsi]M[rm]|0                                  
 Ì   €   i   2
site.rooms
[category,number,site,  site.room]
&(R)RP[rc,rp]S[rsi]R[rr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site.room                   10 FREE     L  RAD.ROOM       rr                                                      
 Ì   €   i   2
sites1
[category,number,  site1]
&(R)RP[rc,rp]S1[rsi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site1                       10 FREE     L  RAD.SITE       rsi                                                     
 site.any.order.rules         1 FREE     L                 &(R)RP[rc,rp]S1[rsi]|2                                      
 site.edit.order.rule         1 YN       L                 &(R)RP[rc,rp]S1[rsi]|3                                      
 site.screen                 15 FREE     L  MIS.SCREEN     &(R)RP[rc,rp]S1[rsi]|0                                  
 Ì   €   i   2
site.order.rules
[category,number,site1,  site.order.rule.q]
&(R)RP[rc,rp]S1[rsi]SOR[rpSOR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site.order.rule.q            2 PINT     R                 rpSOR                                                       
 site.order.rule             10 FREE     L  RAD.RULE       &(R)RP[rc,rp]S1[rsi]SOR[rpSOR]|0                        
 Ì   €   i   2
sites2
[category,number,  site2]
&(R)RP[rc,rp]S2[rsi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site2                       10 FREE     L  RAD.SITE       rsi                                                     
 ccm.site.dur.req             1 CHOICE   L                 &(R)RP[rc,rp]S2[rsi]|11                                     
 site.add.bill.proc.number   10 FREE     L                 &(R)RP[rc,rp]S2[rsi]TB|3                                    
 site.add.price               9 MONEY    R                 &(R)RP[rc,rp]S2[rsi]TB|2                                    
 site.add.time.block          4 HHMM     L                 &(R)RP[rc,rp]S2[rsi]TB|1                                    
 site.bill.data               0 FREE     L                 VAL=@Color.use(@Z.color.labels)_IF{@sites2:0XS @Z.chec      
                                                           VAL=k.mark.data;" "}_@Color.use(@Z.color.data)              
 site.bill.edit               1 YN       L                 &(R)RP[rc,rp]S2[rsi]x                                       
 site.bill.on.status         10 CHOICE   L                 &(R)RP[rc,rp]S2[rsi]|0                                      
 site.bill.proc.number       10 FREE     L                 &(R)RP[rc,rp]S2[rsi]|1                                      
 site.bill.wkld.status       10 CHOICE   L                 &(R)RP[rc,rp]S2[rsi]|10                                     
 site.chg.no.bill.code        1 YN       L                 &(R)RP[rc,rp]S2[rsi]|9                                      
 site.edit.flag               1 YN       L                 &(R)RP[rc,rp]S2[rsi]|3                                      
 site.initial.time.block      4 HHMM     L                 &(R)RP[rc,rp]S2[rsi]TB|0                                    
 site.pc.bill.proc.number    10 FREE     L                 &(R)RP[rc,rp]S2[rsi]|5                                      
 site.pc.edit.flag            1 YN       L                 &(R)RP[rc,rp]S2[rsi]|7                                      
 site.pc.price                9 MONEY    R                 &(R)RP[rc,rp]S2[rsi]|6                                      
 site.performing.dr           1 CHOICE   L                 &(R)RP[rc,rp]S2[rsi]|8                                      
 site.price                   9 MONEY    R                 &(R)RP[rc,rp]S2[rsi]|2                                      
 site.unit.value              6 DEC2     R                 &(R)RP[rc,rp]S2[rsi]|4                                      
 Ì   €   i   2
views
[category,number,  view]
&(R)RP[rc,rp]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)RP[rc,rp]V[rrv]|0                                       
 Ì   €   i   2
workload.functions
[category,number,  wl.function]
&(R)RP[rc,rp]WF[rwf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wl.function                 10 FREE     L  RAD.WFCN       rwf                                                     
 wl.func.count                2 INT      R                 &(R)RP[rc,rp]WF[rwf]|0                                      
 Ì   €   i   2
workload.unit.functions
[category,number,  wl.unit.function]
&(R)RP[rc,rp]WU["F",rwf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 wl.unit.function            10 FREE     L  RAD.WFCN       rwf                                                     

 Index Files                        Subscripts/Physical Base

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

 err.x                              [category,mnemonic]
                                      &(R)RPE[rc,rpM]

 lab.test.x                         [lab.test.num,category,number]
                                      &(R)RPLT[slt,rc,rp]

 mic.proc.x                         [mic.proc.num,category,number]
                                      &(R)RPMP[smp,rc,rp]

 mne.x                              [category,mnemonic,number] = active
                                      &(R)RPM[rc,rpM,rp]

 name.x                             [category,name,number] = active
                                      &(R)RPN[rc,rpN,rp]