FBXIP35.m

FBXIP35 ;WOIFO/SS-PATCH INSTALL ROUTINE ;6/29/01

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

 Q

PS ;post-install entry point

 ;reindex "B" cross-ref for 162.03 .01 field

 N DA,DIK

 S DIK(1)=".01^B"

 S DA(3)=0

 F  S DA(3)=$O(^FBAAC(DA(3))) Q:+DA(3)=0  D

 . S DA(2)=0

 . F  S DA(2)=$O(^FBAAC(DA(3),1,DA(2))) Q:+DA(2)=0  D

 . . S DA(1)=0

 . . F  S DA(1)=$O(^FBAAC(DA(3),1,DA(2),1,DA(1))) Q:+DA(1)=0  D

 . . . S DA=0

 . . . F  S DA=$O(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA)) Q:+DA=0  D

 . . . . S DIK="^FBAAC("_DA(3)_",1,"_DA(2)_",1,"_DA(1)_",1,"

 . . . . D EN1^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP35   572     printed  Apr 09, 2024@21:03:44                                                                                                                                                                                                      Page 2

FBXIP35   ;WOIFO/SS-PATCH INSTALL ROUTINE ;6/29/01

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

 +2        QUIT 

PS        ;post-install entry point

 +1       ;reindex "B" cross-ref for 162.03 .01 field

 +2        NEW DA,DIK

 +3        SET DIK(1)=".01^B"

 +4        SET DA(3)=0

 +5        FOR 

               SET DA(3)=$ORDER(^FBAAC(DA(3)))

               if +DA(3)=0

                   QUIT 

               Begin DoDot:1

 +6                SET DA(2)=0

 +7                FOR 

                       SET DA(2)=$ORDER(^FBAAC(DA(3),1,DA(2)))

                       if +DA(2)=0

                           QUIT 

                       Begin DoDot:2

 +8                        SET DA(1)=0

 +9                        FOR 

                               SET DA(1)=$ORDER(^FBAAC(DA(3),1,DA(2),1,DA(1)))

                               if +DA(1)=0

                                   QUIT 

                               Begin DoDot:3

 +10                               SET DA=0

 +11                               FOR 

                                       SET DA=$ORDER(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA))

                                       if +DA=0

                                           QUIT 

                                       Begin DoDot:4

 +12                                       SET DIK="^FBAAC("_DA(3)_",1,"_DA(2)_",1,"_DA(1)_",1,"

 +13                                       DO EN1^DIK

                                       End DoDot:4

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +14       QUIT