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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPWR

Package: Lab Service

Routine: LRAPWR


Information

LRAPWR ;AVAMC/REG - DATE/TIME SLIDES READ ;8/15/95 11:10

Source Information

Source file <LRAPWR.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
W
REST
B
S
T
A
E
N
CK
M
H
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " ",LRH(0)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRO(68)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: ASK+3
Function Call: READ
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: W+0
Function Call: WRITE
  • Prompt: END
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter a number, no leading zero's."
  • Line Location: W+1
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+2
Function Call: WRITE
  • Prompt: Q:LRK<1
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Use 'Blocks, Stains, Procedures, anat path' option to enter date slides",!,"stained. This must be done before entering date slides examined."
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !,$P(LRB,U)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !,"Data displayed ok "
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Line Location: B+4
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,$S($D(^LAB(60,C,0)):$E($P(^(0),"^"),1,25),1:C),?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: ?60,Y
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select *Stain #: "
  • Variable: LRX
  • Timeout: DTIME
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $C(7)," Select a number from 1 to ",LR
  • Line Location: E+0
Function Call: WRITE
  • Prompt: " ",$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,0),U)," ",$P(^LAB(60,C,0),U)
  • Line Location: E+1
Function Call: WRITE
  • Prompt: $C(7),!?3,"Date/time slides examined ("
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: Y,") cannot be before",!?3,"Date/time slides stained"
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Condition for execution: Y]""
  • Line Location: CK+0
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: LRM
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: @IOF,LRP," ",SSN(1)," Acc #: ",LRAC," Date: ",LRE,!?47,"Slide/Ctrl",?60,"Date Slides Examined"
  • Line Location: H+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call