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 ---[H[J[2J[HIBY345PS 591 printed Dec 13, 2024@02:33:46 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
