- IBJTU4 ;ALB/ARH - TPI UTILITIES - AR CALLS ; 2/14/95
- ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ;
- ARSTATA(IBIFN) ; return AR current status of bill (430.3): name (.01) ^ abbreviation (1) ^ status number (2)
- N X S X=$$STAT^RCJIBFN2(+$G(IBIFN)),X=$$STNO^RCJIBFN2(X)
- Q X
- ;
- ACTIVE(IBIFN) ; returns true if bill should be on active list, i.e. AR CURRENT STATUS not COLLECTED/CLOSED or CANCELED
- N IBSTAT,X S X=1
- S IBSTAT=$P($$ARSTATA(+$G(IBIFN)),U,1)
- I IBSTAT["ARCHIVED" S X=0 G ACTE
- I IBSTAT["CANCELLATION" S X=0 G ACTE
- I IBSTAT["CANCELLED BILL" S X=0 G ACTE
- I IBSTAT["COLLECTED/CLOSED" S X=0 G ACTE
- I IBSTAT["IN-ACTIVE" S X=0 G ACTE
- I IBSTAT["PENDING ARCHIVE" S X=0 G ACTE
- I IBSTAT["REFUNDED" S X=0 G ACTE
- I IBSTAT["WRITE-OFF" S X=0 G ACTE
- ACTE Q X
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJTU4 864 printed Feb 18, 2025@23:50:43 Page 2
- IBJTU4 ;ALB/ARH - TPI UTILITIES - AR CALLS ; 2/14/95
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ;
- ARSTATA(IBIFN) ; return AR current status of bill (430.3): name (.01) ^ abbreviation (1) ^ status number (2)
- +1 NEW X
- SET X=$$STAT^RCJIBFN2(+$GET(IBIFN))
- SET X=$$STNO^RCJIBFN2(X)
- +2 QUIT X
- +3 ;
- ACTIVE(IBIFN) ; returns true if bill should be on active list, i.e. AR CURRENT STATUS not COLLECTED/CLOSED or CANCELED
- +1 NEW IBSTAT,X
- SET X=1
- +2 SET IBSTAT=$PIECE($$ARSTATA(+$GET(IBIFN)),U,1)
- +3 IF IBSTAT["ARCHIVED"
- SET X=0
- GOTO ACTE
- +4 IF IBSTAT["CANCELLATION"
- SET X=0
- GOTO ACTE
- +5 IF IBSTAT["CANCELLED BILL"
- SET X=0
- GOTO ACTE
- +6 IF IBSTAT["COLLECTED/CLOSED"
- SET X=0
- GOTO ACTE
- +7 IF IBSTAT["IN-ACTIVE"
- SET X=0
- GOTO ACTE
- +8 IF IBSTAT["PENDING ARCHIVE"
- SET X=0
- GOTO ACTE
- +9 IF IBSTAT["REFUNDED"
- SET X=0
- GOTO ACTE
- +10 IF IBSTAT["WRITE-OFF"
- SET X=0
- GOTO ACTE
- ACTE QUIT X