Routine: LROR6

Package	Total	Call Graph
Lab Service	4	$$VER^LR7OU1 C^LROR3 EDITUR^LROR6A EN^LROR9
VA Fileman	2	YN^DICN ^DIR
Order Entry Results Reporting	1	($$DC,$$NA)^ORX1

Package

Total

Call Graph

$$VER^LR7OU1 C^LROR3 EDITUR^LROR6A EN^LROR9

YN^DICN ^DIR

($$DC,$$NA)^ORX1

Package	Total	Caller Graph
Lab Service	13	LR7OF0 LRCENDE1 LRCENDEL LRFAST LRHY22 LROR LROW3 LRPHITE1 LRPHSET2 LRTSTJAM LRTSTOUT LRTSTSET LRVRPOCU
IHS Changes To Lab	2	BLRRLTAR BLRSGNSP

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
AGAIN
DC1(REASON,TEXT)	;Set HL7 String for DC Reason
EN	;OE/RR 2.5 Nature of Order processes
DC(REQ,STAT)	;DC reason
EDIT	;Edit orders for OE/RR 2.5
NEW1(NATURE)	;Set HL7 String for Nature of Order
OT	;OE/RR 2.5 Natuer of Order processing
NEW(REQ)	;Get Nature of order

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This Cancellation Reason will ONLY remove the accession.",!,"The Doctor's original order will NOT be canceled, so that it may be" Line Location: AGAIN+2
Function Call: WRITE	Prompt: !,"re-accessioned at a later time. OK" Line Location: AGAIN+3
Function Call: WRITE	Prompt: !!,"You may enter a different Cancellation Reason, if you wish.",! Line Location: AGAIN+6
Function Call: WRITE	Prompt: !!,"Released laboratory orders are UNEDITABLE." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"You may use this action to ADD a test to the existing lab order number." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"NATURE OF ORDER/CHANGE must be entered",$C(7),! Line Location: OT+12
Routine Call	DIR Line Location: OT+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	DC+5
^LAB(69.9 - [#69.9]	DC+6, NEW+6
^ORD(100.02 - [#100.02]	NEW1+4
^ORD(100.03 - [#100.03]	DC1+5
^XUSEC("LRLAB"	OT+9

Name	Line Occurrences
AGAIN	AGAIN+1
OT	OT+12

Name	Field # of Occurrence
>> %	AGAIN+5*, AGAIN+6
>> BLRGUI	NEW+6
DEF	DC+4~, DC+6, AGAIN, NEW+3~, NEW+6
DIR	OT+11!
DIR("?"	OT+1, OT+2, OT+3, OT+4, OT+5, OT+6, OT+7*
DIR("A"	OT+8*
DIR("B"	OT+9*
DIR(0	OT+10*
DUZ	OT+9
>> I	EDIT+1*
>> LRMSTATI	AGAIN+1*
>> LRNATURE	AGAIN, NEW+6
LRODT	EDIT+1*, EDIT+4!
LRSN	EDIT+1*, EDIT+4!
LRSX	EDIT+4!
NATURE	NEW1~, NEW1+3, NEW1+4
OK	DC+4~, AGAIN+1, AGAIN+5
ORACTION	EDIT+3~
>> OREND	EN+2*
>> ORGY	EN+2
>> ORNATR	OT+11*
>> ORNDO	EDIT+3*
ORPARAM	EDIT+3~
>> ORPK	EDIT+1
>> ORSTS	EN+1, EDIT+2
PKG	DC+4~, DC+5*, AGAIN
R	DC+4~
REASON	DC1~, DC1+4, DC1+5
REQ	DC~, AGAIN, NEW~, NEW+6
STAT	DC~, AGAIN+1
TEXT	DC1~, DC1+5
X	DC+4~, AGAIN, AGAIN+1, DC1+5~, DC1+6, NEW+3~, NEW+6, NEW1+4~, NEW1+5, EDIT+2*
>> Y	OT+11, OT+12

Information