17 lines
485 B
Mathematica
17 lines
485 B
Mathematica
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
|