PRPFBUL.m

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 ---PRPFBUL   1361     printed  Apr 09, 2024@21:04:28                                                                                                                                                                                                     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