Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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".

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
Info |  Source |  Entry Points |  Interaction Calls