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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTPRE 501 printed Nov 22, 2024@16:51:07 Page 2
DGBTPRE ;ALB/RJS - PREINSTALL FOR PATCH DGBT*1.0*4
+1 ;;1.0;Beneficiary Travel;**4**;August 12, 2003
+2 ;; THIS IS A PREINSTALL ROUTINE TO DELETE THE OPTIONS
+3 ;; [DGBT LOCAL VENDOR ADD] AND [DGBT LOCAL VENDOR UPDATE]
+4 ;; TO ENSURE THAT THEY INSTALL CLEAN
+5 ;;
+6 NEW DIC,X,DGBTFDA,DA
+7 SET DIC="^DIC(19,"
SET DIC(0)="X"
SET X="DGBT LOCAL VENDOR ADD"
+8 DO ^DIC
+9 SET DA=+Y
SET DR=".01////@"
SET DIE=DIC
+10 DO ^DIE
+11 SET DIC="^DIC(19,"
SET DIC(0)="X"
SET X="DGBT LOCAL VENDOR UPDATE"
+12 DO ^DIC
+13 SET DA=+Y
SET DR=".01////@"
SET DIE=DIC
+14 DO ^DIE
+15 QUIT
