DGJ1P2 ;ALB/MRY - Patch #2 Environment Check ; 3/9/04 10:04 AM
;;1.0;Incomplete Records Tracking;**2**;Jun 25, 2001
;
EN ;
S XPDABORT=""
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
. D BMES^XPDUTL("*****")
. D MES^XPDUTL("Your programming variables are not set up properly.")
. D MES^XPDUTL("Installation aborted.")
W !!,">> Environment check complete and okay."
Q
;
ABRT ; Abort transport, but leave in ^XTMP.
S ^XPDABORT=2 Q
;
POST ; DBIA #4376
I $D(^DD(393,10.04,"V","B",440,2)),$D(^DD(393,10.04,"V","B",392.31,2)) D
. K ^DD(393,10.04,"V","B",440,2)
I $D(^DD(393,10.04,"V","M","VENDOR",2)),$D(^DD(393,10.04,"V","M","LOCAL VENDOR",2)) D
. K ^DD(393,10.04,"V","M","VENDOR",2)
I $D(^DD(393,10.04,"V","P","V",2)),$D(^DD(393,10.04,"V","P","L",2)) D
. K ^DD(393,10.04,"V","P","V",2)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJ1P2 846 printed Oct 16, 2024@18:01:10 Page 2
DGJ1P2 ;ALB/MRY - Patch #2 Environment Check ; 3/9/04 10:04 AM
+1 ;;1.0;Incomplete Records Tracking;**2**;Jun 25, 2001
+2 ;
EN ;
+1 SET XPDABORT=""
+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.")
End DoDot:1
GOTO ABRT
+6 WRITE !!,">> Environment check complete and okay."
+7 QUIT
+8 ;
ABRT ; Abort transport, but leave in ^XTMP.
+1 SET ^XPDABORT=2
QUIT
+2 ;
POST ; DBIA #4376
+1 IF $DATA(^DD(393,10.04,"V","B",440,2))
IF $DATA(^DD(393,10.04,"V","B",392.31,2))
Begin DoDot:1
+2 KILL ^DD(393,10.04,"V","B",440,2)
End DoDot:1
+3 IF $DATA(^DD(393,10.04,"V","M","VENDOR",2))
IF $DATA(^DD(393,10.04,"V","M","LOCAL VENDOR",2))
Begin DoDot:1
+4 KILL ^DD(393,10.04,"V","M","VENDOR",2)
End DoDot:1
+5 IF $DATA(^DD(393,10.04,"V","P","V",2))
IF $DATA(^DD(393,10.04,"V","P","L",2))
Begin DoDot:1
+6 KILL ^DD(393,10.04,"V","P","V",2)
End DoDot:1
+7 QUIT
+8 ;
