IBJTU4.m

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 ---IBJTU4   864     printed  Apr 09, 2024@21:29:27                                                                                                                                                                                                       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