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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBQLR4

Package: Utilization Management Rollup

Routine: IBQLR4


Information

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

Source Information

Source file <IBQLR4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 ^%DTC  ^DIC  DT^DICRW  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Utilization Management Rollup 2 (ADMIT,STAY)^IBQL538  PRINT^IBQLR4A  
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 IBQLR1  

Entry Points

Name Comments DBIA/ICR reference
DATE
DIAG
F
DIAGI
DEV ; -- select device, run option
START ;
END ; -- Clean up
DATA ;
; -- get Admission Review info.
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
^DIC DIAG+7, F
DT^DICRW IBQLR4+4
^DIR DIAG+1, DIAG+4, DIAGI+1
DATE^IBOUTL DATE
ADMIT^IBQL538 DATA+2
STAY^IBQL538 DATA+16
PRINT^IBQLR4A START+7

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: !,"Must be after start code",!
  • Line Location: F+0
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
  • DIC
  • Line Location:
    • DIAG+7
    • F
Routine Call
  • DIR
  • Line Location:
    • DIAG+1
    • DIAG+4
    • DIAGI+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBQ(538 - [#538] START+2, START+4, DATA+15
^TMP("IBQLR4" START+1!, END+1!, DATA+9, DATA+12, DATA+13, DATA+18, DATA+20, DATA+21

Label References

Name Line Occurrences
$$STOP START+6
DATA START+4
DATE DATE+2
DEV DIAG+2, F+1, DIAGI+1
DIAGI DIAG+5, DIAGI+1, DIAGI+2
END DATE+1, DIAG+1, DIAG+4, DIAG+7, DIAGI+1, DEV+1, DEV+3, START+6
F F

Naked Globals

Name Field # of Occurrence
^( DATA+9*, DATA+12*, DATA+13*, DATA+18*, DATA+20*, DATA+21*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> DG1 DIAG+7*, F, DATA+5
>> DG6 F*, DATA+5
>> DIC DIAG+6*
>> DIC("A" DIAG+7*, F*
>> DIC(0 DIAG+6*
DIR DIAG+1!, DIAG+4!, DIAGI+1!
DIR("A" DIAG*, DIAG+3*, DIAGI*
DIR(0 DIAG*, DIAG+3*, DIAGI*
DT IBQLR4+4
>> DTOUT DIAG+1, DIAG+4, DIAGI+1
>> DUOUT DIAG+1, DIAG+4, DIAGI+1
I DEV+2*, END+1!, DATA+13*, DATA+21*
IB END+1!
IB( DATA+3, DATA+13, DATA+21
IB("ACUTE ADM ISSION" , DATA+8
IB("ACUTE STA Y" , DATA+17
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!, DATA+9, DATA+12, DATA+13, DATA+18, DATA+20
, DATA+21
IBDIAG END+1!, DATA+3*, DATA+4, DATA+5
IBDIAG( DIAGI+2*, DATA+4
IBDIAG("" DIAGI+1
>> IBDIAG1 DATA+3*, DATA+9, DATA+12, DATA+13, DATA+18, DATA+20, DATA+21
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!, DATA+2*, DATA+3, DATA+6*
>> IBR DATA+13*, DATA+21*
IBREA END+1!
IBRES END+1!
IBTEXT END+1!
IBTRN START+4*, END+1!, DATA+15
IBTRND END+1!
IBTRV END+1!, DATA+15*
IBTY DIAG+2*, END+1!, DATA+3
>> IBTY1 DIAG+5*, DATA+4, DATA+5
IO DEV+4
IO("Q" DEV+2, DEV+3!
MSTRING END+1!
N END+1!
>> POP DEV+1
X DATE+2, DIAGI+1, END+1!
>> X1 DATE+2*
>> X2 DATE+2*
>> Y DIAG+2, DIAG+5, DIAG+7, F
>> Y(0 DIAG+7, F, DIAGI+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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All