|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
843 bytes
|
| Line | |
|---|
| 1 | IBJTU4 ;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 | ;
|
|---|
| 6 | ARSTATA(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 | ;
|
|---|
| 10 | ACTIVE(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
|
|---|
| 21 | ACTE Q X
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
