Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RCBDPSNO

Package: Accounts Receivable

Routine: RCBDPSNO


Information

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

Source Information

Source file <RCBDPSNO.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls