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

Package: Accounts Receivable

Routine: PRCARPS1


Information

PRCARPS1 ;SF-ISC/YJK-REPAYMENT PAYMENT STATEMENT ;5/21/93 10:02 PM

Source Information

Source file <PRCARPS1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**190**;Mar 20, 1995
HEADER
WRST
WORD1
WORD2
WORD3
REMIT ;
LINE
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?PRCALN(0),"STATEMENT OF ACCOUNTS RECEIVABLE",!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!!,?PRCALN,Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,?PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),!,?PRCALN,$P(ADD,"^"),!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?PRCALN,$P(ADD,"^",4),", ",$P(ADD,"^",5)," ",$P(ADD,"^",6),!!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?PRCALN,"|",?PRCALN(0),"DISTRIBUTION OF PAYMENT",?PRCALL(11),"|"
  • Line Location: WRST+0
Function Call: WRITE
  • Prompt: ?PRCALN,"| FILE NO./SSN",?PRCALL(1),"|",?PRCALL(2),"NAME OF PERSON ENTITLED",?PRCALN(1),"|",?PRCALN(2),"PAYMENT",?PRCALN(3),"|",?PRCALN(4),"DATE OF",?PRCALL(11),"|"
  • Line Location: WRST+1
Function Call: WRITE
  • Prompt: !,?PRCALN,"| ",PRCA("BILLN"),?PRCALL(1),"|",?PRCALN(1),"|",?PRCALN(2),"AMOUNT",?PRCALN(3),"|",?PRCALN(4),"PAYMENT",?PRCALL(11),"|"
  • Line Location: WRST+2
Function Call: WRITE
  • Prompt: !,?PRCALN,"| ",$$SSN^RCFN01(PRCA("DEBTOR")),?PRCALL(1),"|",?PRCALL(2),$$NAM^RCFN01(PRCA("DEBTOR")),?PRCALN(1),"|",?PRCALN(2),"$",$J(PRCAMT,0,2),?PRCALN(3),"|",?PRCALN(4),PRCADT,?PRCALL(11),"|"
  • Line Location: WRST+3
Function Call: WRITE
  • Prompt: ?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"ADMIN.",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
  • Line Location: WRST+4
Function Call: WRITE
  • Prompt: !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(6),"COLLECT.",?PRCALL(7),"|",?PRCALL(8),"COURT",?PRCALL(9),"|",?PRCALL(10),"MARSHAL",?PRCALL(11),"|"
  • Line Location: WRST+5
Function Call: WRITE
  • Prompt: !,?PRCALN,"|",?PRCALL(1),"|",?PRCALL(2),"PRINCIPAL",?PRCALL(3),"|",?PRCALL(4),"INTEREST",?PRCALL(5),"|",?PRCALL(6),"COSTS",?PRCALL(7),"|",?PRCALL(8),"COSTS",?PRCALL(9),"|",?PRCALL(10),"FEES",?PRCALL(11),"|"
  • Line Location: WRST+6
Function Call: WRITE
  • Prompt: ?PRCALN,"| DISTRIBUTION",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
  • Line Location: WRST+7
Function Call: WRITE
  • Prompt: !,?PRCALN,"| OF PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$J(PRCAPP(1),0,2),?PRCALL(3)
  • Line Location: WRST+8
