DGBT1P40 ;ALB/DBE - BENEFICIARY TRAVEL PATCH 40 POST-INIT ;9/6/2023
;;1.0;Beneficiary Travel;**40**;September 25, 2001;Build 8
;
; This is a post install routine used to mark all mileage
; related options as out of order. Also the out of order
; options will be removed from the main Beneficiary Travel
; Menu [DGBT BENE TRAVEL MENU].
;
;Supported IA: #1157 - XPDMENU
;
Q
;
EN ;entry point
;
D BMES^XPDUTL("Post install starting...")
D DELFILE
D UPDATE
D BMES^XPDUTL("...Post install complete")
Q
;
DELFILE ;*** Remove files 392.5, and 392.51 from the system ***
;
K DIU
I $D(^DIC(392.5,0,"GL")) K DIU S DIU=^DIC(392.5,0,"GL"),DIU(0)="DEST" D EN^DIU2 K DIU
I $D(^DIC(392.51,0,"GL")) K DIU S DIU=^DIC(392.51,0,"GL"),DIU(0)="DEST" D EN^DIU2 K DIU
Q
;
UPDATE ;update mileage options with out of order message and remove from main menu
;
N DGBTMENU,DGBTCNT,DGBTOPT,DGBTCHK
S DGBTMENU="DGBT BENE TRAVEL MENU"
F DGBTCNT=1:1:6 S DGBTOPT=$P($T(OPTIONS+DGBTCNT),";;",2) D
.D OUT^XPDMENU(DGBTOPT,"Option is no longer available. Please use BTSSS.")
.D BMES^XPDUTL(" "_DGBTOPT_" placed out of order...")
.S DGBTCHK=$$DELETE^XPDMENU(DGBTMENU,DGBTOPT)
.D MES^XPDUTL(" ..."_DGBTOPT_" option "_$S(DGBTCHK:"removed from ",1:"not found in ")_DGBTMENU)
Q
;
OPTIONS ;DGBT options that will be marked out of order
;;DGBT ALTERNATE INCOME
;;DGBT BENE TRAVEL CERTIFICATION
;;DGBT BENE TRAVEL CONFIG EDIT
;;DGBT BENE TRAVEL RATES
;;DGBT BENE TRAVEL REPRINT
;;DGBT MANUAL DEDUCTIBLE WAIVER
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBT1P40 1559 printed Dec 13, 2024@01:40:18 Page 2
DGBT1P40 ;ALB/DBE - BENEFICIARY TRAVEL PATCH 40 POST-INIT ;9/6/2023
+1 ;;1.0;Beneficiary Travel;**40**;September 25, 2001;Build 8
+2 ;
+3 ; This is a post install routine used to mark all mileage
+4 ; related options as out of order. Also the out of order
+5 ; options will be removed from the main Beneficiary Travel
+6 ; Menu [DGBT BENE TRAVEL MENU].
+7 ;
+8 ;Supported IA: #1157 - XPDMENU
+9 ;
+10 QUIT
+11 ;
EN ;entry point
+1 ;
+2 DO BMES^XPDUTL("Post install starting...")
+3 DO DELFILE
+4 DO UPDATE
+5 DO BMES^XPDUTL("...Post install complete")
+6 QUIT
+7 ;
DELFILE ;*** Remove files 392.5, and 392.51 from the system ***
+1 ;
+2 KILL DIU
+3 IF $DATA(^DIC(392.5,0,"GL"))
KILL DIU
SET DIU=^DIC(392.5,0,"GL")
SET DIU(0)="DEST"
DO EN^DIU2
KILL DIU
+4 IF $DATA(^DIC(392.51,0,"GL"))
KILL DIU
SET DIU=^DIC(392.51,0,"GL")
SET DIU(0)="DEST"
DO EN^DIU2
KILL DIU
+5 QUIT
+6 ;
UPDATE ;update mileage options with out of order message and remove from main menu
+1 ;
+2 NEW DGBTMENU,DGBTCNT,DGBTOPT,DGBTCHK
+3 SET DGBTMENU="DGBT BENE TRAVEL MENU"
+4 FOR DGBTCNT=1:1:6
SET DGBTOPT=$PIECE($TEXT(OPTIONS+DGBTCNT),";;",2)
Begin DoDot:1
+5 DO OUT^XPDMENU(DGBTOPT,"Option is no longer available. Please use BTSSS.")
+6 DO BMES^XPDUTL(" "_DGBTOPT_" placed out of order...")
+7 SET DGBTCHK=$$DELETE^XPDMENU(DGBTMENU,DGBTOPT)
+8 DO MES^XPDUTL(" ..."_DGBTOPT_" option "_$SELECT(DGBTCHK:"removed from ",1:"not found in ")_DGBTMENU)
End DoDot:1
+9 QUIT
+10 ;
OPTIONS ;DGBT options that will be marked out of order
+1 ;;DGBT ALTERNATE INCOME
+2 ;;DGBT BENE TRAVEL CERTIFICATION
+3 ;;DGBT BENE TRAVEL CONFIG EDIT
+4 ;;DGBT BENE TRAVEL RATES
+5 ;;DGBT BENE TRAVEL REPRINT
+6 ;;DGBT MANUAL DEDUCTIBLE WAIVER
