ACRF5EN.m

ACRF5EN ;IHS/OIRM/DSD/AEF - PATCH 4 ENVIRONMENT CHECK ROUTINE [ 10/16/2002  8:24 AM ]

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

 S ACRPCHS="1,2,3,4"

 ;

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

 ;

 Q

ACRF5EN   ;IHS/OIRM/DSD/AEF - PATCH 4 ENVIRONMENT CHECK ROUTINE [ 10/16/2002  8:24 AM ]

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

 +14       SET ACRPCHS="1,2,3,4"

 +15      ;

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

 +17      ;

 +18       QUIT