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

Package: Utilization Management Rollup

Routine: IBQLD1


Information

IBQLD1 ;LEB/MRY - ACUTE/NON-ACUTE DOWNLOAD ; 17-MAY-95

Source Information

Source file <IBQLD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Utilization Management Rollup 3 (ADMIT,STAY)^IBQL538  PRINT^IBQLD1A  DIAG^IBQLD4  
VA FileMan 3 ^%DTC  DT^DICRW  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
Integrated Billing 1 DATE^IBOUTL  

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
Utilization Management Rollup 1 IBQL ACUTE DOWNLOAD  

Entry Points

Name Comments DBIA/ICR reference
DATE
SVCI
TSI
DEV ; -- select device, run option
START ;
END ; -- Clean up
DATA ;
ADMIT ; -- get Admission Review info.
STAY ; --continued stay days

External References

Name Field # of Occurrence
^%DTC DATE+2
^%ZIS DEV+2
^%ZISC END+3
DT^DICRW IBQLD1+4
^DIR DATE+5, DATE+9, SVCI+1, TSI+1, DEV+3
DATE^IBOUTL DATE
ADMIT^IBQL538 ADMIT+1
STAY^IBQL538 STAY+2
PRINT^IBQLD1A START+6
DIAG^IBQLD4 DATE+6

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+5
Function Call: WRITE
  • Prompt: !!,"Set your Device settings to '0;255;9999'"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"Working...",!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Routine Call
  • DIR
  • Line Location:
    • DATE+5
    • DATE+9
    • SVCI+1
    • TSI+1
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBQ(538 - [#538] START+2, START+4, STAY+1
^TMP("IBQLD1" START+1!, END+1!, ADMIT+6, ADMIT+9, ADMIT+10, STAY+6, STAY+8, STAY+9

Label References

Name Line Occurrences
DATA START+4
DATE DATE+2
DEV DATE+10, SVCI+1, TSI+1
END DATE+1, DATE+5, DATE+9, SVCI+1, TSI+1, DEV+2, DEV+3
STAY ADMIT+3
SVCI SVCI+1, SVCI+2
TSI DATE+11, 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
DIR DATE+5!, DATE+9!, SVCI+1!, TSI+1!
DIR("A" DATE+4*, DATE+7*, DATE+8*, SVCI*, TSI*, DEV+3*
DIR(0 DATE+4*, DATE+7*, DATE+8*, SVCI*, TSI*, DEV+3*
DT IBQLD1+4
>> DTOUT DATE+5, DATE+9, SVCI+1, TSI+1, DEV+3
>> DUOUT DATE+5, DATE+9, SVCI+1, TSI+1, DEV+3
I 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 DATE+3*, END+1!
IBQUIT DATE+3*, 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+6*, DATE+7, DATE+8, DATE+11, END+1!, ADMIT+2, ADMIT+3, STAY+3, STAY+4
>> IBTY1 DATE+10*, ADMIT+3, STAY+4
IO DEV+5
MSTRING END+1!
N END+1!
>> POP DEV+2
X DATE+2, SVCI+1, TSI+1, END+1!
>> X1 DATE+2*
>> X2 DATE+2*
>> Y DATE+6, DATE+10, SVCI+2
>> Y(0 SVCI+2, TSI+2
>> ZTQUEUED END+2
>> ZTREQ END+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All