Function Call: WRITE
  • Prompt: "|",?PRCALL(4),"$",$J(PRCAPP(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$J(PRCAPP(3),0,2),?PRCALL(7)
  • Line Location: WRST+9
Function Call: WRITE
  • Prompt: "|",?PRCALL(8),"$",$J(PRCAPP(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPP(4),0,2),?PRCALL(11),"|"
  • Line Location: WRST+10
Function Call: WRITE
  • Prompt: ?PRCALN,"| BALANCE DUE",?PRCALL(1),"|",?PRCALL(3),"|",?PRCALL(5),"|",?PRCALL(7),"|",?PRCALL(9),"|",?PRCALL(11),"|"
  • Line Location: WRST+11
Function Call: WRITE
  • Prompt: !,?PRCALN,"| AFTER PAYMENT",?PRCALL(1),"|",?PRCALL(2),"$",$J(PRCAPB(1),0,2),?PRCALL(3),"|",?PRCALL(4),"$",$J(PRCAPB(2),0,2),?PRCALL(5),"|",?PRCALL(6),"$",$J(PRCAPB(3),0,2),?PRCALL(7),"|"
  • Line Location: WRST+12
Function Call: WRITE
  • Prompt: ?PRCALL(8),"$",$J(PRCAPB(5),0,2),?PRCALL(9),"|",?PRCALL(10),"$",$J(PRCAPB(4),0,2),?PRCALL(11),"|"
  • Line Location: WRST+13
Function Call: WRITE
  • Prompt: !,?PRCALN(5),"BALANCE DUE SHOULD BE PAID IN FULL BY ",PRCADUE,!,?PRCALN(5),"TO AVOID ADDITIONAL CHARGES.",!!
  • Line Location: WORD1+1
Function Call: WRITE
  • Prompt: !,?PRCALN,^(Z0,0)
  • Line Location: WORD2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WORD2+2
Function Call: WRITE
  • Prompt: !,?PRCALN,"* Detach and return with your next payment to:",!,?PRCALN(6),"VA MEDICAL CENTER"
  • Line Location: WORD3+1
Function Call: WRITE
  • Prompt: !,?PRCALN(6),"c/o Agent Cashier",!,?PRCALN(6),$P(PRCAGL5,U)
  • Line Location: WORD3+2
Function Call: WRITE
  • Prompt: !?PRCALN(6),$P(PRCAGL5,"^",2)
  • Condition for execution: $P(PRCAGL5,"^",2)]""
  • Line Location: WORD3+2
Function Call: WRITE
  • Prompt: !?PRCALN(6),$P(PRCAGL5,"^",3)
  • Condition for execution: $P(PRCAGL5,"^",3)]""
  • Line Location: WORD3+2
Function Call: WRITE
  • Prompt: !?PRCALN(6),$P(PRCAGL5,U,4),", ",$P(PRCAGL5,U,5)," ",$P(PRCAGL5,U,6),!
  • Line Location: WORD3+3
Function Call: WRITE
  • Prompt: !," FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"
  • Line Location: REMIT+1
Function Call: WRITE
  • Prompt: !," ============================================================================="
  • Line Location: REMIT+2
Function Call: WRITE
  • Prompt: !," | PAYMENT REMITTANCE |"
  • Line Location: REMIT+3
Function Call: WRITE
  • Prompt: !," |---------------------------------------------------------------------------|"
  • Line Location: REMIT+4
Function Call: WRITE
  • Prompt: !," | *FILE NO/SSAN | NAME OF DEBTOR | AMOUNT ENCLOSED |TEL.NO |"
  • Line Location: REMIT+5
Function Call: WRITE
  • Prompt: !,?PRCALN," | ",PRCA("BILLN"),?17+PRCALN,"|",?48+PRCALN,"|",?68+PRCALN,"|( )",?77+PRCALN,"|"
  • Line Location: REMIT+6
Function Call: WRITE
  • Prompt: !,?PRCALN," | ",$$SSN^RCFN01(PRCA("DEBTOR")),?17+PRCALN,"|",?20+PRCALN,$$NAM^RCFN01(PRCA("DEBTOR")),?48+PRCALN,"|",?68+PRCALN,"|",?77+PRCALN,"|"
  • Line Location: REMIT+7
Function Call: WRITE
  • Prompt: !," |---------------------------------------------------------------------------|"
  • Line Location: REMIT+8
Function Call: WRITE
  • Prompt: !," | ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT. |"
  • Line Location: REMIT+9
Function Call: WRITE
  • Prompt: !," | PLEASE INCLUDE YOUR ZIP CODE. |"
  • Line Location: REMIT+10
Function Call: WRITE
  • Prompt: !," | |"
  • Line Location: REMIT+11
Function Call: WRITE
  • Prompt: !," | |"
  • Line Location: REMIT+12
Function Call: WRITE
  • Prompt: !," | |"
  • Line Location: REMIT+13
Function Call: WRITE
  • Prompt: !," | |"
  • Line Location: REMIT+14
Function Call: WRITE
  • Prompt: !," |---------------------------------------------------------------------------|"
  • Line Location: REMIT+15
Function Call: WRITE
  • Prompt: !," | *PLEASE INCLUDE THIS NUMBER ON YOUR CHECK OR MONEY ORDER |"
  • Line Location: REMIT+16
Function Call: WRITE
  • Prompt: !," |===========================================================================|"
  • Line Location: REMIT+17
Function Call: WRITE
  • Prompt: !,?PRCALN,"|"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "|",!
  • Line Location: LINE+1
Info |  Source |  Entry Points |  Interaction Calls