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

Package: Lab Service

Routine: LRUTA


Information

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

Source Information

Source file <LRUTA.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZIS  
VA Fileman 1 ^DIC  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS LRUTA+5
^DIC ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRUTA+5
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+4
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
Routine Call
  • DIC
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • LRUTA+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] HDR+2, HDR+3, HDR+4, LIST+1, LIST+5, WRD, LAB, NORM, LST, LST+1
, PANEL
^LAB(61 - [#61] LST
^LAB(62 - [#62] SHOW

Label References

Name Line Occurrences
ASK HDR+5
LIST HDR+4
LST NORM
NORM HDR+3
PANEL HDR+2
SHOW LIST+6

Naked Globals

Name Field # of Occurrence
^( LST+1, PANEL
^(0 LST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LIST+1*, LIST+3, NORM*, PANEL*
>> B WRD*
>> C LAB*
DIC ASK*!
DIC("S" ASK*
DIC(0 ASK*
DTIME HDR+2
IOF LRUTA+5, HDR
>> IOP LRUTA+5*
LRCSREC LRUTA+4~, SHOW*, SHOW+1, SHOW+2
>> LRIFN ASK*, HDR+2, HDR+3, HDR+4, LIST+1, LIST+5, WRD, LAB, NORM, LST
, LST+1, PANEL
>> LRND LIST+5*, SHOW, SHOW+2, SHOW+3
>> M WRD*, LAB*
N LRUTA+4~, LIST*, LIST+1*, LIST+5, WRD, LAB, NORM*, LST, LST+1
U ASK, HDR+1, HDR+3, HDR+4, SHOW+1, SHOW+2, SHOW+3, NORM, LST, PANEL
>> X ASK, HDR+2*, LST+1*, PANEL*
>> Y ASK, PANEL*
>> Y(0 HDR+1
Info |  Source |  Call 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