sHelp
                                     EDM.FORM
       2
   edm.patient.forms
     edm.patient.forms.text

 Ì       2
edm.patient.forms    (main) 
[mnemonic]
&HEDFM[hedfm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 hedfm                                                       
 active                       1 YN       L                 &HEDFM[hedfm]|0                                             
 cust.def.screen             15 FREE     L  MIS.SCREEN     &HEDFM[hedfm]|5                                         
 last.update                 10 PINT     R                 &HEDFM[hedfm]UPD                                            
 name                        30 FREE     L                 &HEDFM[hedfm]|1                                             
 no.copies                    2 PINT     R                 &HEDFM[hedfm]|6                                             
 report                      56 URN      L  NPR.REP        &HEDFM[hedfm]|2                                         
 stand.alone                  1 YN       L                 &HEDFM[hedfm]|3                                             
 text.view                    0 FREE     L                 VAL=@Erase.region(16,0,8,@text.width)^#,%Z.view.shell(      
                                                           VAL=^&HEDFM[mnemonic]T,16,23,@text.width,0)                 
 text.width                   2 PINT     R                 VAL=80                                                      
 type                         7 CHOICE   L                 &HEDFM[hedfm]|4                                             
 Ì       2
edm.patient.forms.text    (text) 
[mnemonic, text.q]
&HEDFM[hedfm]T[hedTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 text.q                       2 PINT     R                 hedTQ                                                       
 text.line                   80 FREE     L                 &HEDFM[hedfm]T[hedTQ]