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

Package: Lab Service

Routine: LRAPWU


Information

LRAPWU ;AVAMC/REG - AP WORKLOAD UTILITY ;8/12/95 19:30

Source Information

Source file <LRAPWU.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 1 YN^LRU  
VA FileMan 1 (,DD)^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LRAPBS  LRAPBS1  LRAPCWK  LRAPLG  LRAPWE  LRAPWR  

Entry Points

Name Comments DBIA/ICR reference
EM
A ;from LRAPLG,LRAPBS
C
E
F
CK
CK1
W
X

External References

Name Field # of Occurrence
^%DT W
DD^%DT CK1, CK1+1
YN^LRU W

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?20,"*** No specimen entered ***"
  • Line Location: LRAPWU+2
Function Call: WRITE
  • Prompt: $C(7),!!,"*** No blocks or preps entered for ",$P(^(0),U)," ***"
  • Line Location: F+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No blocks or preps for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No stains for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^(E,B,0),U)
  • Line Location: X+0
Function Call: WRITE
  • Prompt: !?3,"Date/time prints made ("
  • Line Location: EM+1
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?3,"Date/time ",$S(LRSS="EM":"grids scanned ",1:"slides examined")," ("
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,") cannot be before",!?3,"Date/time ",$S(LRSS="EM":"grids prepared",1:"slides stained")," ("
  • Line Location: CK1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CK1+1
Function Call: WRITE
  • Prompt: Y,")",$C(7),!!,"Press Return or Enter key: "
  • Line Location: CK1+1
Function Call: WRITE
  • Prompt: !!,$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,0),U)," ",$P(^LAB(60,C,0),U)
  • Line Location: C+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( A+1
^LAB(60 - [#60] C
^LR - [#63] LRAPWU+2, LRAPWU+3, F, F+1, E, E+1, X, X+2, EM, C
^LRO(69.2 - [#69.2] A+2

Label References

Name Line Occurrences
C EM+1, CK
CK X+2, EM
CK1 EM+1
E F+1
EM X+1
F LRAPWU+3
W W
X E+1

Naked Globals

Name Field # of Occurrence
^( X, X+2, A+1
^(0 F, E, X+2*, EM*, EM+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % W*
%DT W*, W+1!
%DT("A" W*
%DT("B" W*
%DT(0 W*
A LRAPWU+3*, F, F+1, E, E+1, X, X+2, EM, A+1*, A+2*
, A+3!, C
>> B E+1*, X, X+2, EM, C
>> C X+2*, EM*, EM+1*, C
DTIME CK1+1
>> E F+1*, E, E+1, X, X+2, EM, C
>> F LRAPWU+2*, LRAPWU+3*, F*, F+1, E*, E+1, X*, X+2*, EM*
>> G X+2*, EM*
>> G(11 EM*, EM+1
>> G(4 X+2*, EM*, EM+1, CK1+1
>> G(5 X+2*, EM*
>> LRAA A+2
>> LRDFN LRAPWU+2, LRAPWU+3, F, F+1, E, E+1, X, X+2, EM, C
>> LRI LRAPWU+2, LRAPWU+3, F, F+1, E, E+1, X, X+2, EM, C
>> LRK X+2, EM+1, W*
>> LRK(1 EM
>> LRSS LRAPWU+2, LRAPWU+3, F, F+1, E, E+1, X, X+1, X+2, EM
, A+1, CK, CK1, C
>> LRW EM, EM+1
>> LRZ( A+1*, A+2*
>> T X+2*, EM*, CK
U F, E, X, C
>> X EM, A+1*, A+2*, CK1+1*
Y EM+1*, A+1*, A+2*, A+3!, W, CK*, CK1, CK1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All