DGV53PR.m

DGV53PR ;alb/mjk - DG Application Specific Init Driver for v5.3 ; 3/26/93

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

EN ; -- main entry point

 D LINE^DGVPP,DD     ; bene travel

 D LINE^DGVPP,DELEX  ; ptf

ENQ Q

 ;

DD ; -- dd clean up

 W !!,">>> The current data dictionary for the BENEFICIARY TRAVEL DISTANCE"

 W !?4,"file (#392.1) is being removed in order to delete the Mileage"

 W !?4,"identifier before the new data dictionary is installed.",!

 S DIU="^DGBT(392.1,",DIU(0)="" D EN^DIU2 K DIU

 W !,">>> Completed."

 Q

DELEX ;-- This function will delete the PTF EXPANDED CODE file (#45.89)

 ;   and it's data.

 ;

 W !!,">>> Deleting PTF EXPANDED CODE file (#45.89)."

 W !!?5,"The PTF EXPANDED CODE file (#45.89) will be re-installed"

 W !?5,"during the init process."

 S DIU="^DIC(45.89,",DIU(0)="D" D EN^DIU2

 K DIU

 W !,">>> Completed."

 Q

 ;

DGV53PR   ;alb/mjk - DG Application Specific Init Driver for v5.3 ; 3/26/93

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ; -- main entry point

 +1       ; bene travel

           DO LINE^DGVPP

           DO DD

 +2       ; ptf

           DO LINE^DGVPP

           DO DELEX

ENQ        QUIT 

 +1       ;

DD        ; -- dd clean up

 +1        WRITE !!,">>> The current data dictionary for the BENEFICIARY TRAVEL DISTANCE"

 +2        WRITE !?4,"file (#392.1) is being removed in order to delete the Mileage"

 +3        WRITE !?4,"identifier before the new data dictionary is installed.",!

 +4        SET DIU="^DGBT(392.1,"

           SET DIU(0)=""

           DO EN^DIU2

           KILL DIU

 +5        WRITE !,">>> Completed."

 +6        QUIT 

DELEX     ;-- This function will delete the PTF EXPANDED CODE file (#45.89)

 +1       ;   and it's data.

 +2       ;

 +3        WRITE !!,">>> Deleting PTF EXPANDED CODE file (#45.89)."

 +4        WRITE !!?5,"The PTF EXPANDED CODE file (#45.89) will be re-installed"

 +5        WRITE !?5,"during the init process."

 +6        SET DIU="^DIC(45.89,"

           SET DIU(0)="D"

           DO EN^DIU2

 +7        KILL DIU

 +8        WRITE !,">>> Completed."

 +9        QUIT 

 +10      ;