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

Package: Lab Service

Routine: LRUTW


Information

LRUTW ; IHS/DIR/FJE - DISPLAY LAB TEST INFO FOR LAB 2/14/89 17:19 ;

Source Information

Source file <LRUTW.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ^%ZIS  
Lab Service 1 V^LRU  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LREV  

Entry Points

Name Comments DBIA/ICR reference
END
HDR
SHOW
LIST
COLL
LAB ;S M=0 F C=1:1 S M=$O(^LAB(60,LRIFN,3,N,2,M)) Q:'M W:C=1 !!,"Lab Processing Instructions:" W !,^LAB(60,LRIFN,3,N,2,M,0)
SYN
LST
ASK
WARD
HOLD
COL ;W !,"Collection Sample",?21,"VA Lab Slip",?37,"Container",?68,"Vol Req(ml)" Q
NORM
PANEL

External References

Name Field # of Occurrence
^%ZIS LRUTW+5
^DIC ASK
V^LRU END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRUTW+5
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,LRIFN,5,X,0),U,1)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,+^LAB(60,LRIFN,2,X,0),0),U,1)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,^LAB(60,LRIFN,6,M,0)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A>1
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,$S($L($P(LRCSREC,U)):$E($P(LRCSREC,U),1,20),1:"??")
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: ?21,$E($P(LRND,U,2),1,15),?37,$E($P(LRCSREC,U,3),1,30)
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: ?68,$E($P(LRND,U,4),1,12)
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !,^LAB(60,LRIFN,3,N,1,M,0)
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !!,"Lab Processing Instructions:"
  • Condition for execution: C=1
  • Line Location: LAB+0
Function Call: WRITE
  • Prompt: !,^LAB(60,LRIFN,3,N,2,M,0)
  • Line Location: LAB+0
Function Call: WRITE
  • Prompt: !,$E($P(^LAB(61,N,0),U),1,19)
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,?10,"Therapeutic low: ",$P(P,U,11),?37,"Therapeutic high: ",$P(P,U,12)
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,^(X,0)
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !,"Tests in panel: "
  • Line Location: PANEL+0
Function Call: WRITE
  • Prompt: @IOF,"Lab test",?20,"Highest allowed urgency Cost",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $E($P(Y(0),U,1),1,26),?28,$S($P(Y(0),U,16):$E($P(^LAB(62.05,$P(Y(0),U,16),0),U,1),1,14),1:"any"),?45,$P(Y(0),U,11)
  • Line Location: HDR+1
Function Call: READ
  • Prompt: "Press any key to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: %
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !,"Collection Sample",?21,"Lab Slip",?37,"Container",?68,"Vol Req(ml)"
  • Line Location: COL+1
Function Call: WRITE
  • Prompt: !,"Ward Instructions:"
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !,"Synonym:"
  • Line Location: SYN+0
Routine Call
  • DIC
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • LRUTW+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+4, SHOW+5, NORM, LST
, LST+3
^LAB(61 - [#61] LST
^LAB(62 - [#62] SHOW
^LAB(62.05 - [#62.05] HDR+1

Label References

Name Line Occurrences
ASK ASK+6
COL LIST, COLL
COLL LIST
END ASK
HDR ASK+1, HOLD
HOLD PANEL, COLL, WARD, SYN
LIST ASK+5
LST NORM
NORM ASK+3
PANEL ASK+2
SHOW LIST
SYN ASK+1
WARD ASK+4, SHOW+5

Naked Globals

Name Field # of Occurrence
^( LST+3
^(2 ASK+2
^(3 LIST, SHOW+5
^(5 ASK+1
^(6 ASK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HOLD*
>> A LIST*, SHOW+1, NORM*
AGE LRUTW+4~, LRUTW+5*
>> B SHOW+5*
DIC ASK*!
DIC("S" ASK*
DIC(0 ASK*
DTIME HOLD
IOF LRUTW+5, HDR
>> IOP LRUTW+5*
LRCSREC LRUTW+4~, SHOW*, SHOW+1, SHOW+2
>> LRIFN ASK*, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+4, SHOW+5, NORM
, LST, LST+3
>> LRND LIST*, SHOW, SHOW+2, SHOW+3
>> M ASK+4*, SHOW+5*
N LRUTW+4~, LIST*, SHOW+4, SHOW+5, NORM*, LST, LST+3
>> P LST*, LST+1, LST+2
SEX LRUTW+4~, LRUTW+5*
U ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, LIST, SHOW+1, SHOW+2, SHOW+3
, SHOW+5, LST, LST+1, LST+2, HDR+1
>> X ASK, ASK+1*, ASK+2*, LST+3*
>> Y ASK
>> Y(0 HDR+1
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