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

Package: Integrated Billing

Routine: IBJDF63


Information

IBJDF63 ;ALB/RB - MISC. BILLS FOLLOW-UP REPORT (COMPILE/PRINT SUMMARY);15-APR-00

Source Information

Source file <IBJDF63.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; - Initialize counters, if necessary.
; Quit if division selected for Debtor (doesn't split by division)
EN ; - Compile entry point from IBJDF61.
; Pre-set variables IBA, IBCAT, IBDIV required.
ENQ
PRT ; - Print entry point from IBJDF62.
ENQ1
EXTMO(IBS) ; Extract/transmit data to DM Extract Module
; IBS - Array containing the summary information
SUM(IBDIV) ; - Print summary for division.
; Input: IBDIV=Pointer to the division in file #40.8 and pre-set
; variable IBRPT
SUMQ
HDR ; - Write the summary report header.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
CAT(X) ; - Determine category to place receivable.
CATN ; - List of category names.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(80-$L(IBTYP))\2,IBTYP
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !?(80-$L(IBTYP)\2),$$DASH($L(IBTYP))
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?(80-$L(IBDH)\2),IBDH
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: "AR Category",?31,"# Receivables",?52,"Total Outstanding Balance",!
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: "-----------",?31,"-------------",?52,"-------------------------"
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !!,"There are no active receivables",$S(IBDIV:" for this division",1:""),".",!!
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=8
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !,X,?30,$J(+IB(IBDIV,IBCAT,I),6)
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: " (",$J(+IB(IBDIV,IBCAT,I)/+IB(IBDIV,IBCAT,8)*100,0,$S(I=8:0,1:2)),"%)"
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: ?52,$J($S(I=1!(I=9):"$",1:"")_Z,15)
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "MISCELLANEOUS BILLS FOLLOW-UP SUMMARY REPORT"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?71,"Page: ",$J(IBPAG,3),!,"Run Date: ",IBRUN
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$E(X,1,80)
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls