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

Package: Lab Service

Routine: LRAPSL1


Information

LRAPSL1 ; IHS/DIR/FJE - ANATOMIC PATH SLIDE LABELS 12:08 ; [ 5/9/91 ]

Source Information

Source file <LRAPSL1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,K)^LRU  ^LRUP  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPSL  

Entry Points

Name Comments DBIA/ICR reference
A
E
H ;W @IOF,LRP," ",SSN(1)," Acc #: ",LRAN," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Labels to Print" Q
M
AUS
REST
N
S
AU
T
W
OUT ;D K^LRU K LR,LRAX,LRDFN,LRDPAF,LRPARAM,LRSF,LRWHO,LRA,LRB,LRD,LRE,LRI,LRP,LRM,LRU,DOB,SEX,SSN,LRAD,LRAN,LRSS(LRSS) Q
AUT

External References

Name Field # of Occurrence
^%ZIS REST+2
D^LRU REST+3
K^LRU OUT+1
^LRUP REST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: LRAPSL1+5
Function Call: READ
  • Prompt: "Select Accession Number: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: LRAN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter a number."
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !,$P(LRB,U)
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+5
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E)
  • Condition for execution: F=1
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !?3,$P(LRB(1),U),?16,"Stain/Procedure"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !,?15,"*",$J(LR,2),")",?20,$E($P(^LAB(60,C,0),U),1,25),?47
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $J(X,5)
  • Condition for execution: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?52,"/",Z
  • Condition for execution: Z
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?66,$J(Y,3)
  • Line Location: A+0
Function Call: READ
  • Prompt: "Select *Stain #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," Select a number from 1 to ",LR
  • Line Location: E+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !,"Number of labels: ",$S(LRSS'="AU":$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,1,C,0),U,7),1:$P(^LR(LRDFN,33,A,E,B,1,C,0),U,7)),"// " R X:DTIME Q:'$T!(X[U)
  • Line Location: N+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 0 to 99."
  • Line Location: N+1
Function Call: WRITE
  • Prompt: !,$P(LRB,U)
  • Line Location: AU+0
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E)
  • Condition for execution: F=1
  • Line Location: AUS+0
Function Call: WRITE
  • Prompt: !?3,$P(LRB(1),U),?16,"Stain/Procedure"
  • Line Location: AUS+0
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRM
  • Line Location: M+0
Function Call: WRITE
  • Prompt: @IOF,LRP," ",HRCN," Acc #: ",LRAN," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Labels to Print"
  • Line Location: H+1
Routine Call
  • %ZIS
  • Line Location:
    • REST+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] A, E+1
^LR - [#63] REST+1, REST+2, REST+4, S, T, E+1, N, AU, AUS, AUT
^LRO(68 - [#68] LRAPSL1+5, REST, REST+1, REST+2

Label References

Name Line Occurrences
A T, AUT
AU REST+3
AUS AU
AUT AUS
E REST+3, REST+5, E, N
H REST+3, M
M REST+4, S, T, AU, AUS, AUT
N N+1
OUT W
REST W+1
S REST+4
T S
W W, W+1

Naked Globals

Name Field # of Occurrence
^( REST+4, S, T, AU, AUS, AUT
^(0 REST+1, N*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A REST+4*, S, T, A, E+1*, N, AU*, AUS, AUT
>> B S*, T, A, E+1*, N, AUS*, AUT
>> C T*, A, E+1*, N, AUT*
DOB OUT+1!
DTIME W, E, N, M
>> E S*, T, A, E+1*, N, AUS*, AUT
>> F S*, AUS*
HRCN H+1, OUT+1!
IOF REST+2, H+1
>> IOP REST+2*
IOSL REST+4, S, T, AU, AUS, AUT
LR W!*, REST+3, REST+5, A*, E, OUT+1!
LR( A*, E, E+1
LRA REST+2*, REST+3, OUT+1!
>> LRAA LRAPSL1+5, REST, REST+1, REST+2
>> LRAA(1 LRAPSL1+5
LRAD LRAPSL1+4*, LRAPSL1+5, REST, REST+1, REST+2, OUT+1!
LRAN W*, REST, REST+1, REST+2, H+1, OUT+1!
LRAX OUT+1!
LRB REST+4*, AU*, OUT+1!
LRB(1 S*, AUS*
LRD OUT+1!
LRDFN REST+1*, REST+2, REST+4, S, T, E+1, N, AU, AUS, AUT
, OUT+1!
LRDPAF OUT+1!
LRE REST+3*, H+1, OUT+1!
>> LRH(0 LRAPSL1+5, REST
LRI REST+2*, REST+4, S, T, E+1, N, OUT+1!
LRM REST+3*, REST+4, S, T, AU, AUS, AUT, M*, OUT+1!
LRP H+1, OUT+1!
LRPARAM OUT+1!
LRSF OUT+1!
>> LRSS REST+2, REST+3, REST+4, S, T, E+1, N, AUS, OUT+1
>> LRSS( S, AUS, OUT+1!
LRU OUT+1!
LRWHO OUT+1!
>> LRY LRAPSL1+4
SEX OUT+1!
SSN OUT+1!
U W, REST+4, S, T, A, E, E+1, N, AU, AUS
, AUT, M
>> X REST+1*, T*, A, E*, E+1*, N*, AUT*
>> Y REST+3*, T*, A*, AUT*
>> Z T*, A, AUT*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All