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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBJDF72

Package: Integrated Billing

Routine: IBJDF72


Information

IBJDF72 ;ALB/MR - REPAYMENT PLAN REPORT (PRINT) ;16-AUG-00

Source Information

Source file <IBJDF72.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 E^IBJDE  ($$DAT1,$$DAT2,$$STOP)^IBOUTL  
VA FileMan 2 NOW^%DTC  ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IBJDF71  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Repayment Plan Report
;
DETQ
SUM ; - Print Summary Report
;
; Sets IB with totals (Current + Defaulted)
ENQ
WPAT ; - Write the Debtor name & SSN
EXCEL ; - Prints the data to an Excel file format
HDRD ; - Prints the Detailed Report Header
HDRS ; - Prints the Summary Report Header
;
PHDL ; - Print the header line for the Excel spreadsheet
PTOT ; - Prints the TOTAL line for the Debtor
;
PSUM(X) ; Prints the Summary Information
; Input: X=Type of information: C-Current, D-Defaulted or T-Total
;
PER(X,T) ; Calculates the percentage
; Input: T=Total Amount, X=Amount
; Output: Percentage of X from T - Format: (99.99%)
DASH(X,Y) ; - Return a dashed line.
; Input: X=Number of Columns (80 or 132), Y=Char to be printed
;
PAUSE ; - Page break.
;
DT(X) ; - Return date.
; Input: X=Date in Fileman format
; Output: Z=Date in MMDDYY format

External References

Name Field # of Occurrence
NOW^%DTC EN+2
^DIR PAUSE+5
E^IBJDE SUM+9
$$DAT1^IBOUTL EN+41, EN+48, EN+56
$$DAT2^IBOUTL EN+2
$$STOP^IBOUTL HDRD+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no Repayment Plan for the parameters selected."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?51,IBILL
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: ?64,"->REPAYMENT PLAN INCOMPLETE. PLEASE CHECK!",!
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: ?64,$$DAT1^IBOUTL($P(IBRP,"^"))
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: ?74,$J($FN($P(IBRP,"^",9),",",2),10)
  • Line Location: EN+42
Function Call: WRITE
  • Prompt: ?86,$J($FN($P(IBRP,"^",3),",",2),10)
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: ?98,$J($P(IBRP,"^",4),2)
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: ?102,$$DAT1^IBOUTL($P(IBRP,"^",5))
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: ?112,$J($FN($P(IBRP,"^",6),",",2),10)
  • Line Location: EN+49
Function Call: WRITE
  • Prompt: ?124,$J($P(IBRP,"^",7),3),?128,$J($P(IBRP,"^",8),3),!
  • Line Location: EN+52
Function Call: WRITE
  • Prompt: $$DAT1^IBOUTL($P(IBPAT,"^",3))
  • Line Location: EN+56
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !,$P(IBPAT,"^"),$S($P(IBPAT,"^",4):" *",1:"")
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: ?38,$P(IBPAT,"^",2)
  • Line Location: WPAT+2
Function Call: WRITE
  • Prompt: !,$P(IBPAT,"^",1)_"^"_$TR($P(IBPAT,"^",2),"-")_"^"
  • Line Location: EXCEL+2
Function Call: WRITE
  • Prompt: $S($P(IBRP,"^",8):"D",1:"C")_"^"
  • Line Location: EXCEL+3
Function Call: WRITE
  • Prompt: $S($P(IBPAT,"^",3):$$DT($P(IBPAT,"^",3)),1:"")_"^"
  • Line Location: EXCEL+4
Function Call: WRITE
  • Prompt: IBILL_"^"_$$DT($P(IBRP,"^"))_"^"_$P(IBRP,"^",3)_"^"
  • Line Location: EXCEL+5
Function Call: WRITE
  • Prompt: $E($P(IBRP,"^",4)+100,2,3)_"^"_$$DT($P(IBRP,"^",5))_"^"
  • Line Location: EXCEL+6
Function Call: WRITE
  • Prompt: $P(IBRP,"^",6)_"^"_$P(IBRP,"^",2)_"^"_$P(IBRP,"^",7)_"^"
  • Line Location: EXCEL+7
