source: WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBTPRE.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 485 bytes
RevLine 
[613]1DGBTPRE ;ALB/RJS - PREINSTALL FOR PATCH DGBT*1.0*4
2 ;;1.0;Beneficiary Travel;**4**;August 12, 2003
3 ;; THIS IS A PREINSTALL ROUTINE TO DELETE THE OPTIONS
4 ;; [DGBT LOCAL VENDOR ADD] AND [DGBT LOCAL VENDOR UPDATE]
5 ;; TO ENSURE THAT THEY INSTALL CLEAN
6 ;;
7 N DIC,X,DGBTFDA,DA
8 S DIC="^DIC(19,",DIC(0)="X",X="DGBT LOCAL VENDOR ADD"
9 D ^DIC
10 S DA=+Y,DR=".01////@",DIE=DIC
11 D ^DIE
12 S DIC="^DIC(19,",DIC(0)="X",X="DGBT LOCAL VENDOR UPDATE"
13 D ^DIC
14 S DA=+Y,DR=".01////@",DIE=DIC
15 D ^DIE
16 Q
Note: See TracBrowser for help on using the repository browser.