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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBJDF52

Package: Integrated Billing

Routine: IBJDF52


Information

IBJDF52 ;ALB/RB - CHAMPVA/TRICARE FOLLOW-UP REPORT (PRINT) ;15-APR-00

Source Information

Source file <IBJDF52.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 3 PRT^IBJDF53  $$ARCAT^IBJDF62  ($$DAT1,$$DAT2,$$STOP)^IBOUTL  
VA FileMan 3 NOW^%DTC  ^DIR  ^DIWP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBJDF51  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Follow-up report.
SUM
ENQ
DET(IBDIV) ; - Print report for a specific division.
; Input: IBDIV=Pointer to the division in file #40.8 & variable IBSEL1
DETQ
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
HDR1 ; - Write the primary report header.
HDR2 ; - Write the insurance company sub-header.
NAR ; - Write detail line (if '$D).
WPAT ; - Write patient data.
WCOM ; - Write bill comments
WCTXT ; - Write comment text
WCPB ; - Page Break in the middle of Comments
WCD ; - Write comment date.
SSN(X) ; - Format the SSN.

External References

Name Field # of Occurrence
NOW^%DTC EN+1
^DIR PAUSE+4
^DIWP WCOM+10
PRT^IBJDF53 SUM
$$ARCAT^IBJDF62 HDR1+15
$$DAT1^IBOUTL DET+18, DET+19, DET+20, WCD+1
$$DAT2^IBOUTL EN+1
$$STOP^IBOUTL HDR1+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?59,IB0,?71,$$DAT1^IBOUTL(+IBN)
  • Line Location: DET+18
Function Call: WRITE
  • Prompt: ?80,$$DAT1^IBOUTL($P(IBN,U,2))
  • Line Location: DET+19
Function Call: WRITE
  • Prompt: ?89,$$DAT1^IBOUTL($P(IBN,U,3)),?98,$J($P(IBN,U,4),8,2)
  • Line Location: DET+20
Function Call: WRITE
  • Prompt: ?107,$J($P(IBN,U,5),8,2),?116,$P(IBN,U,6),!
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: "CHAMPVA/TRICARE Follow-Up Report"
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: " for ",$P($G(^DG(40.8,IBDIV,0)),U)," "
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: ?75,"Run Date: ",IBRUN
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: ?123,"Page: ",$J(IBPAG,3)
  • Condition for execution: FLG
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDR1+26
Function Call: WRITE
  • Prompt: !!?71,"Dte Bill",?98,"Original Current"
  • Line Location: HDR1+28
Function Call: WRITE
  • Prompt: ?59,"Bill Number Prepared",?80,"Bill Frm Bill To Amount Balance"
  • Line Location: HDR1+30
Function Call: WRITE
  • Prompt: !,$$DASH(IOM),!
  • Line Location: HDR1+32
Function Call: WRITE
  • Prompt: ?2,"Carrier: ",$P(IBIN,"@@")
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: " Billing Phone: ",$P(X13,U,2)
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: " Main Phone: ",$P(X13,U)
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !!,"There are no active receivables for the parameters above."
  • Line Location: NAR+2
Function Call: WRITE
  • Prompt: !,$P(IBPT,U),?26,$J($P(IBPT,U,2),3),?43,$P(IBPT,U,4)
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: ?26,"(continued)",!
  • Condition for execution: IBC1>1
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: !?2,"Comment Date: ",$$DAT1^IBOUTL(IBCD)
  • Line Location: WCD+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HDR1+13
^DIC(36 - [#36] HDR2+3
^DIC(5 - [#5] HDR2+5
^TMP("IBJDF5" DET+8, DET+10, DET+12, DET+13, DET+15, DET+16, WCOM+4, WCOM+5, WCOM+6, WCOM+13
^UTILITY($J WCOM+3!, WCOM+14, WCOM+15!, WCTXT+3, WCTXT+4, WCTXT+7!

Label References

Name Line Occurrences
$$DASH HDR1+32
DET EN+2, EN+3, EN+5
HDR1 DET+8, DET+11, DET+17, WCPB+2
HDR2 DET+11, DET+17, WCPB+2
NAR DET+8
PAUSE DET+8, DET+17, DET+25, WCPB+2
SUM EN+1, EN+2
WCD WCOM+7, WCPB+3
WCOM DET+24
WCPB WCOM+8, WCTXT+5
WCTXT WCOM+11, WCOM+14
WPAT DET+14, DET+17, WCPB+3

Naked Globals

Name Field # of Occurrence
^( HDR2+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1, ENQ+1!
CONT WCOM+1~, WCOM+3*, WCOM+11, WCOM+12*
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DIWL WCOM+1~, WCOM+3*
DIWR WCOM+1~, WCOM+3*
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
FLG HDR1+1~, HDR1+3*, HDR1+9*, HDR1+11, HDR1+14
I ENQ!, HDR1+26*
IB0 ENQ!, DET+4*, DET+15*, DET+16, DET+18, WCOM+4, WCOM+5, WCOM+6, WCOM+13
IBC ENQ!, WCOM+1~, WCOM+3*, WCOM+4*, WCOM+5, WCOM+6, WCOM+13
IBC1 ENQ!, WCOM+1~, WCOM+3*, WCOM+5*, WCOM+6, WCOM+7, WCOM+13, WCPB+3
IBC2 ENQ!, WCOM+1~, WCOM+6*, WCOM+7, WCOM+9, WCOM+11, WCOM+12
IBCAT ENQ!, DET+2*, DET+3*, DET+6, DET+7, DET+8, DET+10, DET+12, DET+13, DET+15
, DET+16, HDR1+15, HDR1+29, HDR1+31, WCOM+4, WCOM+5, WCOM+6, WCOM+13
IBCAT( DET+3
IBCATNM HDR1+1~, HDR1+15*, HDR1+16
IBCD ENQ!, WCOM+1~, WCOM+3*, WCOM+7*, WCD+1
IBDIV EN+4*, EN+5*, ENQ!, DET~, DET+6, DET+7, DET+8, DET+10, DET+12, DET+13
, DET+15, DET+16, HDR1+11, HDR1+13, WCOM+4, WCOM+5, WCOM+6, WCOM+13
IBFLG EN+1*, ENQ!, DET+9*, HDR1+3, HDR1+4, HDR1+5*, HDR1+7, NAR+1*
IBIN ENQ!, DET+4*, DET+10*, DET+12, DET+13, DET+15, DET+16, HDR2+2, HDR2+3, WCOM+4
, WCOM+5, WCOM+6, WCOM+13
IBKEY ENQ!, DET+4*, DET+12*, DET+13, DET+15, DET+16, WCOM+4, WCOM+5, WCOM+6, WCOM+13
IBN ENQ!, DET+16*, DET+18, DET+19, DET+20, DET+21
IBPAG ENQ!, HDR1+4, HDR1+6*, HDR1+9*, HDR1+10*, HDR1+14
IBPT ENQ!, DET+13*, WPAT+1
IBQ EN+1*, EN+5, SUM, ENQ+1!, DET+3, DET+5, DET+10, DET+11, DET+12, DET+15
, DET+17, DET+25, PAUSE+4*, HDR1+33*, WCOM+4, WCOM+5, WCOM+8, WCTXT+3, WCTXT+5, WCPB+2
>> IBRPT EN+1
IBRUN EN+1*, ENQ+1!, HDR1+14
>> IBSAM HDR1+21, HDR1+22
>> IBSD EN+2, DET+7
>> IBSEL EN+3
>> IBSEL1 DET+5
>> IBSH DET+24, HDR1+23
>> IBSH1 HDR1+23
>> IBSH2 HDR1+24
>> IBSMN HDR1+18
>> IBSMX HDR1+18
>> IBSNA HDR1+20
>> IBSNF HDR1+20
>> IBSNL HDR1+20
>> IBTPR( HDR1+17
IBTYP ENQ+1!, DET+4*, DET+5*, DET+8, DET+10, DET+12, DET+13, DET+15, DET+16, HDR1+17
, WCOM+4, WCOM+5, WCOM+6, WCOM+13
IBX PAUSE+2~, PAUSE+3*
IOF HDR1+5, HDR1+9
IOM HDR1+32
IOSL DET+17, PAUSE+3, HDR1+8, WCOM+8, WCTXT+5
IOST PAUSE+1, HDR1+4
LIN WCTXT+1~, WCTXT+2*, WCTXT+3*, WCTXT+4
U DET+19, DET+20, DET+21, HDR1+13, HDR2+5, HDR2+6, HDR2+7, WPAT+1
>> VAUTD( EN+5
WLIN WCTXT+1~, WCTXT+4*, WCTXT+6
X DASH~, DASH+1, PAUSE+2~, HDR1+1~, HDR1+16*, HDR1+17*, HDR1+18*, HDR1+19*, HDR1+20*, HDR1+21*
, HDR1+22*, HDR1+23*, HDR1+24*, HDR1+25*, HDR1+26*, HDR2+1~, HDR2+3*, HDR2+4, HDR2+5, WCOM+1~
, WCOM+9*, SSN~, SSN+1
X13 HDR2+1~, HDR2+3*, HDR2+6, HDR2+7
Y PAUSE+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All