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

Package Total Call Graph
Integrated Billing 6 E^IBJDE  $$CHKARNUM^IBJDF11  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: 21

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

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+64
    ^%ZIS TYP+18
    HOME^%ZIS TYP+24
    ^%ZISC ENQ+2
    ^%ZTLOAD TYP+22
    $$GET1^DIQ DQ+23
    ^DIR DATE+11, TYP+10, PAUSE+4
    E^IBJDE DQ+2, DQ+61
    $$CHKARNUM^IBJDF11 DQ+24
    HELP^IBJDF1H DATE+3
    PSDR^IBODIV DATE+15
    $$DAT2^IBOUTL DQ+64
    $$STOP^IBOUTL DQ+14
    $$SCE^IBSDU OPT+4
    $$EXOE^SDOE OPT+4
    ADM^VADPT2 DIV+23, DIV+24
    $$PRIM^VASITE DQ+28, DIV+13, DIVQ+1
    $$FMDIFF^XLFDT DQ+46

    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
    • DIR
    • Line Location:
      • DATE+11
      • TYP+10
      • PAUSE+4
    Routine Call
    • %ZIS
    • Line Location:
      • TYP+18
    Routine Call
    • %ZIS
    • Line Location:
      • TYP+24

    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+9, SUM+9
    ^DGCR(399 - [#399] DQ+18, DQ+32, 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+33, DIV+12
    ^IBA(362.5 - [#362.5] DIV+12
    ^PRCA(430 - [#430] DQ+12, DQ+20, DQ+39, DQ+40, ACT+2, ACT+3, ACT+4

    Label References

    Name Line Occurrences
    $$ACT DQ+17
    $$CAT DQ+46
    $$DASH SUM+10
    $$DATE1 DQ+17
    $$DIV DQ+28
    $$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+52, DQ+56, DQ+65
    ENQ1 ENQ
    OPTQ OPT+2
    PAUSE SUM+18, SUM+28
    SUM DQ+65, DQ+67

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DQ+64, 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+46, 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+41*, DQ+42, DQ+43, DQ+48*, DQ+49
    , DQ+50, DQ+57*, DQ+58, DQ+59*, DQ+60*, 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+42*, DQ+43*, DQ+49*, DQ+50*, DQ+60*, DQ+67, SUM+3, SUM+13*
    , SUM+18, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26
    IB(0 DQ+6*, DQ+58*, DQ+60
    IBA DQ+12*, DQ+14, DQ+17, DQ+18, DQ+20, DQ+28, DQ+32, DQ+33, DQ+39, DQ+40
    , ENQ1!
    IBADM DIV+5~, DIV+22*
    IBAGE DQ+46*, ENQ1!
    IBAR DQ+20*, DQ+23, DQ+34, ENQ1!
    IBARD DQ+17*, DQ+46, ENQ1!
    IBARNUM DQ+23*, DQ+24, DQ+35, ENQ1+1!
    IBC DIV+5~, DIV+6*, DIV+7, DIV+9, DIV+21
    IBCAT DQ+46*, DQ+49, DQ+50, ENQ1!
    IBD DIV+5~, DIV+18*
    IBDH ENQ1+1!, SUM+9*
    IBDIV DQ+27*, DQ+28*, DQ+29, DQ+42, DQ+43, DQ+49, DQ+50, DQ+67*, 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+39*, DQ+43, DQ+50, ENQ1!
    IBPAG DQ+64*, ENQ1!, SUM+4, SUM+5*
    IBPTF DIV+5~, DIV+21*, DIV+22
    IBQ DQ+12*, DQ+14*, DQ+52, DQ+64*, DQ+67, ENQ1!, SUM+3, PAUSE+4*
    IBRUN DQ+64*, ENQ1!, SUM+10
    IBSDATE DATE+5*, DQ+17, ENQ1!, SUM+7
    IBSEL TYP+11*, DQ+4, DQ+36, DQ+41, DQ+48, ENQ1!
    IBSORT DATE+12*, DATE+15, DQ+5, DQ+27, DQ+29, DQ+65, ENQ1!
    IBTEXT ENQ1!
    IBTO OPT+1~, OPT+3*, OPT+4
    IBTY DIV+5~, DIV+7*, DIV+16
    IBTYP DQ+32*, DQ+33*, DQ+34*, DQ+35*, DQ+36, DQ+41, DQ+48, 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+56
    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+58*, DQ+59*, DQ+60, ENQ1+1!, SUM+13*
    K DQ+8*, DQ+9*, ENQ1+1!
    POP TYP+18, ENQ1+1!
    U DQ+23, DQ+32, DQ+34, DQ+40, DQ+42, DQ+43, DQ+49, DQ+50, DQ+58, DQ+60
    , 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+29, ENQ1+1!
    VAUTD( DQ+8, DQ+29
    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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All