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)^RCRPINQ  ($$BALANCE,PAUSE)^RCRPRPU  $$SELRPP^RCRPU1  $$ASKCONT^RCRPU2  ($$CBAL,$$REMPMNTS)^RCRPU3  
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: 5

Package Total Caller Graph
Accounts Receivable 5 PRCAC PLAN INQUIRY  RCRPADD  RCRPFB  RCRPINQ  RCRPWL1  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
EN1(RPIEN) ; entry point from repayment plan worklist, skips RPP selection PRCA*4.5*389
PRINT ; display repayment plan data
GETDOB(DEBTOR) ; get date of birth
FMTPHONE(PHONE) ; format phone number for display
WRTLN(STR,LN) ; write line
NEWPG() ; print new page
PRTHDR(RPIEN,LN) ; display header
PRTSCHED(RPIEN,LN) ; Print the schedule
PRTFORB(RPIEN,LN) ; Print the forbearances previously granted
PRTBILLS(RPIEN,LN) ; print list of bills
PRTPMTS(RPIEN,LN) ; print payments
PRTAUDT(RPIEN,LN) ; print audit log

External References

Name Field # of Occurrence
^%ZIS EN1+12
HOME^%ZIS EN1+16
ENDR^%ZISS EN1+7
^%ZTLOAD EN1+16
$$EXTERNAL^DILFD PRTHDR+18, PRTAUDT+19
$$GET1^DIQ GETDOB+11, PRTHDR+23, PRTFORB+16, PRTBILLS+15, PRTBILLS+16
$$DADD^RCAMADD PRTHDR+9
$$NAM^RCFN01 PRTHDR+13
$$SSN^RCFN01 PRTHDR+12
$$FMTPHONE^RCRPINQ PRTHDR+17
$$GETDOB^RCRPINQ PRTHDR+12
$$BALANCE^RCRPRPU PRTBILLS+17
PAUSE^RCRPRPU EN1+17, PRINT+15
$$SELRPP^RCRPU1 EN+2
$$ASKCONT^RCRPU2 NEWPG+4
$$CBAL^RCRPU3 PRTHDR+19
$$REMPMNTS^RCRPU3 PRTHDR+20
DEM^VADPT GETDOB+10
$$FMTE^XLFDT PRTHDR+18, PRTHDR+24, PRTSCHED+17, PRTFORB+17, PRTPMTS+17, PRTAUDT+19
$$CJ^XLFSTR EN1+8, PRINT+14, PRTSCHED+9, PRTFORB+9, PRTBILLS+8, PRTPMTS+9, PRTPMTS+18, PRTAUDT+9
$$LJ^XLFSTR PRTSCHED+10, PRTSCHED+12, PRTFORB+10, PRTFORB+12, PRTFORB+17, PRTBILLS+9, PRTBILLS+11, PRTBILLS+18, PRTPMTS+10, PRTPMTS+12
, PRTAUDT+10, PRTAUDT+12, PRTAUDT+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Inquiry output has started with task# ",ZTSK,".",!
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,STR
  • Line Location: WRTLN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHDR+11
Function Call: WRITE
  • Prompt: !!,"Debtor: ",$$NAM^RCFN01(DEBTOR)
  • Line Location: PRTHDR+13
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+14
Function Call: WRITE
  • Prompt: ?64,"DOB: ",$S(DEBDOB="":"N/A",1:DEBDOB)
  • Line Location: PRTHDR+15
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+16
Function Call: WRITE
  • Prompt: !,"Phone: ",$S(DEBPHN>0:$$FMTPHONE^RCRPINQ(DEBPHN),1:"N/A"),!
  • Line Location: PRTHDR+17
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+18
Function Call: WRITE
  • Prompt: !,?2,"Current balance: $",$FN(CBAL,"",2),?37,"Number of payments remaining: ",$$REMPMNTS^RCRPU3(RPIEN,RAMNT)
  • Line Location: PRTHDR+20
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+21
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+22
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+23
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+24
Function Call: WRITE
  • Prompt: ?22
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: ?42
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRTSCHED+17
Function Call: WRITE
  • Prompt: ?37
  • Condition for execution: CNT#3=1
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: ?57
  • Condition for execution: CNT#3=2
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: $S($P(TMP,U,3):"F",$P(TMP,U,2):"Y",1:"N")
  • Line Location: PRTSCHED+18
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(TMP,U),"5DZ")
  • Line Location: PRTPMTS+17
Function Call: WRITE
  • Prompt: ?46
  • Condition for execution: CNT#2=1
  • Line Location: PRTPMTS+18
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("$"_$FN($P(TMP,U,2),"",2),10)
  • Line Location: PRTPMTS+18
Routine Call
  • %ZIS
  • Line Location:
    • EN1+12
