ACKQENV ;HCIOFO/BH-QUASAR Version 3.0. Environment Check Routine ; 11/01/99
;;3.0;QUASAR;;Feb 11, 2000
;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
;
N ACKTEST S ACKTEST=$$GET1^DIQ(509850.8,1,.1,"I")
I ACKTEST="S"!(ACKTEST="D") D Q
. S ACKTXT(1)="Installation has been run previously."
. S ACKTXT(2)="Therefore will not re-run Environment Check."
. S ACKTXT(4)=" " D MES^XPDUTL(.ACKTXT) K ACKTXT
;
;
T N ACK1,ACKCNT,ACKMSG,ACKNME
S ACK1=0,ACKCNT=0
F S ACK1=$O(^ACK(509850.3,ACK1)) Q:'+ACK1 D
. I '$D(^USR(8930.3,"B",ACK1)) D
. . S XPDABORT=2
. . S ACKCNT=ACKCNT+1
. . S ACKNME=$$GET1^DIQ(200,ACK1,.01)
. . I ACKNME="" S ACKNME="A&SP Staff memeber with IEN "_ACK1_" no longer has entry on file #200."
. . D MES^XPDUTL(" "_ACKCNT_".) "_ACKNME)
I $G(XPDABORT)=2 D
. D BMES^XPDUTL("ERROR - It is a requirment of Quasar Version 3.0 that all existing A&SP")
. D MES^XPDUTL("staff members be entered on the USR CLASS MEMBERSHIP (#8930.3) file.")
. I ACKCNT=1 S ACKMSG="The 1 A&SP staff member listed above has not been entered on this file."
. I ACKCNT'=1 S ACKMSG="The "_ACKCNT_" A&SP staff members listed above have not been entered on this file."
. D MES^XPDUTL(ACKMSG)
. D BMES^XPDUTL("This install will now abort. Only attempt to re-install when corrective action")
. D MES^XPDUTL("has been taken.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HACKQENV 1385 printed Oct 16, 2024@18:32:55 Page 2
ACKQENV ;HCIOFO/BH-QUASAR Version 3.0. Environment Check Routine ; 11/01/99
+1 ;;3.0;QUASAR;;Feb 11, 2000
+2 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
+3 ;
+4 NEW ACKTEST
SET ACKTEST=$$GET1^DIQ(509850.8,1,.1,"I")
+5 IF ACKTEST="S"!(ACKTEST="D")
Begin DoDot:1
+6 SET ACKTXT(1)="Installation has been run previously."
+7 SET ACKTXT(2)="Therefore will not re-run Environment Check."
+8 SET ACKTXT(4)=" "
DO MES^XPDUTL(.ACKTXT)
KILL ACKTXT
End DoDot:1
QUIT
+9 ;
+10 ;
T NEW ACK1,ACKCNT,ACKMSG,ACKNME
+1 SET ACK1=0
SET ACKCNT=0
+2 FOR
SET ACK1=$ORDER(^ACK(509850.3,ACK1))
if '+ACK1
QUIT
Begin DoDot:1
+3 IF '$DATA(^USR(8930.3,"B",ACK1))
Begin DoDot:2
+4 SET XPDABORT=2
+5 SET ACKCNT=ACKCNT+1
+6 SET ACKNME=$$GET1^DIQ(200,ACK1,.01)
+7 IF ACKNME=""
SET ACKNME="A&SP Staff memeber with IEN "_ACK1_" no longer has entry on file #200."
+8 DO MES^XPDUTL(" "_ACKCNT_".) "_ACKNME)
End DoDot:2
End DoDot:1
+9 IF $GET(XPDABORT)=2
Begin DoDot:1
+10 DO BMES^XPDUTL("ERROR - It is a requirment of Quasar Version 3.0 that all existing A&SP")
+11 DO MES^XPDUTL("staff members be entered on the USR CLASS MEMBERSHIP (#8930.3) file.")
+12 IF ACKCNT=1
SET ACKMSG="The 1 A&SP staff member listed above has not been entered on this file."
+13 IF ACKCNT'=1
SET ACKMSG="The "_ACKCNT_" A&SP staff members listed above have not been entered on this file."
+14 DO MES^XPDUTL(ACKMSG)
+15 DO BMES^XPDUTL("This install will now abort. Only attempt to re-install when corrective action")
+16 DO MES^XPDUTL("has been taken.")
End DoDot:1
+17 QUIT
