Routine: BHLRLABS

Customize PDF page

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

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

Information

BHLRLABS ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ; 08 Nov 2005 11:41 AM

Source Information

Source file <BHLRLABS.m>

Call Graph

Call Graph Total: 16

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

Entry Points

Name	Comments	DBIA/ICR reference
PV1	;-- pat the PV1 segment
MAP	;-- map the necessary incoming items to rpms
PRS	;-- parse the HL7 message array
NTEOBR(ODA,BHLSNGL)	;-- 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
EOJ	;-- kill variables and quit
FILENTE	;-- file the NTE segments
OBX	;-- parse the OBX segment
TESTMAP	;
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
BUL	;-- file a bulletin if no test match

External References

Name	Field # of Occurrence
^BHLFO	MAIN+6
$$LZERO^BHLPID	MAP+2
^BHLSETI	MAIN+1
EOJ^BHLSETI	EOJ+2
$$CHKDOB^BHLU	CHKPAT+13
$$CHKPAT^BHLU	CHKPAT+10
^BLREVTQ	RFL+3
$$GETIEN^BLRFLTL	FILE+16
SETVALS^BLRFLTL	FILE+38
ORU^BLRHL7	MAIN+5
^BLRNFLTL	FILE+40
INIT^BLRPARAM	FILE+36
JOB^BLRPARAM	MAIN+13
FILE^DICN	NTEOBR+14, FILENTE+7
$$GET1^DIQ	PV1+13, PV1+14
$$HDATE^INHUT	CHKPAT+8, OBR+10, OBR+12, OBR+14, OBX+17, SNDBUL+6
$$VAL^XBDIQ1	MAP+9
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+11
^BLRCPT - [#9009021]	CPT+8, CPT+9
^BLRCPT("C"	CPT+4
^BLRRL - [#9009026]	CHKPAT+18, TESTMAP+4, CPT+1
^BLRRL("BTST"	TESTMAP+1
^BLRSITE - [#9009029]	MAIN+2, MAIN+5, FILE+13
^BLRTXLOG("AHL7"	FILE+8
^BMS4(90230.2	PV1+10, PV1+12
^DD(9009022	NTEOBR+13, FILENTE+6
^SC - [#44]	CHKPAT+19
^VA(200 - [#200]	MAP+3, MAP+7, MAP+8

Label References

Name	Line Occurrences
BUL	OBR+19, OBX+19, OBX+22, OBX+27, FILE+5, FILE+6, FILE+17, FILE+18
CHKPAT	MAIN+7
CPT	OBR+20, OBX+21
EOJ	MAIN+5, MAIN+12
FILE	OBR+20, OBX+23
FILENTE	NTE+8
MAP	OBR+16
NTE	OBX+25
NTEOBR	OBR+21, OBR+22
OBR	PRS+2
OBX	OBR+25
PRS	MAIN+10
PV1	PRS+1
RFL	MAIN+11
SNDBUL	MAIN+9
TESTMAP	OBX+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BHL("OBX"	OBR+20
>> BHL("ORC"	MAP+1
BHLABN	OBR+5!, OBX+5!, OBX+16*
>> BHLACC	OBR+6, OBR+7, BUL+4
>> BHLBILL	FILE+27*
BHLCCNT	NTEOBR+1!, NTEOBR+2, NTEOBR+6, NTEOBR+7, NTEOBR+9, NTE+1, NTE+5, NTE+6, NTE+7, CPT+6* , CPT+10*, CPT+11
BHLCDA	FILENTE+1~, FILENTE+2, FILENTE+3, CPT+8
BHLCLT	OBR+5!, OBR+17, OBX+5!, OBX+22, TESTMAP+4*, CPT+3, CPT+4, FILE+4, FILE+6, FILE+8 , FILE+18
BHLCLTE	OBR+4!, OBR+9, OBX+4!, OBX+7, BUL+3
>> BHLCLTI	TESTMAP+1*, TESTMAP+3, TESTMAP+4, FILE+5, FILE+17
BHLCMT	OBR+21!, OBX+26!, FILENTE+8!
BHLCMT(	NTEOBR+6, NTEOBR+7, NTE+5, NTE+6, FILENTE+2, FILENTE+3
>> BHLCPT	CPT+9*, CPT+11
BHLCPTS	OBR+20!, OBX+24!, CPT+7, CPT+11
>> BHLCTST	CPT+4*, CPT+5, CPT+8, CPT+9
>> BHLDA	CHKPAT+3, CHKPAT+5, CHKPAT+7, CHKPAT+8, CHKPAT+9, CPT+9, RFL+1, RFL+2
>> BHLDOB	MAIN+9, CHKPAT+8*
BHLDTA	PV1+6~, PV1+7*, PV1+8, PV1+10
BHLDTAI	PV1+9~, PV1+10*, PV1+11, PV1+12, PV1+13, PV1+14
>> BHLERCD	CHKPAT+11, CHKPAT+14, FILE+5, FILE+6, FILE+17, FILE+18
>> BHLERR	CHKPAT+11, CHKPAT+14, FILE+5, FILE+6, FILE+17, FILE+18
>> BHLERR("FATAL"	MAIN+8, CHKPAT+12, CHKPAT+15, OBR+18*
>> BHLERR("WARNING"	OBR+24!, OBX+3, OBX+27, OBX+28!
>> BHLIEN	RFL+2*, RFL+3
>> BHLIO	FILE+25*
>> BHLLFLE	FILE+31*
>> BHLLM	FILE+24*
>> BHLLOC	CHKPAT+18*, CHKPAT+19
>> BHLLOCE	CHKPAT+19*
>> BHLLOE	CHKPAT+16, MAP+10
>> BHLNDA	NTEOBR+5, NTEOBR+7, NTE+4, NTE+6
>> BHLNM	MAIN+9, CHKPAT+7*
>> 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, OBR+22, NTEOBR+5, NTEOBR+7
>> BHLODT	OBR+11*
>> BHLORDP	OBR+13, MAP+1, MAP+2*, MAP+3
>> BHLORDPE	MAP+8*
>> BHLORDPI	MAP+3, MAP+7, MAP+8
BHLPAR	OBR+4!, OBR+15*
>> BHLPAT	CHKPAT+10, CHKPAT+11, CHKPAT+13, CHKPAT+14, MAP+9
BHLPCLN	PV1+5!, PV1+12*
BHLPCLNE	PV1+5!, PV1+13*
BHLPDA	PV1+3~, PV1+4*, PV1+7
BHLPFTS	PV1+5!, PV1+14*
>> BHLPHASE	FILE+14*
>> BHLPNM	MAP+9*
BHLPSEQ	OBR+4!, OBR+20*, OBR+21, OBR+22, OBX+21, NTEOBR+12, NTEOBR+13, CPT+2
>> BHLQSIT	FILE+11*, FILE+12, FILE+13
BHLR	CHKPAT+1~, CHKPAT+2, PV1+1~, PV1+2, OBR+1~, OBR+2, OBX+1~, OBX+2, NTEOBR+3~, NTEOBR+4* , NTE+2~, NTE+3, SNDBUL+4~, SNDBUL+5
BHLREFH	OBR+4!, OBX+4!, OBX+15*, OBX+24!
BHLREFL	OBR+4!, OBX+4!, OBX+12, OBX+14, OBX+24!
BHLREFR	OBR+4!, OBX+4!, OBX+11*, OBX+12, OBX+13, OBX+14, OBX+15, OBX+24!
BHLRESDT	OBR+5!, OBR+14, OBX+5!, OBX+17
>> BHLRL	MAIN+2*, MAIN+3, CHKPAT+18, TESTMAP+1, TESTMAP+4, CPT+1
BHLRSLT	OBR+4!, OBX+4!, OBX+8*, OBX+24!, FILE+2
BHLSEQ	OBR+20, FILENTE+5, FILENTE+6, FILE+4!, FILE+16*, BUL+3
BHLSEQ(	RFL+1, RFL+2
>> BHLSEX	MAIN+9, CHKPAT+9*
BHLSNGL	NTEOBR~, NTEOBR+10
BHLSPAR	OBX+4!, OBX+18*
>> BHLSPC	FILE+29*
>> BHLSPCE	FILE+30*
>> BHLSPDT	OBR+12*
>> BHLSRC	FILE+28*
>> BHLSSTMP	NTE+4, NTE+6
>> BHLSTAT	FILE+26*
>> BHLSTMP	OBX+3, OBX+6, OBX+7, OBX+8, OBX+10, OBX+11, OBX+16, OBX+17
>> BHLTMP	CHKPAT+3, CHKPAT+5, CHKPAT+7, CHKPAT+8, CHKPAT+9, PV1+4, PV1+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, OBX+19, TESTMAP+1, BUL+3
>> BHLUIF	MAIN+5, MAIN+9, FILE+8
BHLUNIT	OBR+5!, OBX+4!, OBX+5!, OBX+10*, OBX+24!
>> BHLXDA	OBX+3*, OBX+6, OBX+7, OBX+8, OBX+10, OBX+11, OBX+16, OBX+17, OBX+18
BLR	FILE+10!
>> BLRCMF	FILE+14*
>> BLRERR	FILE+14*
BLRF	FILE+10!
BLRF(0	FILE+36
BLRFDA	FILE+10!
>> BLRLINK	FILE+14*
>> BLRODTM	FILE+14*, FILE+16
>> BLRPCC	FILE+13*
>> BLRSEQ	FILE+14*, FILE+16
>> BLRTEST1	FILE+14*, FILE+16
>> BLRVARS	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, FILE+33, FILE+34, FILE+35*
>> BLRXPCC	FILE+15*
>> CS	PV1+7, OBR+8, OBR+9, OBX+6, OBX+7
>> DA(1	NTEOBR+13, FILENTE+6
DD	NTEOBR+11!, FILENTE+4!
DIC	NTEOBR+11!, NTEOBR+12, FILENTE+4!, FILENTE+5
DIC("P"	NTEOBR+13, FILENTE+6
DIC(0	NTEOBR+13, FILENTE+6
DO	NTEOBR+11!, FILENTE+4!
DUZ(2	MAIN+2, MAIN+5, CHKPAT+10, CHKPAT+16, MAP+10
>> INV("NTE3"	OBR+21, OBR+22, NTEOBR+5, NTEOBR+7
ODA	NTEOBR~
>> PAT	MAIN+9, CHKPAT+5, CHKPAT+6, CHKPAT+10
U	MAIN+5, CHKPAT+18, CHKPAT+19, PV1+12, MAP+1, MAP+8, TESTMAP+4, CPT+1, CPT+9, FILE+11 , FILE+13
>> 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+7, NTEOBR+8, NTE+6, FILENTE+3*
>> 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: BHLRLABS

Call Graph Total: 16