Routine: LR7OC0

Entry Points

Name	Comments	DBIA/ICR reference
CK	;Rebuild C & D -xref in 69
COUNT	;Count orders in file 69
DISP	;Display HL7 message
EN	;For a good time, enter here. Lab order conversion with KIDS.
BULL(X,XMSUB)	;Send bulletin
CHK	;Check that all lab orders were converted.
EN1	;Convert orders without KIDS
TEST(ODT,SN)	;Test HL7 message build without calling
CK1	;Check please (more validity checking). Find bad/missing ptrs to OE/RR 3.0

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Missing ptr at LRSN level to 100:LRODT:"_LRODT_" LRSN:"_LRSN Line Location: CK1+5
Function Call: WRITE	Prompt: !,"Bad ptr to 100:"_X_" LRODT:"_LRODT_" LRSN:"_LRSN Line Location: CK1+7
Function Call: WRITE	Prompt: !,"Missing ORIFN at test level:LRODT:"_LRODT_" LRSN:"_LRSN_" IFN:"_TST_">>"_X Line Location: CK1+8
Function Call: WRITE	Prompt: !!,"Valid Specimen Nodes: "_CT2 Line Location: COUNT+7
Function Call: WRITE	Prompt: !,"Total Specimen Count: "_CT1 Line Location: COUNT+8
Function Call: WRITE	Prompt: !,"Total Tests: "_CT3 Line Location: COUNT+9
Function Call: WRITE	Prompt: !,"Tests to Convert: "_CT4 Line Location: COUNT+10
Function Call: WRITE	Prompt: !!,"NO LRTMPO(""LRIFN"",LRNIFN) BUILT." Line Location: TEST+6
Function Call: WRITE	Prompt: !,^(J) Line Location: DISP+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+10
^LR - [#63]	CHK+4, CK1+4
^LRCNVRT(	EN1+5
^LRO(69 - [#69]	EN1+4, EN1+5, EN1+6, EN1+8, EN1+9, EN1+11!, CHK+3, CHK+4, CHK+5, CK1+3 , CK1+4, CK1+5, CK1+8, CK+3, CK+4, CK+5, CK+6, CK+7, COUNT+3, COUNT+5 , COUNT+6
^OR(100 - [#100]	CHK+7, CHK+8, CK1+7, COUNT+6, TEST+8
^ORD(100.99 - [#100.99]	EN1+2
^TMP(	DISP+1
^TMP("LRAP"	TEST+3!
^TMP("LRBB"	TEST+3!
^TMP("LRCH"	TEST+3!

Name	Field # of Occurrence
>> %	EN1+10
APMSG	TEST+2~
BBMSG	TEST+2~
CHMSG	TEST+2~
CONTROL	TEST+2~, TEST+4*, TEST+6, TEST+8, TEST+9
CT1	COUNT+1~, COUNT+2, COUNT+4, COUNT+8
CT2	COUNT+1~, COUNT+2, COUNT+5, COUNT+7
CT3	COUNT+1~, COUNT+2, COUNT+6, COUNT+9
CT4	COUNT+1~, COUNT+2, COUNT+6, COUNT+10
DUZ	BULL+3
>> I	DISP+1*
>> J	DISP+1*
LINK	CHK+1~
LR1	EN1+3~
LRNIFN	TEST+2~, TEST+7*
LRODT	EN1+3~, EN1+6, EN1+7, EN1+8, CHK+1~, CHK+4, CHK+5, CHK+9, CK1+1~, CK1+4* , CK1+5, CK1+7, CK1+8, TEST+2~
LRORD	EN1+3~, EN1+4, EN1+5, EN1+6, EN1+9, CHK+1~, CHK+2, CHK+3, CHK+4, CK1+1~ , CK1+2, CK1+3, CK1+4, TEST+2~
LRSN	EN1+3~, EN1+6, EN1+7, EN1+8, CHK+1~, CHK+4, CHK+5, CHK+9, CK1+1~, CK1+4* , CK1+5, CK1+7, CK1+8, TEST+2~
LRTMPO	TEST+2~
LRTMPO("LRIFN"	TEST+6, TEST+7
MSG	TEST+2~
ODT	CK+1~, CK+2, CK+3, CK+4, CK+5, CK+6, CK+7, COUNT+1~, COUNT+3*, COUNT+5 , COUNT+6, TEST~, TEST+5, TEST+6, TEST+9
ORD	COUNT+1~, COUNT+2, COUNT+3
ORIFN	CHK+9, CK1+1~, CK1+4, CK1+5, CK1+6, CK1+7
>> ORX4	CHK+9*
SN	CK+1~, CK+3, CK+4, CK+5, CK+6, CK+7, COUNT+1~, COUNT+3, COUNT+5, COUNT+6 , TEST~, TEST+5, TEST+6, TEST+9
SUBHEAD	EN1+3~
>> T0	CHK+5*, CHK+7, CHK+8, CHK+9
TST	EN1+3~, CHK+1~, CHK+5, CK1+1~, CK1+8, COUNT+6*
X	EN1+3~, EN1+14, CHK+8, CK1+4, CK1+7, CK1+8, CK+1~, CK+3, CK+4, CK+6* , CK+7, COUNT+1~, BULL~, TEST+2~, TEST+7, TEST+8
X(1	EN1+12*
X(2	EN1+13*
X0	CHK+1~, CHK+4*, CHK+9
X3	COUNT+1~, COUNT+6*
>> XMDUZ	BULL+3*
XMSUB	BULL~
>> XMTEXT	BULL+3*
>> XMY(	BULL+3*
>> Y	EN1+10*, EN1+12
>> ZTDTH	EN+2*
>> ZTIO	EN+2*
>> ZTRTN	EN+2*
ZTSK	EN1+13, EN1+15!

Name	Field # of Occurrence
$T(MSG^XQOR	TEST+1