RCRCUIB.m

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 ---RCRCUIB   370     printed  Apr 09, 2024@20:54:48                                                                                                                                                                                                      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