IBY345PS.m

IBY345PS ;;PROXICOM/RTO - Post Installation Program ;10-November-2006

 ;;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 post install routine for IB*2.0*345

 ;

 ;  Program to check and clean up "ghost buffer entries"

 ;  

REM ;  Remove old entries

 NEW IEN,STAT

 S IEN=0

 F  S IEN=$O(^IBA(355.33,IEN)) Q:'IEN  D

 . S STAT=$P($G(^IBA(355.33,IEN,0)),"^",4)

 . I STAT="E" Q

 . I $G(^IBA(355.33,IEN,40))="",$G(^IBA(355.33,IEN,60))="" Q

 . D DELDATA^IBCNBED(IEN)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY345PS   591     printed  Apr 09, 2024@21:22:52                                                                                                                                                                                                     Page 2

IBY345PS  ;;PROXICOM/RTO - Post Installation Program ;10-November-2006

 +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 post install routine for IB*2.0*345

 +6       ;

 +7       ;  Program to check and clean up "ghost buffer entries"

 +8       ;  

REM       ;  Remove old entries

 +1        NEW IEN,STAT

 +2        SET IEN=0

 +3        FOR 

               SET IEN=$ORDER(^IBA(355.33,IEN))

               if 'IEN

                   QUIT 

               Begin DoDot:1

 +4                SET STAT=$PIECE($GET(^IBA(355.33,IEN,0)),"^",4)

 +5                IF STAT="E"

                       QUIT 

 +6                IF $GET(^IBA(355.33,IEN,40))=""

                       IF $GET(^IBA(355.33,IEN,60))=""

                           QUIT 

 +7                DO DELDATA^IBCNBED(IEN)

               End DoDot:1

 +8        QUIT