source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPTPLM.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: 2.0 KB
Line 
1RCDPTPLM ;WISC/RFJ-transaction profile listmanager top routine ;1 Jun 99
2 ;;4.5;Accounts Receivable;**114,198**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; called from menu option (19)
6 ;
7 N RCTRANDA,RCDPFXIT
8 ;
9 F D Q:'RCTRANDA
10 . W !! S RCTRANDA=$$SELTRAN
11 . I RCTRANDA<1 S RCTRANDA=0 Q
12 . ;
13 . ; check for transaction incomplete, do not enter lm
14 . I $P($G(^PRCA(433,RCTRANDA,0)),"^",4)=1 D Q
15 . . W !!," This transaction is INCOMPLETE. The transaction must be complete"
16 . . W !," before running this option."
17 . ;
18 . D EN^VALM("RCDP TRANS PROFILE")
19 . ; fast exit
20 . I $G(RCDPFXIT) S RCTRANDA=0
21 Q
22 ;
23 ;
24INIT ; initialization for list manager list
25 ; requires rctranda
26 ; fast exit
27 I $G(RCDPFXIT) S VALMQUIT=1 Q
28 D INIT^RCDPTPLI
29 D HDR
30 Q
31 ;
32 ;
33HDR ; header code for list manager display
34 N RCBILLDA,RCTOTAL
35 S RCBILLDA=$P($G(^PRCA(433,RCTRANDA,0)),"^",2)
36 S RCTOTAL=$$BILLBAL^RCRJRCOB(RCBILLDA,DT)
37 D HDR^RCDPBTLM
38 Q
39 ;
40 ;
41EXIT ; exit list manager option and clean up
42 K ^TMP("RCDPTPLM",$J),^TMP("RCDPBTLMX",$J)
43 Q
44 ;
45 ;
46SELTRAN() ; select a transaction
47 ; returns -1 for timeout or ^, 0 for no selection, or ien of trans
48 N %,%Y,C,DIC,DTOUT,DUOUT,X,Y
49 N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
50 S DIC="^PRCA(433,",DIC(0)="QEAM",DIC("A")="Select TRANSACTION: "
51 D ^DIC
52 I Y<0,'$G(DUOUT),'$G(DTOUT) S Y=0
53 Q +Y
54 ;
55 ;
56DIQ433(DA,DR) ; diq call to retrieve data for dr fields in file 433
57 N D0,DIC,DIQ,DIQ2
58 K RCDPDATA(433,DA)
59 S DIQ(0)="IE",DIC="^PRCA(433,",DIQ="RCDPDATA" D EN^DIQ1
60 Q
61 ;
62 ;
63NEWTRANS ; select a new transaction
64 D FULL^VALM1
65 S VALMBCK="R"
66 ;
67 W !!,"This option will allow you to select a new transaction to display."
68 W ! S %=$$SELTRAN
69 I %<1 Q
70 S RCTRANDA=%
71 ;
72 ; if called from bill profile, pick new bill
73 I $D(^TMP("RCDPBPLM",$J)) S RCBILLDA=$P(^PRCA(433,RCTRANDA,0),"^",2)
74 ; if called from account profile, pick new account
75 I $D(^TMP("RCDPAPLM",$J)),RCBILLDA S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
76 ;
77 D INIT
78 Q
Note: See TracBrowser for help on using the repository browser.