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

Package: Utilization Management Rollup

Routine: IBQLR3


Information

IBQLR3 ;LEB/MRY - PATIENT/PROVIDER REVIEW REPORT ; 1-SEP-95

Source Information

Source file <IBQLR3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Utilization Management Rollup 3 (ADMIT,STAY)^IBQL538  ORDCHK^IBQLLD2  PRINT^IBQLR3A  
VA FileMan 3 (,C)^%DTC  DT^DICRW  ^DIR  
Integrated Billing 2 DATE^IBOUTL  $$VNDT^IBTRV  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Utilization Management Rollup 1 IBQLR2  

Entry Points

Name Comments DBIA/ICR reference
END ; -- Clean up
PHYZR ; -- return requested provider.
PHYZ ; -- organize requested providers in array IBPHYZ
DEV ; -- select device, run option
STAY ; -- get Stay Review info.
START ;
PHY
DATE
DATA ;
; -- get Admission Review info.
PHYI
STOP() ; determine if user has requested the queued report to stop

External References

Name Field # of Occurrence
^%DTC DATE+2
C^%DTC PHYZ+9, PHYZ+13
^%ZIS DEV+1
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD STOP+1
DT^DICRW IBQLR3+4
^DIR PHY+1, PHY+5, PHYI+1
DATE^IBOUTL DATE
ADMIT^IBQL538 DATA+2
STAY^IBQL538 STAY+2
ORDCHK^IBQLLD2 DATA+3
PRINT^IBQLR3A START+6
$$VNDT^IBTRV PHYZR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,"<<< please report 1 years of information only. >>>"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PHY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • PHY+1
    • PHY+5
    • PHYI+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBQ(538 - [#538] START+2, START+3
^IBT(356 - [#356] PHYZ+1
^IBT(356.94 - [#356.94] PHYZ+3
^TMP("IBQLR3" START+1!, END+1!, DATA+7*, DATA+8, DATA+9, DATA+10, STAY+4, STAY+6*, STAY+8, STAY+9
, STAY+10, STAY+11, STAY+12

Label References

Name Line Occurrences
$$STOP START+5
DATA START+3
DATE DATE+2
DEV PHY+6, PHYI+1
END DATE+1, PHY+1, PHY+5, PHYI+1, DEV+1, DEV+3, START+5
PHYI PHYI+1, PHYI+2
PHYZ DATA+4
PHYZR DATA+4, STAY+3
STAY DATA+5

Naked Globals

Name Field # of Occurrence
^( STAY+9*
^("LOS" DATA+8*, STAY+10*
^("S-AC" DATA+9*, STAY+11*
^("S-NAC" DATA+10*, STAY+12*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
DGPM END+1!, PHYZ+1*, PHYZ+3
DIR PHY+1!, PHY+5!, PHYI+1!
DIR("A" PHY*, PHY+4*, PHYI*
DIR(0 PHY*, PHY+4*, PHYI*
DT IBQLR3+4
>> DTOUT PHY+1, PHY+5, PHYI+1
>> DUOUT PHY+1, PHY+5, PHYI+1
I DEV+2*, END+1!, STAY+7*
IB END+1!
IB( DATA+2, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, STAY+4, STAY+5, STAY+6, STAY+7
, STAY+8, STAY+9, STAY+10, STAY+11, STAY+12
IB("ACUTE ADM ISSION" , DATA+6, DATA+9
IB("ACUTE STA Y" , STAY+11
IB1 PHYZ+7*, PHYZ+8, PHYZ+9, PHYZ+11*, PHYZ+12, PHYZ+14, PHYZ+15!
IB3 PHYZ+7*, PHYZ+8, PHYZ+11*, PHYZ+12, PHYZ+13, PHYZ+14, PHYZ+15!
IBBDT DATE+1, DATE+2, START+1, END+1!
IBDATA END+1!, DATA+6*, DATA+7, STAY+5*, STAY+6
IBDDT START+1*, START+2*, START+3, END+1!
IBEDT DATE+1, DATE+2, START+2, END+1!
IBHDR END+1!
IBIEN END+1!, DATA+2*, DATA+3, PHYZ+1
IBLV END+1!, DATA+2*, STAY+8*, STAY+13
IBLVH START+1*, END+1!, STAY+13*
IBORDER END+1!
IBORDER( STAY+1
IBORDER(1 DATA+4
IBPAG START+1*, END+1!, STOP+1
IBPHY END+1!, DATA+5, DATA+7, DATA+8, DATA+9, DATA+10, STAY+3, STAY+4, STAY+6, STAY+8
, STAY+9, STAY+10, STAY+11, STAY+12, PHYZR+2*, PHYZR+5*
IBPHY( PHYI+2*, DATA+5, STAY+3
IBPHY("" PHYI+1
IBPHYD END+1!, PHYZ+3*, PHYZ+4, PHYZ+5, PHYZ+15!
>> IBPHYDT PHYZR+2*, PHYZR+3*, PHYZR+4, PHYZR+5
IBPHYN END+1!, PHYZ+2*, PHYZ+3*, PHYZ+15!
IBPHYZ END+1!, PHYZ+2!
IBPHYZ( PHYZ+5*, PHYZR+3, PHYZR+5
IBPHYZ(1 PHYZ+7, PHYZ+9*!, PHYZ+11
IBPHYZ(3 PHYZ+7, PHYZ+11, PHYZ+13*, PHYZ+14*
IBQLR3 END+1!, DATA+3*
IBQUIT START+1*, END+1!, DATA+3*
IBREA END+1!
>> IBRIEN DATA+4*, STAY+1*, PHYZR+1
>> IBRN STAY+1*
IBTEXT END+1!
IBTRN START+3*, END+1!, DATA+3*
IBTRND END+1!
IBTRNSV DATA+3*!
>> IBTRV STAY+1*, STAY+2*
IBTY PHY+2*, PHY+3, END+1!
IBTY1 PHY+6*, END+1!, DATA+5, STAY+3
>> IBTY2 PHY+3*, PHYZ+6, PHYZ+10, PHYZR+3, PHYZR+5
>> IBTYD PHY+2*, PHY+4, PHYI
IO DEV+4
IO("Q" DEV+2, DEV+3!
N END+1!
>> POP DEV+1
>> REA STAY+7*, STAY+8, STAY+9
>> VAINDT PHYZR+1*, PHYZR+4
X DATE+2, PHYI+1, END+1!, PHYZ+9, PHYZ+13, PHYZ+15!
>> X1 DATE+2*, PHYZ+9*, PHYZ+13*
>> X2 DATE+2*, PHYZ+9*, PHYZ+13*
>> Y PHY+2, PHY+6, PHYI+2
>> Y(0 PHY+2
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, STOP+1
ZTREQ END+2*, STOP+1!
>> ZTRTN DEV+3*
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
>> ZTSTOP START+5, STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All