Routine: BHLBCH

Package	Total	Call Graph
Health Level Seven	1	($$FMDATE,$$FMNAME)^HLFNC
IHS Support HL7 Interfaces	1	START^BHLBCH1
IHS VA Utilities	1	^XBKVAR
Kernel	1	$$STRIP^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
Z01	;
PID	;
START	; ENTRY POINT from HL7 protocol
INIT	;
OBX	;
MSH	;
DEBUG	; EP - PROGRAMMER DEBUGGING
OBR	;
FILING	; ; N SEG F SEG="PID","OBR","OBX","Z01" I '$D(BHLBCH(SEG)) S BHLERR=$S(BHLERR="":"",1:",")_SEG ; I BHLERR'="" S BHLQUIT=1,HLERR="MISSING MESSAGE SEGMENT(S): "_BHLERR D EOJ^BHLBCH1 Q

External References

Name	Field # of Occurrence
START^BHLBCH1	FILING+3
$$FMDATE^HLFNC	PID+6, OBR+8, OBX+16
$$FMNAME^HLFNC	PID+4
^XBKVAR	DEBUG+1
$$STRIP^XLFSTR	OBR+9

Used in HL7 Interface

HL7 Protocol Name	Call Tags
BCH HL7 ORU

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OBX+16

Label References

Name	Line Occurrences
@(	START+3
FILING	START+4
INIT	START+2
START	DEBUG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BHLBCH	INIT+1!
BHLBCH("DEMO"	MSH+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+9, PID+10, Z01+2*
BHLBCH("MSH"	MSH+1*
BHLBCH("MSR"	OBX+17*
BHLBCH("OBR C	NT" , OBR+2, OBR+4, OBR+5, OBR+6, OBX+3, OBX+7, INIT+6
BHLBCH("OBR"	OBR+1*
BHLBCH("OBX C	NT" , OBX+11, OBX+17, INIT+6
BHLBCH("OBX"	OBX+1*
BHLBCH("PID"	PID+1*
BHLBCH("POV"	OBR+4, OBR+5, OBR+6, OBX+3, OBX+7*
BHLBCH("REC"	OBR+7, OBR+8, OBR+9, Z01+3, Z01+4, Z01+5, Z01+6, Z01+7, Z01+8, Z01+9* , Z01+10, Z01+13
BHLBCH("TRANS"	MSH+4, Z01+11, Z01+12*
BHLBCH("Z01"	Z01+1*
BHLCS	PID+5, PID+10, OBR+4, OBX+7, OBX+13, OBX+15, Z01+2, Z01+3, Z01+4, Z01+6 , Z01+7, Z01+11, Z01+12, INIT+1!, INIT+4*
>> BHLDATA	START+3, MSH+2, MSH+3, MSH+4, PID+2*, PID+4, PID+5, PID+6, PID+7, PID+8 , PID+9, PID+10, OBR+3, OBR+4, OBR+5, OBR+6, OBR+8, OBR+9, OBX+2, OBX+3 , OBX+6, OBX+7, OBX+10, OBX+13, OBX+14, Z01+2, Z01+3, Z01+4, Z01+5, Z01+6 , Z01+7, Z01+8, Z01+9, Z01+10, Z01+11, Z01+12, Z01+13
>> BHLERR	INIT+2*
BHLFS	START+3, MSH+2, MSH+3, MSH+4, PID+2, PID+4, PID+5, PID+6, PID+7, PID+8 , PID+9, PID+10, OBR+3, OBR+4, OBR+5, OBR+6, OBR+8, OBR+9, OBX+2, OBX+3 , OBX+6, OBX+7, OBX+10, OBX+13, OBX+14, Z01+2, Z01+3, Z01+4, Z01+5, Z01+6 , Z01+7, Z01+8, Z01+9, Z01+10, Z01+11, Z01+12, Z01+13, INIT+1!, INIT+4*
>> BHLQUIT	INIT+2*
>> BHLR	INIT+2*
>> BHLSEG	START+3*
DUZ(0	DEBUG+1
>> HL("ECH"	INIT+3, DEBUG+3*
>> HL("FS"	INIT+4, DEBUG+4*
>> HLECH	PID+4, INIT+3*, INIT+4
>> HLNEXT	START+3, INIT+7*
>> HLNODE	START+3
>> HLQUIT	START+3, INIT+5*
TYPE	OBX+12~, OBX+13*, OBX+16, OBX+17
U	MSH+3, MSH+4, PID+4, PID+5, PID+6, PID+7, PID+8, PID+9, PID+10, OBR+4 , OBR+5, OBR+6, OBR+8, OBR+9, OBX+3, OBX+7, OBX+17, Z01+2, Z01+3, Z01+4 , Z01+5, Z01+6, Z01+7, Z01+8, Z01+9, Z01+10, Z01+11, Z01+12, Z01+13, DEBUG+2*
VALUE	OBX+12~, OBX+14, OBX+15, OBX+16*, OBX+17
Y	OBX+16~*

Marked Items

Name	Field # of Occurrence
$T(@BHLSEG	START+3

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLBCH

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Used in HL7 Interface

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items