SD53P231.m

SD53P231 ;ALB/RBS - Patch SD*5.3*231 Install Utility Routine ; 5/15/01 11:11am

 ;;5.3;Scheduling;**231,1015**;AUG 13, 1993;Build 21

 ;

 ;

ENV ;Main entry point for Environment check point.

 ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 D PARMCHK(.XPDABORT) ;checks param file ien exists

 I XPDABORT="" K XPDABORT

 Q

 ;

PRE ;Main entry point for Pre-init items.

 ;

 Q

 ;

POST ;Main entry point for Post-init items.

 ;

 D POST1 ;Update Client/Server files

 Q

 ;

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 ;

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

 .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

 ;

PARMCHK(XPDABORT) ;checks for proper param file ien

 ;

 I '$D(^SCTM(404.44,1)) D

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

 .D MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")

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

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

 .S XPDABORT=2

 Q

 ;

POST1 ;Update client/server files.

 ;

 I $$UPCLNLST^SCMCUT("SD*5.3*231^NullClient^1^0^0") D  Q

 .D MES^XPDUTL("Client/Server files updated.")

 ;

 D MES^XPDUTL("Client/Server files NOT updated.")

 Q

SD53P231  ;ALB/RBS - Patch SD*5.3*231 Install Utility Routine ; 5/15/01 11:11am

 +1       ;;5.3;Scheduling;**231,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       ;checks param file ien exists

           DO PARMCHK(.XPDABORT)

 +5        IF XPDABORT=""

               KILL XPDABORT

 +6        QUIT 

 +7       ;

PRE       ;Main entry point for Pre-init items.

 +1       ;

 +2        QUIT 

 +3       ;

POST      ;Main entry point for Post-init items.

 +1       ;

 +2       ;Update Client/Server files

           DO POST1

 +3        QUIT 

 +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       ;

PARMCHK(XPDABORT) ;checks for proper param file ien

 +1       ;

 +2        IF '$DATA(^SCTM(404.44,1))

               Begin DoDot:1

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

 +4                DO MES^XPDUTL("Parameter file (#404.44) does not have proper IEN (1).")

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

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

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT 

 +9       ;

POST1     ;Update client/server files.

 +1       ;

 +2        IF $$UPCLNLST^SCMCUT("SD*5.3*231^NullClient^1^0^0")

               Begin DoDot:1

 +3                DO MES^XPDUTL("Client/Server files updated.")

               End DoDot:1

               QUIT 

 +4       ;

 +5        DO MES^XPDUTL("Client/Server files NOT updated.")

 +6        QUIT