sHelp
                                     RXM.PFORMS
       2
 main

 Ì   €     2
main
[mnemonic]
&(HX)HXP[hxp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 hxp                                                         
 active                       1 YN       L                 &(HX)HXP[hxp]|0                                             
 description                 60 FREE     L                 &(HX)HXP[hxp]|1                                             
 last.update                 10 FREE     L                 &(HX)HXP[hxp]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       &(HX)HXP[hxp]UPD|1                                      
 magic.pgm                   70 FREE     L                 &(HX)HXP[hxp]|4                                             
 multiple                     1 YN       L                 &(HX)HXP[hxp]|5                                             
 source                       1 CHOICE   L                 &(HX)HXP[hxp]|2                                             
 source.desc                  8 FREE     L                 VAL=IF{@source^SS="S" "STANDARD";SS="M" "MEDITECH";SS=      
                                                           VAL="C" "CUSTOMER"}                                         
 type                         6 CHOICE   L                 &(HX)HXP[hxp]|3