ACGPOST.m

ACGPOST ;IHS/OIRM/DSD/AEF - POSTINSTALL ROUTINE [ 03/10/2000  9:08 AM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D PTEMP

 Q

PTEMP ;----- COMPILE PRINT TEMPLATES

 ;

 ;      X    = ROUTINE FOR COMPILED TEMPLATE

 ;      Y    = COMPILED TEMPLATE IEN

 ;      DMAX = COMPILED ROUTINE SIZE

 ;      TEMP = TEMPLATE NAME

 ;

 N X,Y,DMAX,TEMP

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

 S TEMP="ACG"

 F  S TEMP=$O(^DIPT("B",TEMP)) Q:TEMP']""  Q:$E(TEMP,1,3)'="ACG"  D

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

 . Q:'Y

 . S X=$G(^DIPT(Y,"ROU"))

 . S X=$TR(X,"^","")

 . Q:X']""

 . S DMAX=$$ROUSIZE^DILF

 . D EN^DIPZ

 D BMES^XPDUTL("DONE!")

 Q

ACGPOST   ;IHS/OIRM/DSD/AEF - POSTINSTALL ROUTINE [ 03/10/2000  9:08 AM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO PTEMP

 +3        QUIT 

PTEMP     ;----- COMPILE PRINT TEMPLATES

 +1       ;

 +2       ;      X    = ROUTINE FOR COMPILED TEMPLATE

 +3       ;      Y    = COMPILED TEMPLATE IEN

 +4       ;      DMAX = COMPILED ROUTINE SIZE

 +5       ;      TEMP = TEMPLATE NAME

 +6       ;

 +7        NEW X,Y,DMAX,TEMP

 +8        DO BMES^XPDUTL("Compiling PRINT TEMPLATES...")

 +9        SET TEMP="ACG"

 +10       FOR 

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

               IF TEMP']""

                   QUIT 

               IF $EXTRACT(TEMP,1,3)'="ACG"

                   QUIT 

               Begin DoDot:1

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

 +12               IF 'Y

                       QUIT 

 +13               SET X=$GET(^DIPT(Y,"ROU"))

 +14               SET X=$TRANSLATE(X,"^","")

 +15               IF X']""

                       QUIT 

 +16               SET DMAX=$$ROUSIZE^DILF

 +17               DO EN^DIPZ

               End DoDot:1

 +18       DO BMES^XPDUTL("DONE!")

 +19       QUIT