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

Package: Lab Service

Routine: LRAPST


Information

LRAPST ;AVAMC/REG - TISSUE STAIN LOOK-UP ;8/12/95 14:15 ;

Source Information

Source file <LRAPST.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 4 ^LRAP  (,AU)^LRAPST1  ^LRDPA  (D,V,YN)^LRU  
Kernel 1 ^%ZIS  
VA FileMan 1 DD^%DT  

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

Package Total Caller Graph
Lab Service 9 LRAPBS  LRAPBS1  LRAPCWK  LRAPSA  LRAPSL  LRAPST  LRAPST1  LRAPWE  
LRAPWR  

Entry Points

Name Comments DBIA/ICR reference
GETP
I
ACC
OK
GOT
EN
SP
T
W
P
WT
SEL
H
M
S ;called by LRAPBS,LRAPSA,LRAPSL,LRAPWR
SP1
CY1
EM1
AU1
END

External References

Name Field # of Occurrence
DD^%DT SP
^%ZIS EN
^LRAP LRAPST+2
^LRAPST1 EN+2
AU^LRAPST1 I
^LRDPA GETP
D^LRU I+2, EN+1, T, W
V^LRU END
YN^LRU WT, SEL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+0
Function Call: WRITE
  • Prompt: !,"No ",LRO(68)," specimens entered"
  • Line Location: I+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: !?11,"Choose Count #(1-",C,"): "
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!!
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: " Doesn't exist for ",LRP
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,$P(LRB,U)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L($P(LRB,U))>29
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: ?30,Y,?50,$P($P(LR(1),Z,2),";")
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !,LRSS(LRSS,E)
  • Condition for execution: F=1
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?3,$P(LRB(1),U),?21,"Stain/Procedure"
  • Line Location: T+0
Function Call: WRITE
  • Prompt: ?59,Y
  • Condition for execution: Y]""
  • Line Location: T+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?16,$S($D(^LAB(60,C,0)):$P(^(0),U),1:C),?47
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $J(X,5)
  • Condition for execution: X
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?52,"/",Z
  • Condition for execution: Z
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?59,Y
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Specimen(s)",?30,"Count #",?40,"Accession #",?55,"Date"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,"More accessions "
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: $C(13),$J("",30),$C(13)
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: !?30,"(",$J(C,2),")",?40,$J(LREP,7),?55,Y
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: @IOF,LRP," ",SSN(1)," Acc #: ",LREP," Date: ",LRY
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?34,"Date Gross Description/Cutting Type"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?46,$S("AUSPCY"[LRSS:"Slide/Ctrl",1:"Count"),?57,"Last "
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $S(LRSS="EM":"section",1:"stain")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "/block"
  • Condition for execution: "AUSPEM"[LRSS
  • Line Location: H+1
Function Call: WRITE
  • Prompt: " date"
  • Line Location: H+1
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: LRM
  • Timeout: DTIME
  • Line Location: M+0
Routine Call
  • %ZIS
  • Line Location:
    • EN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] W
^LR - [#63] I+2, GOT, EN+3, SP+1, T+1, SEL+1

Label References

Name Line Occurrences
@( S+1
ACC ACC+1, OK
EN I
END LRAPST+2, GETP
GETP GETP
H EN+2, M
I GETP
M EN+3, SP+1, T+1
P I+2
S LRAPST+2
SEL I+2
SP EN+3
T SP+1
W T+1
WT I+2

Naked Globals

Name Field # of Occurrence
^( I+2, EN+3, SP+1, T+1, SEL+1
^(0 W, SEL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WT*, SEL+1*
>> A I*, EN+3*, SP+1, T+1, SEL+1*
>> B SP+1*, T+1
>> C I+2*, I+3, ACC, T+1*, W, WT, SEL
DTIME ACC, M
>> E I+1*, I+2, SP+1*, T, T+1, WT*
>> F SP+1*, T
IOF EN, H
>> IOP EN*
IOSL EN+3, SP+1, T+1
>> LR(1 SP
>> LRA GOT*, EN+1
>> LRABV I+2
>> LRB EN+3*, SP
>> LRB(1 SP+1*, T
>> LRDFN GETP, I+2, GOT, EN+3, SP+1, T+1, SEL+1
LREP I+2*, EN+1!*, SEL, H
LREP( I+2*, OK, GOT
>> LRF SP, H
>> LRI I+1*, I+2*, GOT*, EN+3, SP+1, T+1, SEL+1
>> LRM EN+2*, EN+3, SP+1, T+1, M*
>> LRO(68 I+3
>> LRP OK, H
>> LRSS I, I+2, GOT, EN+2, EN+3, SP+1, T, T+1, SEL+1, H+1
, S+1
>> LRSS( T
>> LRSS("AU" AU1*
>> LRSS("CY" CY1*
>> LRSS("EM" EM1*
>> LRSS("SP" SP1*
>> LRST I+2*, SEL+1*
>> LRTK GOT*
>> LRW EN+1*
>> LRY EN+1*, H
>> SSN(1 H
U I+2, ACC, EN+1, EN+3, SP, SP+1, T, T+1, W, SEL+1
, M
>> X I+2*, ACC*, ACC+1, OK, GOT, T+1*, W
>> Y LRAPST+2, I+2*, EN+1*, SP*, T*, T+1*, W*, SEL
>> Z SP*, T+1*, W
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All