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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBOHDT

Package: Integrated Billing

Routine: IBOHDT


Information

IBOHDT ;ALB/EMG - REPORT OF CHARGES ON HOLD > 60 DAYS ;FEB 14 1997

Source Information

Source file <IBOHDT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 REPORT^IBOHDT1  ($$FILE,$$SUBFILE)^IBRXUTL  
VA FileMan 2 C^%DTC  ^DIR  
Registration 1 DEM^VADPT  

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 IB OUTPUT DAYS ON HOLD  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
QUEUED ; entry point if queued
EXIT ;
DEVICE ;
CHRGS ; charges on hold
PAT ; patient name
BILLS ; find bills for charges on hold
INP ; inpatient bills
INPTCK ; does bill belong to charge? returns IBOK=0 if no
CK1 ; for same patient?
CK2 ; same type- inp or opt?
CK3 ; overlap in date range?
CK4 ; insurance bill?
OPT ; outpatient bills
RX ; rx refill bills

External References

Name Field # of Occurrence
C^%DTC CHRGS+2, INP+4
^%ZIS DEVICE+4
HOME^%ZIS DEVICE+5
^%ZISC EXIT+4
^%ZTLOAD DEVICE+5
^DIR MAIN+6
REPORT^IBOHDT1 QUEUED+3
$$FILE^IBRXUTL RX+7
$$SUBFILE^IBRXUTL RX+6
DEM^VADPT CHRGS+6, PAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,*7,"*** Margin width of this output is 132 ***"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"*** This output should be queued ***"
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+5
Routine Call
  • DIR
  • Line Location:
    • MAIN+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] INP+5, INPTCK+2, OPT+2, OPT+3, OPT+5, RX+14
^IB - [#350] CHRGS+4, INP+3
^IB("AHDT" CHRGS+3
^IBA(362.4 - [#362.4] RX+11, RX+12
^IBE(350.1 - [#350.1] CHRGS+9, BILLS+2
^TMP($J QUEUED+2!, EXIT+1!, CHRGS+10*, INP+7*, OPT+4, OPT+6*, RX+15*

Label References

Name Line Occurrences
BILLS CHRGS+11
CHRGS QUEUED+3
CK4 OPT+5, RX+14
DEVICE QUEUED+3
EXIT QUEUED+4
INP BILLS+4
INPTCK INP+6
OPT BILLS+5, BILLS+6
RX BILLS+6

Naked Globals

Name Field # of Occurrence
^("U" INPTCK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+4*
B CK2+1~*, CK2+2
DFN CHRGS+1~, CHRGS+5*, CHRGS+10, INP+7, CK1+1, OPT+2, OPT+3, OPT+4, OPT+6, RX+15
DIR MAIN+6!
DIR("A" MAIN+3*, MAIN+4*, MAIN+5*
DIR("B" MAIN+3*
DIR(0 MAIN+3*
DIRUT MAIN+1~, MAIN+6
DT CHRGS+2
DTOUT MAIN+1~
DUOUT MAIN+1~
F CK3+1~, CK3+2*, CK3+3
IBATYPE CHRGS+9*, CHRGS+10, BILLS+1~, BILLS+2*, BILLS+4, BILLS+5, INP+7, CK2+2, OPT+4, OPT+6
, RX+15
IBBILL INP+1~, INP+5*, INP+7, INPTCK+2, OPT+1~, OPT+2*, OPT+3*, OPT+4, OPT+5, OPT+6
, RX+10~*, RX+13*, RX+14, RX+15
IBBILL0 INPTCK+1~, INPTCK+2*, CK1+1, CK2+1, CK4+1, OPT+1~, OPT+5*, RX+10~, RX+14*
IBBILLU INPTCK+1~, INPTCK+2*, CK3+2
IBDT CHRGS+1~, CHRGS+3*
IBEND INP+1~, INP+4*, INP+5
IBEV INP+1~, INP+2*, INP+3*, INP+4, INP+5
IBFILL RX+10~, RX+11*, RX+12
IBFILL0 RX+10~, RX+12*, RX+13
IBFR BILLS+1~, BILLS+3*, CK3+3, OPT+2
IBN CHRGS+1~, CHRGS+3*, CHRGS+4, CHRGS+10, INP+7, OPT+4, OPT+6, RX+15
IBNAME CHRGS+1~, CHRGS+7*, CHRGS+10, PAT+2*, INP+7, OPT+4, OPT+6, RX+15
IBND CHRGS+1~, CHRGS+4*, CHRGS+5, CHRGS+9, BILLS+2, BILLS+3, INP+2, RX+2, RX+4
IBNUM MAIN+1~*, MAIN+6*, CHRGS+2
IBOK INP+1~, INP+7, INPTCK+3*, CK1+2*, CK1+3, CK2+3*, CK2+4, CK3+4*, CK3+5, CK4+2*
, OPT+1~, OPT+5, RX+10~, RX+14
IBPID CHRGS+1~, CHRGS+3*
IBQUIT MAIN+1~*, QUEUED+3, DEVICE+4*, DEVICE+5*
IBRDT EXIT+2!, RX+1*, RX+6*, RX+7*, RX+9, RX+12
IBRF EXIT+2!, RX+1*, RX+4*, RX+6, RX+7
IBRX EXIT+2!, RX+1*, RX+4*, RX+9, RX+11
IBRXN EXIT+2!, RX+1*, RX+4*, RX+6, RX+7
IBT BILLS+1~, INP+1~, INP+5*
IBTO CHRGS+2*, CHRGS+3, BILLS+1~, BILLS+3*, CK3+3, OPT+2
IBTYPE CHRGS+1~, CHRGS+9*
IBV OPT+1~, OPT+2*, OPT+3
IENS RX+1~
IO DEVICE+6
IO("Q" DEVICE+5
ION DEVICE+5
POP MAIN+1~, DEVICE+4
T CK3+1~, CK3+2*, CK3+3
VA MAIN+1~
VADM CHRGS+6~!, PAT+1~!
VADM(1 CHRGS+7, PAT+2
VAERR CHRGS+6~, PAT+1~
X CHRGS+2, INP+1~, INP+4, OPT+1~, RX+10~
X1 CHRGS+1~, CHRGS+2*, INP+4*
X2 CHRGS+1~, CHRGS+2*, INP+4*
Y MAIN+1~, MAIN+6
>> ZTDESC DEVICE+5*
ZTIO MAIN+1~, DEVICE+5*
>> ZTQUEUED EXIT+3, DEVICE+1
>> ZTREQ EXIT+3*
>> ZTRTN DEVICE+5*
>> ZTSAVE("IB*" DEVICE+5*
ZTSK DEVICE+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All