RCRCUIB ;ALB/CMS-RC REFERRAL UTILITY IB INTERFACE PROGRAM ;
V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
Q
HD(PRCABN) ;Return 1 if bill has Charges on hold
Q $$IB^IBRUTL(PRCABN,0)
;
MINS(PRCABN) ;Return 1 if bill has multiple Insurance Policies
Q $$MINS^IBJTU31(PRCABN)
;
;RCRCUIB
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCUIB 370 printed Dec 13, 2024@01:47:49 Page 2
RCRCUIB ;ALB/CMS-RC REFERRAL UTILITY IB INTERFACE PROGRAM ;
V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 QUIT
HD(PRCABN) ;Return 1 if bill has Charges on hold
+1 QUIT $$IB^IBRUTL(PRCABN,0)
+2 ;
MINS(PRCABN) ;Return 1 if bill has multiple Insurance Policies
+1 QUIT $$MINS^IBJTU31(PRCABN)
+2 ;
+3 ;RCRCUIB
