ACRF17EN.m

ACRF17EN ;IHS/OIRM/DSD/AEF - PATCH 17 ENVIRONMENT CHECK ROUTINE [ 01/27/2005  3:52 PM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**17**;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*17"

 S ACRPCHS="1,2,3,4,5,6,7,8,12,13,14,15,16"          ;CHANGE AS NEEDED

 ;

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

 ;

 Q

ACRF17EN  ;IHS/OIRM/DSD/AEF - PATCH 17 ENVIRONMENT CHECK ROUTINE [ 01/27/2005  3:52 PM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;**17**;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*17"

 +14      ;CHANGE AS NEEDED

           SET ACRPCHS="1,2,3,4,5,6,7,8,12,13,14,15,16"

 +15      ;

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

 +17      ;

 +18       QUIT