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

Package: Utilization Management Rollup

Routine: IBQLR2


Information

IBQLR2 ;LEB/MRY - PATIENT REPORT ; 17-MAY-95

Source Information

Source file <IBQLR2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Utilization Management Rollup 3 (ADMIT,STAY)^IBQL538  PRINT^IBQLR2A  PHY^IBQLR3  
VA FileMan 3 ^%DTC  DT^DICRW  ^DIR  
Integrated Billing 1 DATE^IBOUTL  

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 IBQL PATIENT REVIEW LIST  

Entry Points

Name Comments DBIA/ICR reference
END ; -- Clean up
TSI
SVCI
DEV ; -- select device, run option
STAY ; -- get Stay Review info.
START ;
ADMIT ; -- get Admission Review info.
DATE
DATA ;
STOP() ; determine if user has requested the queued report to stop

External References

Name Field # of Occurrence
^%DTC DATE+2
^%ZIS DEV+1
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD STOP+1
DT^DICRW IBQLR2+4
^DIR DATE+4, DATE+8, SVCI+1, TSI+1
DATE^IBOUTL DATE
ADMIT^IBQL538 ADMIT+1
STAY^IBQL538 STAY+2
PRINT^IBQLR2A START+6
PHY^IBQLR3 DATE+5

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: DATE+4
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:
    • DATE+4
    • DATE+8
    • SVCI+1
    • TSI+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBQ(538 - [#538] START+2, START+3, STAY+1
^TMP("IBQLR2" START+1!, END+1!, ADMIT+5*, ADMIT+6, ADMIT+7, ADMIT+8, STAY+5, STAY+7*, STAY+9, STAY+10
, STAY+11, STAY+12, STAY+13

Label References

Name Line Occurrences
$$STOP START+5
DATA START+3
DATE DATE+2
DEV DATE+9, SVCI+1, TSI+1
END DATE+1, DATE+4, DATE+8, SVCI+1, TSI+1, DEV+1, DEV+3, START+5
STAY ADMIT+3
SVCI SVCI+1, SVCI+2
TSI DATE+10, TSI+1, TSI+2

Naked Globals

Name Field # of Occurrence
^( STAY+10*
^("LOS" ADMIT+6*, STAY+11*
^("S-AC" ADMIT+7*, STAY+12*
^("S-NAC" ADMIT+8*, STAY+13*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
DIR DATE+4!, DATE+8!, SVCI+1!, TSI+1!
DIR("A" DATE+3*, DATE+6*, DATE+7*, SVCI*, TSI*
DIR(0 DATE+3*, DATE+6*, DATE+7*, SVCI*, TSI*
DT IBQLR2+4
>> DTOUT DATE+4, DATE+8, SVCI+1, TSI+1
>> DUOUT DATE+4, DATE+8, SVCI+1, TSI+1
I DEV+2*, END+1!, STAY+8*
IB END+1!
IB( ADMIT+2, ADMIT+4, ADMIT+5, ADMIT+6, ADMIT+7, ADMIT+8, STAY+3, STAY+5, STAY+6, STAY+7
, STAY+8, STAY+9, STAY+10, STAY+11, STAY+12, STAY+13
IB("ACUTE ADM ISSION" , ADMIT+4, ADMIT+7
IB("ACUTE STA Y" , STAY+12
IBBDT DATE+1, DATE+2, START+1, END+1!
IBDATA END+1!, ADMIT+4*, ADMIT+5, STAY+6*, STAY+7
IBDDT START+1*, START+2*, START+3, END+1!
IBEDT DATE+1, DATE+2, START+2, END+1!
IBHDR END+1!
IBLV END+1!, ADMIT+1*, STAY+9*, STAY+14
IBLVH START+1*, END+1!, STAY+14*
IBPAG START+1*, END+1!, STOP+1
IBQUIT START+1*, END+1!
IBREA END+1!
IBSVC END+1!, ADMIT+2*, ADMIT+3, ADMIT+5, ADMIT+6, ADMIT+7, ADMIT+8, STAY+3*, STAY+4, STAY+5
, STAY+7, STAY+9, STAY+10, STAY+11, STAY+12, STAY+13
IBSVC( SVCI+2*, ADMIT+3, STAY+4
IBSVC("" SVCI+1
IBTEXT END+1!
IBTRN START+3*, END+1!, STAY+1
IBTRND END+1!
>> IBTRV STAY+1*
IBTS END+1!, ADMIT+2*, ADMIT+3, ADMIT+5, ADMIT+6, ADMIT+7, ADMIT+8, STAY+3*, STAY+4, STAY+5
, STAY+7, STAY+9, STAY+10, STAY+11, STAY+12, STAY+13
IBTS( TSI+2*, ADMIT+3, STAY+4
IBTS("" TSI+1
IBTY DATE+5*, DATE+6, DATE+7, DATE+10, END+1!, ADMIT+2, ADMIT+3, STAY+3, STAY+4
>> IBTY1 DATE+9*, ADMIT+3, STAY+4
IO DEV+4
IO("Q" DEV+2, DEV+3!
N END+1!
>> POP DEV+1
>> REA STAY+8*, STAY+9, STAY+10
X DATE+2, SVCI+1, TSI+1, END+1!
>> X1 DATE+2*
>> X2 DATE+2*
>> Y DATE+5, DATE+9, SVCI+2
>> Y(0 SVCI+2, TSI+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