Routine: BHLRLABU

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	IS00018J

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	;

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

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

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

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: