source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCBL.m@ 1247

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

initial load of FOIAVistA 6/30/08 version

File size: 781 bytes
Line 
1RCRCBL ;ALB/CMS - RC VIEW BILL LIST ; 26-MAR-1998
2V ;;4.5;Accounts Receivable;**63**;Mar 20,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; -- main entry point for RCRC EOB LIST
6 D EN^VALM("RCRC EOB LIST")
7 Q
8 ;
9HDR ; -- header code
10 S VALMHDR(1)=" EOB Processing TP Partial Payments"
11 S VALMHDR(2)=" Regional Counsel Referrals"
12 I +$G(VALMCNT)=0 S VALMSG="NO EOB TO PROCESS"
13 Q
14 ;
15INIT ; -- init variables and list array
16 K ^TMP("RCRCBL",$J),^TMP("RCRCBLX",$J)
17 S VALMCNT=0 D BLDL^RCRCBL1
18 ;
19INITQ Q
20 ;
21HELP ; -- help code
22 S X="?" D DISP^XQORM1 W !!
23 Q
24 ;
25EXIT ; -- exit code
26 K ^TMP("RCRCBL",$J),^TMP("RCRCBLX",$J)
27 K PRCABN,PRCATN,VALMCNT,VALMBCK
28 D CLEAR^VALM1,CLEAN^VALM10
29 Q
30 ;
31EXPND ; -- expand code
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.