Routine: LRNODRAW

Information

LRNODRAW ;SLC/CJS - PRINT LIST OF NON-DRAW ORDERS ;8/11/97

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10," You may enter 'ALL' as a response",! Line Location: LRNODRAW+2
Function Call: READ	Variable: % Timeout: DTIME Line Location: END+1
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!,"LIST OF PATIENT LAB ORDERS NOT DRAWN "_Y Line Location: GO+0
Function Call: WRITE	Prompt: ?60,Y Line Location: GO+0
Function Call: WRITE	Prompt: !,"REPORT EMPTY" Line Location: GO+3
Function Call: WRITE	Prompt: !,"Finished",! Line Location: GO+4
Function Call: WRITE	Prompt: !!,PNM,?40,SSN,!,"LOCATION: ",LRLLOC,?30,"NON-DRAW",?40,"Order: ",^LRO(69,LRODT,1,LRSN,.1) Line Location: PRN+2
Function Call: WRITE	Prompt: !,"TESTS: " Line Location: PRN+3
Function Call: WRITE	Prompt: ?9,$P(^LAB(60,+X,0),U) Line Location: PRN+6
Function Call: WRITE	Prompt: " Accessioned "_Y Line Location: PRN+7
Function Call: WRITE	Prompt: !?9,"COMBINED WITH ORDER # "_LRCOMB Line Location: PRN+8
Function Call: WRITE	Prompt: !?9,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^") Line Location: PRN+9
Function Call: WRITE	Prompt: ! Line Location: PRN+10