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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUPQ1

Package: Lab Service

Routine: LRUPQ1


Information

LRUPQ1 ;AVAMC/REG - LAB RESULTS BY ACCESSION AREA (COND'T) ;3/8/94 09:03 ;

Source Information

Source file <LRUPQ1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 SSN^LRU  H^LRUPQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPQ  

Entry Points

Name Comments DBIA/ICR reference
W
L
H
T

External References

Name Field # of Occurrence
SSN^LRU LRUPQ1+7
H^LRUPQ LRUPQ1+6, H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,7),?11,"Entry not in lab results file"
  • Line Location: LRUPQ1+4
Function Call: WRITE
  • Prompt: !,$J(N,5)
  • Line Location: LRUPQ1+6
Function Call: WRITE
  • Prompt: $E(LRP,1,20),?28,SSN(1),?34,$E(A(7),1,5)
  • Line Location: LRUPQ1+8
Function Call: WRITE
  • Prompt: ?40,"Not in lab results file"
  • Line Location: LRUPQ1+9
Function Call: WRITE
  • Prompt: ?41,$S(C(2)>0&(P(0)="STERILIZER"!(P(0)="ENVIRONMENTAL")):$E($P(^LAB(62,C(2),0),"^"),1,14),$D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,13),1:""),?56,M,?68,M(1)
  • Line Location: LRUPQ1+10
Function Call: WRITE
  • Prompt: !,$E($P(^DD(63.04,Z,0),"^"),1,20),?21,$J($P(LR(5),"^"),7)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,$E($P(^DD(63.04,Z,0),"^"),1,20),?21,$J($P(LR(5),"^"),7)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-7)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: " ",$P(^LAB(60,Z,.1),"^")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,LR(4),!,LRP," ",SSN," (continued from pg ",LRQ-1,")"
  • Line Location: H+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.04 W+1, W+2
^DIC - [#1] LRUPQ1+6
^LAB(60 - [#60] L
^LAB(61 - [#61] LRUPQ1+10
^LAB(62 - [#62] LRUPQ1+10
^LR - [#63] LRUPQ1+4, LRUPQ1+5, LRUPQ1+6, LRUPQ1+9, W+1, W+2
^LRO(68 - [#68] LRUPQ1+2, LRUPQ1+3, W

Label References

Name Line Occurrences
H W+1, W+2
L W
T LRUPQ1+3, LRUPQ1+5

Naked Globals

Name Field # of Occurrence
^( W, W+1, W+2
^(0 LRUPQ1+2, LRUPQ1+3, LRUPQ1+10
^(3 LRUPQ1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A W*, W+2*
>> A(3 LRUPQ1+3*
>> A(7 LRUPQ1+3*, LRUPQ1+8
>> C(2 LRUPQ1+2*, LRUPQ1+10
>> C(3 LRUPQ1+2*, LRUPQ1+10
IOM L
IOSL LRUPQ1+6, W+1, W+2
>> LR LRUPQ1+2, LRUPQ1+3, W
>> LR("Q" LRUPQ1+6, W, W+1, W+2, H
>> LR(3 LRUPQ1+5, LRUPQ1+9
>> LR(4 H
>> LR(5 W+1*, W+2*
>> LRAD LRUPQ1+2, LRUPQ1+3, W
>> LRDFN LRUPQ1+3*, LRUPQ1+4, LRUPQ1+5, LRUPQ1+6, LRUPQ1+9, W+1, W+2
>> LRDPF LRUPQ1+6*
>> LRI LRUPQ1+3*, LRUPQ1+5, LRUPQ1+9, W+1, W+2
>> LRP LRUPQ1+7*, LRUPQ1+8, H
>> LRQ H
>> LRU LRUPQ1+2
>> LRU(1 LRUPQ1+2
>> M LRUPQ1+3*, LRUPQ1+10
>> M(1 LRUPQ1+5*, LRUPQ1+10
>> N LRUPQ1+2, LRUPQ1+3, LRUPQ1+4, LRUPQ1+6, W
>> P(0 LRUPQ1+6*, LRUPQ1+8, LRUPQ1+10
>> SSN LRUPQ1+7*, H
>> SSN(1 LRUPQ1+8
>> X LRUPQ1+2*, LRUPQ1+3*, LRUPQ1+6*, LRUPQ1+7*
>> Y LRUPQ1+3*, LRUPQ1+5*, LRUPQ1+6*, LRUPQ1+7, T*
>> Z W*, W+1*, W+2*, L
>> Z(3 W*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All