- SD53P204 ;bp/cmf - Patch SD*5.3*204 utility routine ; 12/06/99
- ;;5.3;Scheduling;**204**;AUG 13, 1993
- ;
- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P204 1030 printed Dec 13, 2024@02:46:02 Page 2
- SD53P204 ;bp/cmf - Patch SD*5.3*204 utility routine ; 12/06/99
- +1 ;;5.3;Scheduling;**204**;AUG 13, 1993
- +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 ;