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

Package: Integrated Billing

Routine: IBJDF43


Information

IBJDF43 ;ALB/RB - FIRST PARTY FOLLOW-UP REPORT (COMPILE/PRINT SUMMARY);15-APR-00

Source Information

Source file <IBJDF43.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; - Initialize counters (Called by IBJDF41)
; Pre-set variables IB, IB(, IBCAT, IBSRC required.
EN ; - Compile entry point from IBJDF41.
; Pre-set variables IB, IB(, IBA, IBCAT, IBSRC required.
ENQ
PRT ; - Print entry point from IBJDF42.
ENQ1
EXTMO(IBS) ; Extract/transmit data to DM Extract Module
; IBS - Array containing the summary information
SUM ; - Print summary for AR category.
; Input: IBCAT=AR category pointer to file #430.2
SUMQ
HDR ; - Write the summary report header.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
OSUM ; Print Overall Summary
OSUMQ
OSHDR ; - Custom Header for Overall Summary
CATN ; - List of category names.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!?(80-$L(X)\2),X,!?(80-$L(X)\2),$$DASH($L(X)),!!
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: "AR Category",?31,"# Receivables",?52,"Total Outstanding Balance",!
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: "-----------",?31,"-------------",?52,"-------------------------",!
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !,"There are no statistics for this category."
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=9
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !,X,?30,$J(+IB(IBCAT,IB,I),6)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: ?52,$J($S(I=1!(I=9):"$",1:"")_Z,15)
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !!!!!!,"There are no receivables for the parameters entered."
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "FIRST PARTY FOLLOW-UP SUMMARY REPORT Run Date: ",IBRUN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?71,"Page: ",$J(IBPAG,3)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$E(X,1,80)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,X,?30,$J($P(IB("OSUM",I),U),6)
  • Line Location: OSUM+25
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: OSHDR+3
Function Call: WRITE
  • Prompt: "FIRST PARTY FOLLOW-UP SUMMARY REPORT Run Date: ",IBRUN
  • Line Location: OSHDR+5
Function Call: WRITE
  • Prompt: ?71,"Page: ",$J(IBPAG,3)
  • Line Location: OSHDR+6
Function Call: WRITE
  • Prompt: !,$E(X,1,80)
  • Line Location: OSHDR+9
Function Call: WRITE
  • Prompt: !!!!?(80-$L(X)\2),X,!?(80-$L(X)\2),$$DASH^IBJDF43($L(X)),!!
  • Line Location: OSHDR+10
Function Call: WRITE
  • Prompt: "AR Category",?31,"# Receivables",?52,"Total Outstanding Balance",!
  • Line Location: OSHDR+11
Function Call: WRITE
  • Prompt: "-----------",?31,"-------------",?52,"-------------------------",!
  • Line Location: OSHDR+12
Info |  Source |  Entry Points |  Interaction Calls