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

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

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: 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
DATEQ
ACT(X) ; - Determine the activation date for a receivable.
DATE1(X) ; - Determine the Date of Care
INP(X) ; - Return division for a movement.
SUMQ
ENQ1
DHLP ; - 'Display Registration User' help.
DATE ; - Choose date to use for calculation
DQ ; - Tasked entry point.
CAT(X) ; - Determine category to place receivable.
OPTQ
DASH(X) ; - Return a dashed line.
EN ; - Option entry point.
PAUSE ; - Page break.
ENQ
OPT(X,DFN) ; - Return division for a patient's outpatient visit date.
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.
    SUM(IBDIV) ; - Print the report.
    ; Input: IBDIV=Pointer to the division in file #40.8
    ACTQ
    CATN ; - List of category names.
    TYP ; - Select type of summaries to print.
    ; IB*2.0*554 DRF 10/19/2015 Add Non-VA care

    External References

    Name Field # of Occurrence
    NOW^%DTC DQ+58
    ^%ZIS TYP+18
    HOME^%ZIS TYP+24
    ^%ZISC ENQ+2
    ^%ZTLOAD TYP+22
    ^DIR DATE+11, TYP+10, PAUSE+4
    E^IBJDE DQ+2, DQ+55
    HELP^IBJDF1H DATE+3
    PSDR^IBODIV DATE+15
    $$DAT2^IBOUTL DQ+58
    $$STOP^IBOUTL DQ+14
    $$SCE^IBSDU OPT+4
    $$EXOE^SDOE OPT+4
    ADM^VADPT2 DIV+23, DIV+24
    $$PRIM^VASITE DQ+23, DIV+13, DIVQ+1
    $$FMDIFF^XLFDT DQ+40

    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+2
    Function Call: WRITE
    • Prompt: !!,"This report only requires an 80 column printer."
    • Line Location: TYP+13
    Function Call: WRITE
    • Prompt: !!,"Note: This report requires a search through all active receivables."
    • Line Location: TYP+14
    Function Call: WRITE
    • Prompt: !?6,"You should queue this report to run after normal business hours.",!
    • Line Location: TYP+15
    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
    • %ZIS
    • Line Location:
      • TYP+24
    Routine Call
    • DIR
    • Line Location:
      • DATE+11
      • TYP+10
      • PAUSE+4
    Routine Call
    • %ZIS
    • Line Location:
      • TYP+18

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] DQ+9, SUM+9
    ^DGCR(399 - [#399] DQ+19, DQ+27, 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+28, DIV+12
    ^IBA(362.5 - [#362.5] DIV+12
    ^PRCA(430 - [#430] DQ+12, DQ+16, DQ+33, DQ+34, ACT+2, ACT+3, ACT+4

    Label References

    Name Line Occurrences
    $$ACT DQ+18
    $$CAT DQ+40
    $$DASH SUM+10
    $$DATE1 DQ+18
    $$DIV DQ+23
    $$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+10, TYP+18, TYP+19, DQ+46, DQ+50, DQ+59
    ENQ1 ENQ
    OPTQ OPT+2
    PAUSE SUM+18, SUM+28
    SUM DQ+59, DQ+61

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DQ+58, ENQ1+1!
    %ZIS TYP+18*, ENQ1+1!
    DFN ENQ1+1!, DIV+5~, DIV+7*, DIV+17, DIV+18, OPT~, OPT+4
    DIR DATE+11!, TYP+10!, PAUSE+2~
    DIR("?" DATE+10*
    DIR("A" DATE+9*, TYP+4*, TYP+5*, TYP+6*, TYP+7*, TYP+8*, TYP+9*
    DIR("B" DATE+8*, TYP+9*
    DIR(0 DATE+8*, TYP+3*, PAUSE+4*
    DIROUT DATE+11, DATE+12!, TYP+10, TYP+11!, ENQ1+2!, PAUSE+2~
    DIRUT DATE+11, DATE+12!, TYP+10, TYP+11!, ENQ1+2!, PAUSE+2~, PAUSE+4
    DT DQ+40, DIV+13, DIVQ+1
    DTIME DATE+1
    DTOUT DATE+11, DATE+12!, TYP+10, TYP+11!, ENQ1+2!, PAUSE+2~
    DUOUT DATE+11, DATE+12!, TYP+10, TYP+11!, ENQ1+2!, PAUSE+2~, PAUSE+4
    I TYP+21*, DQ+4*, DQ+6, DQ+8, DQ+9, DQ+35*, DQ+36, DQ+37, DQ+42*, DQ+43
    , DQ+44, DQ+51*, DQ+52, DQ+53*, DQ+54*, ENQ1+1!, SUM+13*, SUM+21*, SUM+22, SUM+23
    , SUM+24, SUM+25, SUM+26
    IB DQ+4!, ENQ1!
    IB( DQ+8*, DQ+9*, DQ+36*, DQ+37*, DQ+43*, DQ+44*, DQ+54*, DQ+61, SUM+3, SUM+13*
    , SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    IB(0 DQ+6*, DQ+52*, DQ+54
    IBA DQ+12*, DQ+14, DQ+16, DQ+18, DQ+19, DQ+23, DQ+27, DQ+28, DQ+33, DQ+34
    , ENQ1!
    IBADM DIV+5~, DIV+22*
    IBAGE DQ+40*, ENQ1!
    IBAR DQ+16*, DQ+17, DQ+29, ENQ1!
    IBARD DQ+18*, DQ+40, ENQ1!
    IBC DIV+5~, DIV+6*, DIV+7, DIV+9, DIV+21
    IBCAT DQ+40*, DQ+43, DQ+44, ENQ1!
    IBD DIV+5~, DIV+18*
    IBDH ENQ1+1!, SUM+9*
    IBDIV DQ+22*, DQ+23*, DQ+24, DQ+36, DQ+37, DQ+43, DQ+44, DQ+61*, 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*
    IBOFF DATE+3*, ENQ1!
    IBOUT DQ+33*, DQ+37, DQ+44, ENQ1!
    IBPAG DQ+58*, ENQ1!, SUM+4, SUM+5*
    IBPTF DIV+5~, DIV+21*, DIV+22
    IBQ DQ+12*, DQ+14*, DQ+46, DQ+58*, DQ+61, ENQ1!, SUM+3, PAUSE+4*
    IBRUN DQ+58*, ENQ1!, SUM+10
    IBSDATE DATE+5*, DQ+18, ENQ1!, SUM+7
    IBSEL TYP+11*, DQ+4, DQ+30, DQ+35, DQ+42, ENQ1!
    IBSORT DATE+12*, DATE+15, DQ+5, DQ+22, DQ+24, DQ+59, ENQ1!
    IBTEXT ENQ1!
    IBTO OPT+1~, OPT+3*, OPT+4
    IBTY DIV+5~, DIV+7*, DIV+16
    IBTYP DQ+27*, DQ+28*, DQ+29*, DQ+30, DQ+35, DQ+42, ENQ1+1!, SUM+3*, SUM+7, SUM+13
    , SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    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+50
    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+26
    IO("Q" TYP+19, TYP+24!
    IOF SUM+4
    IOSL PAUSE+3
    IOST SUM+4, SUM+5, PAUSE+1
    J DQ+6*, DQ+8*, DQ+9*, DQ+52*, DQ+53*, DQ+54, ENQ1+1!, SUM+13*
    K DQ+8*, DQ+9*, ENQ1+1!
    POP TYP+18, ENQ1+1!
    U DQ+17, DQ+27, DQ+29, DQ+34, DQ+36, DQ+37, DQ+43, DQ+44, DQ+52, DQ+54
    , 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+7, DQ+24, ENQ1+1!
    VAUTD( DQ+8, DQ+24
    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+11, 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+20*, ENQ1+1!
    >> ZTQUEUED ENQ
    >> ZTREQ ENQ*
    ZTRTN TYP+20*, ENQ1+1!
    ZTSAVE ENQ1+1!
    ZTSAVE( TYP+21*
    ZTSK TYP+23, TYP+24!

    Marked Items

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