sHelp
                                     SCH.PREF.ANES
     i   2
   or.pref.anes.card.dict
     or.pref.anes.card.numbers
       or.pref.anes.card.items
       or.pref.anes.card.text
     or.pref.anes.card.res.types
       or.pref.anes.card.resources

 Ì     i   2
or.pref.anes.card.dict    (main) 
[anes,card]
&HSPD[hsat,hspd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 anes                        10 FREE     L  SCH.ANES.TYPE  hsat                                                    
 card                        10 FREE     L                 hspd                                                        
 active                       1 YN       L                 &HSPD[hsat,hspd]|0                                          
 dr                          10 FREE     L  MIS.DOC.DICT   &HSPD[hsat,hspd]|5                                      
 dr.name                     30 FREE     L                 VAL=IF{@dr.out="DEFAULT" "DEFAULT PHYSICIAN";@MIS.DOC.      
                                                           VAL=DICT.name[@dr.out]}                                     
 dr.out                      10 FREE     L  MIS.DOC.DICT   &HSPD[hsat,hspd]|4                                      
 fac                         10 FREE     L  MIS.FACILITY   &HSPD[hsat,hspd]|3                                      
 fac.name                    30 FREE     L                 VAL=@MIS.FACILITY.name[@fac.out]                            
 fac.out                     10 FREE     L  MIS.FACILITY   &HSPD[hsat,hspd]|2                                      
 last.update                 10 PINT     R                 &HSPD[hsat,hspd]UPD                                         
 last.update.dt               8 DATE     L                 VAL=%Z.date.clin.to.npr(@SCH.PREF.ANES.last.update)         
 last.update.tm               4 HHMM     L                 VAL=%Z.time.out(@last.update)                               
 last.update.user            10 FREE     L  MIS.USER       &HSPD[hsat,hspd]|6                                      
 name                        30 FREE     L                 &HSPD[hsat,hspd]|1                                          
 Ì     i   2
or.pref.anes.card.numbers    (numbers) 
[anes,card, number]
&HSPD[hsat,hspd]N[hspdn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 number                       2 URN      L                 hspdn                                                       
 edit                         1 YN       L                 &HSPD[hsat,hspd]N[hspdn]|1                                  
 header.name                 30 FREE     L                 VAL=IF{@SCH.PREF.HDR.description[@number.pref.header];      
                                                           VAL=@number.pref.header}                                    
 number.canned.text          10 FREE     L  SCH.TEXT       &HSPD[hsat,hspd]N[hspdn]|0                              
 number.pref.header          10 FREE     L  SCH.PREF.HDR   &HSPD[hsat,hspd]N[hspdn]|0                              
 text.exists                  1 YN       L                 VAL=IF{+@t.text[anes,card,number,""] @Z.check.mark.dat      
                                                           VAL=a;" "}                                                  
 text.name                   30 FREE     L                 VAL=IF{@SCH.PREF.HDR.description[@number.pref.header];      
                                                           VAL=@number.pref.header}                                    
 Ì     i   2
or.pref.anes.card.items    (items) 
[anes,card,number, item.queue]
&HSPD[hsat,hspd]N[hspdn]I[hspdi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 item.queue                   3 URN      L                 hspdi                                                       
 item                        10 FREE     L                 &HSPD[hsat,hspd]N[hspdn]I[hspdi]|1                          
 item.comment                10 FREE     L  SCH.PREF.COM   &HSPD[hsat,hspd]N[hspdn]I[hspdi]|4                      
 item.inv                    10 FREE     L  SCH.INV.DICT   &HSPD[hsat,hspd]N[hspdn]I[hspdi]|0                      
 item.name                   30 FREE     L                 VAL=IF{@SCH.INV.ITEM.other.name[@item.inv,@item^ITM];@      
                                                           VAL=SCH.INV.ITEM.name[@item.inv,ITM];ITM}                   
 item.prim.qty                3 INT      R                 &HSPD[hsat,hspd]N[hspdn]I[hspdi]|2                          
 item.sec.qty                 3 INT      R                 &HSPD[hsat,hspd]N[hspdn]I[hspdi]|3                          
 Ì     i   2
or.pref.anes.card.text    (text) 
[anes,card,number, card.line]
&HSPD[hsat,hspd]N[hspdn]T[hspdl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 card.line                    3 URN      L                 hspdl                                                       
 card.text                   79 FREE     L                 &HSPD[hsat,hspd]N[hspdn]T[hspdl]                            
 Ì     i   2
or.pref.anes.card.res.types    (resource.types) 
[anes,card, res.typ.q]
&HSPD[hsat,hspd]T[watT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 res.typ.q                    3 PINT     R                 watT                                                        
 res.typ.duration             4 PINT     R                 &HSPD[hsat,hspd]T[watT]|3                                   
 res.typ.name                30 FREE     L                 VAL=@SCH.RSRC.GRP.description[@res.type]                    
 res.typ.qty                  3 FREE     L                 &HSPD[hsat,hspd]T[watT]|1                                   
 res.typ.start                3 INT      R                 &HSPD[hsat,hspd]T[watT]|2                                   
 res.type                    10 FREE     L  SCH.RSRC.GRP   &HSPD[hsat,hspd]T[watT]|0                               
 res.type.inc.exc.res         7 CHOICE   L                 &HSPD[hsat,hspd]T[watT]|4                                   
 Ì     i   2
or.pref.anes.card.resources    (resources) 
[anes,card,res.typ.q, resource]
&HSPD[hsat,hspd]T[watT]R[wre]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 resource                    15 FREE     L  SCH.RESOURCE   wre                                                     
 res.name                    30 FREE     L                 VAL=@SCH.RESOURCE.name[resource]                            
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 or.pref.anes.card.fac.dr.x         [fac,dr,anes] = card
   fac.dr.x                           &HSPDX[gqb,ggg,hsat]