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

Package: Integrated Billing

Routine: IBJDF72


Information

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

Source Information

Source file <IBJDF72.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls