- 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 Feb 18, 2025@23:10:17 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