Routine: BLRRLMUC

Information

BLRRLMUC ;IHS/MSC/MKK - Reference Lab Meaningful Use Chemistry utilities ; 25-Nov-2014 15:00 ; MKK

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	($$FIND1,FIND)^DIC UPDATE^DIE $$GET1^DIQ
Kernel	2	$$HL7TFM^XLFDT $$TRIM^XLFSTR
IHS Changes To Lab	1	$$SHL7SEGS^BLRRLMUU

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRVER3A

Entry Points

Name	Comments	DBIA/ICR reference
PV1	; EP - Don't process anything in the PV1 Segment
BLRLA7FX	; Fix for Lab Data MU2 Errors
LABSTOR(LRDFN,LRSS,LRIDT)	; Store INCOMING HL7 data into the Lab Data file
PID	; EP - Don't process anything in the PID Segment
VALID(SEGNAME)	; EP
SPM	; EP
OBX	; EP
MSH	; EP - Don't process anything in the MSH Segment
NTE	; EP - Don't process anything in the NTE Segment
OBR	; EP
ORC	; EP - Don't process anything in the PID Segment
TQ1	; EP - Don't process anything in the TQ1 Segment

Name	Field # of Occurrence
$$SHL7SEGS^BLRRLMUU	LABSTOR+6
$$FIND1^DIC	OBR+8, OBX+8, OBX+14, OBX+15
FIND^DIC	OBX+50
UPDATE^DIE	OBX+58
$$GET1^DIQ	LABSTOR+10, OBR+11, OBX+18
$$HL7TFM^XLFDT	OBR+17, OBR+20, OBX+25
$$TRIM^XLFSTR	OBX+45

