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 |  Marked Items |  All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 E^IBJDE  $$ACT^IBJDF2  
Kernel 1 $$FMDIFF^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBJDF51  IBJDF52  

Entry Points

Name Comments DBIA/ICR reference
EXTMO(IBS) ; Extract/transmit data to DM Extract Module
; IBS - Array containing the summary information
DASH(X) ; - Return a dashed line.
EN ; - Compile entry point from IBJDF51.
; Pre-set variables IB(, IBA, IBCAT, IBDIV, IBSEL1, IBTYP required.
HDR ; - Write the summary report header.
PRT ; - Print entry point from IBJDF52.
SUM(IBCAT) ; - Print summary for AR category.
; Input: IBCAT=AR category pointer to file #430.2, and pre-set
; variables IBDIV and IBRPT
SUMQ
ENQ
INIT ; - Initialize counters, if necessary.
; Pre-set variables IBCAT, IBDIV, IBSEL1 required.
ENQ1
CATN ; - List of category names.
CAT(X) ; - Determine category to place receivable.
PAUSE ; - Page break.

External References

Name Field # of Occurrence
^DIR PAUSE+4
E^IBJDE EXTMO+26
$$ACT^IBJDF2 EN+5
$$FMDIFF^XLFDT EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?(80-$L(IBTYPH))\2,IBTYPH
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !?(80-$L(IBTYPH)\2),$$DASH($L(IBTYPH))
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !?(80-$L(IBDH)\2),IBDH
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: "AR Category",?31,"# Receivables",?52,"Total Outstanding Balance",!
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: "-----------",?31,"-------------",?52,"-------------------------"
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !!,"There are no active receivables",$S(IBDIV:" for this division",1:""),"."
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=8
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !,X,?30,$J(+IB(IBDIV,IBCAT,IBTYP,I),6)
  • Line Location: SUM+28
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+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: "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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SUM+12
^PRCA(430 - [#430] EN+6

Label References

Name Line Occurrences
$$CAT EN+7
$$DASH SUM+10
ENQ EN+5
ENQ1 PRT+4
EXTMO PRT+4
HDR SUM+5, SUM+7
PAUSE SUM+21, SUM+34
SUM PRT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DT EN+7
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
I INIT+2~, INIT+4*, EN+2~, EN+6*, EN+8*, EN+9, EN+10, SUM+3~, SUM+17*, SUM+27*
, SUM+28, SUM+29, SUM+30, SUM+31, SUM+32, HDR+16*
IB PRT+4, EXTMO+3~
IB( INIT+3, INIT+4*, EN+9*, EN+10*, PRT+7, PRT+9, EXTMO+5*, EXTMO+19*, EXTMO+20*, EXTMO+21*
, EXTMO+22*, EXTMO+24*, SUM+6, SUM+17*, SUM+21, SUM+26, SUM+28, SUM+29, SUM+30, SUM+32
IB0 INIT+2~, INIT+4*, EN+2~, EN+7*, EN+9, EN+10
>> IBA EN+5, EN+6
IBAGE EN+2~, EN+7*
IBARD EN+2~, EN+5*, EN+7
IBCAT INIT+3, INIT+4, EN+9, EN+10, PRT+8*, PRT+9*, SUM~, SUM+6, SUM+8, SUM+17
, SUM+21, SUM+26, SUM+28, SUM+29, SUM+30, SUM+32
IBCAT( SUM+8
IBCT EXTMO+3~, EXTMO+7*, EXTMO+8*, EXTMO+10, EXTMO+11, EXTMO+12, EXTMO+13, EXTMO+14, EXTMO+15, EXTMO+18
>> IBCTG( SUM+8
IBDH SUM+3~, SUM+12*, SUM+13
IBDIV INIT+3, INIT+4, EN+9, EN+10, PRT+1~, PRT+6*, PRT+7*, PRT+9, SUM+6, SUM+11
, SUM+12, SUM+17, SUM+21, SUM+22, SUM+26, SUM+28, SUM+29, SUM+30, SUM+32
>> IBFLG SUM+5*, SUM+23*
IBI EXTMO+3~, EXTMO+5*, EXTMO+17*, EXTMO+18
IBJ EXTMO+3~, EXTMO+5*
IBOUT EN+2~, EN+6*, EN+10
>> IBPAG HDR+3, HDR+4*, HDR+6
>> IBQ PRT+9, SUM+6, SUM+7, PAUSE+4*
IBR EXTMO+3~, EXTMO+26*
>> IBRPT HDR+8
>> IBRUN HDR+6
IBS EXTMO~
IBS(0 EXTMO+8, EXTMO+18
>> IBSAM HDR+14
>> IBSEL1 INIT+4, EN+8
>> IBSMN HDR+9, HDR+10
>> IBSMX HDR+10
>> IBSNA HDR+11
>> IBSNF HDR+12
>> IBSNL HDR+13
IBSQ EXTMO+3~, EXTMO+16*, EXTMO+19, EXTMO+20, EXTMO+23*
IBTP EXTMO+3~, EXTMO+9*, EXTMO+10*, EXTMO+12*, EXTMO+13*, EXTMO+14*, EXTMO+15*, EXTMO+19, EXTMO+20, EXTMO+21
, EXTMO+22, EXTMO+24
>> IBTPR( SUM+8
IBTYP EN+8, SUM+3~, SUM+5*, SUM+6*, SUM+8, SUM+17, SUM+21, SUM+26, SUM+28, SUM+29
, SUM+30, SUM+32
IBTYPH SUM+3~, SUM+8*, SUM+9, SUM+10
IBX PAUSE+2~, PAUSE+3*
>> IBXTRACT PRT+4
IBZ EXTMO+3~, EXTMO+18*, EXTMO+19, EXTMO+20, EXTMO+21, EXTMO+22
IOF HDR+3
IOSL SUM+7, PAUSE+3
IOST HDR+3, PAUSE+1
J SUM+3~, SUM+17*
U EN+6, EN+9, EN+10, SUM+12, SUM+17, SUM+26, SUM+30, SUM+32
X SUM+27*, SUM+28, HDR+1~, HDR+7*, HDR+10*, HDR+12*, HDR+13*, HDR+14*, HDR+15*, HDR+16*
, DASH~, DASH+1, PAUSE+2~, CAT~, CAT+1
Y SUM+26*, SUM+32, PAUSE+2~
>> Z SUM+30*, SUM+31

Marked Items

Name Field # of Occurrence
$T(CATN+I SUM+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All