FBXIP54.m

FBXIP54 ;WOIFO/SS-PATCH INSTALL ROUTINE ;5/24/03

 ;;3.5;FEE BASIS;**54**;JAN 30, 1995

 ;File #161 input template compilation routine

 Q  ;stub

EN ;entry point for post-install routine

 ;re-compile template

 N DMAX,FBX,Y,X,FBMAX

 D BMES^XPDUTL("Recompilation of [FBAA AUTHORIZATION] Input Template:")

 S FBMAX=^DD("ROU")

 S FBX="FBAA AUTHORIZATION"

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

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

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

 . D EN^DIEZ

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP54   501     printed  Dec 13, 2024@02:01:54                                                                                                                                                                                                      Page 2

FBXIP54   ;WOIFO/SS-PATCH INSTALL ROUTINE ;5/24/03

 +1       ;;3.5;FEE BASIS;**54**;JAN 30, 1995

 +2       ;File #161 input template compilation routine

 +3       ;stub

           QUIT 

EN        ;entry point for post-install routine

 +1       ;re-compile template

 +2        NEW DMAX,FBX,Y,X,FBMAX

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

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

 +5        SET FBX="FBAA AUTHORIZATION"

 +6        SET Y=$ORDER(^DIE("B",FBX,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=FBMAX

 +9                        DO EN^DIEZ

                       End DoDot:1

 +10       QUIT 

 +11      ;