ACRF11EN.m

ACRF11EN ;IHS/OIRM/DSD/AEF - PATCH 11 ENVIRONMENT CHECK ROUTINE [ 09/24/2004  3:19 PM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**11**;NOV 05, 2001

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 ;CALL GENERIC EN^ACRFPENV(ACRPCHN,ACRPCHS,.XPDQUIT) ENVIRONMENT

 ;CHECK ROUTINE

 ;

 ;      WHERE:

 ;      ACRPCHN  =  PATCH NAME

 ;      ACRPCHS  =  PREREQUISITE PATCH NUMBERS

 ;      XPDQUIT  =  KIDS INSTALL TERMINATOR VARIABLE OUTPUT

 ;                  1 = QUIT

 ;

 K XPDQUIT

 ;

 S ACRPCHN="ACR*2.1*11"

 S ACRPCHS="1,2,3,4,5,6,7,8"          ;CHANGE AS NEEDED

 ;EXCEPTION TO SKIP 9 AND 10         9/24/2004

 ;

 D EN^ACRFPENV(ACRPCHN,ACRPCHS,.XPDQUIT)

 ;

 Q

ACRF11EN  ;IHS/OIRM/DSD/AEF - PATCH 11 ENVIRONMENT CHECK ROUTINE [ 09/24/2004  3:19 PM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;**11**;NOV 05, 2001

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2       ;CALL GENERIC EN^ACRFPENV(ACRPCHN,ACRPCHS,.XPDQUIT) ENVIRONMENT

 +3       ;CHECK ROUTINE

 +4       ;

 +5       ;      WHERE:

 +6       ;      ACRPCHN  =  PATCH NAME

 +7       ;      ACRPCHS  =  PREREQUISITE PATCH NUMBERS

 +8       ;      XPDQUIT  =  KIDS INSTALL TERMINATOR VARIABLE OUTPUT

 +9       ;                  1 = QUIT

 +10      ;

 +11       KILL XPDQUIT

 +12      ;

 +13       SET ACRPCHN="ACR*2.1*11"

 +14      ;CHANGE AS NEEDED

           SET ACRPCHS="1,2,3,4,5,6,7,8"

 +15      ;EXCEPTION TO SKIP 9 AND 10         9/24/2004

 +16      ;

 +17       DO EN^ACRFPENV(ACRPCHN,ACRPCHS,.XPDQUIT)

 +18      ;

 +19       QUIT