RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
;;4.5;Accounts Receivable;**114**;Mar 20, 1995
;;Per VHA Directive 10-93-142, 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDPBPL1 701 printed Dec 13, 2024@01:43:54 Page 2
RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
+1 ;;4.5;Accounts Receivable;**114**;Mar 20, 1995
+2 ;;Per VHA Directive 10-93-142, 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
