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  | All
Print Page as PDF
Routine: IBJDB2

Package: Integrated Billing

Routine: IBJDB2


Information

IBJDB2 ;ALB/RB - REASONS NOT BILLABLE REPORT (INPUT);19-JUN-00

Source Information

Source file <IBJDB2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 ($$EXCEL,$$MLTP,$$SDIV,ALSP,DS,EXMSG)^IBJD  ^IBJDB21  E^IBJDE  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^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 REASONS NOT BILLABLE  

Entry Points

Name Comments DBIA/ICR reference
GDR ; - Get specific date range.
DS ; - Select a detailed or summary report.
SEL ; - Select episode to print.
RPS ; - Sort by RNB category/specialty/provider, if necessary.
EXCEL ; - Determine whether to gather data for Excel report.
DEV ; - Select a device.
DQ ; - Tasked entry point.
ENQ
ENQ1
HELP1 ; - 'Run report by (D)ATE ENTERED...' prompt.
HELP2 ; - 'Sort report by (R)NB CATEGORY...' prompt.

External References

Name Field # of Occurrence
^%ZIS DEV+9
HOME^%ZIS DEV+16
^%ZISC ENQ+2
^%ZTLOAD DEV+13
^DIR GDR+6, GDR+10
$$EXCEL^IBJD EXCEL+1
$$MLTP^IBJD SEL+8
$$SDIV^IBJD IBJDB2+4
ALSP^IBJD GDR+14, GDR+18, SEL+12, SEL+16
DS^IBJD DS+1
EXMSG^IBJD DEV+7
^IBJDB21 DQ+7
E^IBJDE DQ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Run report for (D)ATE ENTERED or (E)PISODE DATE: D// "
  • Line Location: GDR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GDR+2
Function Call: WRITE
  • Prompt: " ",IBD
  • Line Location: GDR+4
Function Call: WRITE
  • Prompt: !!,"Sort report by (R)NB CATEGORY, (P)ROVIDER, or (S)PECIALTY: R// "
  • Line Location: RPS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RPS+3
Function Call: WRITE
  • Prompt: " ",$S("Pp"[X:"PROVIDER","Ss"[X:"SPECIALTY",1:"RNB CATEGORY")
  • Line Location: RPS+5
Function Call: WRITE
  • Prompt: !!,"You will need a ",X," column printer for this report!",!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Note: This report may take a while to run. You should queue it"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !," to run after normal business hours.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !!,"This job has been queued. Task number is "_ZTSK_"."
  • Line Location: DEV+14
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: DEV+15
Function Call: WRITE
  • Prompt: !!?6,"Enter: '<CR>' - To enter a DATE ENTERED range for the report"
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !?16,"'E' - To enter a EPISODE DATE range for the report"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !?16,"'^' - To quit this option"
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: !!?6,"Enter: '<CR>' - To sort detail report by RNB category"
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !?16,"'P' - To sort detail report by provider"
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: !?16,"'S' - To sort detail report by specialty"
  • Line Location: HELP2+3
Function Call: WRITE
  • Prompt: !?16,"'^' - To quit this option"
  • Line Location: HELP2+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+16
Routine Call
  • DIR
  • Line Location:
    • GDR+6
    • GDR+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBJDB2" ENQ!

Label References

Name Line Occurrences
DEV SEL+18
ENQ IBJDB2+4, GDR+2, GDR+6, GDR+10, GDR+15, GDR+19, DS+1, SEL+8, SEL+11, SEL+15
, RPS+3, EXCEL+1, DEV+9, DEV+10
ENQ1 ENQ+1
EXCEL RPS+1
GDR GDR+3
HELP1 GDR+3
HELP2 RPS+4
RPS RPS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENQ1+2!
%ZIS DEV+9*, ENQ1+2!
DIR GDR+6!, GDR+10!
DIR("A" GDR+5*, GDR+9*
DIR("T" GDR+5*, GDR+9*
DIR(0 GDR+5*, GDR+8*
DIROUT GDR+6, GDR+7!, GDR+10, GDR+11!
DIRUT GDR+6, GDR+7!, GDR+10, GDR+11!
DTIME GDR+2, GDR+5, GDR+9, RPS+3
DTOUT GDR+6, GDR+7!, GDR+10, GDR+11!
DUOUT GDR+6, GDR+7!, GDR+10, GDR+11!
I DEV+12*, DEV+16!, DQ+5*, ENQ1+2!
IBBDT GDR+7*, GDR+8, ENQ1!
IBCLK ENQ1!
IBD GDR+4*, GDR+5, GDR+9, ENQ1!
IBEDT GDR+11*, ENQ1!
IBEPD ENQ1!
IBEPS SEL+2!, SEL+8, ENQ1!
IBEPS(1 SEL+3*
IBEPS(2 SEL+4*
IBEPS(3 SEL+5*
IBEPS(4 SEL+6*
IBEPS(5 SEL+7*
IBEXCEL EXCEL+1*, DEV+1, DEV+7, ENQ1!
IBPRT SEL+1*, SEL+8, ENQ1!
IBRPT DS+1, SEL+18, DEV+2, ENQ1!
IBSD IBJDB2+4*, ENQ1!
IBSEL SEL+8*, SEL+11, SEL+15, RPS+1, ENQ1!
IBSISP SEL+11, SEL+12, ENQ1+1!
IBSORT RPS+1*, RPS+6*, ENQ1+1!
IBSOSP SEL+15, SEL+16, ENQ1+1!
IBSPRV GDR+18, GDR+19, ENQ1+1!
IBSRNB GDR+14, GDR+15, ENQ1+1!
>> IBXTRACT DQ+5
IO DEV+18
IO("Q" DEV+10, DEV+16!
POP DEV+9, ENQ1+2!
VAUTD ENQ1+2!
X GDR+2*, GDR+3, GDR+4, RPS+3*, RPS+4, RPS+5, RPS+6, DEV+2*, DEV+3, ENQ1+2!
Y GDR+7, GDR+11, ENQ1+2!
ZTDESC DEV+11*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DEV+11*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DEV+12*
ZTSK DEV+14, DEV+16!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All