SD53P204.m

SD53P204 ;bp/cmf - Patch SD*5.3*204 utility routine ; 12/06/99 

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

 ;

ENV ;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 ;Pre-init

 Q

 ;

POST ;Post-init

 D POST^SD53A204 ;generate -1 practitioner message

 D POST^SD53B204 ;update c/s files

 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

 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

 Q

 ;

SD53P204  ;bp/cmf - Patch SD*5.3*204 utility routine ; 12/06/99 

 +1       ;;5.3;Scheduling;**204,1015**;AUG 13, 1993;Build 21

 +2       ;

ENV       ;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       ;Pre-init

 +1        QUIT 

 +2       ;

POST      ;Post-init

 +1       ;generate -1 practitioner message

           DO POST^SD53A204

 +2       ;update c/s files

           DO POST^SD53B204

 +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

 +8                QUIT 

               End DoDot:1

 +9        QUIT 

 +10      ;

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

 +8                QUIT 

               End DoDot:1

 +9        QUIT 

 +10      ;