source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPDPLU.m@ 1713

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1RCDPDPLU ;WISC/RFJ-deposit profile utilities ;1 Jun 99
2 ;;4.5;Accounts Receivable;**114,173**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7CHECKDEP(DEPTDA) ; check the deposit to stop edit/change if approved
8 ; return 0^message to stop edit/change
9 ; 1 to continue
10 N MESSAGE,RECTDA,RESULT
11 ;
12 ; already confirmed, status = 3 confirmed
13 I $P($G(^RCY(344.1,DEPTDA,0)),"^",12)=3 Q "0^Deposit has been confirmed."
14 ; lockbox
15 S RECTDA=$O(^RCY(344,"AD",$P(^RCY(344.1,DEPTDA,0),"^"),0))
16 I RECTDA,$P($G(^RC(341.1,+$P($G(^RCY(344,RECTDA,0)),"^",4),0)),"^",2)=12 Q "0^Lockbox type deposit."
17 I RECTDA,$$EDILB^RCDPEU(RECTDA)=1 Q "0^EDI Lockbox type deposit."
18 ; open
19 Q 1
20 ;
21 ;
22LOCKDEP(DEPTDA) ; lock the deposit, call only from listmanager options
23 ; if deposit not passed, return 2
24 I 'DEPTDA Q 2
25 N RESULT
26 S RESULT=1
27 L +^RCY(344.1,DEPTDA):5
28 I '$T D
29 . S VALMSG="Another user is editing the deposit."
30 . D WRITE^RCDPRPLU(VALMSG)
31 . S RESULT=0
32 Q RESULT
33 ;
34 ;
35MAILMSG(RCDEPTDA,ACTION) ; mail a message to supervisor key holders
36 N %,LINE,VALMHDR,VALMSG,XMDUZ,XMZ,YY
37 K ^TMP($J,"RCDPDPLU")
38 S LINE=0
39 ;
40 ; ---- start build mailman message ----
41 D SETLINE("Sent to: PRCAY PAYMENT SUP security key holders")
42 D SETLINE(" ")
43 ;
44 ; build the header line
45 D HDR^RCDPDPLM
46 F %=1:1 Q:'$D(VALMHDR(%)) D SETLINE(VALMHDR(%))
47 ;
48 D SETLINE(" ")
49 D SETLINE("This deposit was confirmed and the following action occurred:")
50 D SETLINE(" ACTION: "_ACTION)
51 D SETLINE(" BY: "_$P(^VA(200,DUZ,0),"^"))
52 ; ---- end build mailman message ----
53 ;
54 S XMSUB="Deposit Processing Audit"
55 S XMDUZ="Accounts Receivable Package"
56 S XMTEXT="^TMP($J,""RCDPDPLU"","
57 S %=0 F S %=$O(^XUSEC("PRCAY PAYMENT SUP",%)) Q:'% S XMY(%)=""
58 D ^XMD
59 K ^TMP($J,"RCDPDPLU")
60 Q
61 ;
62 ;
63SETLINE(MESSAGE) ; set the line for the mail message
64 S LINE=LINE+1
65 S ^TMP($J,"RCDPDPLU",LINE)=MESSAGE
66 Q
Note: See TracBrowser for help on using the repository browser.