- 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 Jan 18, 2025@03:34:57 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