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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCRPINQ

Package: Accounts Receivable

Routine: RCRPINQ


Information

RCRPINQ ;EDE/YMG - REPAYMENT PLAN INQUIRY; 12/10/2020

Source Information

Source file <RCRPINQ.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Accounts Receivable 7 $$DADD^RCAMADD  ($$NAM,$$SSN)^RCFN01  ($$FMTPHONE,$$GETDOB,$$PMNTS)^RCRPINQ  ($$BALANCE,DASH,PAUSE)^RCRPRPU  PAUSE^RCRPU  $$SELRPP^RCRPU1  $$ASKCONT^RCRPU2  
Kernel 5 (,HOME)^%ZIS  ENDR^%ZISS  ^%ZTLOAD  $$FMTE^XLFDT  ($$CJ,$$LJ)^XLFSTR  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Accounts Receivable 4 PRCAC PLAN INQUIRY  RCRPADD  RCRPINQ  RCRPU1  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
PRINT ; display repayment plan data
GETDOB(DEBTOR) ; get date of birth
FMTPHONE(PHONE) ; format phone number for display
PMNTS(RPIEN) ; calculate the sum of payments made for a given RPP
WRTLN(STR,LN) ; write line
PRTHDR(RPIEN) ; display repayment plan data
PRTSCHED(RPIEN) ; Print the schedule
PRTFORB(RPIEN) ;Print the Forbearances previously granted.
PRTBILLS(RPIEN) ;
; INPUT: RPIEN - Repayment Plan ID
; Returns: 0 - User Requested exit
; 1 - User wishes to continue

External References

Name Field # of Occurrence
^%ZIS EN+10
HOME^%ZIS EN+14
ENDR^%ZISS EN+5
^%ZTLOAD EN+14
$$EXTERNAL^DILFD PRINT+55, PRTHDR+17
$$GET1^DIQ GETDOB+11, PRTHDR+22, PRTFORB+14, PRTBILLS+16, PRTBILLS+17
$$DADD^RCAMADD PRTHDR+8
$$NAM^RCFN01 PRTHDR+12
$$SSN^RCFN01 PRTHDR+11
$$FMTPHONE^RCRPINQ PRTHDR+16
$$GETDOB^RCRPINQ PRTHDR+11
$$PMNTS^RCRPINQ PRTHDR+18
$$BALANCE^RCRPRPU PRTBILLS+18
DASH^RCRPRPU PRTBILLS+10, PRTBILLS+12
PAUSE^RCRPRPU EN+15, PRINT+62
PAUSE^RCRPU PRTHDR+25, PRTSCHED+19, PRTFORB+19, PRTBILLS+21
$$SELRPP^RCRPU1 EN+3
$$ASKCONT^RCRPU2 WRTLN+7
DEM^VADPT GETDOB+10
$$FMTE^XLFDT PRINT+38, PRINT+55, PRTHDR+17, PRTHDR+23, PRTSCHED+13, PRTFORB+15
$$CJ^XLFSTR EN+6, PRINT+30, PRINT+39, PRINT+48, PRINT+61, PRTSCHED+5, PRTFORB+7, PRTBILLS+9
$$LJ^XLFSTR PRINT+31, PRINT+33, PRINT+49, PRINT+51, PRINT+55, PRTSCHED+6, PRTSCHED+8, PRTFORB+8, PRTFORB+10, PRTFORB+15
, PRTBILLS+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Inquiry output has started with task# ",ZTSK,".",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: ?46
  • Condition for execution: CNT#2=1
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("$"_$FN($P(TMP,U,2),"",2),10)
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTLN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+10
Function Call: WRITE
  • Prompt: !!,"Debtor: ",$$NAM^RCFN01(DEBTOR)
  • Line Location: PRTHDR+12
Function Call: WRITE
  • Prompt: ?40,"SSN/TIN: ",$S(DEBSSN>0:$E(DEBSSN,1,3)_"-"_$E(DEBSSN,4,5)_"-"_$E(DEBSSN,6,9),1:"N/A")
  • Line Location: PRTHDR+13