Function Call: WRITE
  • Prompt: $P(IBRP,"^",8)
  • Line Location: EXCEL+8
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDRD+1
Function Call: WRITE
  • Prompt: "Repayment Plan Report"
  • Line Location: HDRD+2
Function Call: WRITE
  • Prompt: ?60,"Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDRD+3
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDRD+10
Function Call: WRITE
  • Prompt: !!,"Debtor Name",?64,"Start",?86,"Monthly",?97,"Due"
  • Line Location: HDRD+12
Function Call: WRITE
  • Prompt: ?104,"Last Payment",?124,"#Paymts"
  • Line Location: HDRD+13
Function Call: WRITE
  • Prompt: !,"Date of Death",?38,"SSN",?51,"Bill",?64,"Date",?74,"Balance"
  • Line Location: HDRD+14
Function Call: WRITE
  • Prompt: ?86,"Payment",?97,"Day",?102,"Date",?112,"Amount",?124,"Due",?128,"Def"
  • Line Location: HDRD+15
Function Call: WRITE
  • Prompt: !,$$DASH(IOM,0)
  • Line Location: HDRD+16
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDRS+3
Function Call: WRITE
  • Prompt: ?71,"Page: ",$J(IBPAG,3)
  • Line Location: HDRS+4
Function Call: WRITE
  • Prompt: !?26,"SUMMARY REPAYMENT PLAN REPORT"
  • Line Location: HDRS+5
Function Call: WRITE
  • Prompt: !?(80-$L(X)/2+1),X,!!?(80-$L(IBRUN)/2+1),IBRUN
  • Line Location: HDRS+10
Function Call: WRITE
  • Prompt: !?(80-$L(IBRUN)/2+1),X
  • Line Location: HDRS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRS+12
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: ?74,X,?112,X
  • Line Location: PTOT+4
Function Call: WRITE
  • Prompt: !?74,$J($FN($P(IBTOT,"^",9),"",2),10)
  • Line Location: PTOT+5
Function Call: WRITE
  • Prompt: ?112,$J($FN($P(IBTOT,"^",6),"",2),10),!
  • Line Location: PTOT+6
Function Call: WRITE
  • Prompt: !?15,$S(X="C":"CURRENT",X="D":"DEFAULTED",1:"TOTAL")
  • Line Location: PSUM+4
Function Call: WRITE
  • Prompt: " REPAYMENT PLANS"
  • Line Location: PSUM+5
Function Call: WRITE
  • Prompt: " (CURRENT + DEFAULTED)"
  • Condition for execution: X="T"
  • Line Location: PSUM+5
Function Call: WRITE
  • Prompt: !?15,"Number of Bills:",?47,$J(+IB(IBIX),10)
  • Line Location: PSUM+9
Function Call: WRITE
  • Prompt: !?15,"Number of Debtors"
  • Line Location: PSUM+11
Function Call: WRITE
  • Prompt: " (unique)"
  • Condition for execution: X="T"
  • Line Location: PSUM+11
Function Call: WRITE
  • Prompt: ":",?47,$J(IB(IBIX+1),10)
  • Line Location: PSUM+11
Function Call: WRITE
  • Prompt: !?15,"Outstanding balance of Bills:",?47,$J(IB(IBIX+2),10)
  • Line Location: PSUM+13
Function Call: WRITE
  • Prompt: !?15,"Number of payments due:",?47,$J(IB(IBIX+3),10)
  • Line Location: PSUM+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBJDF7" EN+4, EN+17, EN+18, EN+19, EN+28, EN+29

Label References

