source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPBTL1.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: 1.4 KB
Line 
1RCDPBTL1 ;WISC/RFJ-bill transaction 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 ;
7BILLPROF ; bill profile
8 D EN^VALM("RCDP BILL PROFILE")
9 ;
10 D INIT^RCDPBTLM
11 S VALMBCK="R"
12 ; fast exit
13 I $G(RCDPFXIT) S VALMBCK="Q"
14 Q
15 ;
16 ;
17TRANPROF ; transaction profile
18 N INDEX,RCTRANDA,VALMBG,VALMLST,VALMY
19 S VALMBCK="R"
20 ;
21 ; if no transactions, quit
22 I '$O(^TMP("RCDPBTLM",$J,"IDX",0)) S VALMSG="There are NO transactions to profile." Q
23 ;
24 ; if only one transaction, select that one automatically
25 I '$O(^TMP("RCDPBTLM",$J,"IDX",1)) S INDEX=1
26 ;
27 ; select the entry from the list
28 I '$G(INDEX) D I 'INDEX Q
29 . ; if not on first screen, make sure selection begins with 1
30 . S VALMBG=1
31 . ; if not on last screen, make sure selection ends with last
32 . S VALMLST=$O(^TMP("RCDPBTLM",$J,"IDX",999999999),-1)
33 . D EN^VALM2($G(XQORNOD(0)),"OS")
34 . S INDEX=$O(VALMY(0))
35 ;
36 S RCTRANDA=+$G(^TMP("RCDPBTLM",$J,"IDX",INDEX,INDEX))
37 D EN^VALM("RCDP TRANS PROFILE")
38 ;
39 D INIT^RCDPBTLM
40 S VALMBCK="R"
41 ; fast exit
42 I $G(RCDPFXIT) S VALMBCK="Q"
43 Q
44 ;
45 ;
46NEWBILL ; select a new bill
47 D FULL^VALM1
48 S VALMBCK="R"
49 ;
50 W !!,"This option will allow you to select a new bill to display."
51 W ! S %=$$SELBILL^RCDPBTLM
52 I %<1 Q
53 S RCBILLDA=%
54 ;
55 ; if called from account profile, pick new account
56 I $D(^TMP("RCDPAPLM",$J)) S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
57 ;
58 D INIT^RCDPBTLM
59 Q
Note: See TracBrowser for help on using the repository browser.