Routine: LRAPL

Information

LRAPL ;SLC/BA/AVAMC/REG/CYM - ANATOMIC PATH LABELS ;2/13/98 12:27 ;

Source file <LRAPL.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: " ",LR(2)+1700 Line Location: ASK+1
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: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL" Line Location: RR+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: I+0
Function Call: WRITE	Prompt: !,S(6)," Taken: ",$$FMTE^XLFDT(LRSPECDT,"D") Line Location: P+0
Function Call: WRITE	Prompt: !,P(1)," ",SSN Line Location: P+1
Function Call: WRITE	Prompt: !,$P(S(2),"^") Line Location: P+2
Function Call: WRITE	Prompt: ! Line Location: P+2
Function Call: WRITE	Prompt: $C(7),!!,"Enter numbers only",! Line Location: HELP+0