Routine: LROW5

Information

LROW5 ; IHS/DIR/FJE - LAB ORDER ENTRY, WARD 2/6/91 13:59 ;

Package	Total	Call Graph
Lab Service	2	(LEND,TIME)^LROW DATE^LRWU
VA Fileman	2	^%DT ^%DTC

Package	Total	Caller Graph
Lab Service	2	LRORD LROW

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

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY - [#40.5]	NEXTCOL+4, W5+4
^LAB(69.9 - [#69.9]	NEXTCOL+1, NEXTCOL+2, NEXTCOL+3, NEXTCOL+4, W4, W4+1, W5+8, W5+9, W5+10, W5+11 , OTHER

Name	Field # of Occurrence
^(	W5+10, OTHER

Name	Field # of Occurrence
%DT	NEXTCOL+4, W5+1!
%DT("A"	W5*
%DT("B"	W4, W4+1, W5*
>> D	NEXTCOL+4*
DT	NEXTCOL+4, W5+3, W5+6, W5+7, W5+8
>> E	NEXTCOL+1*, NEXTCOL+4, W5+4
>> I	W5+8, OTHER
>> J	W5+8*, W5+9
>> LRCOL	NEXTCOL+2*, W4, W4+1
>> LRLLOC	NEXTCOL+1
>> LRLWC	NEXTCOL+1, NEXTCOL+2, NEXTCOL+3, NEXTCOL+4, W4, W5, W5+1, W5+3, W5+4, W5+5 , W5+6, W5+7, W5+8, W5+9, W5+10, W5+11
>> LRODT	W5+10*
>> LRORDTIM	W5+1*, W5+7, W5+9, W5+10, W5+11
>> LRPARAM	NEXTCOL+4, W5+4
>> LRTX	NEXTCOL+1, NEXTCOL+2, NEXTCOL+4, W4, W4+1, W5, W5+4*
>> LRTXD	NEXTCOL+4*
>> LRTXP	NEXTCOL+1*, W5+3
U	NEXTCOL+1, NEXTCOL+4, W4, W4+1, W5+3, W5+4, W5+9, W5+11, OTHER
>> X	NEXTCOL+4, W5+3, W5+5, W5+10
>> X1	W5+3*
>> X2	W5+3*
>> Y	NEXTCOL+4, W4, W4+1, W5+1, W5+2, W5+3, W5+4, W5+6, W5+7, W5+8 , W5+10, W5+11, OTHER
>> Z	W5+7*, W5+8