Routine: LROW5

Information

LROW5 ;SLC/CJS - LAB ORDER ENTRY, WARD ;2/6/91 13:59 ;

Source file <LROW5.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?7,$C(7),"Routine Lab Collect is not available ",! Line Location: NEXTCOL+3
Function Call: WRITE	Prompt: !,"Next collection order cut-off time at " Line Location: W4+0
Function Call: WRITE	Prompt: !,"Next collection order cut-off ",LRTX," at " Line Location: W4+1
Function Call: WRITE	Prompt: !!?7,$C(7),"Please enter a date, ie. 4/1/90",!! Line Location: W5+2
Function Call: WRITE	Prompt: !,"Can't order for that date.",$C(7) Line Location: W5+3
Function Call: WRITE	Prompt: !,"That's ",$P(^HOLIDAY(Y,0),U,2),"!",$C(7) Line Location: W5+4
Function Call: WRITE	Prompt: !,"Can't order more than ",$S(LRLWC="LC":"one week",1:"12 months")," ahead!!",$C(7) Line Location: W5+5
Function Call: WRITE	Prompt: !,"Can't order in the past!!",$C(7) Line Location: W5+6
Function Call: WRITE	Prompt: !,"Can't order in the past!!",$C(7) Line Location: W5+7
Function Call: WRITE	Prompt: !,"Order cut-off time is expired." Line Location: W5+8
Function Call: WRITE	Prompt: !,"Too late to make collection." Line Location: W5+9
Function Call: WRITE	Prompt: !,"Routinely collected at approximately: " Line Location: W5+11
Function Call: WRITE	Prompt: !!,?5,"Collection order cut-off times: " Line Location: OTHER+0
Function Call: WRITE	Prompt: ?38 Line Location: OTHER+0
Function Call: WRITE	Prompt: ?38 Line Location: OTHER+0
Function Call: WRITE	Prompt: ?38 Line Location: OTHER+0