DGJ1P1.m

DGJ1P1 ;ALB/MRY - Patch #1 Environment Check ; 12/9/02 10:04 AM

 ;;1.0;Incomplete Records Tracking;**1**;Jun 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 Incomplete Records Tracking v1.0 exists, else Quit.

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

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

 . D MES^XPDUTL("VERSION 1.0 OF INCOMPLETE RECORDS TRACKING 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

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGJ1P1   737     printed  Apr 09, 2024@21:02:22                                                                                                                                                                                                       Page 2

DGJ1P1    ;ALB/MRY - Patch #1 Environment Check ; 12/9/02 10:04 AM

 +1       ;;1.0;Incomplete Records Tracking;**1**;Jun 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 Incomplete Records Tracking v1.0 exists, else Quit.

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

               Begin DoDot:1

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

 +9                DO MES^XPDUTL("VERSION 1.0 OF INCOMPLETE RECORDS TRACKING 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       ;