| [613] | 1 | RCDPRPLU ;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 | ;
|
|---|
| 7 | CHECKREC(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 | ;
|
|---|
| 22 | LOCKREC(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 | ;
|
|---|
| 35 | WRITE(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 | ;
|
|---|
| 43 | MAILMSG(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 | ;
|
|---|
| 71 | SETLINE(MESSAGE) ; set the line for the mail message
|
|---|
| 72 | S LINE=LINE+1
|
|---|
| 73 | S ^TMP($J,"RCDPRPLU",LINE)=MESSAGE
|
|---|
| 74 | Q
|
|---|
