DG53P343.m

DG53P343 ;ALB/RPM - Patch DG*5.3*343 Install Utility Routine ; 12/06/00 11:04am

 ;;5.3;Registration;**343,1015**;AUG 13, 1993;Build 21

 ;

 ;

ENV ;Main entry point for Environment check point.

 ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 I XPDABORT="" K XPDABORT

 Q

 ;

 ;

PRE ;Main entry point for Pre-init items.

 Q

 ;

 ;

POST ;Main entry point for Post-init items.

 ;

 Q

 ;

 ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 ;

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

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

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

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

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

 .S XPDABORT=2

 Q

 ;

 ;

DG53P343  ;ALB/RPM - Patch DG*5.3*343 Install Utility Routine ; 12/06/00 11:04am

 +1       ;;5.3;Registration;**343,1015**;AUG 13, 1993;Build 21

 +2       ;

 +3       ;

ENV       ;Main entry point for Environment check point.

 +1       ;

 +2        SET XPDABORT=""

 +3       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +4        IF XPDABORT=""

               KILL XPDABORT

 +5        QUIT 

 +6       ;

 +7       ;

PRE       ;Main entry point for Pre-init items.

 +1        QUIT 

 +2       ;

 +3       ;

POST      ;Main entry point for Post-init items.

 +1       ;

 +2        QUIT 

 +3       ;

 +4       ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 +1       ;

 +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.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT 

 +9       ;

 +10      ;