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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRUTW

Package: Lab Service

Routine: LRUTW


Information

LRUTW ;AVAMC/REG - DISPLAY LAB TEST INFO FOR LAB ; 2/14/89 17:19 ;

Source Information

Source file <LRUTW.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
LIST
SHOW
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)
NORM
LST
PANEL
HDR
HOLD
COL
COLL
WARD
SYN
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRUTW+3
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
  • Formatting: !
  • Prompt: "Press any key to continue "
  • Variable: %
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !,"Collection Sample",?21,"VA Lab Slip",?37,"Container",?68,"Vol Req(ml)"
  • Line Location: COL+0
Function Call: WRITE
  • Prompt: !,"Ward Instructions:"
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !,"Synonym:"
  • Line Location: SYN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call