Routine Call
  • %ZIS
  • Line Location:
    • EN1+16

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+18
^RCD(340 - [#340] GETDOB+9
^RCRP(340.5 - [#340.5] EN1+6, PRTHDR+7, PRTSCHED+13, PRTSCHED+14, PRTSCHED+15, PRTFORB+13, PRTFORB+14, PRTFORB+15, PRTBILLS+14, PRTPMTS+13
, PRTPMTS+14, PRTPMTS+15, PRTAUDT+13, PRTAUDT+14, PRTAUDT+15
^RCRP(340.501 - [#340.501] PRTAUDT+17

Label References

Name Line Occurrences
$$NEWPG WRTLN+8, PRTSCHED+24, PRTFORB+22, PRTBILLS+22, PRTPMTS+24, PRTAUDT+22
$$PRTAUDT PRINT+11
$$PRTBILLS PRINT+7
$$PRTFORB PRINT+9
$$PRTHDR PRINT+6
$$PRTPMTS PRINT+10
$$PRTSCHED PRINT+8
$$WRTLN PRINT+13, PRINT+14, PRTSCHED+9, PRTSCHED+10, PRTSCHED+11, PRTSCHED+12, PRTSCHED+16, PRTSCHED+25, PRTFORB+9, PRTFORB+10
, PRTFORB+11, PRTFORB+12, PRTFORB+17, PRTFORB+23, PRTBILLS+8, PRTBILLS+9, PRTBILLS+10, PRTBILLS+11, PRTBILLS+12, PRTBILLS+18
, PRTBILLS+23, PRTPMTS+9, PRTPMTS+10, PRTPMTS+11, PRTPMTS+12, PRTPMTS+16, PRTPMTS+25, PRTAUDT+9, PRTAUDT+10, PRTAUDT+11
, PRTAUDT+12, PRTAUDT+19
EN1 EN+2
PRINT EN1+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN1+4~, EN1+12*
%ZIS("B" EN1+12*
ADDRSTR PRTHDR+6~, PRTHDR+9*, PRTHDR+12, PRTHDR+16
BAMNT PRTBILLS+7~, PRTBILLS+17*, PRTBILLS+18
BCAT PRTBILLS+7~, PRTBILLS+16*, PRTBILLS+18
BILL PRTBILLS+7~, PRTBILLS+14*, PRTBILLS+15, PRTBILLS+16, PRTBILLS+17, PRTBILLS+18
BSTAT PRTBILLS+7~, PRTBILLS+15*, PRTBILLS+17, PRTBILLS+18
CBAL PRTHDR+6~, PRTHDR+19*, PRTHDR+20
CNT PRTSCHED+8~, PRTSCHED+13*, PRTSCHED+16, PRTSCHED+17, PRTSCHED+18, PRTSCHED+19*, PRTPMTS+8~, PRTPMTS+13*, PRTPMTS+16, PRTPMTS+17
, PRTPMTS+18, PRTPMTS+19*
DEBDOB PRTHDR+6~, PRTHDR+12*, PRTHDR+15
DEBPHN PRTHDR+6~, PRTHDR+12*, PRTHDR+17
DEBSSN PRTHDR+6~, PRTHDR+12*, PRTHDR+14
DEBTOR GETDOB~, GETDOB+8, GETDOB+9, PRTHDR+6~, PRTHDR+8*, PRTHDR+9, PRTHDR+12, PRTHDR+13
DFN GETDOB+6~, GETDOB+10*
IO PRTHDR+10
IO("Q" EN1+11!, EN1+13
IOBOFF EN1+5~, EN1+8
IOBON EN1+5~, EN1+8
IOF NEWPG+5, PRTHDR+11
IOP EN1+11!
IORVOFF EN1+5~, EN1+8
IORVON EN1+5~, EN1+8
IOSL WRTLN+8, PRTSCHED+24, PRTFORB+22, PRTBILLS+22, PRTPMTS+24, PRTAUDT+22
IOST PRINT+15, WRTLN+8, PRTHDR+11, PRTSCHED+23, PRTFORB+21, PRTBILLS+21, PRTPMTS+23, PRTAUDT+22
LN PRINT+4~, PRINT+5*, PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*, PRINT+13*, PRINT+14*
, WRTLN~, WRTLN+7*, WRTLN+8*, WRTLN+9, PRTHDR~, PRTHDR+26*, PRTHDR+27, PRTSCHED~, PRTSCHED+9*, PRTSCHED+10*
, PRTSCHED+11*, PRTSCHED+12*, PRTSCHED+13, PRTSCHED+14, PRTSCHED+16*, PRTSCHED+22, PRTSCHED+23, PRTSCHED+24*, PRTSCHED+25*, PRTSCHED+27
, PRTFORB~, PRTFORB+9*, PRTFORB+10*, PRTFORB+11*, PRTFORB+12*, PRTFORB+13, PRTFORB+14, PRTFORB+17*, PRTFORB+20, PRTFORB+21
, PRTFORB+22*, PRTFORB+23*, PRTFORB+25, PRTBILLS~, PRTBILLS+5*, PRTBILLS+8*, PRTBILLS+9*, PRTBILLS+10*, PRTBILLS+11*, PRTBILLS+12*
, PRTBILLS+14, PRTBILLS+18*, PRTBILLS+20, PRTBILLS+21, PRTBILLS+22*, PRTBILLS+23*, PRTBILLS+25, PRTPMTS~, PRTPMTS+9*, PRTPMTS+10*
, PRTPMTS+11*, PRTPMTS+12*, PRTPMTS+13, PRTPMTS+14, PRTPMTS+16*, PRTPMTS+22, PRTPMTS+23, PRTPMTS+24*, PRTPMTS+25*, PRTPMTS+27
, PRTAUDT~, PRTAUDT+9*, PRTAUDT+10*, PRTAUDT+11*, PRTAUDT+12*, PRTAUDT+13, PRTAUDT+14, PRTAUDT+19*, PRTAUDT+22*, PRTAUDT+23
N0 PRTHDR+6~, PRTHDR+7*, PRTHDR+8, PRTHDR+18, PRTHDR+19, PRTHDR+21, PRTHDR+22, PRTHDR+24
PHONE FMTPHONE~, FMTPHONE+7, FMTPHONE+8, FMTPHONE+9, FMTPHONE+10
POP EN1+4~, EN1+12*
RAMNT PRTHDR+6~, PRTHDR+19*, PRTHDR+20, PRTHDR+23
RCRSN PRTAUDT+8~, PRTAUDT+17*, PRTAUDT+18*, PRTAUDT+19
RCRSNCD PRTAUDT+8~, PRTAUDT+16*, PRTAUDT+17, PRTAUDT+18
RCRSNTX PRTAUDT+8~, PRTAUDT+16*, PRTAUDT+18
RCUSER PRTFORB+8~, PRTFORB+16*, PRTFORB+17
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
RPIEN EN+1~, EN+2*, EN1~, EN1+6, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
, PRTHDR~, PRTHDR+7, PRTHDR+19, PRTHDR+20, PRTHDR+23, PRTSCHED~, PRTSCHED+13, PRTSCHED+14, PRTSCHED+15, PRTFORB~
, PRTFORB+13, PRTFORB+14, PRTFORB+15, PRTFORB+16, PRTBILLS~, PRTBILLS+14, PRTPMTS~, PRTPMTS+13, PRTPMTS+14, PRTPMTS+15
, PRTAUDT~, PRTAUDT+13, PRTAUDT+14, PRTAUDT+15
STR WRTLN~, WRTLN+7
TMP PRTSCHED+8~, PRTSCHED+15*, PRTSCHED+17, PRTSCHED+18, PRTFORB+8~, PRTFORB+15*, PRTFORB+17, PRTPMTS+8~, PRTPMTS+15*, PRTPMTS+17
, PRTPMTS+18, PRTAUDT+8~, PRTAUDT+15*, PRTAUDT+16, PRTAUDT+19
TMPDT PRTSCHED+8~, PRTSCHED+13*, PRTSCHED+14, PRTFORB+8~, PRTFORB+13*, PRTFORB+14, PRTPMTS+8~, PRTPMTS+13*, PRTPMTS+14, PRTAUDT+8~
, PRTAUDT+13*, PRTAUDT+14
TMPIEN PRTSCHED+8~, PRTSCHED+14*, PRTSCHED+15, PRTFORB+8~, PRTFORB+14*, PRTFORB+15, PRTFORB+16, PRTPMTS+8~, PRTPMTS+14*, PRTPMTS+15
, PRTAUDT+8~, PRTAUDT+14*, PRTAUDT+15
U EN1+6, GETDOB+9, GETDOB+10, PRTHDR+8, PRTHDR+12, PRTHDR+16, PRTHDR+18, PRTHDR+19, PRTHDR+21, PRTHDR+22
, PRTHDR+24, PRTSCHED+17, PRTSCHED+18, PRTFORB+17, PRTBILLS+18, PRTPMTS+17, PRTPMTS+18, PRTAUDT+16, PRTAUDT+17, PRTAUDT+19
VADM GETDOB+6~
VADM(3 GETDOB+10
X EN1+5~, EN1+7*
Z GETDOB+6~, GETDOB+9*
Z1 GETDOB+6~, GETDOB+9*, GETDOB+10, GETDOB+11
Z2 GETDOB+6~, GETDOB+9*, GETDOB+10, GETDOB+11
ZTDESC EN1+4~, EN1+14*
>> ZTQUEUED PRINT+15, WRTLN+8, PRTSCHED+23, PRTFORB+21, PRTBILLS+21, PRTPMTS+23, PRTAUDT+22
ZTRTN EN1+4~, EN1+14*
ZTSAVE EN1+4~
ZTSAVE("RPIEN" EN1+15*
ZTSAVE("ZTREQ" EN1+15*
ZTSK EN1+4~, EN1+17
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