Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBJTU4

IBJTU4.m

Go to the documentation of this file.
  1. IBJTU4 ;ALB/ARH - TPI UTILITIES - AR CALLS ; 2/14/95
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;
  1. ARSTATA(IBIFN) ; return AR current status of bill (430.3): name (.01) ^ abbreviation (1) ^ status number (2)
  1. N X S X=$$STAT^RCJIBFN2(+$G(IBIFN)),X=$$STNO^RCJIBFN2(X)
  1. Q X
  1. ;
  1. ACTIVE(IBIFN) ; returns true if bill should be on active list, i.e. AR CURRENT STATUS not COLLECTED/CLOSED or CANCELED
  1. N IBSTAT,X S X=1
  1. S IBSTAT=$P($$ARSTATA(+$G(IBIFN)),U,1)
  1. I IBSTAT["ARCHIVED" S X=0 G ACTE
  1. I IBSTAT["CANCELLATION" S X=0 G ACTE
  1. I IBSTAT["CANCELLED BILL" S X=0 G ACTE
  1. I IBSTAT["COLLECTED/CLOSED" S X=0 G ACTE
  1. I IBSTAT["IN-ACTIVE" S X=0 G ACTE
  1. I IBSTAT["PENDING ARCHIVE" S X=0 G ACTE
  1. I IBSTAT["REFUNDED" S X=0 G ACTE
  1. I IBSTAT["WRITE-OFF" S X=0 G ACTE
  1. ACTE Q X