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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCACOL

Package: Accounts Receivable

Routine: PRCACOL


Information

PRCACOL ;WASH-ISC@ALTOONA,PA/LDB - Payment History Report ;9/27/93 4:31 PM

Source Information

Source file <PRCACOL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  (ENS,KILL)^%ZISS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 2 DT^DICRW  ^DIR  
Accounts Receivable 1 ($$LST,$$NAM,$$SSN)^RCFN01  

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 PRCA PAYMENT TRANS HISTORY  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**165,198,264,304**;Mar 20, 1995;Build 104
EN ;Ask debtor and date range for payment history
DQ ;Call to build array of payment transactions
EXIT1
EXIT2
TRANS ;Build array of transactions
PRINT ;Print transactions
SCRN ;Check for screen
HDR ;Heading for report

External References

Name Field # of Occurrence
^%ZIS EN+17
^%ZISC EN+20, EXIT2EXIT2+3
ENS^%ZISS EXIT2+1
KILL^%ZISS EXIT2+1
^%ZTLOAD EN+20
DT^DICRW TRANS+2
^DIR EN+3, EN+10, EN+14, EXIT2+1, SCRN+2
$$LST^RCFN01 EN+8
$$NAM^RCFN01 HDR+4
$$SSN^RCFN01 HDR+4
$$FMADD^XLFDT EN+8
$$FMTE^XLFDT EN+8, EN+13, PRINT+3, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"This patient has made no payments."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"This patient has no payments or refunds during this time period."
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT2+0
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($P(PNODE,U,2),"1D"),?15,$P($G(^PRCA(430,+$P(PNODE,U),0)),U)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $J(AMT,6,2)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?25," Total Principal Paid: ",?50,$J(TOTPRIN,12,2)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?25," Total Interest Paid: ",?50,$J(TOTINT,12,2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?25," Total Admin Paid: ",?50,$J(TOTADM,12,2)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?25," Total Paid: ",?50,$J(TOTPD,12,2)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,?25," Total Refund: ",?50,$J(TOTREF,12,2)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: @IOF,!,?20,"Patient Payment History Report",?70,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"------------------------------"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?18,"For Patient: ",$$NAM^RCFN01(DEBTOR),!,?25,"SSN : ",$$SSN^RCFN01(DEBTOR)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?20,"For dates: ",$$FMTE^XLFDT(BDATE,"ID"),"-",$$FMTE^XLFDT(EDATE,"1D")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!," DATE OF",!,"PAYMENT/REFUND",?16,"BILL #",?25,"REFUND",?32,"RECEIPT #",?45,"AMOUNT",?54,"PRIN.",?62,"INT.",?70,"ADMIN.",!,LINE
  • Line Location: HDR+6
Routine Call
  • %ZIS
  • Line Location:
    • EN+17
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • EN+10
    • EN+14
    • EXIT2+1
    • SCRN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] TRANS+3, PRINT+3
^PRCA(433 - [#433] EN+7, TRANS+4, TRANS+5, TRANS+7, TRANS+8, TRANS+9, TRANS+11
^RCD(340 - [#340] EN+5
^TMP($J DQ+4, DQ+5, EXIT1!, TRANS+2!, TRANS+9*, TRANS+10, TRANS+11*, TRANS+12, PRINT+1, PRINT+2
PRINT+3
^UTILITY($J EXIT1!, EXIT2+1!

Label References

Name Line Occurrences
EN EN+5, EXIT2+4
EXIT1 EN+4, EN+11, EN+14, EN+17, EN+20
HDR DQ+4, DQ+5, SCRN+3
PRINT DQ+5
SCRN PRINT+2, PRINT+6, PRINT+10, PRINT+12, PRINT+14, PRINT+16, PRINT+18
TRANS DQ+3

Naked Globals

Name Field # of Occurrence
^( TRANS+10
^(1 TRANS+5
^(3 TRANS+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+17*
AMT EXIT1!, PRINT+4*
BDATE EN+8*, EN+11*, EN+13, EXIT1!, TRANS+8, HDR+5
BILL TRANS+1~, TRANS+3*, TRANS+4
DATE EXIT1!, TRANS+8*, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+1*, PRINT+2, PRINT+3
DEBTOR EN+6*, EN+7, EN+8, EXIT1!, TRANS+3, HDR+4
DIR EN+2!, EN+6!, EN+12!, EN+16!, EXIT1!, EXIT2+1!, SCRN+1!
DIR("?" EN+3*, EN+9*
DIR("A" EN+3*, EN+8*, EN+13*
DIR("B" EN+8*, EN+13*
DIR(0 EN+3*, EN+8*, EN+13*, EXIT2+1*, SCRN+2*
DIRUT EN+4, EN+11, EN+14, EXIT1+1!, EXIT2+2!, PRINT+1, PRINT+2, PRINT+6, PRINT+10, PRINT+12
PRINT+14, PRINT+16, PRINT+18, SCRN+2
DPTNOFZK EN+1~*
DPTNOFZY EN+1~*
DT EN+8, EN+13, EN+14
DUOUT EXIT1!
DX EXIT1!, EXIT2+1*
DY EXIT1!, EXIT2+1*
EDATE EN+15*, EXIT1!, TRANS+8, HDR+5
IO DQ+2
IO("Q" EN+18, EN+20!
IOF EXIT2HDR+2
IOM EXIT2+1
IOSL SCRN+1
IOST EXIT2EXIT2+1, SCRN+2
>> IOXY EXIT2+1
LINE EXIT1!, TRANS+2*, HDR+6
PG EXIT1!, TRANS+2*, HDR+1*, HDR+2
PNODE EXIT1!, PRINT+3*, PRINT+4, PRINT+5
POP EN+2*, EN+17, EXIT1+1!
TN EXIT1!, TRANS+4*, TRANS+5, TRANS+7, TRANS+8, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+2*
PRINT+3
TOTADM EXIT1!, TRANS+2*, TRANS+12*, PRINT+15
TOTINT EXIT1!, TRANS+2*, TRANS+12*, PRINT+13
TOTPD EXIT1!, TRANS+2*, TRANS+10*, PRINT+17
TOTPRIN EXIT1!, TRANS+2*, TRANS+12*, PRINT+11
TOTREF EXIT1!, TRANS+2*, TRANS+10*, PRINT+19
U EN+5, TRANS+9, TRANS+10, TRANS+11, TRANS+12, PRINT+3, PRINT+4, PRINT+5
X EN+12!, EXIT1!, EXIT2+1!, TRANS+8*, TRANS+9, TRANS+10, TRANS+11*, TRANS+12, PRINT+5*
X( PRINT+5*
Y EN+4, EN+5, EN+6, EN+11, EN+12!, EN+14*, EN+15, EXIT1!, EXIT2+1!
>> ZTDESC EN+19*
ZTRTN EN+19*, EN+20!
ZTSAVE EN+20!
ZTSAVE("BDATE" EN+19*
ZTSAVE("DEBTOR" EN+19*
ZTSAVE("EDATE" EN+19*
ZTSK EXIT1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All