FileNo	Call Tags
^DIC(4 - [#4]	FIND1^DIC
^LAB(60 - [#60]	FIND1^DIC, GET1^DIQ
^HL(779.004 - [#779.004]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.49 - [#62.49]	OBR+3, OBX+4, SPM+3
^LR - [#63]	LABSTOR+3, LABSTOR+11, LABSTOR+12, LABSTOR+16, OBR+14, OBR+23, OBR+31, OBX+9, OBX+21, OBX+26 , OBX+29, OBX+31, SPM+6*, BLRLA7FX+4, BLRLA7FX+6, BLRLA7FX+8, BLRLA7FX+9, BLRLA7FX+12!
^TMP("BLRRLMUU"	LABSTOR+20, LABSTOR+22, LABSTOR+27

Name	Line Occurrences
@(	LABSTOR+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRESS	OBX+2~, OBX+37*, OBX+38, OBX+39, OBX+40
ADDRL1	OBX+2~, OBX+38*
ADDRL2	OBX+2~, OBX+38*
ANSDTT	OBX+1~, OBX+23, OBX+24, OBX+25, OBX+26
CHAR	VALID+1~, VALID+4, VALID+5, VALID+6, VALID+7
CHNGDTT	OBR+1~, OBR+19, OBR+20, OBR+22
CITY	OBX+2~, OBX+39*
CONDSPEC	SPM+1~, SPM+5*, SPM+6
COUNTRY	OBX+2~, OBX+40*, OBX+49, OBX+50
COUNTY	OBX+2~, OBX+40*, OBX+53, OBX+56
DATANAME	LABSTOR+10, LABSTOR+11, LABSTOR+12, OBR+1~, OBR+11, OBR+12, OBR+14, OBR+23, OBX+1~, OBX+18* , OBX+19, OBX+21, OBX+26, OBX+29, OBX+31
>> DILOCKTM	LABSTOR+1, BLRLA7FX+1
>> DISYS	LABSTOR+1, BLRLA7FX+1
DNDTT	OBR+1~, OBR+22*, OBR+23
DT	LABSTOR+1, BLRLA7FX+1
DTIME	LABSTOR+1, BLRLA7FX+1
DUZ	LABSTOR+1, BLRLA7FX+1
ERRS	OBX+2~
F60IEN	OBR+1~, OBR+8, OBR+9, OBR+11, OBX+1~, OBX+14, OBX+15*, OBX+16, OBX+18
FDA	OBX+2~, OBX+55!
FDA(	OBX+56, OBX+57
HOSPITAL	OBX+2~, OBX+36*
ICOUNTRY	OBX+2~, OBX+48, OBX+51, OBX+53, OBX+57
IENS	OBX+2~, OBX+33*, OBX+56, OBX+57
IO	LABSTOR+1, BLRLA7FX+1
>> IOBS	LABSTOR+1, BLRLA7FX+1
IOF	LABSTOR+1, BLRLA7FX+1
IOM	LABSTOR+1, BLRLA7FX+1
ION	LABSTOR+1, BLRLA7FX+1
>> IOS	LABSTOR+1, BLRLA7FX+1
IOSL	LABSTOR+1, BLRLA7FX+1
IOST	LABSTOR+1, BLRLA7FX+1
>> IOT	LABSTOR+1, BLRLA7FX+1
>> IOXY	LABSTOR+1, BLRLA7FX+1
>> LR	BLRLA7FX+4*
LRDFN	LABSTOR~, LABSTOR+1, LABSTOR+3, LABSTOR+11, LABSTOR+12, LABSTOR+16, OBR+14, OBR+23, OBR+31, OBX+9 , OBX+21, OBX+26, OBX+29, OBX+31, OBX+33, SPM+6, BLRLA7FX+3*, BLRLA7FX+4, BLRLA7FX+6, BLRLA7FX+8 , BLRLA7FX+9, BLRLA7FX+12
>> LRDL	LABSTOR+1, LABSTOR+9
>> LRDN	BLRLA7FX+7, BLRLA7FX+8, BLRLA7FX+9, BLRLA7FX+12
LRIDT	LABSTOR~, LABSTOR+1, LABSTOR+3, LABSTOR+11, LABSTOR+12, LABSTOR+16, OBR+14, OBR+23, OBR+31, OBX+9 , OBX+21, OBX+26, OBX+29, OBX+31, OBX+33, SPM+6, BLRLA7FX+5, BLRLA7FX+6, BLRLA7FX+8, BLRLA7FX+9 , BLRLA7FX+12
LRSS	LABSTOR~, LABSTOR+1, LABSTOR+3, LABSTOR+9, LABSTOR+11, LABSTOR+12, LABSTOR+16, OBR+14, OBR+23, OBR+31 , OBX+9, OBX+21, OBX+26, OBX+29, OBX+31, SPM+6
>> LRTS	LABSTOR+1, LABSTOR+10
>> LRUID	LABSTOR+3*, LABSTOR+4, LABSTOR+6, LABSTOR+20, LABSTOR+22, LABSTOR+27
MDID	OBX+2~, OBX+44*
MDNAME	OBX+2~, OBX+45*
NEWSEGN	VALID+1~, VALID+3, VALID+4, VALID+5, VALID+6, VALID+7*, VALID+8
OBRIEN	OBR+1~, OBX+1~
OBSDTT	OBR+1~, OBR+16, OBR+17, OBR+22
PERFHMDS	OBX+2~, OBX+43*, OBX+44, OBX+45
>> PIEN	LABSTOR+6*, LABSTOR+9, LABSTOR+14, LABSTOR+16, OBR+3, OBX+4, SPM+3
RCTOSTR	OBR+1~, OBR+25*, OBR+26, OBR+27
REFLAB	OBX+1~, OBX+8*, OBX+9
RLPTR	OBX+1~, OBX+6*, OBX+7, OBX+8
>> SEG	LABSTOR+19, LABSTOR+20, LABSTOR+22, LABSTOR+27
>> SEGIEN	LABSTOR+26, LABSTOR+27, OBR+3, OBX+4, SPM+3
SEGNAME	LABSTOR+21, LABSTOR+22, LABSTOR+27, VALID~, VALID+3
SPMIEN	SPM+1~
STATE	OBX+2~, OBX+39*
STATUS	OBX+1~, OBX+28*, OBX+29
STR	OBR+1~, OBR+3, OBR+5, OBR+6, OBR+16, OBR+19, OBR+25, OBX+1~, OBX+4, OBX+6 , OBX+11, OBX+12, OBX+23, OBX+28, OBX+36, OBX+37, OBX+43, SPM+1~, SPM+3*, SPM+5
>> SUBSTR2	OBR+27, OBR+28, OBR+30, OBR+31
>> TARGET("DILIST"	OBX+51
TESTNAME	OBR+1~, OBR+6, OBR+8, OBX+1~, OBX+12, OBX+14
TSTLOINC	OBR+1~, OBR+5, OBX+1~, OBX+11, OBX+15, OBX+31
U	LABSTOR+1, BLRLA7FX+1
>> XPARSYS	LABSTOR+1, BLRLA7FX+1
>> XQXFLG	LABSTOR+1, BLRLA7FX+1
ZIPCODE	OBX+2~, OBX+39*

Name	Field # of Occurrence
$T(@(4)	LABSTOR+23
$T(@SEGNAME	LABSTOR+24

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLMUC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items