| 1 | PRPFBUL ;ALTOONA/CTB GENERATE BULLETINS REQUIRED BY IG ;3/7/97 11:12 AM
|
|---|
| 2 | V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
|
|---|
| 3 | ADDRESS ;
|
|---|
| 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
|
|---|
| 8 | OVERDRAW(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
|
|---|
| 18 | RESTRICT(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
|
|---|
| 28 | DEFER(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
|
|---|
