source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCVL.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1RCRCVL ;ALB/CMS - RC VIEW BILL LIST ; 27-AUG-1997
2V ;;4.5;Accounts Receivable;**63,159**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; -- main entry point for RCRC VIEW BILL LIST
6 D EN^VALM("RCRC VIEW BILL LIST")
7 Q
8 ;
9HDR ; -- header code
10 S VALMHDR(1)=""
11 S VALMHDR(2)="Third Party Possible 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 ;
15INIT ; -- init variables and list array
16 K ^TMP("RCRCVL",$J),^TMP("RCRCVLX",$J),^TMP("RCRCVLPT",$J)
17 K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J)
18 S VALMCNT=0 D BLDL^RCRCVL1
19 ;
20INITQ Q
21 ;
22IB ;Create IB global
23 N RCL,RCLNM,RCT,RCY,VALMY,RCSELN,IBIFN,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("RCRCVLPT",$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
34HELP ; -- help code
35 S X="?" D DISP^XQORM1 W !!
36 Q
37 ;
38EXIT ; -- exit code
39 K ^TMP("RCRCVL",$J),^TMP("RCRCVLX",$J),^TMP("RCRCVLPT",$J)
40 K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),^TMP("VALM DATA",$J)
41 K ^TMP("RCDOMAIN",$J)
42 K DFN,PRCABN,RCOUT,VALMCNT,VALMBCK
43 D CLEAR^VALM1,CLEAN^VALM10
44 Q
45 ;
46OPT ; Entry Point for Third Party Review/Referral
47 D EN^RCRCVLB
48 I $G(RCOUT) G OPTQ
49 D EN^RCRCVL
50OPTQ K DFN,RCOUT,VALMBCK
51 Q
52 ;RCRCVL
Note: See TracBrowser for help on using the repository browser.