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

Package: Lab Service

Routine: LRUTT


Information

LRUTT ;AVAMC/REG/CYM - LAB TEST TURNAROUND TIME; 2/19/98 ;

Source Information

Source file <LRUTT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 3 (B,F,L,M,S,SSN,V,YN)^LRU  (BEG,END)^LRUTL  $$Y2K^LRX  
VA FileMan 3 H^%DTC  ^DIC  ^DIR  

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
Lab Service 1 LR CAPTT  

Entry Points

Name Comments DBIA/ICR reference
AT
HL
QUE
T
L
W
C
S
H
H1
END
LOC ; check file 44 for location entered
HLOC
INST ; check file 4 for location entered
INSTHIT(XLOC) ;
CANCEL() ;
; This function checks to see if a test was cancelled.
; If the test was cancelled the function evaluates as "true".

External References

Name Field # of Occurrence
H^%DTC T
^DIC ATHLOCINST+1
^DIR HL+5
B^LRU HL+7
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU QUE+8
V^LRU END
YN^LRU HL+8
BEG^LRUTL HL+9
END^LRUTL QUE+9
$$Y2K^LRX W+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?24,"Laboratory Test Turnaround Times"
  • Line Location: LRUTT+2
Function Call: WRITE
  • Prompt: $C(7),!,"NO TESTS SELECTED"
  • Line Location: AT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HL+7
Function Call: WRITE
  • Prompt: !!,"Print patients "
  • Line Location: HL+8
Function Call: WRITE
  • Prompt: !,LRT(A),?30,"Count: ",$J(LRH(A),5),?45,"Average time:"
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: $J(Y,3)," hr"
  • Condition for execution: Y
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: ?65,$J(X,2)," min"
  • Condition for execution: X
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: !?3,LRT(T),?32,$$Y2K^LRX(B,"5D"),?44
  • Line Location: W+1
Function Call: WRITE
  • Prompt: $J(Y,3)," hr"
  • Condition for execution: Y
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?50,$J(X,2)," min"
  • Condition for execution: X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?60,"Arr time:"
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?60,"Arr time:"
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"Location: ",LRL,!,"Laboratory test turnaround times from: ",LRSTR," to ",LRLST,!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"There must be an abbreviation entered for the hospital location!"
  • Line Location: HLOC+0
Routine Call
  • DIC
  • Line Location:
    • AT
    • HLOC
    • INST+1
Routine Call
  • DIR
  • Line Location:
    • HL+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] QUE+7
^DIC(4 - [#4] INSTHIT+7, INSTHIT+8
^LAB(60 - [#60] CANCEL+10
^LR - [#63] QUE+7, QUE+8, CANCEL+12
^LRO(68 - [#68] C+3, S
^LRO(69 - [#69] QUE+1, QUE+3, QUE+5, C, CANCEL+5, CANCEL+8
^SC - [#44] INSTHIT+5
^SC("C" INSTHIT+3
^TMP($J QUE!, QUE+7*, QUE+8, LW+1, S+1*

Label References

Name Line Occurrences
$$CANCEL C+2
$$INSTHIT QUE+5
AT AT
C QUE+3, QUE+5
END LRUTT+2, AT+1, HL+5, HL+7, HL+9, QUE+9
H QUEQUE+6, QUE+8, H1
H1 W
HL HL+6
HLOC LOC+1, LOC+3
INST LOC+2, LOC+3
L QUE+8
LOC HL+6
S C+3
T C+3, S
W L

Naked Globals

Name Field # of Occurrence
^( QUE+8
^(0 CC+3
^(2 C
^(3 C

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HL+8*
>> %H T
>> A QUE*, QUE+6*, QUE+7*, QUE+8*, LW+1
B L*, L+1!, W+1
C L*, L+1!, W+1
CANFLAG CANCEL+3~, CANCEL+4*, CANCEL+16*, CANCEL+17
COLTIME CANCEL+3~, CANCEL+5*, CANCEL+6, CANCEL+7
DIC AT*!, HLOC*!, INST+1*!
DIC("S" INST+1*
DIC(0 AT*, HLOC*, INST+1*
DIR HL!
DIR("?" HL*, HL+1*, HL+2*, HL+3*, HL+4*
DIR("A" HL+5*
DIR(0 HL+5*
>> DIRUT HL+5
E L*, L+1!, W+1, C*, C+1
HIT INSTHIT+1~, INSTHIT+2*, INSTHIT+11*, INSTHIT+12
INSTFLAG HL*, QUE+2, QUE+4, END!, INST+1*
INSTNUM INSTHIT+1~, INSTHIT+5*, INSTHIT+6, INSTHIT+7, INSTHIT+8
IO QUE
IOSL QUE+6, QUE+8, W
IOST H
LOCNUM INSTHIT+1~, INSTHIT+3*, INSTHIT+4, INSTHIT+5
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" QUE+6, QUE+8, LWHH1
LR63 CANCEL+3~, CANCEL+12*, CANCEL+13, CANCEL+14
>> LRA QUE+1*, QUE+3, QUE+5, CS+1, CANCEL+5, CANCEL+8
>> LRB QUE+3*, QUE+5*, C, CANCEL+5, CANCEL+8
>> LRC C*, C+3, S
>> LRDFN S*, S+1
>> LRDPF QUE+8*
>> LRF C+3*, S
>> LRG( QUE*, QUE+6, S+1*
>> LRH( QUE*, QUE+6, S+1*
>> LRI HL+8*, S+1
LRID CANCEL+3~, CANCEL+8*, CANCEL+9, CANCEL+12
>> LRL HL*, HL+6, QUE+3, H+1, HLOC*, INST+1*, INSTHIT+7
>> LRLDT HL+7*, QUE+1
>> LRLST H+1
>> LRP QUE+8*, H1
>> LRS C*, C+3, S*
>> LRS(1 S*, S+1
>> LRSDT HL+7*, QUE+1
>> LRSTR H+1
>> LRT AT+1, S*, S+1
>> LRT( AT*, QUEQUE+3, QUE+5, QUE+6, W+1
LRTIME CANCEL+3~, CANCEL+7*, CANCEL+12
>> LRX C*, C+3, SS+1
>> LRY HL+6*, LOC+1*, LOC+2*, HLOCINST+1
PC1 CANCEL+3~, CANCEL+14*, CANCEL+15, CANCEL+16
>> POP HL+9
>> Q QUE+8*
>> SSN QUE+8*, H1
T QUE+3*, QUE+5*, L*, L+1!, W+1, CC+3, S+1, CANCEL+10
TESTNUM CANCEL+3~, CANCEL+10*, CANCEL+11, CANCEL+12
U ATQUE+8, HLOC, INSTHIT+5, INSTHIT+10
>> V T*
>> W C*, C+3, SS+1
>> X QUE+6*, QUE+7*, T*, W+1*, C+3*, S*, HLOC*, INST+1*
>> X(1 W+1*
X99 INSTHIT+1~, INSTHIT+8*, INSTHIT+9, INSTHIT+10
XLOC INSTHIT~, INSTHIT+3
XLRL QUE+5*, END!
>> Y ATHL+6, HL+7, QUE+6*, QUE+7*, W+1*, LOC+3, HLOCINST+1
>> Y(0 HLOCINST+1
>> ZTRTN HL+9*
>> ZTSK HL+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All