Routine: IBY345PR

IBY345PR ;;PROXICOM/RTO - Pre Installation Program ;5-March-2007

 ;;2.0;INTEGRATED BILLING;**345**;21-MAR-94;Build 28

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;Program Description: This is the pre install routine for IB*2.0*345

 ;  Program to remove all prior entires of file "SOURCE OF INFORMATION" ^IBE(355.12)

REM ;  Remove old entries

 N DA,DIK

 S DIK="^IBE(355.12,",DA(1)=1,DA=0

 F  S DA=$O(^IBE(355.12,DA)) Q:DA="B"!'DA  D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY345PR   494     printed  Apr 23, 2025@18:48:22                                                                                                                                                                                                     Page 2

IBY345PR  ;;PROXICOM/RTO - Pre Installation Program ;5-March-2007

 +1       ;;2.0;INTEGRATED BILLING;**345**;21-MAR-94;Build 28

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;

 +5       ;Program Description: This is the pre install routine for IB*2.0*345

 +6       ;

 +7       ;  Program to remove all prior entires of file "SOURCE OF INFORMATION" ^IBE(355.12)

 +8       ;

REM       ;  Remove old entries

 +1        NEW DA,DIK

 +2        SET DIK="^IBE(355.12,"

           SET DA(1)=1

           SET DA=0

 +3        FOR

               SET DA=$ORDER(^IBE(355.12,DA))

               if DA="B"!'DA

                   QUIT

               DO ^DIK

 +4        QUIT

IBY345PR.m