IB20P236.m

IB20P236 ;WOIFO/SS-PATCH INSTALL ROUTINE ;7/30/03

 ;;2.0;INTEGRATED BILLING;**236**;21-MAR-94

 ;File #399 input template compilation routine

 Q  ;stub

EN ;entry point for post-install routine

 ;re-compile template

 N DMAX,IBX,Y,X,IBMAX

 D BMES^XPDUTL("Recompilation of [IB SCREEN1] Input Template:")

 S IBMAX=^DD("ROU")

 S IBX="IB SCREEN1"

 S Y=$O(^DIE("B",IBX,0)) Q:'Y

 I $D(^DIE(Y,"ROUOLD")),^("ROUOLD")]"",$D(^(0)) D

 . S X=$P(^("ROUOLD"),"^"),DMAX=IBMAX

 . D EN^DIEZ

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P236   493     printed  Nov 22, 2024@17:12:02                                                                                                                                                                                                     Page 2

IB20P236  ;WOIFO/SS-PATCH INSTALL ROUTINE ;7/30/03

 +1       ;;2.0;INTEGRATED BILLING;**236**;21-MAR-94

 +2       ;File #399 input template compilation routine

 +3       ;stub

           QUIT 

EN        ;entry point for post-install routine

 +1       ;re-compile template

 +2        NEW DMAX,IBX,Y,X,IBMAX

 +3        DO BMES^XPDUTL("Recompilation of [IB SCREEN1] Input Template:")

 +4        SET IBMAX=^DD("ROU")

 +5        SET IBX="IB SCREEN1"

 +6        SET Y=$ORDER(^DIE("B",IBX,0))

           if 'Y

               QUIT 

 +7        IF $DATA(^DIE(Y,"ROUOLD"))

               IF ^("ROUOLD")]""

                   IF $DATA(^(0))

                       Begin DoDot:1

 +8                        SET X=$PIECE(^("ROUOLD"),"^")

                           SET DMAX=IBMAX

 +9                        DO EN^DIEZ

                       End DoDot:1

 +10       QUIT 

 +11      ;