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

Package: Lab Service

Routine: LRUTA


Information

LRUTA ;AVAMC/REG - DISPLAY LAB TEST INFO FOR LAB ; 2/14/89 17:18 ;

Source Information

Source file <LRUTA.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
HDR
LIST
SHOW
WRD
LAB
NORM
LST
PANEL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRUTA+3
Function Call: WRITE
  • Prompt: @IOF,"Lab test",?32,"Stat ok ?",?44,"Cost",?58,"Lab Test Synonym",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $E($P(Y(0),U),1,30),?35,$S($P(Y(0),U,16)=1:"YES",1:"NO"),?42,$P(Y(0),U,11),?51,$E($P(Y(0),U,2),1,30)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?68,"Vol Req(ml)"
  • Line Location: LIST+3
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: !!,"Ward Instructions:"
  • Condition for execution: B=1
  • Line Location: WRD+0
Function Call: WRITE
  • Prompt: !,^LAB(60,LRIFN,3,N,1,M,0)
  • Line Location: WRD+0
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),?25,$P(^LAB(60,LRIFN,1,N,0),U,2),?32,$P(^(0),U,3),?48,$P(^(0),U,4),?60,$P(^(0),U,5)
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,^(X,0)
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A#2
  • Line Location: PANEL+0
Function Call: WRITE
  • Prompt: ?40
  • Condition for execution: A#2=0
  • Line Location: PANEL+0
Function Call: WRITE
  • Prompt: $P(^LAB(60,Y,0),U,1)
  • Line Location: PANEL+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