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

Package: Accounts Receivable

Routine: PRCADR3


Information

PRCADR3 ;SF-ISC/YJK-TRANSACTION PROFILE ;6/15/93 9:43 AM

Source Information

Source file <PRCADR3.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**78,153**;Mar 20, 1995
EN1 ;
ADM
TERM
COLL
C1
BAL
EN2 ;print the appropriation,pat ref #. (multiple) and amount.
END1
WRPAT
EN3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: "TERMINATION REASON:"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"ADMINISTRATIVE COST CHARGE",!,"---------------------------",!
  • Line Location: ADM+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADM+11
Function Call: WRITE
  • Prompt: !,"PRESS <RETURN> TO CONTINUE: "
  • Line Location: ADM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ADM+11
Function Call: WRITE
  • Prompt: ?20,Z2,!
  • Line Location: TERM+1
Function Call: WRITE
  • Prompt: !!,?Z2,"BALANCES",?40,"COLLECTED",!,?Z2,"--------",?40,"---------",!
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: ?Z0,"PRINCIPAL:",?Z2,Z2(1),?Z,Z(1),!
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: ?Z0,"INTEREST:",?Z2,Z2(2),?Z,Z(2),!
  • Line Location: C1+2
Function Call: WRITE
  • Prompt: ?Z0,"ADMINISTRATIVE:",?Z2,Z2(3),?Z,Z(3),!
  • Line Location: C1+3
Function Call: WRITE
  • Prompt: ?Z0,"MARSHALL FEE:",?Z2,Z2(4),?Z,Z(4),!
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: ?Z0,"COURT COST:",?Z2,Z2(5),?Z,Z(5)
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !,?Z2,"---------",?Z,"----------",!,?Z0,"TOTAL:",?Z2,$J(PRCATL1,0,2),?Z,$J(PRCATL,0,2)
  • Line Location: C1+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !,"PRESS <RETURN> TO CONTINUE: "
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !,"BALANCES",!,"--------",!
  • Line Location: BAL+1
Function Call: WRITE
  • Prompt: ?Z,"PRINCIPAL: ",?Z1,Z(1),!,?Z,"INTEREST: ",?Z1,Z(2),!,?Z,"ADMINISTRATIVE: ",?Z1,Z(3),!,?Z,"MARSHALL FEE: ",?Z1,Z(4),!,?Z,"COURT COST: ",?Z1,Z(5),!
  • Line Location: BAL+2
Function Call: WRITE
  • Prompt: ?Z1,"------------",!,?Z,"TOTAL",?Z1,$J(PRCATL,0,2),!
  • Line Location: BAL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BAL+4
Function Call: WRITE
  • Prompt: !,"PRESS <RETURN> TO CONTINUE: "
  • Line Location: BAL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BAL+4
Function Call: WRITE
  • Prompt: !,"FISCAL YEAR",?17,"PRINCIPAL AMOUNT",?42,"FY TRANS. AMOUNT"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"-----------",?17,"----------------",?42,"----------------"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"NOTE:**** This transaction is flagged as invalid for patient statement.",!,?10,"It WILL NOT appear on the patient statement.****"
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,$J(PRCAFY,11),?17,$J(PRCAMT,16,2),?42,$J(PRCATRM,16,2)
  • Line Location: WRPAT+1
Function Call: WRITE
  • Prompt: "TRANS. AMOUNT: ",$S($P(^PRCA(433,D0,1),U,5)<0:"-$",1:"$"),$FN($TR($P(^PRCA(433,D0,1),U,5),"-"),",",2)
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>35
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: ?34,"DATE POSTED: ",$P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+2
Info |  Source |  Entry Points |  Interaction Calls