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; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRUTT.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR CAPTT  

Entry Points

Name Comments DBIA/ICR reference
LOC ; check file 44 for location entered
C
END
HL
INSTHIT(XLOC) ;
H
H1 ; D H Q:LR("Q") W !,LRP,?31,SSN Q
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1031 - Restoring LR*5.2*1018 modifications
L
S
QUE
AT
W
CANCEL() ;
; This function checks to see if a test was cancelled.
; If the test was cancelled the function evaluates as "true".
INST ; check file 4 for location entered
HLOC
T

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?24,"Laboratory Test Turnaround Times"
  • Line Location: LRUTT+3
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: !,LRP,?31,HRCN
  • Line Location: QUE+22
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: !?3,LRT(T),?33,$$Y2K^LRX(B,"5D"),?44
  • Line Location: W+3
Function Call: WRITE
  • Prompt: $J(Y,3)," hr"
  • Condition for execution: Y
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?50,$J(X,2)," min"
  • Condition for execution: X
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?60,"Arr time:"
  • Line Location: W+3
Function Call: WRITE
  • Prompt: ?60,"Arr time:"
  • Line Location: W+3
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: !,LRP,?31,HRCN
  • Line Location: H1+2
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)
^AUPNPAT - [#9000001] QUE+19
^DIC - [#1] QUE+17
^DIC(4 - [#4] INSTHIT+7, INSTHIT+8
^LAB(60 - [#60] CANCEL+10
^LR - [#63] QUE+13, QUE+22, CANCEL+12
^LRO(68 - [#68] C+4, 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+12, QUE+20*, QUE+22, L, W+3, S+1*

Label References

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

Naked Globals

Name Field # of Occurrence
^( QUE+22
^(0 QUE+19, C, C+4
^(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+12*, QUE+13, QUE+20, QUE+22*, L, W+3
B L*, L+1!, W+3
C L*, L+1!, W+3
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
DUZ(2 QUE+19
E L*, L+1!, W+3, C*, C+1
HIT INSTHIT+1~, INSTHIT+2*, INSTHIT+11*, INSTHIT+12
>> HRCN QUE+19*, QUE+20, QUE+22*, H1+2
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+22, W
IOST H
LOCNUM INSTHIT+1~, INSTHIT+3*, INSTHIT+4, INSTHIT+5
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" QUE+6, QUE+22, L, W, H, H1+2
LR63 CANCEL+3~, CANCEL+12*, CANCEL+13, CANCEL+14
>> LRA QUE+1*, QUE+3, QUE+5, C, S+1, CANCEL+5, CANCEL+8
>> LRB QUE+3*, QUE+5*, C, CANCEL+5, CANCEL+8
>> LRC C*, C+4, S
>> LRDFN S*, S+1
>> LRDPF QUE+22*
>> LRF C+4*, 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+22*, H1+2
>> LRS C*, C+4, S*
>> LRS(1 S*, S+1
>> LRSDT HL+7*, QUE+1
>> LRSTR H+1
>> LRT AT+1, S*, S+1
>> LRT( AT*, QUE, QUE+3, QUE+5, QUE+6, W+3
LRTIME CANCEL+3~, CANCEL+7*, CANCEL+12
>> LRX C*, C+4, S, S+1
>> LRY HL+6*, LOC+1*, LOC+2*, HLOC, INST+1
PC1 CANCEL+3~, CANCEL+14*, CANCEL+15, CANCEL+16
>> POP HL+9
>> Q QUE+22*
T QUE+3*, QUE+5*, L*, L+1!, W+3, C, C+4, S+1, CANCEL+10
TESTNUM CANCEL+3~, CANCEL+10*, CANCEL+11, CANCEL+12
U AT, QUE+22, HLOC, INSTHIT+5, INSTHIT+10
>> V T*
>> W C*, C+4, S, S+1
>> X QUE+6*, QUE+13*, QUE+14, QUE+15, QUE+16*, QUE+17*, QUE+18*, QUE+20, T*, W+3*
, C+4*, S*, HLOC*, INST+1*
>> X(1 W+3*
X99 INSTHIT+1~, INSTHIT+8*, INSTHIT+9, INSTHIT+10
XLOC INSTHIT~, INSTHIT+3
XLRL QUE+5*, END!
>> Y AT, HL+6, HL+7, QUE+6*, QUE+15*, QUE+18, QUE+19, W+3*, LOC+3, HLOC
, INST+1
>> Y(0 HLOC, INST+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