Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls