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: 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>

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

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