- 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 Feb 18, 2025@23:13:57 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 ;