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

Package: Integrated Billing

Routine: IBOHLD1


Information

IBOHLD1 ;ALB/CJM - REPORT OF CHARGES ON HOLD W/INS INFO ;MARCH 3 1992

Source Information

Source file <IBOHLD1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 REPORT^IBOHLD2  ($$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: 3

Package Total Caller Graph
Integrated Billing 3 IB OUTPUT HELD CHARGES  IBOHLS1  IBYRPOST  

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
FNDBTYP(IBACTIEN) ;Determine what type of 3rd party bill to try and match the
; held charge to.
; INPUT - IB Action Type IEN (350.1,.01)
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?
OTP ; outpatient bills
RX ; rx refill bills

External References

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

Interaction Calls

Name Line Occurrences
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+11
Routine Call
  • DIR
  • Line Location:
    • MAIN+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+12

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$FNDBTYP BILLS+4
BILLS CHRGS+5
CHRGS QUEUED+3
CK4 OTP+5, RX+14
DEVICE QUEUED+3
EXIT MAIN+6, QUEUED+4
INP BILLS+6
INPTCK INP+6
OTP BILLS+7
PAT CHRGS+2
RX BILLS+8

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+2*, CHRGS+4, INP+7, CK1+1, OTP+2, OTP+3, OTP+4, OTP+6, RX+15
DIR MAIN+6!
DIR("?" MAIN+3*, MAIN+4*, MAIN+5*
DIR("A" MAIN+2*
DIR("B" MAIN+2*
DIR(0 MAIN+2*
DIRUT MAIN+1~, MAIN+6
DTOUT MAIN+1~
DUOUT MAIN+1~
F CK3+1~, CK3+2*, CK3+3
IBACTIEN FNDBTYP~, FNDBTYP+6
IBACTPNM FNDBTYP+4~, FNDBTYP+6*, FNDBTYP+7, FNDBTYP+8, FNDBTYP+9, FNDBTYP+10
IBATYPE BILLS+1~, BILLS+4*, BILLS+6, BILLS+7, CK2+2
IBBILL INP+1~, INP+5*, INP+7, INPTCK+2, OTP+1~, OTP+2*, OTP+3*, OTP+4, OTP+5, OTP+6
, RX+10~*, RX+13*, RX+14, RX+15
IBBILL0 INPTCK+1~, INPTCK+2*, CK1+1, CK2+1, CK4+1, OTP+1~, OTP+5*, RX+10~, RX+14*
IBBILLU INPTCK+1~, INPTCK+2*, CK3+2
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+5*, CK3+3, OTP+2
IBII MAIN+1~, MAIN+6*
IBN CHRGS+1~, CHRGS+2*, CHRGS+3, CHRGS+4, INP+7, OTP+4, OTP+6, RX+15
IBNAME CHRGS+1~, CHRGS+4, PAT+2*, INP+7, OTP+4, OTP+6, RX+15
IBND CHRGS+1~, CHRGS+3*, BILLS+4, BILLS+5, INP+2, RX+2, RX+4
IBOK INP+1~, INP+7, INPTCK+3*, CK1+2*, CK1+3, CK2+3*, CK2+4, CK3+4*, CK3+5, CK4+2*
, OTP+1~, OTP+5, RX+10~, RX+14
IBQUIT MAIN+1~*, QUEUED+3, DEVICE+4*, DEVICE+12*
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 BILLS+1~, BILLS+5*, CK3+3, OTP+2
IBV OTP+1~, OTP+2*, OTP+3
IENS RX+1~
IO DEVICE+13
IO("Q" DEVICE+5
IOM DEVICE+7
ION DEVICE+7
IOSL DEVICE+7
IOST DEVICE+7
>> POP DEVICE+4
T CK3+1~, CK3+2*, CK3+3
VADM PAT+1~!
VADM(1 PAT+2
VAERR PAT+1~
X INP+1~, INP+4, OTP+1~, RX+10~
X1 INP+1~, INP+4*
X2 INP+1~, INP+4*
Y MAIN+1~, MAIN+6
>> ZTDESC DEVICE+8*
ZTIO MAIN+1~, DEVICE+7*
>> ZTQUEUED EXIT+3, DEVICE+1
>> ZTREQ EXIT+3*
>> ZTRTN DEVICE+6*
>> ZTSAVE("IB*" DEVICE+9*
ZTSK DEVICE+11, DEVICE+12!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All