Routine: BHLRLABU

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

BHLRLABU ;cmi/sitka/maw - BHL ORU/R01 Ref Lab inbound Lab Message [ 04/24/2003 2:24 PM ] ; 19 Mar 2004 2:24 PM

Source Information

Source file <BHLRLABU.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS Changes To Lab	5	^BLREVTQ ($$GETIEN,SETVALS)^BLRFLTL ORU^BLRHL7 ^BLRNFLTL (INIT,JOB)^BLRPARAM
IHS Support HL7 Interfaces	3	^BHLFO (,EOJ)^BHLSETI ($$CHKDOB,$$CHKPAT)^BHLU
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
IHS Generic Interface System	1	$$HDATE^INHUT
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMB
VA Fileman	1	FILE^DICN

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Generic Interface System	1	IS00018J

Entry Points

Name	Comments	DBIA/ICR reference
PRS	;-- parse the HL7 message array
BUL	;-- file a bulletin if no test match
NTEOBR	;-- parse the NTE in the OBR segment
NTE	;-- parse the NTE segment
FILE	;-- file the data in BLRTXLOG
CPT	;-- let's build the cpt string
MAP(BHLTYPC)	;-- map the necessary incoming items to rpms
EOJ	;-- kill variables and quit
OBX	;-- parse the OBX segment
MSH	;-- get data out of MSH
CHKPAT	;-- lookup the patient by chart
MAIN	;EP -- this is the main routine driver
OBR	;-- parse the OBR segment
SNDBUL(VAR,VAR1,VAR2,VAR3,VAR4)	;-- fire a generic bulletin
RFL	;-- set the refile node in BLRSITE
TESTMAP	;

External References

