RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
;;4.5;Accounts Receivable;**114,462**;Mar 20, 1995;Build 12
;;Per VHA Directive 6402, this routine should not be modified.
Q
;
;
BILLTRAN ; show transactions for a bill
D EN^VALM("RCDP TRANSACTIONS LIST")
;
D INIT^RCDPBPLM
S VALMBCK="R"
; fast exit
I $G(RCDPFXIT) S VALMBCK="Q"
Q
;
;
NEWBILL ; select a new bill
D FULL^VALM1
S VALMBCK="R"
;
W !!,"This option will allow you to select a new bill to display."
W ! S %=$$SELBILL^RCDPBTLM
I %<1 Q
S RCBILLDA=%
;
; if called from account profile, pick new account
I $D(^TMP("RCDPAPLM",$J)) S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
;
D INIT^RCDPBPLM
Q
;
ELIG ; display patient eligibility PRCA*4.5*462
D FULL^VALM1
S VALMBCK="R"
D EN^VALM("RCDP ELIGIBILITY")
I $G(RCDPFXIT) S VALMBCK="Q"
Q
;
SPAUTH ; display special authority PRCA*4.5*462
D FULL^VALM1
S VALMBCK="R"
D EN^VALM("RCDP SP AUTHORITY")
I $G(RCDPFXIT) S VALMBCK="Q"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPBPL1 1014 printed Mar 25, 2026@15:08:19 Page 2
RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
+1 ;;4.5;Accounts Receivable;**114,462**;Mar 20, 1995;Build 12
+2 ;;Per VHA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
+5 ;
BILLTRAN ; show transactions for a bill
+1 DO EN^VALM("RCDP TRANSACTIONS LIST")
+2 ;
+3 DO INIT^RCDPBPLM
+4 SET VALMBCK="R"
+5 ; fast exit
+6 IF $GET(RCDPFXIT)
SET VALMBCK="Q"
+7 QUIT
+8 ;
+9 ;
NEWBILL ; select a new bill
+1 DO FULL^VALM1
+2 SET VALMBCK="R"
+3 ;
+4 WRITE !!,"This option will allow you to select a new bill to display."
+5 WRITE !
SET %=$$SELBILL^RCDPBTLM
+6 IF %<1
QUIT
+7 SET RCBILLDA=%
+8 ;
+9 ; if called from account profile, pick new account
+10 IF $DATA(^TMP("RCDPAPLM",$JOB))
SET RCDEBTDA=$PIECE(^PRCA(430,RCBILLDA,0),"^",9)
+11 ;
+12 DO INIT^RCDPBPLM
+13 QUIT
+14 ;
ELIG ; display patient eligibility PRCA*4.5*462
+1 DO FULL^VALM1
+2 SET VALMBCK="R"
+3 DO EN^VALM("RCDP ELIGIBILITY")
+4 IF $GET(RCDPFXIT)
SET VALMBCK="Q"
+5 QUIT
+6 ;
SPAUTH ; display special authority PRCA*4.5*462
+1 DO FULL^VALM1
+2 SET VALMBCK="R"
+3 DO EN^VALM("RCDP SP AUTHORITY")
+4 IF $GET(RCDPFXIT)
SET VALMBCK="Q"
+5 QUIT
