source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPBPL1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 671 bytes
Line 
1RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
2 ;;4.5;Accounts Receivable;**114**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7BILLTRAN ; show transactions for a bill
8 D EN^VALM("RCDP TRANSACTIONS LIST")
9 ;
10 D INIT^RCDPBPLM
11 S VALMBCK="R"
12 ; fast exit
13 I $G(RCDPFXIT) S VALMBCK="Q"
14 Q
15 ;
16 ;
17NEWBILL ; select a new bill
18 D FULL^VALM1
19 S VALMBCK="R"
20 ;
21 W !!,"This option will allow you to select a new bill to display."
22 W ! S %=$$SELBILL^RCDPBTLM
23 I %<1 Q
24 S RCBILLDA=%
25 ;
26 ; if called from account profile, pick new account
27 I $D(^TMP("RCDPAPLM",$J)) S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
28 ;
29 D INIT^RCDPBPLM
30 Q
Note: See TracBrowser for help on using the repository browser.