ACRF13PS.m

ACRF13PS ;IHS/OIRM/DSD/AEF - VERSION 2.1 PATCH 13 POST INSTALL ROUTINE [ 10/28/2004  11:37 AM ]

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

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D COMP

 Q:$D(ACROUT)

 Q

COMP ;----- COMPILE PRINT TEMPLATES

 ;

 ;      This subroutine recompiles all the compiled ARMS, Finance

 ;      and Contract and Grants print templates

 ;

 N ACRIEN,ACRTEMP,DMAX,X,Y

 D BMES^XPDUTL("Recompiling print templates...")

 S ACRTEMP=""

 F  S ACRTEMP=$O(^DIPT("B",ACRTEMP)) Q:ACRTEMP']""  D

 . I "ACR^ACG^AFS"'[$E(ACRTEMP,1,3) Q

 . S ACRIEN=0

 . F  S ACRIEN=$O(^DIPT("B",ACRTEMP,ACRIEN)) Q:'ACRIEN  D

 . . S X=$P($G(^DIPT(ACRIEN,"ROU")),U,2)

 . . Q:X']""

 . . S Y=ACRIEN

 . . S DMAX=$$ROUSIZE^DILF

 . . D EN^DIPZ

 D BMES^XPDUTL("Templates are re-compiled")

 Q

ACRF13PS  ;IHS/OIRM/DSD/AEF - VERSION 2.1 PATCH 13 POST INSTALL ROUTINE [ 10/28/2004  11:37 AM ]

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

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO COMP

 +4        IF $DATA(ACROUT)

               QUIT 

 +5        QUIT 

COMP      ;----- COMPILE PRINT TEMPLATES

 +1       ;

 +2       ;      This subroutine recompiles all the compiled ARMS, Finance

 +3       ;      and Contract and Grants print templates

 +4       ;

 +5        NEW ACRIEN,ACRTEMP,DMAX,X,Y

 +6        DO BMES^XPDUTL("Recompiling print templates...")

 +7        SET ACRTEMP=""

 +8        FOR 

               SET ACRTEMP=$ORDER(^DIPT("B",ACRTEMP))

               IF ACRTEMP']""

                   QUIT 

               Begin DoDot:1

 +9                IF "ACR^ACG^AFS"'[$EXTRACT(ACRTEMP,1,3)

                       QUIT 

 +10               SET ACRIEN=0

 +11               FOR 

                       SET ACRIEN=$ORDER(^DIPT("B",ACRTEMP,ACRIEN))

                       IF 'ACRIEN

                           QUIT 

                       Begin DoDot:2

 +12                       SET X=$PIECE($GET(^DIPT(ACRIEN,"ROU")),U,2)

 +13                       IF X']""

                               QUIT 

 +14                       SET Y=ACRIEN

 +15                       SET DMAX=$$ROUSIZE^DILF

 +16                       DO EN^DIPZ

                       End DoDot:2

               End DoDot:1

 +17       DO BMES^XPDUTL("Templates are re-compiled")

 +18       QUIT