Name	Field # of Occurrence
^BHLFO	MAIN+6
^BHLSETI	MAIN+1
EOJ^BHLSETI	EOJ+2
$$CHKDOB^BHLU	CHKPAT+11
$$CHKPAT^BHLU	CHKPAT+8
^BLREVTQ	RFL+3
$$GETIEN^BLRFLTL	FILE+15
SETVALS^BLRFLTL	FILE+35
ORU^BLRHL7	MAIN+5
^BLRNFLTL	FILE+37
INIT^BLRPARAM	FILE+33
JOB^BLRPARAM	MAIN+15
FILE^DICN	NTEOBR+10, NTE+11
$$HDATE^INHUT	CHKPAT+6, OBR+10, OBR+12, OBR+14, OBX+16, SNDBUL+6
$$VAL^XBDIQ1	MAP+8
EN^XBVK	EOJ+1
$$FMTE^XLFDT	BUL+4, SNDBUL+2, SNDBUL+7
^XMB	BUL+5, SNDBUL+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	FILE+10
^BLRCPT - [#9009021]	CPT+8, CPT+9
^BLRCPT("C"	CPT+4
^BLRRL - [#9009026]	TESTMAP+4, TESTMAP+5, CPT+1
^BLRRL("BTST"	TESTMAP+3
^BLRSITE - [#9009029]	MAIN+2, MAIN+5, CHKPAT+16, FILE+12
^BLRSITE("ACCT"	MSH+3
^BLRTXLOG("AHL7"	FILE+8
^DD(9009022	NTEOBR+9, NTE+9
^SC - [#44]	CHKPAT+17
^VA(200 - [#200]	MAP+2, MAP+4, MAP+6, MAP+7

Label References

Name	Line Occurrences
BUL	OBR+19, OBR+22, OBX+20, OBX+25, FILE+5, FILE+6
CHKPAT	MAIN+8
CPT	OBR+20, OBX+19
EOJ	MAIN+5, MAIN+14
FILE	OBR+20, OBX+21
MAP	OBR+16
MSH	MAIN+7
NTE	OBX+23
NTEOBR	OBR+21
OBR	PRS+1
OBX	OBR+24
PRS	MAIN+12
RFL	MAIN+13
SNDBUL	MAIN+10
TESTMAP	OBX+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BHL("NTE"	OBR+21
>> BHL("OBX"	OBR+20
BHLABN	OBR+5!, OBX+5!, OBX+15*
>> BHLACC	OBR+6, OBR+7, BUL+4
>> BHLACT	MSH+2*, MSH+3
>> BHLBILL	FILE+25*
>> BHLCCNT	CPT+6, CPT+10, CPT+11
>> BHLCDA	CPT+8*
BHLCLT	OBR+17, OBX+20, TESTMAP+2!, TESTMAP+3, TESTMAP+4, TESTMAP+5, CPT+3, CPT+4, FILE+4, FILE+6 , FILE+8
BHLCLTE	OBR+4!, OBR+9, OBX+4!, OBX+7, BUL+3
BHLCLTI	TESTMAP+2!, TESTMAP+4, TESTMAP+5, FILE+5
BHLCMT	OBX+24!, NTEOBR+11!
BHLCMT(	NTEOBR+4, NTEOBR+5, NTE+4, NTE+5
>> BHLCPT	CPT+9*, CPT+11
BHLCPTS	OBR+20!, OBX+22!, CPT+7, CPT+11
>> BHLCTST	CPT+4*, CPT+5, CPT+8, CPT+9
>> BHLDA	CHKPAT+3, CHKPAT+4, CHKPAT+5, CHKPAT+6, CHKPAT+7, CPT+9, RFL+1, RFL+2
>> BHLDOB	MAIN+10, CHKPAT+6*
>> BHLDUZ2	MSH+1, MSH+3, MSH+4*, CHKPAT+8, CHKPAT+14, CHKPAT+16, MAP+9
>> BHLERCD	CHKPAT+9, CHKPAT+12, FILE+5, FILE+6
>> BHLERR	CHKPAT+9, CHKPAT+12, FILE+5, FILE+6
>> BHLERR("FATAL"	MAIN+9, CHKPAT+10, CHKPAT+13, OBR+3, OBR+18*
>> BHLERR("WARNING"	OBR+22, OBR+23!, OBX+3, OBX+25, OBX+26!
>> BHLIEN	RFL+2*, RFL+3
>> BHLIO	FILE+23*
>> BHLLFLE	FILE+29*
>> BHLLM	FILE+22*
>> BHLLOC	CHKPAT+16*, CHKPAT+17
>> BHLLOCE	CHKPAT+17*
>> BHLLOE	CHKPAT+14, MAP+9
>> BHLNDA	NTEOBR+3, NTEOBR+4, NTEOBR+5, NTE+3, NTE+4, NTE+5
>> BHLNM	MAIN+10, CHKPAT+5*
>> BHLNOST	MAIN+1*
>> BHLOBSDT	OBR+10*, OBR+11, BUL+4
>> BHLODA	OBR+3*, OBR+6, OBR+7, OBR+8, OBR+9, OBR+10, OBR+12, OBR+13, OBR+14, OBR+15 , OBR+20, OBR+21
>> BHLODT	OBR+11*
>> BHLORDP	OBR+13*, MAP+1, MAP+2, MAP+4
>> BHLORDPE	MAP+7*
>> BHLORDPI	MAP+2, MAP+3, MAP+4, MAP+6*, MAP+7
BHLPAR	OBR+4!, OBR+15*
>> BHLPAT	CHKPAT+8, CHKPAT+9, CHKPAT+11, CHKPAT+12, MAP+8
>> BHLPHASE	FILE+13*
>> BHLPNM	MAP+8*
BHLPSEQ	OBR+4!, OBR+20*, OBR+21, OBX+19, NTEOBR+8, NTEOBR+9, CPT+2
>> BHLQSIT	FILE+10*, FILE+11, FILE+12
BHLR	CHKPAT+1~, CHKPAT+2, OBR+1~, OBR+2, OBX+1~, OBX+2, NTEOBR+1~, NTEOBR+2, NTE+1~, NTE+2* , SNDBUL+4~, SNDBUL+5*
>> BHLRAF	MSH+2
BHLREFH	OBR+4!, OBX+4!, OBX+14*, OBX+22!
BHLREFL	OBR+4!, OBX+4!, OBX+11, OBX+13, OBX+22!
BHLREFR	OBR+4!, OBX+4!, OBX+10*, OBX+11, OBX+12, OBX+13, OBX+14, OBX+22!
BHLRESDT	OBR+5!, OBR+14, OBX+5!, OBX+16
>> BHLRL	MAIN+2*, MAIN+3, TESTMAP+3, TESTMAP+4, TESTMAP+5, CPT+1
BHLRSLT	OBR+4!, OBX+4!, OBX+8*, OBX+22!, FILE+3
BHLSAF	MAIN+11!
BHLSEQ	OBR+20, NTE+8, NTE+9, FILE+4!, FILE+15*, BUL+3
BHLSEQ(	RFL+1, RFL+2
>> BHLSEX	MAIN+10, CHKPAT+7*
BHLSPAR	OBX+4!, OBX+17*
>> BHLSPC	FILE+27*
>> BHLSPCE	FILE+28*
>> BHLSPDT	OBR+12*
>> BHLSRC	FILE+26*
>> BHLSSTMP	NTE+3, NTE+5
>> BHLSTAT	FILE+24*
>> BHLSTMP	OBX+3, OBX+6, OBX+7, OBX+8, OBX+9, OBX+10, OBX+15, OBX+16, NTEOBR+3, NTEOBR+5
>> BHLTMP	CHKPAT+3, CHKPAT+4, CHKPAT+5, CHKPAT+6, CHKPAT+7, OBR+3, OBR+6, OBR+7, OBR+8, OBR+9 , OBR+10, OBR+12, OBR+13, OBR+14, SNDBUL+6, SNDBUL+8
BHLTST	OBR+4!, OBR+8, OBX+4!, OBX+6, TESTMAP+3, BUL+3
BHLTYPC	MAP~, TESTMAP+4, TESTMAP+5
>> BHLUIF	MAIN+5, MAIN+10, FILE+8
BHLUNIT	OBR+5!, OBX+4!, OBX+5!, OBX+9*, OBX+22!
>> BHLXDA	OBX+3*, OBX+6, OBX+7, OBX+8, OBX+9, OBX+10, OBX+15, OBX+16, OBX+17
BHLZDA	TESTMAP+1~, TESTMAP+3*, TESTMAP+4, TESTMAP+5
BLR	FILE+2!
>> BLRCMF	FILE+13*
>> BLRERR	FILE+13*
BLRF	FILE+2!
BLRF(0	FILE+33
BLRFDA	FILE+2!
>> BLRLINK	FILE+13*
>> BLRODTM	FILE+13*, FILE+15
>> BLRPCC	FILE+12*
>> BLRSEQ	FILE+13*, FILE+15
>> BLRTEST1	FILE+13*, FILE+15
>> BLRVARS	FILE+17, FILE+18, FILE+19, FILE+20, FILE+21, FILE+22, FILE+23, FILE+24, FILE+25, FILE+26 , FILE+27, FILE+28, FILE+29, FILE+30, FILE+31, FILE+32
>> BLRXPCC	FILE+14*
>> CS	OBR+8, OBR+9, OBX+6, OBX+7
>> DA(1	NTEOBR+9, NTE+9
DD	NTEOBR+7!, NTE+7!
DIC	NTEOBR+7!, NTEOBR+8, NTE+7!, NTE+8
DIC("P"	NTEOBR+9, NTE+9
DIC(0	NTEOBR+9, NTE+9
DO	NTEOBR+7!, NTE+7!
DUZ(2	MAIN+2, MAIN+5, MSH+1, MSH+4
>> PAT	MAIN+10, CHKPAT+4*, CHKPAT+8
U	MAIN+5, CHKPAT+16, CHKPAT+17, MAP+7, TESTMAP+4, TESTMAP+5, CPT+1, CPT+9, FILE+10, FILE+12
>> UIF	BUL+3
VAR	SNDBUL~, SNDBUL+1
VAR1	SNDBUL~, SNDBUL+1
VAR2	SNDBUL~, SNDBUL+1
VAR3	SNDBUL~, SNDBUL+2
VAR4	SNDBUL~, SNDBUL+2
VAR5	SNDBUL+4~, SNDBUL+6, SNDBUL+7, SNDBUL+9
VAR6	SNDBUL+4~, SNDBUL+8*, SNDBUL+9
>> X	NTEOBR+5, NTEOBR+6, NTE+5
>> XMB	BUL+2, SNDBUL+1
>> XMB(1	BUL+3, SNDBUL+1
>> XMB(2	BUL+3, SNDBUL+1
>> XMB(3	BUL+3, SNDBUL+1
>> XMB(4	BUL+3, SNDBUL+2
>> XMB(5	BUL+4, SNDBUL+2
>> XMB(6	BUL+4, SNDBUL+9
>> XMB(7	SNDBUL+9*

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLRLABU

Call Graph Total: 14

Caller Graph Total: 1