DGJ1P3.m

DGJ1P3 ;ALB/MRY - Patch #3 Environment Check ; 8/23/04 10:04 AM

 ;;1.0;Incomplete Records Tracking;**3**;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.")

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

 Q

 ;

ABRT ; Abort transport, but leave in ^XTMP.

 S ^XPDABORT=2 Q

 ;

PRE ; Kill DD field (#10.04) of file (#393).  Rebuild in Build.

 S DIK="^DD(393,",DA=10.04,DA(1)=393

 D ^DIK

 Q

 ;

POST ;Post init - Disable Corefls option.

 N DIC,TEXT

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

 S X="DGJ LOCAL VENDOR ADD" D

 . D ^DIC Q:Y<0  D

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

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

 .. S TEXT="CoreFLS Disabled (DGJ*1*3)"

 .. D OUT^XPDMENU(X,TEXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGJ1P3   893     printed  Apr 09, 2024@21:03                                                                                                                                                                                                          Page 2

DGJ1P3    ;ALB/MRY - Patch #3 Environment Check ; 8/23/04 10:04 AM

 +1       ;;1.0;Incomplete Records Tracking;**3**;Jun 25, 2001

 +2       ;

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        WRITE !!,">> Environment check complete and okay."

 +7        QUIT 

 +8       ;

ABRT      ; Abort transport, but leave in ^XTMP.

 +1        SET ^XPDABORT=2

           QUIT 

 +2       ;

PRE       ; Kill DD field (#10.04) of file (#393).  Rebuild in Build.

 +1        SET DIK="^DD(393,"

           SET DA=10.04

           SET DA(1)=393

 +2        DO ^DIK

 +3        QUIT 

 +4       ;

POST      ;Post init - Disable Corefls option.

 +1        NEW DIC,TEXT

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

           SET DIC(0)="X"

 +3        SET X="DGJ LOCAL VENDOR ADD"

           Begin DoDot:1

 +4            DO ^DIC

               if Y<0

                   QUIT 

               Begin DoDot:2

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

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

 +7                SET TEXT="CoreFLS Disabled (DGJ*1*3)"

 +8                DO OUT^XPDMENU(X,TEXT)

               End DoDot:2

           End DoDot:1

 +9        QUIT