source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJTU4.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 843 bytes
Line 
1IBJTU4 ;ALB/ARH - TPI UTILITIES - AR CALLS ; 2/14/95
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;
6ARSTATA(IBIFN) ; return AR current status of bill (430.3): name (.01) ^ abbreviation (1) ^ status number (2)
7 N X S X=$$STAT^RCJIBFN2(+$G(IBIFN)),X=$$STNO^RCJIBFN2(X)
8 Q X
9 ;
10ACTIVE(IBIFN) ; returns true if bill should be on active list, i.e. AR CURRENT STATUS not COLLECTED/CLOSED or CANCELED
11 N IBSTAT,X S X=1
12 S IBSTAT=$P($$ARSTATA(+$G(IBIFN)),U,1)
13 I IBSTAT["ARCHIVED" S X=0 G ACTE
14 I IBSTAT["CANCELLATION" S X=0 G ACTE
15 I IBSTAT["CANCELLED BILL" S X=0 G ACTE
16 I IBSTAT["COLLECTED/CLOSED" S X=0 G ACTE
17 I IBSTAT["IN-ACTIVE" S X=0 G ACTE
18 I IBSTAT["PENDING ARCHIVE" S X=0 G ACTE
19 I IBSTAT["REFUNDED" S X=0 G ACTE
20 I IBSTAT["WRITE-OFF" S X=0 G ACTE
21ACTE Q X
Note: See TracBrowser for help on using the repository browser.