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

Package: Utilization Management Rollup

Routine: IBQLR1


Information

IBQLR1 ;LEB/MRY - ACUTE/NON-ACUTE REPORT ; 17-MAY-95

Source Information

Source file <IBQLR1.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^IBQLR1A  DIAG^IBQLR4  
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 ACUTE LIST  

Entry Points

Name Comments DBIA/ICR reference
END ; -- Clean up
TSI
SVCI
DEV ; -- select device, run option
STAY ; --continued stay days
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 IBQLR1+4
^DIR DATE+4, DATE+8, SVCI+1, TSI+1
DATE^IBOUTL DATE
ADMIT^IBQL538 ADMIT+1
STAY^IBQL538 STAY+2
PRINT^IBQLR1A START+7
DIAG^IBQLR4 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+4, STAY+1
^TMP("IBQLR1" START+1!, END+1!, ADMIT+6, ADMIT+9, ADMIT+10, STAY+6, STAY+8, STAY+9

Label References

Name Line Occurrences
$$STOP START+6
DATA START+4
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+6
STAY ADMIT+3
SVCI SVCI+1, SVCI+2
TSI DATE+10, TSI+1, TSI+2

Naked Globals

Name Field # of Occurrence
^( ADMIT+6*, ADMIT+9*, ADMIT+10*, STAY+6*, STAY+8*, STAY+9*

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 IBQLR1+4
>> DTOUT DATE+4, DATE+8, SVCI+1, TSI+1
>> DUOUT DATE+4, DATE+8, SVCI+1, TSI+1
I DEV+2*, END+1!, ADMIT+10*, STAY+9*
IB END+1!
IB( ADMIT+2, ADMIT+10, STAY+3, STAY+9
IB("ACUTE ADM ISSION" , ADMIT+5
IB("ACUTE STA Y" , STAY+5
IBBDT DATE+1, DATE+2, START+1, END+1!
IBCAT END+1!
IBDATA END+1!
IBDDT START+1*, START+2*, START+3, START+4, END+1!, ADMIT+6, ADMIT+9, ADMIT+10, STAY+6, STAY+8
, STAY+9
IBEDT DATE+1, DATE+2, START+2, END+1!
IBHDR END+1!
>> IBMCT START+1*, START+3*
IBMD END+1!
IBMONTH START+3*, END+1!
IBMONTH( START+3*
IBMTH END+1!
IBPAG START+1*, END+1!, STOP+1
IBQUIT START+1*, END+1!
>> IBR ADMIT+10*, STAY+9*
IBREA END+1!
IBRES END+1!
IBSVC END+1!, ADMIT+2*, ADMIT+3, ADMIT+6, ADMIT+9, ADMIT+10, STAY+3*, STAY+4, STAY+6, STAY+8
, STAY+9
IBSVC( SVCI+2*, ADMIT+3, STAY+4
IBSVC("" SVCI+1
IBTEXT END+1!
IBTRN START+4*, END+1!, STAY+1
IBTRND END+1!
IBTRV END+1!, STAY+1*
IBTS END+1!, ADMIT+2*, ADMIT+3, ADMIT+6, ADMIT+9, ADMIT+10, STAY+3*, STAY+4, STAY+6, STAY+8
, STAY+9
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!
MSTRING END+1!
N END+1!
>> POP DEV+1
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*
ZTEQ STOP+1!
>> ZTQUEUED END+2, STOP+1
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
>> ZTSTOP START+6, 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