source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCDPRPLU.m@ 1489

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1RCDPRPLU ;WISC/RFJ-receipt 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 ;
7CHECKREC(RECTDA) ; check the receipt to stop edit/change if approved
8 ; return 0^message to stop edit/change
9 ; 1 to continue
10 N MESSAGE,RESULT
11 ;
12 ; closed
13 I $P($G(^RCY(344,RECTDA,0)),"^",14)=0 Q "0^Receipt has been PROCESSED to AR and FMS."
14 I $$EDILB^RCDPEU(RECTDA)=1,$P($G(^RCY(344,RECTDA,0)),U,6) Q "0^EDI 3rd Party Lockbox deposit type receipt."
15 ; lockbox
16 ; this screen was removed so sites could hand enter lockbox receipts
17 ;I $P($G(^RC(341.1,+$P($G(^RCY(344,RECTDA,0)),"^",4),0)),"^",2)=12 Q "0^Lockbox type receipt."
18 ; open
19 Q 1
20 ;
21 ;
22LOCKREC(RECTDA) ; lock the receipt, call only from listmanager options
23 ; if receipt not passed, return 2
24 I 'RECTDA Q 2
25 N RESULT
26 S RESULT=1
27 L +^RCY(344,RECTDA):5
28 I '$T D
29 . S VALMSG="Another user is editing the receipt."
30 . D WRITE(VALMSG)
31 . S RESULT=0
32 Q RESULT
33 ;
34 ;
35WRITE(MESSAGE) ; write message on screen with delay
36 N %
37 W !,MESSAGE
38 W !,"press RETURN to continue: "
39 R %:DTIME
40 Q
41 ;
42 ;
43MAILMSG(RCRECTDA,ACTION) ; mail a message to supervisor key holders
44 N %,LINE,VALMHDR,VALMSG,XMDUZ,XMZ,YY,XMSUB,XMTEXT,XMY
45 K ^TMP($J,"RCDPRPLU")
46 S LINE=0
47 ;
48 ; ---- start build mailman message ----
49 D SETLINE("Sent to: PRCAY PAYMENT SUP security key holders")
50 D SETLINE(" ")
51 ;
52 ; build the header line
53 D HDR^RCDPRPLM
54 F %=1:1 Q:'$D(VALMHDR(%)) D SETLINE(VALMHDR(%))
55 ;
56 D SETLINE(" ")
57 D SETLINE("This receipt was approved and the following action occurred:")
58 D SETLINE(" ACTION: "_ACTION)
59 D SETLINE(" BY: "_$P(^VA(200,DUZ,0),"^"))
60 ; ---- end build mailman message ----
61 ;
62 S XMSUB="Receipt Processing Audit"
63 S XMDUZ="Accounts Receivable Package"
64 S XMTEXT="^TMP($J,""RCDPRPLU"","
65 S %=0 F S %=$O(^XUSEC("PRCAY PAYMENT SUP",%)) Q:'% S XMY(%)=""
66 D ^XMD
67 K ^TMP($J,"RCDPRPLU")
68 Q
69 ;
70 ;
71SETLINE(MESSAGE) ; set the line for the mail message
72 S LINE=LINE+1
73 S ^TMP($J,"RCDPRPLU",LINE)=MESSAGE
74 Q
Note: See TracBrowser for help on using the repository browser.