IBY517PR.m

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 ---IBY517PR   854     printed  Apr 09, 2024@21:16:02                                                                                                                                                                                                     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