PRPFBUL ;ALTOONA/CTB GENERATE BULLETINS REQUIRED BY IG ;3/7/97 11:12 AM
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
ADDRESS ;
N N
S XMY("G.PRPF BULLETINS")=""
S N=0 F S N=$O(^XUSEC("PRPF SUPERVISOR",N)) Q:'N S XMY(N)=""
QUIT
OVERDRAW(PATDA,TRANSID) ;BULLETIN FOR OVERDRAWAL
NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY,XMTEXT
S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
S XMTEXT="TEXT("
S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" to be overdrawn."
D ADDRESS
D ^XMD
K PRPFBUL("OVERDRAW")
QUIT
RESTRICT(PATDA,TRANSID) ;BULLETIN FOR RESTRICTION
NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
S XMTEXT="TEXT("
S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" to exceed a preset restriction."
D ADDRESS
D ^XMD
K PRPFBUL("RESTRICTION")
QUIT
DEFER(PATDA,TRANSID) ;BULLETIN FOR DEFERRAL
NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
S XMDUZ=DUZ,XMSUB="Patient Funds Bulletin"
S XMTEXT="TEXT("
S TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
S TEXT(2)=$P(^DPT(PATDA,0),"^",1)_" - "_$P(^(0),"^",9)_" has overridden a preset check deferral limit."
D ADDRESS
D ^XMD
K PRPFBUL("DEFERRAL")
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRPFBUL 1361 printed Dec 13, 2024@02:01:27 Page 2
PRPFBUL ;ALTOONA/CTB GENERATE BULLETINS REQUIRED BY IG ;3/7/97 11:12 AM
V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
ADDRESS ;
+1 NEW N
+2 SET XMY("G.PRPF BULLETINS")=""
+3 SET N=0
FOR
SET N=$ORDER(^XUSEC("PRPF SUPERVISOR",N))
if 'N
QUIT
SET XMY(N)=""
+4 QUIT
OVERDRAW(PATDA,TRANSID) ;BULLETIN FOR OVERDRAWAL
+1 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY,XMTEXT
+2 SET XMDUZ=DUZ
SET XMSUB="Patient Funds Bulletin"
+3 SET XMTEXT="TEXT("
+4 SET TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
+5 SET TEXT(2)=$PIECE(^DPT(PATDA,0),"^",1)_" - "_$PIECE(^(0),"^",9)_" to be overdrawn."
+6 DO ADDRESS
+7 DO ^XMD
+8 KILL PRPFBUL("OVERDRAW")
+9 QUIT
RESTRICT(PATDA,TRANSID) ;BULLETIN FOR RESTRICTION
+1 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
+2 SET XMDUZ=DUZ
SET XMSUB="Patient Funds Bulletin"
+3 SET XMTEXT="TEXT("
+4 SET TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
+5 SET TEXT(2)=$PIECE(^DPT(PATDA,0),"^",1)_" - "_$PIECE(^(0),"^",9)_" to exceed a preset restriction."
+6 DO ADDRESS
+7 DO ^XMD
+8 KILL PRPFBUL("RESTRICTION")
+9 QUIT
DEFER(PATDA,TRANSID) ;BULLETIN FOR DEFERRAL
+1 NEW TEXT,XMSUB,XMDUZ,XMZ,OUT,XMY
+2 SET XMDUZ=DUZ
SET XMSUB="Patient Funds Bulletin"
+3 SET XMTEXT="TEXT("
+4 SET TEXT(1)="Patient Funds transaction "_TRANSID_" has caused the account of: "
+5 SET TEXT(2)=$PIECE(^DPT(PATDA,0),"^",1)_" - "_$PIECE(^(0),"^",9)_" has overridden a preset check deferral limit."
+6 DO ADDRESS
+7 DO ^XMD
+8 KILL PRPFBUL("DEFERRAL")
+9 QUIT
