Routine: RCBDPSNO

Information

RCBDPSNO ;WISC/RFJ-patient statement (remove transaction) ;1 Mar 01

Name	Comments	DBIA/ICR reference
COMMENT	; remove a comment transaction from a patient statement
ASKTRAN()	; ask to select the comment transaction
ADDREM(RCTRANDA)	; ask to add or remove from patient statement

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: COMMENT+4
Function Call: WRITE	Prompt: !!,"The following is a list of comment transactions since last statement date." Line Location: COMMENT+11
Function Call: WRITE	Prompt: !,"Last Statement Date: ",DATE,! Line Location: COMMENT+13
Function Call: WRITE	Prompt: !?2,"Transaction: ",RCTRANDA Line Location: COMMENT+23
Function Call: WRITE	Prompt: ?25," bill: ",$P($P($G(^PRCA(430,+$P(^PRCA(433,RCTRANDA,0),"^",2),0)),"^"),"-",2) Line Location: COMMENT+24
Function Call: WRITE	Prompt: ?42," date: ",$E(RCDATE,4,5),"/",$E(RCDATE,6,7),"/",$E(RCDATE,2,3) Line Location: COMMENT+25
Function Call: WRITE	Prompt: ?60," ",$S($P($G(^PRCA(433,RCTRANDA,0)),"^",10):"*** OFF STATEMENT ***",1:"") Line Location: COMMENT+26
Function Call: WRITE	Prompt: !?5,"1st Line: ",$E($G(^PRCA(433,RCTRANDA,7,1,0)),1,64) Line Location: COMMENT+27
Function Call: WRITE	Prompt: !,"Account does not have any comment transactions." Line Location: COMMENT+31
Function Call: WRITE	Prompt: ! Line Location: ASKTRAN+5
Function Call: WRITE	Prompt: !," The comment transaction is currently ",$S(RESULT:"OFF",1:"ON")," the patient statement." Line Location: ADDREM+4
Function Call: WRITE	Prompt: !," Comment Transaction is now ",$S(RESULT:"OFF",1:"ON")," the patient statement." Line Location: ADDREM+12
Function Call: WRITE	Prompt: !," No change, comment transaction remains ",$S(RESULT:"OFF",1:"ON")," the patient statement." Line Location: ADDREM+14