NAMEVAQ (EDIT) ENCRY FIELDS
DESCRIPTIONThis option will allow the user to add/edit fields to be encrypted
CREATORPOSTMASTER
DIC {DIC}VAT(394.73,
DIC(0)AEMQL
DIEVAT(394.73,
DR {DIE}[VAQ EDIT FILE]
E ACTION PRESENTYES
ENTRY ACTIONW @IOF S VAQOFLG=1
EXIT ACTIONW @IOF K VAQOFLG
LOCKVAQ EDIT FILE
MENU TEXTAdd/Edit Fields to Encrypt
NO UP-ARROWNO UP-ARROWING ALLOWED
PACKAGEPATIENT DATA EXCHANGE
ROUTINEADDEDT^VAQUTL93
TYPErun routine
UPPERCASE MENU TEXTADD/EDIT FIELDS TO ENCRYPT
X ACTION PRESENTYES