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

Package: Lab Service

Routine: LRAPSL


Information

LRAPSL ;AVAMC/REG/CYM - ANATOMIC PATH SLIDE LABELS ;2/13/98 13:41 ;

Source Information

Source file <LRAPSL.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
R
RR
QUE
C
W
S
T
P
X
AU
AUT
CK
HELP
END
SET

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: !!,"Reprint slide labels "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Add/Delete slide labels to print "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Print ",LRO(68)," slide labels for ",LRY+1700
  • Line Location: ASK+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Start with accession number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to accession number: LAST// "
  • Variable: LR(4)
  • Timeout: DTIME
  • Line Location: RR+0
Function Call: WRITE
  • Prompt: $C(7),?20,"There are no labels to print"
  • Line Location: RR+3
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRABV,?10,LRABV,?20,LRABV,?30,LRABV,?40,LRABV,?50,LRABV
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?B*10,$S($D(^TMP($J,A,B+1,C)):^(C),1:"")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LR(12),?10,LR(12),?20,LR(12),?30,LR(12),?40,LR(12),?50,LR(12)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!
  • Line Location: HELP+0
Info |  Source |  Entry Points |  Interaction Calls