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 Dec 13, 2024@02:24:16 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