| [628] | 1 | ACKQENV ;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 | ;
|
|---|
| 12 | T 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
|
|---|
