ACKQENV.m

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 ---ACKQENV   1385     printed  Apr 09, 2024@21:35:36                                                                                                                                                                                                     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