Name Line Occurrences
$$DASH HDRD+16
$$DT EXCEL+4, EXCEL+5, EXCEL+6
$$PER PSUM+10, PSUM+12, PSUM+14, PSUM+16
@( EN+5
ENQ EN+4, EN+11, DETQ, SUM+9, SUM+12, SUM+14, SUM+16
EXCEL EN+32
HDRD EN+11, EN+23, EN+35
HDRS SUM+11, SUM+12, SUM+14, SUM+16
PAUSE EN+23, EN+35, DETQ, SUM+12, SUM+14, SUM+16, SUM+17
PHDL EN+14
PSUM SUM+13, SUM+15, SUM+17
PTOT EN+66
SUM EN+9
WPAT EN+26, EN+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+2, ENQ!
DIR PAUSE+3~
DIR(0 PAUSE+5*
DIROUT PAUSE+3~
DIRUT PAUSE+3~, PAUSE+5
DTOUT PAUSE+3~
DUOUT PAUSE+3~, PAUSE+5
I EN+60*, SUM+3*, SUM+6*, HDRD+10*, PTOT+2~
>> IB( SUM+3*, SUM+6*, PSUM+9, PSUM+10, PSUM+11, PSUM+12, PSUM+13, PSUM+14, PSUM+15, PSUM+16
>> IB(10 PSUM+12
>> IB(11 PSUM+14
>> IB(12 PSUM+16
>> IB(9 PSUM+10
IBCNT EN+20*, EN+59*, EN+66, ENQ!
IBDFN EN+16*, EN+18*, EN+19, EN+28, EN+29, ENQ!
>> IBEXCEL EN+5, EN+11, EN+14, EN+23, EN+26, EN+32, EN+63, DETQ
IBFLG EN+19*, EN+55, EN+56*, ENQ!
IBILL EN+16*, EN+28*, EN+29, EN+38, ENQ!, EXCEL+5
IBIX PSUM+3~, PSUM+7*, PSUM+9, PSUM+10, PSUM+11, PSUM+12, PSUM+13, PSUM+14, PSUM+15, PSUM+16
IBKEY EN+16*, EN+17*, EN+18, EN+19, EN+28, EN+29, ENQ!
>> IBMCR HDRD+6, HDRS+6
IBPAG EN+11*, ENQ!, HDRD+1, HDRD+2*, HDRD+3, HDRS+3, HDRS+4*
IBPAT EN+19*, EN+55, EN+56, ENQ!, WPAT+1, WPAT+2, EXCEL+2, EXCEL+4
>> IBPLN SUM+13, SUM+15, HDRD+4, HDRD+5
IBQ EN+2*, EN+11, EN+17, EN+18, EN+23, EN+28, EN+35, EN+66, DETQ, SUM+12
, SUM+14, SUM+16, ENQ!, HDRD+16*, PAUSE+5*
IBRP EN+29*, EN+39, EN+41, EN+42, EN+43, EN+44, EN+47, EN+48, EN+49, EN+52
, EN+60, ENQ!, EXCEL+3, EXCEL+5, EXCEL+6, EXCEL+7, EXCEL+8
>> IBRPT EN+5, EN+9
IBRUN EN+2*, ENQ!, HDRD+3, HDRS+10, HDRS+11
>> IBSN HDRD+7
>> IBSNA HDRD+8, HDRS+7, HDRS+8
>> IBSNF HDRD+8, HDRS+8
>> IBSNL HDRD+8, HDRS+8
IBTOT EN+20*, EN+60*, ENQ!, PTOT+5, PTOT+6
>> IBTPT EN+66
IBX PAUSE+3~, PAUSE+4*
>> IBXTRACT EN+4, SUM+9
IOF HDRD+1, HDRS+3
IOM HDRD+16
IOSL EN+23, EN+35, SUM+12, SUM+14, SUM+16, PAUSE+4
IOST HDRD+1, HDRS+3, PAUSE+2
T PER~, PER+4, PER+5
X HDRD+4*, HDRD+5*, HDRD+6*, HDRD+7*, HDRD+8*, HDRD+9*, HDRD+10*, HDRS+2~, HDRS+6*, HDRS+7*
, HDRS+8*, HDRS+9*, HDRS+10, HDRS+11*, PHDL+1~, PHDL+2*, PHDL+3*, PHDL+4, PTOT+2~, PTOT+3*
, PTOT+4, PSUM~, PSUM+4, PSUM+5, PSUM+7, PSUM+10, PSUM+11, PSUM+12, PSUM+14, PSUM+16
, PER~, PER+5, DASH~, DASH+3, PAUSE+3~, DT~, DT+4
Y DASH~, DASH+3, PAUSE+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All