source: WorldVistAEHR/trunk/r/INTEGRATED_PATIENT_FUNDS-PRPF-PFXIP/PRPFBUL.m@ 1042

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PRPFBUL ;ALTOONA/CTB GENERATE BULLETINS REQUIRED BY IG ;3/7/97 11:12 AM
2V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
3ADDRESS ;
4 N N
5 S XMY("G.PRPF BULLETINS")=""
6 S N=0 F S N=$O(^XUSEC("PRPF SUPERVISOR",N)) Q:'N S XMY(N)=""
7 QUIT
8OVERDRAW(PATDA,TRANSID) ;BULLETIN FOR OVERDRAWAL
9 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY,XMTEXT
10 S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
11 S XMTEXT="TEXT("
12 S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
13 S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" to be overdrawn."
14 D ADDRESS
15 D ^XMD
16 K PRPFBUL("OVERDRAW")
17 QUIT
18RESTRICT(PATDA,TRANSID) ;BULLETIN FOR RESTRICTION
19 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
20 S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
21 S XMTEXT="TEXT("
22 S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
23 S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" to exceed a preset restriction."
24 D ADDRESS
25 D ^XMD
26 K PRPFBUL("RESTRICTION")
27 QUIT
28DEFER(PATDA,TRANSID) ;BULLETIN FOR DEFERRAL
29 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
30 S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
31 S XMTEXT="TEXT("
32 S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
33 S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" has overridden a preset check deferral limit."
34 D ADDRESS
35 D ^XMD
36 K PRPFBUL("DEFERRAL")
37 QUIT
Note: See TracBrowser for help on using the repository browser.