source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQENV.m@ 839

Last change on this file since 839 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ACKQENV ;HCIOFO/BH-QUASAR Version 3.0. Environment Check Routine ; 11/01/99
2 ;;3.0;QUASAR;;Feb 11, 2000
3 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
4 ;
5 N ACKTEST S ACKTEST=$$GET1^DIQ(509850.8,1,.1,"I")
6 I ACKTEST="S"!(ACKTEST="D") D Q
7 . S ACKTXT(1)="Installation has been run previously."
8 . S ACKTXT(2)="Therefore will not re-run Environment Check."
9 . S ACKTXT(4)=" " D MES^XPDUTL(.ACKTXT) K ACKTXT
10 ;
11 ;
12T N ACK1,ACKCNT,ACKMSG,ACKNME
13 S ACK1=0,ACKCNT=0
14 F S ACK1=$O(^ACK(509850.3,ACK1)) Q:'+ACK1 D
15 . I '$D(^USR(8930.3,"B",ACK1)) D
16 . . S XPDABORT=2
17 . . S ACKCNT=ACKCNT+1
18 . . S ACKNME=$$GET1^DIQ(200,ACK1,.01)
19 . . I ACKNME="" S ACKNME="A&SP Staff memeber with IEN "_ACK1_" no longer has entry on file #200."
20 . . D MES^XPDUTL(" "_ACKCNT_".) "_ACKNME)
21 I $G(XPDABORT)=2 D
22 . D BMES^XPDUTL("ERROR - It is a requirment of Quasar Version 3.0 that all existing A&SP")
23 . D MES^XPDUTL("staff members be entered on the USR CLASS MEMBERSHIP (#8930.3) file.")
24 . I ACKCNT=1 S ACKMSG="The 1 A&SP staff member listed above has not been entered on this file."
25 . I ACKCNT'=1 S ACKMSG="The "_ACKCNT_" A&SP staff members listed above have not been entered on this file."
26 . D MES^XPDUTL(ACKMSG)
27 . D BMES^XPDUTL("This install will now abort. Only attempt to re-install when corrective action")
28 . D MES^XPDUTL("has been taken.")
29 Q
Note: See TracBrowser for help on using the repository browser.