source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPAPL1.m@ 1141

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

initial load of WorldVistAEHR

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