DGBT1P9.m

DGBT1P9 ;ALB/MRY - Patch #9 Environment/Post-init ; 8/18/04

 ;;1.0;Beneficiary Travel;**9**;Septembr 25, 2001

EN ;

 S XPDABORT=""

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 ; Verify that Bene Travel v1.0 exists, else Quit.

 I $$VERSION^XPDUTL("DGBT")'="1.0" D  G ABRT

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("VERSION 1.0 OF BENEFICIARY TRAVEL HAS NOT BEEN LOADED.")

 . D MES^XPDUTL("Installation aborted.")

 W !!,">> Environment check complete and okay."

 Q

 ;

ABRT ; Abort transport, but leave in ^XTMP.

 S ^XPDABORT=2 Q

 ;

PRE ; Set 'NO' to COREFLS ACTIVE (#723) in MAS PARAMETERS (#43) File.

 N SEQ,IEN,OUT,DA K OUT

 D LIST^DIC(43,"","@","","","","","","","","OUT")

 S SEQ=0 F  S SEQ=$O(OUT("DILIST",2,SEQ)) Q:'SEQ  D

 . S IEN=OUT("DILIST",2,SEQ)

 . S DA=IEN,DR="723///NO",DIE="^DG(43," D ^DIE

 Q

 ;

POST ; Disable BeneTravel Corefls options.

 N DIC,TEXT,COUNT

 S DIC="^DIC(19,",DIC(0)="X",COUNT=0

 F X="DGBT LOCAL VENDOR ADD","DGBT LOCAL VENDOR MENU","DGBT LOCAL VENDOR UPDATE" D

 . D ^DIC Q:Y<0  S COUNT=COUNT+1 D

 .. I COUNT=1 D BMES^XPDUTL("*****")

 .. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")

 .. S TEXT="CoreFLS Disabled (DBGT*1*9)"

 .. D OUT^XPDMENU(X,TEXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT1P9   1384     printed  Apr 09, 2024@20:46:03                                                                                                                                                                                                     Page 2

DGBT1P9   ;ALB/MRY - Patch #9 Environment/Post-init ; 8/18/04

 +1       ;;1.0;Beneficiary Travel;**9**;Septembr 25, 2001

EN        ;

 +1        SET XPDABORT=""

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +6       ; Verify that Bene Travel v1.0 exists, else Quit.

 +7        IF $$VERSION^XPDUTL("DGBT")'="1.0"

               Begin DoDot:1

 +8                DO BMES^XPDUTL("*****")

 +9                DO MES^XPDUTL("VERSION 1.0 OF BENEFICIARY TRAVEL HAS NOT BEEN LOADED.")

 +10               DO MES^XPDUTL("Installation aborted.")

               End DoDot:1

               GOTO ABRT

 +11       WRITE !!,">> Environment check complete and okay."

 +12       QUIT 

 +13      ;

ABRT      ; Abort transport, but leave in ^XTMP.

 +1        SET ^XPDABORT=2

           QUIT 

 +2       ;

PRE       ; Set 'NO' to COREFLS ACTIVE (#723) in MAS PARAMETERS (#43) File.

 +1        NEW SEQ,IEN,OUT,DA

           KILL OUT

 +2        DO LIST^DIC(43,"","@","","","","","","","","OUT")

 +3        SET SEQ=0

           FOR 

               SET SEQ=$ORDER(OUT("DILIST",2,SEQ))

               if 'SEQ

                   QUIT 

               Begin DoDot:1

 +4                SET IEN=OUT("DILIST",2,SEQ)

 +5                SET DA=IEN

                   SET DR="723///NO"

                   SET DIE="^DG(43,"

                   DO ^DIE

               End DoDot:1

 +6        QUIT 

 +7       ;

POST      ; Disable BeneTravel Corefls options.

 +1        NEW DIC,TEXT,COUNT

 +2        SET DIC="^DIC(19,"

           SET DIC(0)="X"

           SET COUNT=0

 +3        FOR X="DGBT LOCAL VENDOR ADD","DGBT LOCAL VENDOR MENU","DGBT LOCAL VENDOR UPDATE"

               Begin DoDot:1

 +4                DO ^DIC

                   if Y<0

                       QUIT 

                   SET COUNT=COUNT+1

                   Begin DoDot:2

 +5                    IF COUNT=1

                           DO BMES^XPDUTL("*****")

 +6                    DO MES^XPDUTL("Putting ["_X_"] option - 'out of order'")

 +7                    SET TEXT="CoreFLS Disabled (DBGT*1*9)"

 +8                    DO OUT^XPDMENU(X,TEXT)

                   End DoDot:2

               End DoDot:1

 +9        QUIT