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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBJDF2

Package: Integrated Billing

Routine: IBJDF2


Information

IBJDF2 ;ALB/CPM - THIRD PARTY FOLLOW-UP SUMMARY REPORT ;Feb 09, 2018@10:11:43

Source Information

Source file <IBJDF2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 7 E^IBJDE  $$CHKARNUM^IBJDF11  $$GETHDR^IBJDF12  HELP^IBJDF1H  PSDR^IBODIV  ($$DAT2,$$STOP)^IBOUTL  $$SCE^IBSDU  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMDIFF^XLFDT  
VA FileMan 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 2 ADM^VADPT2  $$PRIM^VASITE  
Scheduling 1 $$EXOE^SDOE  

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

Package Total Caller Graph
Accounts Receivable 10 RCAMDTH  RCDPBPLM  RCDPENR1  RCDPENR3  RCDPENR4  RCRCACP  RCRCAT  RCRCDIV  
RCRCREC2  RCRCRT  
Integrated Billing 9 IBJD FOLLOW-UP SUMMARY REPORT  IBJDB11  IBJDF11  IBJDF43  IBJDF51  IBJDF53  IBJDF61  IBJDF63  
IBOTR2  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE ; - Choose date to use for calculation
TYP ; - Select type of summaries to print.
; IB*2.0*554 DRF 10/19/2015 Add Non-VA care
DQ ; - Tasked entry point.
ENQ
ENQ1
SUM(IBDIV) ; - Print the report.
; Input: IBDIV=Pointer to the division in file #40.8
SUMQ
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
DHLP ; - 'Display Registration User' help.
CAT(X) ; - Determine category to place receivable.
ACT(X) ; - Determine the activation date for a receivable.
ACTQ
DATE1(X) ; - Determine the Date of Care
DATEQ
DIV(IBX) ; - Determine the division for a claim.
; Input: IBX=Pointer to a claim in file #399
; Output: IBY=Pointer to a division in file #40.8,
; or 0 if not determined
  • ICR #3130
    • Status: Active
    • Usage: Private
    DIVQ ; - If a division cannot be determined, use the primary division.
    INP(X) ; - Return division for a movement.
    OPT(X,DFN) ; - Return division for a patient's outpatient visit date.
    OPTQ
    CATN ; - List of category names.

    External References

    Name Field # of Occurrence
    NOW^%DTC DQ+74
    ^%ZIS TYP+24
    HOME^%ZIS TYP+30
    ^%ZISC ENQ+2
    ^%ZTLOAD TYP+28
    $$GET1^DIQ DQ+27
    ^DIR DATE+11, TYP+16, PAUSE+4
    E^IBJDE DQ+2, DQ+71
    $$CHKARNUM^IBJDF11 DQ+28
    $$GETHDR^IBJDF12 SUM+7
    HELP^IBJDF1H DATE+3
    PSDR^IBODIV DATE+15
    $$DAT2^IBOUTL DQ+74
    $$STOP^IBOUTL DQ+18
    $$SCE^IBSDU OPT+4
    $$EXOE^SDOE OPT+4
    ADM^VADPT2 DIV+23, DIV+24
    $$PRIM^VASITE DQ+32, DIV+13, DIVQ+1
    $$FMDIFF^XLFDT DQ+54

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"This report provides a summary of all outstanding Third Party receivables.",!
    • Line Location: EN+2
    Function Call: WRITE
    • Prompt: !!,"Calculate report using (D)ATE OF CARE or (A)CTIVE IN AR (days): (A)CTIVE IN AR// "
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: " ",$S("Dd"[X:"DATE OF CARE",1:"(DAYS) ACTIVE IN AR")
    • Line Location: DATE+4
    Function Call: WRITE
    • Prompt: !!,"Choose which type of summaries to print:",!
    • Line Location: TYP+3
    Function Call: WRITE
    • Prompt: !!,"This report only requires an 80 column printer."
    • Line Location: TYP+19
    Function Call: WRITE
    • Prompt: !!,"Note: This report requires a search through all active receivables."
    • Line Location: TYP+20
    Function Call: WRITE
    • Prompt: !?6,"You should queue this report to run after normal business hours.",!
    • Line Location: TYP+21
    Function Call: WRITE
    • Prompt: @IOF,*13
    • Line Location: SUM+4
    Function Call: WRITE
    • Prompt: !?68,"Page: ",IBPAG
    • Line Location: SUM+5
    Function Call: WRITE
    • Prompt: !?(80-$L(IBDH)\2),IBDH
    • Line Location: SUM+9
    Function Call: WRITE
    • Prompt: !,"There are no active receivables",$S(IBDIV:" for this division",1:""),"."
    • Line Location: SUM+18
    Function Call: WRITE
    • Prompt: !,X,?30,$J(+IB(IBDIV,IBTYP,I),6)
    • Line Location: SUM+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+3
    Function Call: WRITE
    • Prompt: !,"Enter <CR> to summarize all receivables without regard to division,"
    • Line Location: DHLP+1
    Function Call: WRITE
    • Prompt: !,"or YES to select those divisions for which a separate report should"
    • Line Location: DHLP+2
    Function Call: WRITE
    • Prompt: !,"be created."
    • Line Location: DHLP+3
    Routine Call
    • DIR
    • Line Location:
      • DATE+11
      • TYP+16
      • PAUSE+4
    Routine Call
    • %ZIS
    • Line Location:
      • TYP+24
    Routine Call
    • %ZIS
    • Line Location:
      • TYP+30

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCA(430.2 - [#430.2] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] DQ+13, SUM+9
    ^DGCR(399 - [#399] DQ+22, DQ+36, DATE1+2, DIV+6, DIV+18, DIV+21
    ^DGPM - [#405] INP+1
    ^DGPM("APTF" DIV+22
    ^DIC(42 - [#42] INP+1
    ^IBA(362.4 - [#362.4] DQ+37, DIV+12
    ^IBA(362.5 - [#362.5] DIV+12
    ^PRCA(430 - [#430] DQ+16, DQ+24, DQ+46, DQ+47, ACT+2, ACT+3, ACT+4

    Label References

    Name Line Occurrences
    $$ACT DQ+21
    $$CAT DQ+54
    $$DASH SUM+10
    $$DATE1 DQ+21
    $$DIV DQ+32
    $$INP DIV+22, DIV+23, DIV+24
    $$OPT DIV+17, DIV+18
    ACTQ ACT+1, ACT+2, ACT+3
    DATE DATE+3
    DATEQ DATE1+1, DATE1+2
    DIVQ DIV+6, DIV+9, DIV+12, DIV+16, DIV+22, DIV+23
    ENQ DATE+2, DATE+11, DATE+15, TYP+16, TYP+24, TYP+25, DQ+61, DQ+66, DQ+75
    ENQ1 ENQ
    OPTQ OPT+2
    PAUSE SUM+18, SUM+28
    SUM DQ+75, DQ+77

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DQ+74, ENQ1+1!
    %ZIS TYP+24*, ENQ1+1!
    DFN ENQ1+1!, DIV+5~, DIV+7*, DIV+17, DIV+18, OPT~, OPT+4
    DIR DATE+11!, TYP+16!, PAUSE+2~
    DIR("?" DATE+10*
    DIR("A" DATE+9*, TYP+5*, TYP+6*, TYP+7*, TYP+8*, TYP+9*, TYP+10*, TYP+11*, TYP+12*, TYP+13*
    , TYP+14*, TYP+15*
    DIR("B" DATE+8*, TYP+15*
    DIR(0 DATE+8*, TYP+4*, PAUSE+4*
    DIROUT DATE+11, DATE+12!, TYP+16, TYP+17!, ENQ1+3!, PAUSE+2~
    DIRUT DATE+11, DATE+12!, TYP+16, TYP+17!, ENQ1+3!, PAUSE+2~, PAUSE+4
    DT DQ+54, DIV+13, DIVQ+1
    DTIME DATE+1
    DTOUT DATE+11, DATE+12!, TYP+16, TYP+17!, ENQ1+3!, PAUSE+2~
    DUOUT DATE+11, DATE+12!, TYP+16, TYP+17!, ENQ1+3!, PAUSE+2~, PAUSE+4
    I TYP+27*, DQ+8*, DQ+10, DQ+12, DQ+13, DQ+49*, DQ+50, DQ+51, DQ+57*, DQ+58
    , DQ+59, DQ+67*, DQ+68, DQ+69*, DQ+70*, ENQ1+1!, SUM+13*, SUM+21*, SUM+22, SUM+23
    , SUM+24, SUM+25, SUM+26
    IB DQ+8!, ENQ1!
    IB( DQ+12*, DQ+13*, DQ+50*, DQ+51*, DQ+58*, DQ+59*, DQ+70*, DQ+77, SUM+3, SUM+13*
    , SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    IB(0 DQ+10*, DQ+68*, DQ+70
    IBA DQ+16*, DQ+18, DQ+21, DQ+22, DQ+24, DQ+32, DQ+36, DQ+37, DQ+46, DQ+47
    , ENQ1!
    IBADM DIV+5~, DIV+22*
    IBAGE DQ+54*, ENQ1!
    IBAR DQ+24*, DQ+27, DQ+38, ENQ1!
    IBARD DQ+21*, DQ+54, ENQ1!
    IBARNUM DQ+27*, DQ+28, DQ+39, ENQ1+2!
    IBC DIV+5~, DIV+6*, DIV+7, DIV+9, DIV+21
    IBCAT DQ+54*, DQ+58, DQ+59, ENQ1!
    IBCCFLG DQ+41*, DQ+43, ENQ1+2!
    IBD DIV+5~, DIV+18*
    IBDH ENQ1+1!, SUM+9*
    IBDIV DQ+31*, DQ+32*, DQ+33, DQ+50, DQ+51, DQ+58, DQ+59, DQ+77*, ENQ1!, SUM~
    , SUM+3, SUM+9, SUM+13, SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    IBEV DIV+5~, DIV+7*, DIV+17, DIV+24
    IBFR OPT+1~, OPT+3*, OPT+4, OPT+6*
    IBLP DQ+5*, ENQ1+2!
    IBOFF DATE+3*, ENQ1!
    IBOUT DQ+46*, DQ+51, DQ+59, ENQ1!
    IBPAG DQ+74*, ENQ1!, SUM+4, SUM+5*
    IBPTF DIV+5~, DIV+21*, DIV+22
    IBQ DQ+16*, DQ+18*, DQ+61, DQ+74*, DQ+77, ENQ1!, SUM+3, PAUSE+4*
    IBRUN DQ+74*, ENQ1!, SUM+10
    IBSDATE DATE+5*, DQ+21, ENQ1!, SUM+7
    IBSEL TYP+17*, DQ+5, DQ+43, ENQ1!
    IBSORT DATE+12*, DATE+15, DQ+9, DQ+31, DQ+33, DQ+75, ENQ1!
    IBTEXT ENQ1!
    IBTO OPT+1~, OPT+3*, OPT+4
    IBTY DIV+5~, DIV+7*, DIV+16
    IBTYP DQ+36*, DQ+37*, DQ+38*, DQ+39*, DQ+41, DQ+43, DQ+49, DQ+57, ENQ1+1!, SUM+3*
    , SUM+7, SUM+13, SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    IBTYPE DQ+5!, ENQ1+2!
    IBTYPE( DQ+5*, DQ+8, DQ+43, DQ+49, DQ+57
    IBTYPH ENQ1+1!, SUM+7*, SUM+8
    IBU DIV+5~, DIV+21*, DIV+23
    IBX PAUSE+2~, PAUSE+3*, DIV~, DIV+6, DIV+12, DIV+18, DIV+21
    >> IBXTRACT DQ+2, DQ+66
    IBY DIV+5~, DIV+6*, DIV+9*, DIV+13*, DIV+17*, DIV+18*, DIV+22*, DIV+23*, DIV+24*, DIVQ+1*
    , DIVQ+2, OPT+1~, OPT+2*, OPT+4, OPT+5*, OPTQ
    IBY1 OPT+1~, OPT+4*, OPT+5, OPT+6
    IBZ OPT+1~, OPT+4*
    IBZERR OPT+1~, OPT+4!
    IO TYP+32
    IO("Q" TYP+25, TYP+30!
    IOF SUM+4
    IOSL PAUSE+3
    IOST SUM+4, PAUSE+1
    J DQ+10*, DQ+12*, DQ+13*, DQ+68*, DQ+69*, DQ+70, ENQ1+1!, SUM+13*
    K DQ+12*, DQ+13*, ENQ1+1!
    POP TYP+24, ENQ1+1!
    U DQ+27, DQ+36, DQ+38, DQ+47, DQ+50, DQ+51, DQ+58, DQ+59, DQ+68, DQ+70
    , SUM+9, SUM+13, SUM+21, SUM+24, SUM+26, ACT+2, ACT+3, ACT+4, DATE1+2, DIV+6
    , DIV+7, DIV+9, DIV+21, INP+1, OPT+5
    VADMVT DIV+5~, DIV+23, DIV+24
    VAINDT DIV+5~, DIV+23*, DIV+24*
    VAUTD DQ+11, DQ+33, ENQ1+1!
    VAUTD( DQ+12, DQ+33
    X DATE+1*, DATE+2*, DATE+3, DATE+4, DATE+5, ENQ1+1!, SUM+21*, SUM+22, DASH~, DASH+1
    , PAUSE+2~, CAT~, CAT+1, ACT~, ACT+1, ACT+2, ACT+3, ACT+4, DATE1~, DATE1+1
    , DATE1+2, INP~, INP+1, OPT~, OPT+2, OPT+3
    Y DATE+12, DATE+15, TYP+17, ENQ1+1!, SUM+21*, SUM+26, PAUSE+2~, ACT+1~*, ACT+2*, ACT+3*
    , ACT+4*, ACTQ, DATE1+1~*, DATE1+2*, DATEQ
    Z ENQ1+1!, SUM+24*, SUM+25
    ZTDESC TYP+26*, ENQ1+1!
    >> ZTQUEUED ENQ
    >> ZTREQ ENQ*
    ZTRTN TYP+26*, ENQ1+1!
    ZTSAVE ENQ1+1!
    ZTSAVE( TYP+27*
    ZTSK TYP+29, TYP+30!

    Marked Items

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