DGBT1P3.m

DGBT1P3 ;ALB/MRY - Patch #3 Environment Check ; 7/15/03 10:04 AM

 ;;1.0;Beneficiary Travel;**3**;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

 ;

POST ;Post-init. kill off bad cross reference, re-index.

 N DIK

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

 D MES^XPDUTL("Re-indexing 'BB' cross-reference.")

 K ^DGBT(392.31,"BB") S DIK="^DGBT(392.31," D IXALL^DIK

 Q

 ;

ABRT ; Abort transport, but leave in ^XTMP.

 S ^XPDABORT=2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGBT1P3   914     printed  Apr 09, 2024@20:46:06                                                                                                                                                                                                      Page 2

DGBT1P3   ;ALB/MRY - Patch #3 Environment Check ; 7/15/03 10:04 AM

 +1       ;;1.0;Beneficiary Travel;**3**;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      ;

POST      ;Post-init. kill off bad cross reference, re-index.

 +1        NEW DIK

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

 +3        DO MES^XPDUTL("Re-indexing 'BB' cross-reference.")

 +4        KILL ^DGBT(392.31,"BB")

           SET DIK="^DGBT(392.31,"

           DO IXALL^DIK

 +5        QUIT 

 +6       ;

ABRT      ; Abort transport, but leave in ^XTMP.

 +1        SET ^XPDABORT=2

           QUIT