DGBTPRE ;ALB/RJS - PREINSTALL FOR PATCH DGBT*1.0*4
 ;;1.0;Beneficiary Travel;**4**;August 12, 2003
 ;; THIS IS A PREINSTALL ROUTINE TO DELETE THE OPTIONS
 ;; [DGBT LOCAL VENDOR ADD] AND [DGBT LOCAL VENDOR UPDATE]
 ;; TO ENSURE THAT THEY INSTALL CLEAN
 ;;
 N DIC,X,DGBTFDA,DA
 S DIC="^DIC(19,",DIC(0)="X",X="DGBT LOCAL VENDOR ADD"
 D ^DIC
 S DA=+Y,DR=".01////@",DIE=DIC
 D ^DIE
 S DIC="^DIC(19,",DIC(0)="X",X="DGBT LOCAL VENDOR UPDATE"
 D ^DIC
 S DA=+Y,DR=".01////@",DIE=DIC
 D ^DIE
 Q