Routine: BHLRLABR

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

Package	Total	Caller Graph
IHS Generic Interface System	1	IS00021J

Name	Comments	DBIA/ICR reference
OBX	;-- parse the OBX segment
BUL	;-- file a bulletin if no test match
NTEOBR	;-- nte obr segment
NTE	;-- parse the NTE segment
FILE	;-- file the data in BLRTXLOG
RORC	;-- remove orc segments from messge
CPT	;-- let's build the cpt string
MAP(BHLTYPC)	;-- map the necessary incoming items to rpms
EOJ	;-- kill variables and quit
PRS	;-- parse the HL7 message array
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)
RFL	;-- set the refile node in BLRSITE
TESTMAP	;

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

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	FILE+10
^BHLTMP($J	RORC+9*, RORC+12, RORC+13
^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+14, FILE+12
^BLRSITE("ACCT"	MSH+3
^BLRTXLOG("AHL7"	FILE+8
^DD(9009022	NTE+8
^INTHU - [#4001]	RORC+3, RORC+5, RORC+6!, RORC+9, RORC+10!, RORC+13*
^SC - [#44]	CHKPAT+15
^VA(200 - [#200]	MAP+2, MAP+4, MAP+6, MAP+7

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLRLABR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: