DGBT1P40.m

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 ---DGBT1P40   1559     printed  Mar 13, 2025@20:44:58                                                                                                                                                                                                    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