Function Call: WRITE
  • Prompt: ?64,"DOB: ",$S(DEBDOB="":"N/A",1:DEBDOB)
  • Line Location: PRTHDR+14
Function Call: WRITE
  • Prompt: !,"Address: ",$P(ADDRSTR,U)," ",$P(ADDRSTR,U,2)," ",$P(ADDRSTR,U,3),", ",$P(ADDRSTR,U,4),", ",$P(ADDRSTR,U,5)," ",$P(ADDRSTR,U,6)
  • Line Location: PRTHDR+15
Function Call: WRITE
  • Prompt: !,"Phone: ",$S(DEBPHN>0:$$FMTPHONE^RCRPINQ(DEBPHN),1:"N/A"),!
  • Line Location: PRTHDR+16
Function Call: WRITE
  • Prompt: !,"Plan #: ",$P(N0,U),?28,"Status: ",$$EXTERNAL^DILFD(340.5,.07,"",$P(N0,U,7)),?49,"Last status date: ",$$FMTE^XLFDT($P(N0,U,8),"5DZ"),!
  • Line Location: PRTHDR+17
Function Call: WRITE
  • Prompt: !,?2,"Current balance: $",$FN(CBAL,"",2),?37,"Number of payments remaining: ",CBAL\RAMNT+$S(CBAL#RAMNT:1,1:0)
  • Line Location: PRTHDR+19
Function Call: WRITE
  • Prompt: !,?1,"Orig amount owed: $",$FN($P(N0,U,13),"",2),?38,"Original number of payments: ",$P(N0,U,14)
  • Line Location: PRTHDR+20
Function Call: WRITE
  • Prompt: !,"Total amount owed: $",$FN($P(N0,U,11),"",2),?41,"Total number of payments: ",$P(N0,U,5)
  • Line Location: PRTHDR+21
Function Call: WRITE
  • Prompt: !,?1,"Repayment amount: $",$FN(RAMNT,"",2),?47,"Auto-add New Bills: ",$$GET1^DIQ(340.5,RPIEN_",",.12,"E"),!
  • Line Location: PRTHDR+22
Function Call: WRITE
  • Prompt: !,?8,"Plan date: ",$$FMTE^XLFDT($P(N0,U,3),"5DZ"),?43,"First Payment Due Date: ",$$FMTE^XLFDT($P(N0,U,4),"5DZ"),!
  • Line Location: PRTHDR+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTHDR+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTSCHED+3
Function Call: WRITE
  • Prompt: ?22
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+13
Function Call: WRITE
  • Prompt: ?42
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+13
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRTSCHED+13
Function Call: WRITE
  • Prompt: ?37
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+14
Function Call: WRITE
  • Prompt: ?57
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+14
Function Call: WRITE
  • Prompt: $S($P(TMP,U,3):"F",$P(TMP,U,2):"Y",1:"N")
  • Line Location: PRTSCHED+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSCHED+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSCHED+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTFORB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTFORB+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTFORB+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTBILLS+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("List of Bills in Plan",80)
  • Line Location: PRTBILLS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTBILLS+10
Function Call: WRITE
  • Prompt: !,"Bill No.",?20,"Bill Status",?41,"Category",?59,"Current Balance"
  • Line Location: PRTBILLS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTBILLS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTBILLS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTBILLS+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTBILLS+21
Routine Call
  • %ZIS
  • Line Location:
    • EN+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RCRP(340.5 - [#340.5] EXTERNAL^DILFD,  GET1^DIQ
340.54 EXTERNAL^DILFD
340.55 GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] PRTBILLS+19
^RCD(340 - [#340] GETDOB+9
^RCRP(340.5 - [#340.5] EN+4, PRINT+34, PRINT+35, PRINT+36, PRINT+52, PRINT+53, PRINT+54, PMNTS+8, PMNTS+9, PRTHDR+6
, PRTSCHED+9, PRTSCHED+10, PRTSCHED+11, PRTFORB+11, PRTFORB+12, PRTFORB+13, PRTBILLS+15

Label References

Name Line Occurrences
$$PRTBILLS PRINT+13
$$PRTFORB PRINT+23
$$PRTHDR PRINT+9
$$PRTSCHED PRINT+18
$$WRTLN PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+37, PRINT+47, PRINT+48, PRINT+49, PRINT+50
PRINT+51, PRINT+55, PRINT+60, PRINT+61, PRTSCHED+5, PRTSCHED+6, PRTSCHED+7, PRTSCHED+8, PRTSCHED+12, PRTFORB+6
, PRTFORB+7, PRTFORB+8, PRTFORB+9, PRTFORB+10, PRTFORB+15, PRTBILLS+19
PRINT EN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, EN+10*
%ZIS("B" EN+10*
ADDRSTR PRINT+4~, PRTHDR+4~, PRTHDR+8*, PRTHDR+11, PRTHDR+15
BAMNT PRINT+4~, PRTHDR+4~, PRTBILLS+5~, PRTBILLS+18*, PRTBILLS+19
BCAT PRTBILLS+5~, PRTBILLS+17*, PRTBILLS+19
BILL PRINT+4~, PRTHDR+4~, PRTBILLS+5~, PRTBILLS+15*, PRTBILLS+16, PRTBILLS+17, PRTBILLS+18, PRTBILLS+19
BSTAT PRINT+4~, PRTHDR+4~, PRTBILLS+5~, PRTBILLS+16*, PRTBILLS+18, PRTBILLS+19
CBAL PRINT+4~, PRTHDR+4~, PRTHDR+18*, PRTHDR+19
CNT PRINT+4~, PRINT+34*, PRINT+37, PRINT+38, PRINT+39, PRINT+40*, PRTHDR+4~, PRTSCHED+2~, PRTSCHED+9*, PRTSCHED+12
, PRTSCHED+13, PRTSCHED+14, PRTSCHED+15*, PRTFORB+2~
DEBDOB PRINT+4~, PRTHDR+4~, PRTHDR+11*, PRTHDR+14
DEBPHN PRINT+4~, PRTHDR+4~, PRTHDR+11*, PRTHDR+16
DEBSSN PRINT+4~, PRTHDR+4~, PRTHDR+11*, PRTHDR+13
DEBTOR PRINT+4~, GETDOB~, GETDOB+8, GETDOB+9, PRTHDR+4~, PRTHDR+7*, PRTHDR+8, PRTHDR+11, PRTHDR+12
DFN GETDOB+6~, GETDOB+10*
IO PRTHDR+9
IO("Q" EN+9!, EN+11
IOBOFF EN+2~, EN+6
IOBON EN+2~, EN+6
IOF PRINT+27, PRINT+45, PRTHDR+10, PRTSCHED+3, PRTFORB+4, PRTBILLS+7
IOP EN+9!
IORVOFF EN+2~, EN+6
IORVON EN+2~, EN+6
IOSL WRTLN+7
IOST PRINT+27, PRINT+45, PRINT+62, WRTLN+7, PRTHDR+10, PRTSCHED+3, PRTFORB+4, PRTBILLS+7
LN PRINT+4~, PRINT+6*, PRINT+28*, PRINT+29*, PRINT+30*, PRINT+31*, PRINT+32*, PRINT+33*, PRINT+34, PRINT+35
PRINT+37*, PRINT+43, PRINT+46*, PRINT+47*, PRINT+48*, PRINT+49*, PRINT+50*, PRINT+51*, PRINT+52, PRINT+53
PRINT+55*, PRINT+58, PRINT+60*, PRINT+61*, WRTLN~, WRTLN+7*, WRTLN+8*, WRTLN+9, PRTHDR+4~, PRTSCHED+2~
, PRTSCHED+4*, PRTSCHED+5*, PRTSCHED+6*, PRTSCHED+7*, PRTSCHED+8*, PRTSCHED+9, PRTSCHED+10, PRTSCHED+12*, PRTFORB+2~, PRTFORB+5*
, PRTFORB+6*, PRTFORB+7*, PRTFORB+8*, PRTFORB+9*, PRTFORB+10*, PRTFORB+11, PRTFORB+12, PRTFORB+15*, PRTBILLS+5~, PRTBILLS+8*
, PRTBILLS+15, PRTBILLS+19*
N0 PRINT+4~, PRTHDR+4~, PRTHDR+6*, PRTHDR+7, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21, PRTHDR+23
PHONE FMTPHONE~, FMTPHONE+7, FMTPHONE+8, FMTPHONE+9, FMTPHONE+10
PMDT PMNTS+6~, PMNTS+8*, PMNTS+9
PMIEN PMNTS+6~, PMNTS+9*
POP EN+1~, EN+10*
QUIT PRTHDR+4~, PRTHDR+25, PRTSCHED+2~, PRTSCHED+19, PRTFORB+2~, PRTFORB+19, PRTBILLS+5~, PRTBILLS+21
RAMNT PRINT+4~, PRTHDR+4~, PRTHDR+18*, PRTHDR+19, PRTHDR+22
RCDONE PRINT+4~, PRINT+9*, PRINT+10, PRINT+13*, PRINT+15, PRINT+18*, PRINT+20, PRINT+23*, PRINT+25
RCUSER PRTFORB+2~, PRTFORB+14*, PRTFORB+15
RES GETDOB+6~, GETDOB+7*, GETDOB+8, GETDOB+10*, GETDOB+11*, GETDOB+12, FMTPHONE+6~, FMTPHONE+7*, FMTPHONE+8*, FMTPHONE+9*
, FMTPHONE+10*, FMTPHONE+11, PMNTS+6~, PMNTS+7*, PMNTS+9*, PMNTS+11
RPIEN EN+1~, EN+3*, EN+4, PRINT+5, PRINT+9, PRINT+13, PRINT+18, PRINT+23, PRINT+34, PRINT+35
PRINT+36, PRINT+52, PRINT+53, PRINT+54, PMNTS~, PMNTS+8, PMNTS+9, PRTHDR~, PRTHDR+5, PRTHDR+6
, PRTHDR+18, PRTHDR+22, PRTSCHED~, PRTSCHED+9, PRTSCHED+10, PRTSCHED+11, PRTFORB~, PRTFORB+11, PRTFORB+12, PRTFORB+13
, PRTFORB+14, PRTBILLS~, PRTBILLS+15
STR WRTLN~, WRTLN+7
TMP PRINT+4~, PRINT+36*, PRINT+38, PRINT+39, PRINT+54*, PRINT+55, PRTHDR+4~, PRTSCHED+2~, PRTSCHED+11*, PRTSCHED+13
, PRTSCHED+14, PRTFORB+2~, PRTFORB+13*, PRTFORB+15
TMPDT PRINT+4~, PRINT+34*, PRINT+35, PRINT+52*, PRINT+53, PRTHDR+4~, PRTSCHED+2~, PRTSCHED+9*, PRTSCHED+10, PRTFORB+2~
, PRTFORB+11*, PRTFORB+12
TMPIEN PRINT+4~, PRINT+35*, PRINT+36, PRINT+53*, PRINT+54, PRTHDR+4~, PRTSCHED+2~, PRTSCHED+10*, PRTSCHED+11, PRTFORB+2~
, PRTFORB+12*, PRTFORB+13, PRTFORB+14
U EN+4, PRINT+38, PRINT+39, PRINT+55, GETDOB+9, GETDOB+10, PMNTS+9, PRTHDR+7, PRTHDR+11, PRTHDR+15
, PRTHDR+17, PRTHDR+18, PRTHDR+20, PRTHDR+21, PRTHDR+23, PRTSCHED+13, PRTSCHED+14, PRTFORB+15, PRTBILLS+19
VADM GETDOB+6~
VADM(3 GETDOB+10
X EN+2~, EN+5*
Z GETDOB+6~, GETDOB+9*
Z1 GETDOB+6~, GETDOB+9*, GETDOB+10, GETDOB+11
Z2 GETDOB+6~, GETDOB+9*, GETDOB+10, GETDOB+11
ZTDESC EN+1~, EN+12*
>> ZTQUEUED PRINT+62, WRTLN+7
ZTRTN EN+1~, EN+12*
ZTSAVE EN+1~
ZTSAVE("RPIEN" EN+13*
ZTSAVE("ZTREQ" EN+13*
ZTSK EN+1~, EN+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All