DGBT1P41 ;WAR/PHL - BENEFICIARY TRAVEL PATCH 41 POST-INIT ; 1/16/24 7:57am
;;1.0;Beneficiary Travel;**41**;September 25, 2001;Build 7
;
; This is a post install routine used to mark all special mode
; 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].
;
;
;
Q
;
EN ;entry point
;
D BMES^XPDUTL("Post install starting...")
D UPDATE
D BMES^XPDUTL("...Post install complete")
Q
;
UPDATE ;update 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:4 S DGBTOPT=$P($T(OPTIONS+DGBTCNT),";;",2) D
.D OUT^XPDMENU(DGBTOPT,"Option is no longer available. Please use appropriate claim processing system.")
.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 BENE TRAVEL ACCOUNT
;;DGBT BENE TRAVEL SCREEN
;;DGBT REPRINT DENIAL LETTERS
;;DGBT EDIT DENIAL LETTERS
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBT1P41 1223 printed Dec 13, 2024@01:40:19 Page 2
DGBT1P41 ;WAR/PHL - BENEFICIARY TRAVEL PATCH 41 POST-INIT ; 1/16/24 7:57am
+1 ;;1.0;Beneficiary Travel;**41**;September 25, 2001;Build 7
+2 ;
+3 ; This is a post install routine used to mark all special mode
+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 ;
+9 ;
+10 QUIT
+11 ;
EN ;entry point
+1 ;
+2 DO BMES^XPDUTL("Post install starting...")
+3 DO UPDATE
+4 DO BMES^XPDUTL("...Post install complete")
+5 QUIT
+6 ;
UPDATE ;update 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:4
SET DGBTOPT=$PIECE($TEXT(OPTIONS+DGBTCNT),";;",2)
Begin DoDot:1
+5 DO OUT^XPDMENU(DGBTOPT,"Option is no longer available. Please use appropriate claim processing system.")
+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 BENE TRAVEL ACCOUNT
+2 ;;DGBT BENE TRAVEL SCREEN
+3 ;;DGBT REPRINT DENIAL LETTERS
+4 ;;DGBT EDIT DENIAL LETTERS
