Routine: LROW2

Package	Total	Call Graph
Lab Service	4	$$VER^LR7OU1 SET^LROR RCS^LRORD2 DUP^LROW2A
Kernel	2	^%ZIS ^%ZISC
IHS Changes To Lab	1	ASKATORD^BLRAAORU
Order Entry Results Reporting	1	RETURN^ORX

Package	Total	Caller Graph
Lab Service	18	LR7OF1 LR7OFAO LRCONJAM LRFAST LRHYPH2 LRMIBL LROE1 LROE2 LROR6B LROR8 LRORD1 LRORD1GU LROW LROW1A LROW2A LRQCLOG LRSLOW LRVRPOC
IHS Changes To Lab	1	BLRAG05D
IHS Laboratory Point of Care	1	BLRPOC2

Entry Points

Name	Comments	DBIA/ICR reference
OR	;OE/RR 2.5 ; Q ;Following logic not required - 2.5 is obsolete version
REST	;from LRFAST, LROE1, LROW
NEXT	; EP
PAST	; EP
BAD	;from LROE1	ICR #5593 Status: Active Usage: Private
COL
DUPL	;from LROW1
C2
ORDER	;from LRMIBL, LROE1, LRORD1, LRQCLOG	ICR #5593 Status: Active Usage: Private
CHECK	;from LROE1	ICR #5593 Status: Active Usage: Private
TCOM	;from LROW1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The ORDER NUMBER is in use, contact the site manager.",$C(7),!,"This order has been CANCELED, you will need to re-order.",! Line Location: BAD+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: BAD+1
Function Call: WRITE	Prompt: !,"Since this test, collection sample, and site/specimen has already",!,"been requested on this order, it will NOT be duplicated.",$C(7),!,"If you really need a duplicate, place a separate order." Line Location: DUPL+1
Function Call: WRITE	Prompt: !,LRCCOM Line Location: TCOM+1
Function Call: READ	Timeout: DTIME Variable: % Line Location: TCOM+5
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: TCOM+5
Routine Call	%ZIS Line Location: REST+1

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TCOM+1
^LAB(61 - [#61]	TCOM+1
^LAB(62 - [#62]	TCOM+1
^LRO(69 - [#69]	COL, ORDER+2, NEXT+1, NEXT+2*, CHECK+1, C2

Name	Field # of Occurrence
^(0	C2, TCOM+1
^(2	ORDER+2*

Name	Field # of Occurrence
>> %	%*
%ZIS	REST+1!*
%ZIS("A"	REST+1*
>> D	CHECK+1*, C2
DT	ORDER+2
DTIME	%
>> DTOUT	%*
DUZ	COL
IOF	PAST+3, BAD+1
ION	REST+1
IOP	REST+1*!
IOST	PAST+3, BAD+1
>> J	PAST+1, NEXT+3, C2*
>> LRADDTST	REST+3*, PAST+1
>> LRCCOM	TCOM+1*
>> LRCS	PAST+1*
>> LRDFN	C2
>> LREND	DUPL+1*
>> LRI	OR+4
>> LRLLOC	REST+2*
>> LRNCWL	REST+1
>> LRODT	COL, OR+5
>> LRORD	REST+3, PAST+6, NEXT+1, NEXT+2, NEXT+5, CHECK+1, C2
>> LRORDER	REST+1*
>> LRORIFN	OR+4*, OR+5
>> LRQUIET	NEXT+4
>> LRSAMP	TCOM+1
>> LRSN	COL, OR+5
>> LRSNO	REST+2
>> LRSPEC	PAST+2*, TCOM+1
>> LRSSP	REST+2, PAST+2
>> LRTEST(	TCOM+1, OR+4*
>> LRTN	OR+5
>> LRTSTN	TCOM+1
LRXS	PAST+1!
LRXS(	PAST+1*, PAST+2
>> LRXST(	PAST+1
LRYR	ORDER+1~, ORDER+2*, NEXT+1, NEXT+2
>> ORETURN("ORPK"	OR+5*
>> ORIFN	OR+5*
>> POP	REST+1
>> S	C2*
>> T	PAST+1*
U	COL, REST+2, TCOM+1
>> ZTQUEUED	PAST+6, NEXT+5, NEXT+6
>> ZTREQ	NEXT+6*