IBY517PR ;FA/ALB - Pre-Install for IB patch 517 ;01-Jan-2015
;;2.0;INTEGRATED BILLING;**517**;21-MAR-94;Build 240
;;Per VA Directive 6402, this routine should not be modified.
;
EN ; Standard Entry Point
D CLEAR,DDFIX
Q
;
CLEAR ; Clear indices for 365* descriptions prior to installing new set and kills
N DIK,IX
F IX=365.013,365.015,365.016,365.021,365.022,365.025 D
. S DIK="^IBE("_IX_","
. S DIK(1)=".02^C"
. D ENALL2^DIK
; clear out file 356.023 - values have changed
S DIK="^IBT(356.023,",DA=0
F S DA=$O(^IBT(356.023,DA)) Q:DA'=+DA D ^DIK
Q
;
DDFIX ; removed prior Mumps index definitions before installing patch with New Standard indexes
N I,FILE
F I=1:1:22 D
. I I<10 S FILE="356.00"_I
. I I=10!(I=20) S FILE="356.0"_$E(I)
. I I>10,I'=20 S FILE="356.0"_I
. D DELIX^DDMOD(FILE,.02,1,"K")
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY517PR 854 printed Dec 13, 2024@02:34:24 Page 2
IBY517PR ;FA/ALB - Pre-Install for IB patch 517 ;01-Jan-2015
+1 ;;2.0;INTEGRATED BILLING;**517**;21-MAR-94;Build 240
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
EN ; Standard Entry Point
+1 DO CLEAR
DO DDFIX
+2 QUIT
+3 ;
CLEAR ; Clear indices for 365* descriptions prior to installing new set and kills
+1 NEW DIK,IX
+2 FOR IX=365.013,365.015,365.016,365.021,365.022,365.025
Begin DoDot:1
+3 SET DIK="^IBE("_IX_","
+4 SET DIK(1)=".02^C"
+5 DO ENALL2^DIK
End DoDot:1
+6 ; clear out file 356.023 - values have changed
+7 SET DIK="^IBT(356.023,"
SET DA=0
+8 FOR
SET DA=$ORDER(^IBT(356.023,DA))
if DA'=+DA
QUIT
DO ^DIK
+9 QUIT
+10 ;
DDFIX ; removed prior Mumps index definitions before installing patch with New Standard indexes
+1 NEW I,FILE
+2 FOR I=1:1:22
Begin DoDot:1
+3 IF I<10
SET FILE="356.00"_I
+4 IF I=10!(I=20)
SET FILE="356.0"_$EXTRACT(I)
+5 IF I>10
IF I'=20
SET FILE="356.0"_I
+6 DO DELIX^DDMOD(FILE,.02,1,"K")
+7 QUIT
End DoDot:1
+8 QUIT
