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 ---[H[J[2J[HFBXIP35 572 printed Nov 22, 2024@17:11:54 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
