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

Package: Utilization Management Rollup

Routine: IBQLD4


Information

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

Source Information

Source file <IBQLD4.m>

Call Graph

Call Graph

Call Graph Total: 9

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

Entry Points

Name Comments DBIA/ICR reference
END ; -- Clean up
F
DIAG
DIAGI
DEV ; -- select device, run option
START ;
DATE
DATA ;
; -- get Admission Review info.

External References

Name Field # of Occurrence
^%DTC DATE+2
^%ZIS DEV+2
^%ZISC END+3
^DIC DIAG+7, F
DT^DICRW IBQLD4+4
^DIR DIAG+1, DIAG+4, DIAGI+1, DEV+3
DATE^IBOUTL DATE
ADMIT^IBQL538 DATA+2
STAY^IBQL538 DATA+16
PRINT^IBQLD4A START+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: !,"Must be after start code",!
  • Line Location: F+0
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
  • DIC
  • Line Location:
    • DIAG+7
    • F
Routine Call
  • DIR
  • Line Location:
    • DIAG+1
    • DIAG+4
    • DIAGI+1
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

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("IBQLD4" START+1!, END+1!, DATA+9, DATA+12, DATA+13, DATA+18, DATA+20, DATA+21

Label References

Name Line Occurrences
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+2, DEV+3
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
>> 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*, DEV+3*
DIR(0 DIAG*, DIAG+3*, DIAGI*, DEV+3*
DT IBQLD4+4
>> DTOUT DIAG+1, DIAG+4, DIAGI+1, DEV+3
>> DUOUT DIAG+1, DIAG+4, DIAGI+1, DEV+3
I 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!
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*, END+1!, DATA+4, DATA+5
IO DEV+5
MSTRING END+1!
N END+1!
>> POP DEV+2
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
>> ZTQUEUED END+2
>> ZTREQ END+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