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

Package: Integrated Billing

Routine: IBJDF12


Information

IBJDF12 ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT (PRINT) ;10-JAN-97

Source Information

Source file <IBJDF12.m>

Call Graph

Call Graph

Call Graph Total: 4

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

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 IBJDF11  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC EN+1
^DIR PAUSE+4
^DIWP WCOM+12
$$DAT1^IBOUTL WBIL+1, WBIL+2, WCD+1
$$DAT2^IBOUTL EN+1
$$STOP^IBOUTL HDR1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBSMN,$S(IBSMX>IBSMN:" to "_IBSMX,1:"")," days old "
  • Line Location: DET+6
Function Call: WRITE
  • Prompt: "for this division."
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: "Third Party Follow-Up Report"_$S(IBSDATE="D":" ( date of care )",1:" ( days in AR )")
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: " for ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: ?88,"Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"All active ",$S(IBSEL[1:"INPATIENT ",IBTYP[2:"OUTPATIENT ",IBSEL[3:"RX REFILL ",IBSEL[4:"COMMUNITY CARE ",1:""),"receivables "
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: IBSMN,$S(IBSMX>IBSMN:" to "_IBSMX,1:"")," days old "
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: "with balances of at least $",IBSAM
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !!?37,"Other",?51,"Date",?92,"Original",?103,"Current"
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !,"Patient (Age)",?37,"Carrier",?51,"Prepared",?61,"Bill No.",?73,"Bill Fr. Bill To",?94,"Amount",?103,"Balance",?114,"Subscriber ID"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,$$DASH(IOM)
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !,"Note: '(n)' or '(*)' next to balance means AR was referred to Regional Counsel"
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !?3,"Carrier: ",$P(IBWIN,"@@")
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: " Billing Phone: ",$P(X13,U,2)
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: " Main Phone: ",$P(X13,U)
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: $P(IBZ,U),?37,$P(IBZ,U,3)
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: ?51,$$DAT1^IBOUTL(+IBWDP),?60,$P(IBWDP,"@@",2)
  • Line Location: WBIL+1
Function Call: WRITE
  • Prompt: ?73,$$DAT1^IBOUTL($P(IBZ,U,4)),?82,$$DAT1^IBOUTL($P(IBZ,U,5))
  • Line Location: WBIL+2
Function Call: WRITE
  • Prompt: ?90,$J($P(IBZ,U,6),10,2),?100,$J(+$P(IBZ,U,7),10,2)
  • Line Location: WBIL+3
Function Call: WRITE
  • Prompt: "(",$P($P(IBZ,U,7),"~",2),")"
  • Line Location: WBIL+5
Function Call: WRITE
  • Prompt: "(*)"
  • Line Location: WBIL+6
Function Call: WRITE
  • Prompt: ?114,$E($P(IBZ,U,8),1,18)
  • Line Location: WBIL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WCOM+5
Function Call: WRITE
  • Prompt: !?2,"Comment Date: ",$$DAT1^IBOUTL(IBCD)
  • Line Location: WCD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: ?26,"(continued)",!
  • Condition for execution: IBC1>1
  • Line Location: WCPB+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HDR1+4
^DIC(36 - [#36] HDR2+2
^DIC(5 - [#5] HDR2+4
^TMP("IBJDF1" DET+3, DET+9, DET+11, DET+14, DET+15, WCOM+4, WCOM+7, WCOM+8, WCOM+15
^UTILITY($J WCOM+3!, WCOM+16, WCOM+17!, WCTXT+3, WCTXT+4, WCTXT+7!

Label References

Name Line Occurrences
$$DASH HDR1+12
DET EN+2, EN+3
DETQ DET+3
ENQ EN+2
HDR1 DET+4, DET+10, DET+12, DET+16, WCOM+5, WCPB+2
HDR2 DET+13, DET+16, WCOM+5, WCPB+2
PAUSE EN+2, EN+3, DET+12, DET+16, WCOM+5, WCPB+2
WBIL DET+18, WCOM+5, WCPB+3
WCD WCOM+10, WCPB+3
WCOM DET+21
WCPB WCOM+9, WCTXT+5
WCTXT WCOM+13, WCOM+16
WPAT DET+17, WCOM+5, WCPB+3

Naked Globals

Name Field # of Occurrence
^( DET+15, HDR2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1, ENQ!
CONT WCOM+1~, WCOM+3*, WCOM+13, WCOM+14*
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
IBC ENQ!, WCOM+1~, WCOM+3*, WCOM+4*, WCOM+7, WCOM+8, WCOM+15
IBC1 ENQ!, WCOM+1~, WCOM+6*, WCOM+7*, WCOM+8, WCOM+10, WCOM+15, WCPB+3
IBC2 ENQ!, WCOM+1~, WCOM+8*, WCOM+10, WCOM+11, WCOM+13, WCOM+14
IBCD ENQ!, WCOM+10*, WCD+1
IBDIV EN+3*, ENQ!, DET~, DET+3, DET+7, DET+9, DET+11, DET+14, DET+15, HDR1+4
, WCOM+4, WCOM+7, WCOM+8, WCOM+15
IBH ENQ!, DET+15*, DET+16*, DET+17*
IBPAG ENQ!, DET+2*, HDR1+1, HDR1+2*, HDR1+5
IBQ EN+1*, EN+2, EN+3, ENQ!, DET+4, DET+9, DET+10, DET+11, DET+12, DET+14
, DET+15, DET+16, DET+18, DET+21, PAUSE+4*, HDR1+14*, WCOM+4, WCOM+5, WCOM+7, WCOM+9
, WCTXT+3, WCTXT+5, WCPB+2
IBRUN EN+1*, ENQ!, HDR1+5
>> IBSAM HDR1+9
>> IBSD EN+2
>> IBSDATE HDR1+3
>> IBSEL DET+4*, HDR1+7
>> IBSH DET+21
>> IBSMN DET+6, HDR1+8
>> IBSMX DET+6, HDR1+8
>> IBSRC HDR1+13
>> IBTYP DET+9*, DET+11, DET+14, DET+15, HDR1+7, WCOM+4, WCOM+7, WCOM+8, WCOM+15
IBWDP ENQ!, DET+15*, WBIL+1, WCOM+4, WCOM+7, WCOM+8, WCOM+15
IBWIN ENQ!, DET+11*, DET+14, DET+15, HDR2+1, HDR2+2, WCOM+4, WCOM+7, WCOM+8, WCOM+15
IBWPT ENQ!, DET+14*, DET+15, WCOM+4, WCOM+7, WCOM+8, WCOM+15
IBX PAUSE+2~, PAUSE+3*
IBZ ENQ!, DET+15*, WPAT+1, WBIL+2, WBIL+3, WBIL+4, WBIL+5, WBIL+7
IOF HDR1+1
IOM HDR1+12
IOSL DET+12, DET+16, PAUSE+3, WCOM+5, WCOM+9, WCTXT+5
IOST PAUSE+1, HDR1+1
LIN WCTXT+1~, WCTXT+2*, WCTXT+3*, WCTXT+4
U HDR1+4, HDR2+4, HDR2+5, HDR2+6, WPAT+1, WBIL+2, WBIL+3, WBIL+4, WBIL+5, WBIL+7
>> VAUTD( EN+3
WLIN WCTXT+1~, WCTXT+4*, WCTXT+6
X DASH~, DASH+1, PAUSE+2~, HDR2+1~, HDR2+2*, HDR2+3, HDR2+4, WCOM+1~, WCOM+11*, SSN~
, SSN+1
X13 HDR2+1~, HDR2+2*, HDR2+5, HDR2+6
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