PSDP347 ; BAY/KAM - Patch PSD*3*47 Install Utility Routine ; 3/25/04 2:35pm
;;3.0;CONTROLLED SUBSTANCES;**47**;AUG 13, 1993
;
ENV ;Main Entry point for Environment Check
S XPDABORT=""
D PROGCHK(.XPDABORT) ;checks programmer variables
I XPDABORT="" K XPDABORT
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
PSDP347 ; BAY/KAM - Patch PSD*3*47 Install Utility Routine ; 3/25/04 2:35pm
+1 ;;3.0;CONTROLLED SUBSTANCES;**47**;AUG 13, 1993
+2 ;
ENV ;Main Entry point for Environment Check
+1 SET XPDABORT=""
+2 ;checks programmer variables
DO PROGCHK(.XPDABORT)
+3 IF XPDABORT=""
KILL XPDABORT
+4 QUIT
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