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

Package: Integrated Billing

Routine: IBJDF1


Information

IBJDF1 ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT ;09-JAN-97

Source Information

Source file <IBJDF1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE ; - Choose date to use for calculation
INS ; - Determine range of carriers.
INS0
INS1
INS2
NAM ; - Determine range of patients.
NAM1
NAM2
TYP ; - Select type of receivables to print.
; IB*2.0*554/DRF 10/20/2015 Add Non-VA care
; IB*2.0*? Changed Non-VA care to Community Care
AR ; - Determine if the active receivable must be within an age range.
AGE ;-Determine the active receivable age range.
AMT ; - Print receivables with a minimum balance.
AMT1 ; - Determine the minimum balance amount.
BCH ; - Determine whether to include the bill comment history.
RC ; - Include receivables referred to Regional Counsel?
ENQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a tool for sites to use to perform follow-up"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"activities for Third Party receivables.",!
  • Line Location: EN+3
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: !!,"Run report for (S)PECIFIC insurance companies or a (R)ANGE: RANGE// "
  • Line Location: INS+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: INS+2
Function Call: WRITE
  • Prompt: " ",$S("Ss"[X:"SPECIFIC",1:"RANGE")
  • Line Location: INS+4
Function Call: READ
  • Formatting: !?3
  • Prompt: "START WITH INSURANCE COMPANY: FIRST// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: INS1+0
Function Call: READ
  • Formatting: !?8
  • Prompt: "GO TO INSURANCE COMPANY: LAST// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: INS2+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NAM1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NAM2+0
Function Call: WRITE
  • Prompt: !!,"Choose which type of receivables to print:",!
  • Line Location: TYP+3
Function Call: WRITE
  • Prompt: !!,"Include (A)LL active AR's or those within an AGE (R)ANGE: ALL// "
  • Line Location: AR+1
Function Call: WRITE
  • Prompt: " ",$S("Rr"[X:"RANGE",1:"ALL")
  • Line Location: AR+4
Function Call: WRITE
  • Prompt: " ",IBSMN," DAYS"
  • Line Location: AGE+4
Function Call: WRITE
  • Prompt: " ",IBSMX," DAYS"
  • Line Location: AGE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: AMT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BCH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RC+1
Function Call: WRITE
  • Prompt: !!,"This report requires a 132 column printer."
  • Line Location: RC+7
Function Call: WRITE
  • Prompt: !!,"Note: This report will search through all active receivables."
  • Line Location: RC+8
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours."
  • Line Location: RC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RC+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call