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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 DQ^IBJDF11  HELP^IBJDF1H  PSDR^IBODIV  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IBJD FOLLOW-UP THIRD PARTY  

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

External References

Name Field # of Occurrence
^%ZIS RC+12
HOME^%ZIS RC+18
^%ZTLOAD RC+16
^DIC INS0+2
^DIR DATE+11, TYP+11, AGE+3, AGE+8, AMT+4, AMT1+3, BCH+4, RC+4
DQ^IBJDF11 RC+22
HELP^IBJDF1H DATE+3, INS+3, INS1+1, INS2+1, NAM1+1, NAM2+1, AR+3
PSDR^IBODIV DATE+15

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
Routine Call
  • %ZIS
  • Line Location:
    • RC+12
Routine Call
  • %ZIS
  • Line Location:
    • RC+18
Routine Call
  • DIC
  • Line Location:
    • INS0+2
Routine Call
  • DIR
  • Line Location:
    • DATE+11
    • TYP+11
    • AGE+3
    • AGE+8
    • AMT+4
    • AMT1+3
    • BCH+4
    • RC+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls

Label References

Name Line Occurrences
AMT AR+5
AR AR+3
BCH AMT+5
DATE DATE+3
ENQ DATE+2, DATE+11, DATE+15, INS+2, INS0+2, INS1, INS2, NAM1, NAM2, TYP+11
, AR+2, AGE+3, AGE+9, AMT+4, AMT1+3, BCH+4, RC+4, RC+12, RC+13
INS INS+3
INS0 INS0+3, INS0+5
INS1 INS+4, INS1+1
INS2 INS2+1, INS2+4
NAM INS0+2, INS2+2, INS2+3
NAM1 NAM1+1
NAM2 NAM2+1, NAM2+4
TYP NAM2+2, NAM2+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RC+12*, ENQ+1!
DIC INS0*, INS0+2!
DIC("A" INS0+1*
DIC("S" INS0*
DIC(0 INS0*
DIR DATE+11!, TYP+11!, AGE+3!, AGE+8!, AMT+4!, AMT1+3!, BCH+4!, ENQ+1!
DIR("?" DATE+10*, AGE+1*, AGE+6*, AMT+3*, AMT1+1*, BCH+3*, RC+3*
DIR("A" DATE+9*, TYP+5*, TYP+6*, TYP+7*, TYP+8*, TYP+9*, TYP+10*, AGE+2*, AGE+7*, AMT+2*
, AMT1+2*, BCH+2*, RC+2*
DIR("B" DATE+8*, TYP+10*, AGE+8*, AMT+1*, BCH+1*, RC+1*
DIR(0 DATE+8*, TYP+4*, AGE+1*, AGE+6*, AMT+1*, AMT1+1*, BCH+1*, RC+1*
DIROUT DATE+11, DATE+12!, TYP+11, TYP+12!, AGE+3, AGE+4!, AGE+9, AGE+10!, AMT+4, AMT+5!
, AMT1+3, AMT1+4!, BCH+4, BCH+5!, RC+4, RC+5!, ENQ+2!
DIRUT DATE+11, DATE+12!, TYP+11, TYP+12!, AGE+3, AGE+4!, AGE+9, AGE+10!, AMT+4, AMT+5!
, AMT1+3, AMT1+4!, BCH+4, BCH+5!, RC+4, RC+5!, ENQ+2!
DTIME DATE+1, INS+2, INS1, INS2, NAM1, NAM2, AR+1
DTOUT DATE+11, DATE+12!, TYP+11, TYP+12!, AGE+3, AGE+4!, AGE+9, AGE+10!, AMT+4, AMT+5!
, AMT1+3, AMT1+4!, BCH+4, BCH+5!, RC+4, RC+5!, ENQ+2!
DUOUT DATE+11, DATE+12!, TYP+11, TYP+12!, AGE+3, AGE+4!, AGE+9, AGE+10!, AMT+4, AMT+5!
, AMT1+3, AMT1+4!, BCH+4, BCH+5!, RC+4, RC+5!, ENQ+2!
>> I RC+15*
IBI NAM+5*, NAM1, NAM2, ENQ+1!
IBOFF DATE+3*, INS+3*, INS1+1*, INS2+1*, NAM1+1*, NAM2+1*, AR+3*, ENQ!
IBSAM AMT+5*, AMT1+4*, ENQ+1!
IBSD DATE+12*, DATE+15, ENQ!
IBSDATE DATE+5*, ENQ+1!
IBSEL TYP+12*, ENQ!
IBSH BCH+5*, ENQ!
IBSI INS+4!, INS0+1, INS0+2, INS0+5*, ENQ!
IBSI( INS0+3, INS0+5*
IBSIA INS2+2*, INS2+3*, ENQ!
IBSIF INS1+2*, INS2+2, INS2+3, INS2+4, ENQ!
IBSIL INS2+2*, INS2+3*, INS2+6*, ENQ!
IBSMN AR+5*, AGE+4*, AGE+6, AGE+8, ENQ+1!
IBSMX AGE+10*, ENQ+1!
IBSN NAM+5*, ENQ!
IBSNA NAM2+2*, NAM2+3*, ENQ!
IBSNF NAM1+2*, NAM2+2, NAM2+3, NAM2+4, ENQ!
IBSNL NAM2+2*, NAM2+3*, NAM2+6*, ENQ!
IBSRC RC+5*, ENQ+1!
IBTEXT ENQ+1!
IO RC+20
IO("Q" RC+13, RC+18!
POP RC+12, ENQ+1!
VAUTD ENQ+1!
>> X DATE+1*, DATE+2*, DATE+3, DATE+4, DATE+5, INS+2*, INS+3, INS+4, INS1*, INS1+1
, INS1+2, INS2*, INS2+1, INS2+2, INS2+3, INS2+4, INS2+6, NAM1*, NAM1+1, NAM1+2
, NAM2*, NAM2+1, NAM2+2, NAM2+3, NAM2+4, NAM2+6, AR+1*, AR+2*, AR+3, AR+4
, AR+5
>> Y DATE+12, DATE+15, INS0+2, INS0+3, INS0+5, TYP+12, AGE+4, AGE+10, AMT+5, AMT1+4
, BCH+5, RC+5
ZTDESC RC+14*, ENQ+1!
ZTRTN RC+14*, ENQ+1!
ZTSAVE ENQ+1!
ZTSAVE( RC+15*
ZTSK RC+17, RC+18!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All