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 ; IHS/DIR/FJE - LAB RESULTS BY ACCESSION AREA (COND'T) 3/8/94 09:03 ;

Source Information

Source file <LRUPQ1.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPQ  

Entry Points

Name Comments DBIA/ICR reference
H ;D H^LRUPQ Q:LR("Q") W !,LR(4),!,LRP," ",SSN," (continued from pg ",LRQ-1,")" Q
L
W
T

External References

Name Field # of Occurrence
SSN^LRU LRUPQ1+10
H^LRUPQ LRUPQ1+9, H+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,7),?11,"Entry not in lab results file"
  • Line Location: LRUPQ1+6
Function Call: WRITE
  • Prompt: !,$J(N,5)
  • Line Location: LRUPQ1+8
Function Call: WRITE
  • Prompt: !,$J(N,5)
  • Line Location: LRUPQ1+9
Function Call: WRITE
  • Prompt: $E(LRP,1,20),?28,SSN(1),?34,$E(A(7),1,5)
  • Line Location: LRUPQ1+11
Function Call: WRITE
  • Prompt: $E(LRP,1,18),?27,HRCN,?34,$E(A(7),1,5)
  • Line Location: LRUPQ1+12
Function Call: WRITE
  • Prompt: ?40,"Not in lab results file"
  • Line Location: LRUPQ1+13
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+14
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
Function Call: WRITE
  • Prompt: !,LR(4),!,LRP," ",HRCN," (continued from pg ",LRQ-1,")"
  • Line Location: H+1

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( W, W+1, W+2
^(0 LRUPQ1+4, LRUPQ1+5, LRUPQ1+14
^(3 LRUPQ1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A W*, W+2*
>> A(3 LRUPQ1+5*
>> A(7 LRUPQ1+5*, LRUPQ1+12
>> C(2 LRUPQ1+4*, LRUPQ1+14
>> C(3 LRUPQ1+4*, LRUPQ1+14
>> DFN LRUPQ1+9*
>> HRCN LRUPQ1+12, H+1
IOM L
IOSL LRUPQ1+9, W+1, W+2
>> LR LRUPQ1+4, LRUPQ1+5, W
>> LR("Q" LRUPQ1+9, W, W+1, W+2, H+1
>> LR(3 LRUPQ1+7, LRUPQ1+13
>> LR(4 H+1
>> LR(5 W+1*, W+2*
>> LRAD LRUPQ1+4, LRUPQ1+5, W
>> LRDFN LRUPQ1+5*, LRUPQ1+6, LRUPQ1+7, LRUPQ1+9, LRUPQ1+13, W+1, W+2
>> LRDPF LRUPQ1+9*
>> LRI LRUPQ1+5*, LRUPQ1+7, LRUPQ1+13, W+1, W+2
>> LRP LRUPQ1+10*, LRUPQ1+12, H+1
>> LRQ H+1
>> LRU LRUPQ1+4
>> LRU(1 LRUPQ1+4
>> M LRUPQ1+5*, LRUPQ1+14
>> M(1 LRUPQ1+7*, LRUPQ1+14
>> N LRUPQ1+4, LRUPQ1+5, LRUPQ1+6, LRUPQ1+9, W
>> P(0 LRUPQ1+9*, LRUPQ1+12, LRUPQ1+14
>> SSN LRUPQ1+10*
>> X LRUPQ1+4*, LRUPQ1+5*, LRUPQ1+9*, LRUPQ1+10*
>> Y LRUPQ1+5*, LRUPQ1+7*, LRUPQ1+9*, LRUPQ1+10, 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