ACR03PST.m

ACR03PST ;IHS/OIRM/DSD/AEF - PATCH 3 POST INSTALL ROUTINE [ 05/03/2002  11:20 AM ]

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

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D PCOM

 Q

PCOM ;----- COMPILE PRINT TEMPLATES

 ;

 N J,DMAX,X,Y,Z

 D ^XBKVAR

 D HOME^%ZIS

 D BMES^XPDUTL("COMPILING PRINT TEMPLATES...")

 F J=1:1 S Z=$T(PTMP+J) Q:Z["$$END"  D

 . S Y=$P(Z,";",3)

 . S Y=$O(^DIPT("B",Y,0))

 . Q:'Y

 . S X=$P(Z,";",4)

 . S DMAX=5000

 . D EN^DIPZ

 Q

PTMP ;----- PRINT TEMPLATES TO BE COMPILED

 ;;ACR TRAVEL ORDER;ACRPTO

 ;;ACR TRAVEL ORDER SUMMARY;ACRPTOS

 ;;ACR TRAVEL VOUCHER;ACRPTV

 ;;ACR TRAVEL VOUCHER SUMMARY;ACRPTVS

 ;;ACR TRAINING 350;ACRPTRG

 ;;ACR TRAINING REQUEST DISPLAY;ACR148

 ;;$$END

 Q

ACR03PST  ;IHS/OIRM/DSD/AEF - PATCH 3 POST INSTALL ROUTINE [ 05/03/2002  11:20 AM ]

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

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO PCOM

 +3        QUIT 

PCOM      ;----- COMPILE PRINT TEMPLATES

 +1       ;

 +2        NEW J,DMAX,X,Y,Z

 +3        DO ^XBKVAR

 +4        DO HOME^%ZIS

 +5        DO BMES^XPDUTL("COMPILING PRINT TEMPLATES...")

 +6        FOR J=1:1

               SET Z=$TEXT(PTMP+J)

               IF Z["$$END"

                   QUIT 

               Begin DoDot:1

 +7                SET Y=$PIECE(Z,";",3)

 +8                SET Y=$ORDER(^DIPT("B",Y,0))

 +9                IF 'Y

                       QUIT 

 +10               SET X=$PIECE(Z,";",4)

 +11               SET DMAX=5000

 +12               DO EN^DIPZ

               End DoDot:1

 +13       QUIT 

PTMP      ;----- PRINT TEMPLATES TO BE COMPILED

 +1       ;;ACR TRAVEL ORDER;ACRPTO

 +2       ;;ACR TRAVEL ORDER SUMMARY;ACRPTOS

 +3       ;;ACR TRAVEL VOUCHER;ACRPTV

 +4       ;;ACR TRAVEL VOUCHER SUMMARY;ACRPTVS

 +5       ;;ACR TRAINING 350;ACRPTRG

 +6       ;;ACR TRAINING REQUEST DISPLAY;ACR148

 +7       ;;$$END

 +8        QUIT