Routine: LRAPSL

Information

LRAPSL ;AVAMC/REG/CYM - ANATOMIC PATH SLIDE LABELS; Jan 15, 2025@01:48

Source file <LRAPSL.m>

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