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

Package: Integrated Billing

Routine: IBJDF53


Information

IBJDF53 ;ALB/RB - CHAMPVA/TRICARE FOLLOW-UP REPORT (SUMMARY);15-APR-00

Source Information

Source file <IBJDF53.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; - Initialize counters, if necessary.
; Pre-set variables IBCAT, IBDIV, IBSEL1 required.
EN ; - Compile entry point from IBJDF51.
; Pre-set variables IB(, IBA, IBCAT, IBDIV, IBSEL1, IBTYP required.
ENQ
PRT ; - Print entry point from IBJDF52.
ENQ1
EXTMO(IBS) ; Extract/transmit data to DM Extract Module
; IBS - Array containing the summary information
SUM(IBCAT) ; - Print summary for AR category.
; Input: IBCAT=AR category pointer to file #430.2, and pre-set
; variables IBDIV and 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(IBTYPH))\2,IBTYPH
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !?(80-$L(IBTYPH)\2),$$DASH($L(IBTYPH))
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?(80-$L(IBDH)\2),IBDH
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: "AR Category",?31,"# Receivables",?52,"Total Outstanding Balance",!
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: "-----------",?31,"-------------",?52,"-------------------------"
  • Line Location: SUM+22
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+30
Function Call: WRITE
  • Prompt: !,X,?30,$J(+IB(IBDIV,IBCAT,IBTYP,I),6)
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: " (",$J(+IB(IBDIV,IBCAT,IBTYP,I)/+IB(IBDIV,IBCAT,IBTYP,8)*100,0,$S(I=8:0,1:2)),"%)"
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: ?52,$J($S(I=1!(I=9):"$",1:"")_Z,15)
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "CHAMPVA/TRICARE 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+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls