RCRCBL ;ALB/CMS - RC VIEW BILL LIST ; 26-MAR-1998
V ;;4.5;Accounts Receivable;**63**;Mar 20,1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ; -- main entry point for RCRC EOB LIST
D EN^VALM("RCRC EOB LIST")
Q
;
HDR ; -- header code
S VALMHDR(1)=" EOB Processing TP Partial Payments"
S VALMHDR(2)=" Regional Counsel Referrals"
I +$G(VALMCNT)=0 S VALMSG="NO EOB TO PROCESS"
Q
;
INIT ; -- init variables and list array
K ^TMP("RCRCBL",$J),^TMP("RCRCBLX",$J)
S VALMCNT=0 D BLDL^RCRCBL1
;
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("RCRCBL",$J),^TMP("RCRCBLX",$J)
K PRCABN,PRCATN,VALMCNT,VALMBCK
D CLEAR^VALM1,CLEAN^VALM10
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCBL 814 printed Dec 13, 2024@01:47:34 Page 2
RCRCBL ;ALB/CMS - RC VIEW BILL LIST ; 26-MAR-1998
V ;;4.5;Accounts Receivable;**63**;Mar 20,1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;
EN ; -- main entry point for RCRC EOB LIST
+1 DO EN^VALM("RCRC EOB LIST")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)=" EOB Processing TP Partial Payments"
+2 SET VALMHDR(2)=" Regional Counsel Referrals"
+3 IF +$GET(VALMCNT)=0
SET VALMSG="NO EOB TO PROCESS"
+4 QUIT
+5 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("RCRCBL",$JOB),^TMP("RCRCBLX",$JOB)
+2 SET VALMCNT=0
DO BLDL^RCRCBL1
+3 ;
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("RCRCBL",$JOB),^TMP("RCRCBLX",$JOB)
+2 KILL PRCABN,PRCATN,VALMCNT,VALMBCK
+3 DO CLEAR^VALM1
DO CLEAN^VALM10
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
