Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Accounts Receivable 3 $$LASTEVNT^RCBDFST1  $$EDIT433^RCBEUTRA  $$SELACCT^RCDPAPLM  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 RCBD REMOVE COMMENT FROM PS  

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

External References

Name Field # of Occurrence
^DIR ASKTRAN+5, ADDREM+6
$$LASTEVNT^RCBDFST1 COMMENT+9
$$EDIT433^RCBEUTRA ADDREM+10
$$SELACCT^RCDPAPLM COMMENT+4

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
Routine Call
  • DIR
  • Line Location:
    • ASKTRAN+5
    • ADDREM+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] COMMENT+24
^PRCA(433 - [#433] COMMENT+18, COMMENT+19, COMMENT+21, COMMENT+24, COMMENT+26, COMMENT+27, ADDREM+3, ADDREM+11
^TMP("RCBDPSNO" COMMENT+16!, COMMENT+29*, COMMENT+31, ASKTRAN+2

Label References

Name Line Occurrences
$$ADDREM COMMENT+38
$$ASKTRAN COMMENT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA1 COMMENT+1~, COMMENT+21*, COMMENT+22
DATE COMMENT+1~, COMMENT+12*, COMMENT+13
DIQ2 ASKTRAN+1~, ADDREM+1~
DIR ASKTRAN+1~, ADDREM+1~
DIR("A" ASKTRAN+3*, ADDREM+5*
DIR("B" ADDREM+2*
DIR("S" ASKTRAN+4*
DIR(0 ASKTRAN+2*, ADDREM+2*
DIRUT ASKTRAN+1~, ADDREM+1~
DTOUT ASKTRAN+1~, ASKTRAN+6, ADDREM+1~, ADDREM+7
DUOUT ASKTRAN+1~, ASKTRAN+6, ADDREM+1~, ADDREM+7
RCDATE COMMENT+1~, COMMENT+17*, COMMENT+18*, COMMENT+19, COMMENT+25
RCDEBTDA COMMENT+1~, COMMENT+3, COMMENT+4*, COMMENT+5*, COMMENT+9, COMMENT+18, COMMENT+19
RCEVENDA COMMENT+1~, COMMENT+9*, COMMENT+12, COMMENT+17
RCTRANDA COMMENT+1~, COMMENT+19*, COMMENT+21, COMMENT+23, COMMENT+24, COMMENT+26, COMMENT+27, COMMENT+29, COMMENT+33, COMMENT+35*
, COMMENT+38*, ADDREM~, ADDREM+3, ADDREM+10, ADDREM+11
RESULT ADDREM+1~, ADDREM+3*, ADDREM+4, ADDREM+5, ADDREM+10, ADDREM+11*, ADDREM+12, ADDREM+14
X ASKTRAN+1~, ADDREM+1~
Y ASKTRAN+1~, ASKTRAN+6*, ASKTRAN+7, ADDREM+1~, ADDREM+9, ADDREM+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All