sHelp
                                     RXM.PROC
     i   2
   rxm.oe.proc.exp
     rxm.oe.proc.exceptions
   rxm.amb.procedure.dict
     rxm.proc.cpt.codes
     rxm.proc.dict.diagnoses
     rxm.proc.dict.facilities
       rxm.proc.dict.locations
         rxm.proc.dict.default.queries
         rxm.office.proc.age.groups
           rxm.office.proc.diagnostics
           rxm.office.proc.meds
         rxm.proc.dict.order.rule.evals
           rxm.proc.dict.order.rules
         rxm.proc.dict.print.formats
         rxm.proc.dict.print.rules
         rxm.proc.dict.rules
         rxm.proc.dict.performing.sites
   temp.proc.update.main
     temp.proc.update.diagnoses
     temp.proc.update.locations
       rxm.proc.update.op.age.groups
         rxm.proc.update.op.diagnostic
         rxm.proc.update.op.meds
       temp.proc.update.sites

 Ì     i   2
rxm.oe.proc.exp    (exceptions) 
[proc.exp.db,proc.exp.fac,proc.exp.cat,proc.exp.order.type,proc.exp.date,proc.exp.time,proc.exp.user] = proc.name
&HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.exp.db                 12 FREE     L  MIS.APPL       hxexD                                                   
 proc.exp.fac                10 FREE     L  MIS.FACILITY   hxexF                                                   
 proc.exp.cat                10 FREE     L  OE.CAT         hxexC                                                   
 proc.exp.order.type         10 FREE     L  RXM.ORD.TYPE   hxzt                                                    
 proc.exp.date               10 DATE10   L                 hxexd                                                       
 proc.exp.time                4 HHMM     L                 hxext                                                       
 proc.exp.user               10 FREE     L  MIS.USER       gu                                                      
 Ì     i   2
rxm.oe.proc.exceptions    (proc.exceptions) 
[proc.exp.db,proc.exp.fac,proc.exp.cat,proc.exp.order.type,proc.exp.date,proc.exp.time,proc.exp.user]= proc.nam, proc.e
&HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.exp.count               5 PINT     R                 hxexc                                                       
 proc.exp.mne                10 FREE     L                 &HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]|0      
 proc.exp.name               30 FREE     L                 &HXEX[hxexD,hxexF,hxexC,hxzt,hxexd,hxext,gu]P[hxexc]|1      
 Ì     i   2
rxm.amb.procedure.dict    (main) 
[mnemonic]
&HXE[hxe]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 hxe                                                         
 active                       1 YN       L                 &HXE[hxe]|0                                                 
 description                 70 FREE     L                 &HXE[hxe]|1                                                 
 dft.display.name            20 FREE     L                 &HXE[hxe]|2                                                 
 duplicate.time               6 FREE     L                 &HXE[hxe]|5                                                 
 ear.dft.cpt.code            10 FREE     L                 &HXE[hxe]|9                                                 
 keyword                     30 FREE     L                                                                             
 last.update                 10 FREE     L                 &HXE[hxe]UPD|0                                              
 last.update.date             8 DATE     L                 VAL=%Z.date.in.magic(@last.update)                          
 last.update.date.time       15 FREE     L                 VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd      
                                                           VAL=ate.time'="-"                                           
 last.update.time             4 HHMM     L                 VAL=%Z.time.out(@last.update)                               
 last.update.user            10 FREE     L  MIS.USER       &HXE[hxe]UPD|1                                          
 office.injection             1 YN       L                 &HXE[hxe]|8                                                 
 order.type                  10 FREE     L  RXM.ORD.TYPE   &HXE[hxe]|3                                             
 referral.comm.rsrc           1 YN       L                 &HXE[hxe]|10                                                
 referral.service            10 FREE     L  MIS.ABS.SVC    &HXE[hxe]|6                                             
 results.overdue.days         3 PINT     R                 &HXE[hxe]|7                                                 
 series.count                 3 PINT     R                 &HXE[hxe]S|2                                                
 series.order                 1 YN       L                 &HXE[hxe]S|0                                                
 series.order.period         10 FREE     L  RXM.ORD.PERIOD &HXE[hxe]S|1                                            
 series.stop.days             3 PINT     R                 &HXE[hxe]S|3                                                
 Ì     i   2
rxm.proc.cpt.codes    (cpt.codes) 
[mnemonic, cpt.code]
&HXE[hxe]C[gsp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cpt.code                    10 FREE     L                 gsp                                                         
 Ì     i   2
rxm.proc.dict.diagnoses    (diagnoses) 
[mnemonic, diag.code]
&HXE[hxe]DX[gsn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 diag.code                    7 FREE     L  MIS.DIAG       gsn                                                     
 Ì     i   2
rxm.proc.dict.facilities    (facilities) 
[mnemonic, facility]
&HXE[hxe]F[gqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 facility                    10 FREE     L  MIS.FACILITY   gqb                                                     
 ear.cpt.code                10 FREE     L                 &HXE[hxe]F[gqb]|1                                           
 health.maint.item           10 FREE     L                 &HXE[hxe]F[gqb]|0                                           
 Ì     i   2
rxm.proc.dict.locations    (locations) 
[mnemonic,facility, location]
&HXE[hxe]F[gqb]L[ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 location                    10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 checkout                     1 CHOICE   L                 &HXE[hxe]F[gqb]L[ggn]|8                                     
 checkout.category           10 FREE     L  PWM.CAT        &HXE[hxe]F[gqb]L[ggn]|15                                
 confidential                 1 YN       L                 &HXE[hxe]F[gqb]L[ggn]|0                                     
 dft.enforce.req              1 YN       L                 &HXE[hxe]F[gqb]L[ggn]|11                                    
 dft.order.period            10 FREE     L  RXM.ORD.PERIOD &HXE[hxe]F[gqb]L[ggn]|1                                 
 dft.perf.site               10 FREE     L                 &HXE[hxe]F[gqb]L[ggn]|2                                     
 dft.priority                 1 CHOICE   L                 &HXE[hxe]F[gqb]L[ggn]|14                                    
 document.screen             15 FREE     L  MIS.SCREEN     &HXE[hxe]F[gqb]L[ggn]|13                                
 modifier.screen             15 FREE     L  MIS.SCREEN     &HXE[hxe]F[gqb]L[ggn]|4                                 
 oe.category                 10 FREE     L  OE.CAT         &HXE[hxe]F[gqb]L[ggn]|5                                 
 oe.interface                 4 CHOICE   L                 &HXE[hxe]F[gqb]L[ggn]|12                                    
 oe.procedure                10 DEC      R  OE.PROC        &HXE[hxe]F[gqb]L[ggn]|6                                 
 oe.procedure.mnemonic       10 FREE     L                 &HXE[hxe]F[gqb]L[ggn]|7                                     
 phy.enforce.req              1 YN       L                 &HXE[hxe]F[gqb]L[ggn]|10                                    
 phy.modifier.screen         15 FREE     L  MIS.SCREEN     &HXE[hxe]F[gqb]L[ggn]|9                                 
 query.edit                   1 YN       L                 VAL=LOCAL                                                   
 query.edit.flag              1 FREE     L                 VAL=IF{%RXM.PROC.ee.M.check.qry.data("") @Z.check.mark      
                                                           VAL=.data}                                                  
 query.screen                15 FREE     L  MIS.SCREEN     &HXE[hxe]F[gqb]L[ggn]|3                                 
 sch.office.appt.type        10 FREE     L  SCH.APPT.TYPE  &HXE[hxe]F[gqb]L[ggn]|16                                
 Ì     i   2
rxm.proc.dict.default.queries    (dft.queries) 
[mnemonic,facility,location, dft.query]
&HXE[hxe]F[gqb]L[ggn]DQ[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 dft.query                   10 FREE     L  MIS.QUERY      ggv                                                     
 dft.query.response          60 FREE     L                 &HXE[hxe]F[gqb]L[ggn]DQ[ggv]|0                              
 Ì     i   2
rxm.office.proc.age.groups    (office.proc.age.groups) 
[mnemonic,facility,location, op.from.age]
&HXE[hxe]F[gqb]L[ggn]OP[hxeOA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 op.from.age                  7 AGE.SORT L                 hxeOA                                                       
 Ì     i   2
rxm.office.proc.diagnostics    (office.proc.diagnostics) 
[mnemonic,facility,location,op.from.age, op.proc.seq.not.used]
&HXE[hxe]F[gqb]L[ggn]OP[hxeOA]D[hxeOP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 op.proc.seq.not.used         3 PINT     R                 hxeOP                                                       
 op.proc.not.used            10 FREE     L  RXM.PROC       &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]D[hxeOP]|0                
 op.proc.ok.check.not.used    1 FREE     L                 VAL=IF{@op.proc.ok @Z.check.mark.data;""}                   
 op.proc.ok.not.used          1 FREE     L                 &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]D[hxeOP]|1                    
 op.proc.ok.yn.not.used       1 YN       L                 VAL=IF{@op.proc.ok "Y";"N"}                                 
 Ì     i   2
rxm.office.proc.meds    (office.proc.meds) 
[mnemonic,facility,location,op.from.age, op.med.q]
&HXE[hxe]F[gqb]L[ggn]OP[hxeOA]M[hxeOM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 op.med.q                     3 PINT     R                 hxeOM                                                       
 document.admin               1 YN       L                 &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]M[hxeOM]|3                    
 op.med                      20 FREE     L  RXM.DRUG       &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]M[hxeOM]|0                
 op.med.dosage               10 FREE     L                 &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]M[hxeOM]|1                    
 op.med.order.check           1 FREE     L                 VAL=IF{@op.med.order.ok @Z.check.mark.data;""}              
 op.med.order.ok              1 FREE     L                 &HXE[hxe]F[gqb]L[ggn]OP[hxeOA]M[hxeOM]|2                    
 op.med.order.ok.yn           1 YN       L                 VAL=IF{@op.med.order.ok "Y";"N"}                            
 Ì     i   2
rxm.proc.dict.order.rule.evals    (order.rule.evals) 
[mnemonic,facility,location, order.rule.eval]
&HXE[hxe]F[gqb]L[ggn]OR[hxeOR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.rule.eval              7 CHOICE   L                 hxeOR                                                       
 Ì     i   2
rxm.proc.dict.order.rules    (order.rules) 
[mnemonic,facility,location,order.rule.eval, order.rule.q]
&HXE[hxe]F[gqb]L[ggn]OR[hxeOR]R[hxeRQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.rule.q                 2 PINT     R                 hxeRQ                                                       
 order.rule                  10 FREE     L  RXM.RULE       &HXE[hxe]F[gqb]L[ggn]OR[hxeOR]R[hxeRQ]                  
 Ì     i   2
rxm.proc.dict.print.formats    (print.formats) 
[mnemonic,facility,location, prt.format.seq]
&HXE[hxe]F[gqb]L[ggn]PF[hxePQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 prt.format.seq               2 PINT     R                 hxePQ                                                       
 destination                 15 FREE     L                 &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|1                            
 num.copies                   2 PINT     R                 &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|2                            
 prt.format                  10 FREE     L  RXM.PFORMS     &HXE[hxe]F[gqb]L[ggn]PF[hxePQ]|0                        
 Ì     i   2
rxm.proc.dict.print.rules    (print.rules) 
[mnemonic,facility,location, print.rule.q]
&HXE[hxe]F[gqb]L[ggn]PR[hxePQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 print.rule.q                 2 PINT     R                 hxePQ                                                       
 print.rule                  10 FREE     L  RXM.RULE       &HXE[hxe]F[gqb]L[ggn]PR[hxePQ]                          
 Ì     i   2
rxm.proc.dict.rules    (rules) 
[mnemonic,facility,location, rule]
&HXE[hxe]F[gqb]L[ggn]R[hxr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rule                        10 FREE     L  RXM.RULE       hxr                                                     
 Ì     i   2
rxm.proc.dict.performing.sites    (sites) 
[mnemonic,facility,location, site.q]
&HXE[hxe]F[gqb]L[ggn]S[hxeSQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 site.q                       3 PINT     R                 hxeSQ                                                       
 site                        15 FREE     L                 &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|0                             
 site.billing.code           10 FREE     L                 &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|1                             
 site.is.default              1 YN       L                 &HXE[hxe]F[gqb]L[ggn]S[hxeSQ]|2                             
 Ì     i   2
temp.proc.update.diagnoses    (proc.update.diagnoses) 
[proc.diag.code]
/TPROCU["DX",gsn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.diag.code               7 FREE     L  MIS.DIAG       gsn                                                     
 proc.diag.code.expunge       1 YN       L                 /TPROCU["DX",gsn]|0                                         
 Ì     i   2
temp.proc.update.locations    (proc.update.locations) 
[proc.location]
/TPROCU["L",ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.location               10 FREE     L  MIS.LOCN.DICT  ggn                                                     
 proc.checkout                1 CHOICE   L                 /TPROCU["L",ggn]LC|8                                        
 proc.confidential            1 YN       L                 /TPROCU["L",ggn]LC|3                                        
 proc.destination            15 FREE     L                 /TPROCU["L",ggn]LC|6                                        
 proc.dft.enforce.req         1 YN       L                 /TPROCU["L",ggn]LC|11                                       
 proc.dft.order.period       10 FREE     L  RXM.ORD.PERIOD /TPROCU["L",ggn]LC|2                                    
 proc.dft.priority            1 CHOICE   L                 /TPROCU["L",ggn]LC|14                                       
 proc.document.screen        15 FREE     L  MIS.SCREEN     /TPROCU["L",ggn]LC|13                                   
 proc.location.expunge        1 YN       L                 /TPROCU["L",ggn]|0                                          
 proc.modifier.screen        15 FREE     L  MIS.SCREEN     /TPROCU["L",ggn]LC|1                                    
 proc.num.copies              2 PINT     R                 /TPROCU["L",ggn]LC|7                                        
 proc.phy.enforce.req         1 YN       L                 /TPROCU["L",ggn]LC|10                                       
 proc.phy.modifier.screen    15 FREE     L  MIS.SCREEN     /TPROCU["L",ggn]LC|9                                    
 proc.prt.format             10 FREE     L  RXM.PFORMS     /TPROCU["L",ggn]LC|5                                    
 proc.query.screen           15 FREE     L  MIS.SCREEN     /TPROCU["L",ggn]LC|0                                    
 proc.rule                   10 FREE     L  RXM.RULE       /TPROCU["L",ggn]LC|4                                    
 proc.sch.office.appt.type   10 FREE     L  SCH.APPT.TYPE  /TPROCU["L",ggn]LC|15                                   
 Ì     i   2
rxm.proc.update.op.age.groups    (proc.update.op.age.groups) 
[proc.location, proc.op.from.age]
/TPROCU["L",ggn]OP[tpuOA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.op.from.age             7 AGE.SORT L                 tpuOA                                                       
 proc.op.from.age.expunge     1 YN       L                 /TPROCU["L",ggn]OP[tpuOA]|0                                 
 Ì     i   2
rxm.proc.update.op.diagnostic    (proc.update.op.diagnostic) 
[proc.location,proc.op.from.age, proc.op.proc.seq]
/TPROCU["L",ggn]OP[tpuOA]D[tpuOP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.op.proc.seq             3 PINT     R                 tpuOP                                                       
 proc.op.proc                10 FREE     L  RXM.PROC       /TPROCU["L",ggn]OP[tpuOA]D[tpuOP]|0                     
 proc.op.proc.ok              1 FREE     L                 /TPROCU["L",ggn]OP[tpuOA]D[tpuOP]|1                         
 proc.op.proc.ok.check        1 FREE     L                 VAL=IF{@proc.op.proc.ok @Z.check.mark.data;""}              
 proc.op.proc.ok.yn           1 FREE     L                 VAL=IF{@proc.op.proc.ok "Y";"N"}                            
 Ì     i   2
rxm.proc.update.op.meds    (proc.update.op.meds) 
[proc.location,proc.op.from.age, proc.op.med.q]
/TPROCU["L",ggn]OP[tpuOA]M[tpuOM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.op.med.q                3 PINT     R                 tpuOM                                                       
 proc.document.admin          1 YN       L                 /TPROCU["L",ggn]OP[tpuOA]M[tpuOM]|3                         
 proc.op.med                 20 FREE     L  RXM.DRUG       /TPROCU["L",ggn]OP[tpuOA]M[tpuOM]|0                     
 proc.op.med.dosage          10 FREE     L                 /TPROCU["L",ggn]OP[tpuOA]M[tpuOM]|1                         
 proc.op.med.expunge          1 YN       L                 /TPROCU["L",ggn]OP[tpuOA]M[tpuOM]|4                         
 proc.op.med.order.check      1 FREE     L                 VAL=IF{@proc.op.med.order.ok @Z.check.mark.data;""}         
 proc.op.med.order.ok         1 FREE     L                 /TPROCU["L",ggn]OP[tpuOA]M[tpuOM]|2                         
 proc.op.med.order.ok.yn      1 YN       L                 VAL=IF{@proc.op.med.order.ok "Y";"N"}                       
 Ì     i   2
temp.proc.update.sites    (proc.update.sites) 
[proc.location, proc.site.q]
/TPROCU["L",ggn]S[tpuSQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 proc.site.q                  3 PINT     R                 tpuSQ                                                       
 proc.site                   15 FREE     L                 /TPROCU["L",ggn]S[tpuSQ]|0                                  
 proc.site.billing.code      10 FREE     L                 /TPROCU["L",ggn]S[tpuSQ]|1                                  
 proc.site.expunge            1 YN       L                 /TPROCU["L",ggn]S[tpuSQ]|3                                  
 proc.site.is.default         1 YN       L                 /TPROCU["L",ggn]S[tpuSQ]|2                                  
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 rxm.proc.health.maint.x            [health.maint.item,facility,mnemonic]
   health.maint.x                     &HXEHM[rbm,gqb,hxe]

 rxm.proc.keyword.index             [keyword,mnemonic]
   keyword.x                          &HXEK[hxek,hxe]

 rxm.proc.dict.location.index       [location,mnemonic]
   location.x                         &HXEL[ggn,hxe]

 rxm.proc.oe.proc.index             [oe.category,oe.procedure.mnemonic,facility,location,mnemonic] = oe.procedure
   oe.proc.x                          &HXEO[pc,ppM,gqb,ggn,hxe]

 rxm.proc.rule.proc.x               [rule,mnemonic,facility,location,order.rule.eval]
   rule.proc.x                        &HXERX[hxr,hxe,gqb,ggn,hxeOR]

 rxm.proc.dict.type.index           [order.type,mnemonic]
   type.x                             &HXET[hxzt,hxe]