Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCA(430.2 - [#430.2] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call