1 | RCDPDPLU ;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 | ;
|
---|
7 | CHECKDEP(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 | ;
|
---|
22 | LOCKDEP(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 | ;
|
---|
35 | MAILMSG(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 | ;
|
---|
63 | SETLINE(MESSAGE) ; set the line for the mail message
|
---|
64 | S LINE=LINE+1
|
---|
65 | S ^TMP($J,"RCDPDPLU",LINE)=MESSAGE
|
---|
66 | Q
|
---|