Routine: LROW1

Information

LROW1 ;SLC/CJS - TEST & SAMP ;8/11/97

Source file <LROW1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " no '^' allowed" Line Location: NOASK+2
Function Call: WRITE	Prompt: !,"For "_$P(^LAB(60,+LRTEST(LRTSTN),0),"^")_" " Line Location: L3+5
Function Call: WRITE	Prompt: !,"Correct sample" Line Location: L3+11
Function Call: WRITE	Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),U)," ",$P(^(0),U,3) Line Location: L3+14
Function Call: READ	Formatting: ! Prompt: "Choose one: " Variable: X Timeout: DTIME Line Location: L3+15
Function Call: WRITE	Prompt: " ",$P(^LAB(62,LRCS(LRCSN),0),U) Line Location: L3+15
Function Call: WRITE	Prompt: !,"Unknown is not allowed." Line Location: W18+0
Function Call: READ	Formatting: ! Prompt: "Select SITE/SPECIMEN: " Variable: X Timeout: DTIME Line Location: W18A+0
Function Call: WRITE	Prompt: !,"Unknown is not allowed." Line Location: W18A+1
Function Call: WRITE	Prompt: !!,$C(7),"<<DUPLICATE TEST NOT ALLOWED>>",!?5,$P(^LAB(60,+LRTEST(LRTSTN),0),"^")_" has already been requested on this order.",!! Line Location: W18B+7
Function Call: WRITE	Prompt: !," ",DIC,^(DR,0) Line Location: W18B+9