| [613] | 1 | RCRCAL ;ALB/CMS - RC VIEW BILL LIST ; 27-AUG-1997
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; -- main entry point for RCRC VIEW BILL LIST
|
|---|
| 6 | D EN^VALM("RCRC ACTION BILL LIST")
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | HDR ; -- header code
|
|---|
| 10 | S VALMHDR(1)=""
|
|---|
| 11 | S VALMHDR(2)="Third Party Active Referrals"
|
|---|
| 12 | S VALMSG=$S(+$G(VALMCNT)=0:"NO RECORDS FOUND",1:"|r Ref RC|* Cat C/Hold|+ Multi Ins|x Ret by RC|")
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | INIT ; -- init variables and list array
|
|---|
| 16 | K ^TMP("RCRCAL",$J),^TMP("RCRCALX",$J),^TMP("RCRCALPT",$J)
|
|---|
| 17 | K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),^TMP("RCRCAC",$J)
|
|---|
| 18 | S VALMCNT=0 D BLDL^RCRCAL1
|
|---|
| 19 | ;
|
|---|
| 20 | INITQ Q
|
|---|
| 21 | ;
|
|---|
| 22 | IB ;Create IB global
|
|---|
| 23 | N RCL,RCLNM,RCT,RCY,VALMY,RCSELN,VALMCNT S (RCT,RCY)=0
|
|---|
| 24 | S RCLNM="IBJT ACTIVE LIST"
|
|---|
| 25 | D EN^VALM2($G(XQORNOD(0)))
|
|---|
| 26 | I $D(VALMY) S RCSELN=0 F S RCSELN=$O(VALMY(RCSELN)) Q:'RCSELN D
|
|---|
| 27 | . S DFN=+$P($G(^TMP("RCRCALPT",$J,RCSELN)),U,1)
|
|---|
| 28 | . I +DFN S RCT=RCT+1 I '$D(RCL("B",DFN)) S RCL(RCT)=DFN,RCL("B",DFN)=""
|
|---|
| 29 | S RCY=0 F S RCY=$O(RCL(RCY)) Q:'RCY D
|
|---|
| 30 | . S DFN=RCL(RCY)
|
|---|
| 31 | . W !,"Getting bill information " D EN^IBJTLA
|
|---|
| 32 | S VALMBCK="R"
|
|---|
| 33 | Q
|
|---|
| 34 | HELP ; -- help code
|
|---|
| 35 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | EXIT ; -- exit code
|
|---|
| 39 | K ^TMP("RCRCAL",$J),^TMP("RCRCALX",$J),^TMP("RCRCALPT",$J),^TMP("RCRCAC",$J)
|
|---|
| 40 | K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),^TMP("VALM DATA",$J)
|
|---|
| 41 | K DFN,PRCABN,RCOUT,VALMCNT,VALMBCK
|
|---|
| 42 | D CLEAR^VALM1,CLEAN^VALM10
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | OPT ; Entry Point for Third Party Review/Referral
|
|---|
| 46 | D EN^RCRCALB
|
|---|
| 47 | I $G(RCOUT) G OPTQ
|
|---|
| 48 | D EN^RCRCAL
|
|---|
| 49 | OPTQ K DFN,RCOUT,VALMBCK
|
|---|
| 50 | Q
|
|---|
| 51 | ;RCRCAL
|
|---|
