DGBTPRE.m

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 ---DGBTPRE   501     printed  Apr 09, 2024@20:45:29                                                                                                                                                                                                      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