Routine: BHLBPS

Package	Total	Call Graph
Health Level Seven	2	($$FMDATE,$$FMNAME,$$UPPER)^HLFNC GENACK^HLMA1
IHS Support HL7 Interfaces	1	^BHLBPS1
IHS VA Utilities	1	^XBKVAR
MailMan	1	^XMB
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;
END
DISPLAY	; Display result messages (programmer debug mode only)
EOJ	;
Z03	;
Z02	;
PID	;
RXD	;
FILING	;
START	; ENTRY POINT from HL7 client protocol
BULLETIN	; Send Error Bulletin
MSH	;
DEBUG	; ENTRY POINT for programmer testing
ACKMSG	; ; transmit acknowledgement message back to sending application if required
ORC	;

External References

Name	Field # of Occurrence
^BHLBPS1	FILING+4
^DIR	DEBUG+11
$$FMDATE^HLFNC	PID+5, RXD+7, Z03+3
$$FMNAME^HLFNC	PID+3, ORC+5, Z02+9
$$UPPER^HLFNC	DEBUG+52, DEBUG+58
GENACK^HLMA1	ACKMSG+10
^XBKVAR	INIT+1
^XMB	BULLETIN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"MSH is missing" Line Location: DEBUG+15
Function Call: WRITE	Prompt: !,"sending application is missing from MSH" Line Location: DEBUG+32
Function Call: WRITE	Prompt: !,"receiving application is missing from MSH" Line Location: DEBUG+33
Function Call: WRITE	Prompt: !,"message type is missing from MSH" Line Location: DEBUG+34
Function Call: WRITE	Prompt: !,"event type is missing from MSH" Line Location: DEBUG+35
Function Call: WRITE	Prompt: !,"Invalid Message Type" Line Location: DEBUG+41
Function Call: WRITE	Prompt: !,"Invalid Event Type" Line Location: DEBUG+47
Function Call: WRITE	Prompt: !,"Invalid Sending Application" Line Location: DEBUG+53
Function Call: WRITE	Prompt: !,"Invalid Receiving Application" Line Location: DEBUG+59
Function Call: WRITE	Prompt: !,"Invalid Receiving Application" Line Location: DEBUG+61
Function Call: WRITE	Prompt: !,"Receiving Application is Inactive" Line Location: DEBUG+62
Function Call: WRITE	Prompt: !,"Invalid Event" Line Location: DEBUG+67
Function Call: WRITE	Prompt: !,"Invalid Receiving Application for this Event" Line Location: DEBUG+73
Function Call: WRITE	Prompt: !,"Processing..." Line Location: DEBUG+75
Function Call: WRITE	Prompt: !,"Done" Line Location: DEBUG+83
Function Call: WRITE	Prompt: !,"Error Message:",!,?3,$S($G(HLERR)="":"none",1:HLERR) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Error Data:",!,?3,$S($G(BHLEDATA)="":"none",1:BHLEDATA) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,"ACK message:" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,?3,"none" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,?3,HLA("HLA",I) Line Location: DISPLAY+7
Routine Call	DIR Line Location: DEBUG+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(771 - [#771]	DEBUG+51, DEBUG+52, DEBUG+57, DEBUG+58, DEBUG+60
^HL(771.2 - [#771.2]	DEBUG+40
^HL(772 - [#772]	DEBUG+14
^HL(779.001 - [#779.001]	DEBUG+46
^ORD(101 - [#101]	DEBUG+66, DEBUG+72
^TMP("BHLBPS"	DEBUG+80!

Label References

Name	Line Occurrences
@(	START+3
ACKMSG	START+4
BULLETIN	START+6
DISPLAY	START+7
EOJ	END, INIT+2
FILING	START+4
INIT	START+2
START	DEBUG+82

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!
%1	DEBUG+9~
%DT	DEBUG+9~
%X	BULLETIN+3~
%Y	BULLETIN+3~
BHLBPS	EOJ+1!
BHLBPS(	FILING+2
BHLBPS("MED"	ORC+3, ORC+5, RXD+3, RXD+5, RXD+7, RXD+9, RXD+11, RXD+13, RXD+15, RXD+17 , Z02+3, Z02+5, Z02+7, Z02+9, INIT+5*
BHLBPS("ORC"	ORC+1*
BHLBPS("PAT D	EMO" , MSH+8, PID+3, PID+5, PID+7, PID+9, PID+11, INIT+7*
BHLBPS("PID"	PID+1*
BHLBPS("RXD"	RXD+1*
BHLBPS("VISIT"	MSH+9, Z03+3, Z03+5, INIT+6
BHLBPS("Z02"	Z02+1*
BHLBPS("Z03"	Z03+1*
BHLCS	PID+11, ORC+3, ORC+5, RXD+11, RXD+13, Z02+7, Z02+9, EOJ+1!, INIT+10*
BHLDATA	START+3, MSH+3, MSH+5, MSH+7, PID+3, PID+5, PID+7, PID+9, PID+11, ORC+3 , ORC+5, RXD+3, RXD+5, RXD+7, RXD+9, RXD+11, RXD+13, RXD+15, RXD+17, Z02+3 , Z02+5, Z02+7, Z02+9, Z03+3, Z03+5, EOJ+1!
BHLDBUG	ACKMSG+9, BULLETIN+2, DEBUG+81*, DEBUG+84!, DISPLAY+2
BHLEDATA	BULLETIN+6, EOJ+1!, DISPLAY+4
BHLERR	START+5, START+6, FILING+2, FILING+3, ACKMSG+5, ACKMSG+6, ACKMSG+7, ACKMSG+8, ACKMSG+11, BULLETIN+5 , EOJ+1!, INIT+4*
BHLFAC	MSH+1~, MSH+7*, MSH+8, MSH+9
BHLFS	START+3, MSH+3, MSH+7, MSH+8, MSH+9, PID+3, PID+5, PID+7, PID+9, PID+11 , ORC+3, ORC+5, RXD+3, RXD+5, RXD+7, RXD+9, RXD+11, RXD+13, RXD+15, RXD+17 , Z02+3, Z02+5, Z02+7, Z02+9, Z03+3, Z03+5, ACKMSG+7, ACKMSG+8, EOJ+1!, INIT+8*
BHLMSH	MSH+5*, EOJ+1!
BHLMSH9	DEBUG+8~, DEBUG+23*, DEBUG+24, DEBUG+25, DEBUG+79!
BHLSAN	DEBUG+8~, DEBUG+52*, DEBUG+79!
BHLSEG	START+3*, EOJ+1!
D0	EOJ+2!
DA	EOJ+2!
DD	EOJ+2!
DFN	EOJ+2!
DIC	EOJ+2!
DIK	EOJ+2!
DIR	DEBUG+9~
DIR("A"	DEBUG+11*
DIR("T"	DEBUG+11*
DIR(0	DEBUG+11*
DISYS	DEBUG+9~
DO	EOJ+2!
DR	EOJ+2!
F	EOJ+2!
HL	DEBUG+8~
HL("ACAT"	ACKMSG+3, DEBUG+27*
HL("APAT"	ACKMSG+3, ACKMSG+4, ACKMSG+5, ACKMSG+6, DEBUG+28*
HL("ECH"	INIT+9, DEBUG+20*, DEBUG+24, DEBUG+25
HL("EID"	ACKMSG+10, DEBUG+66*, DEBUG+67, DEBUG+72
HL("EIDS"	ACKMSG+10, DEBUG+71, DEBUG+72, DEBUG+73
HL("ETN"	DEBUG+25*, DEBUG+35, DEBUG+46
HL("ETP"	DEBUG+45, DEBUG+46, DEBUG+47, DEBUG+66, DEBUG+72
HL("FS"	INIT+8, DEBUG+19*, DEBUG+20, DEBUG+21, DEBUG+22, DEBUG+23, DEBUG+26, DEBUG+27, DEBUG+28
HL("MID"	ACKMSG+7, DEBUG+26*
HL("MTN"	DEBUG+24*, DEBUG+34, DEBUG+40
HL("MTP"	DEBUG+39, DEBUG+40, DEBUG+41, DEBUG+66, DEBUG+72
HL("RAN"	DEBUG+22*, DEBUG+33, DEBUG+52, DEBUG+57, DEBUG+58
HL("RAP"	DEBUG+57, DEBUG+58, DEBUG+59, DEBUG+60, DEBUG+72
HL("SAN"	DEBUG+21*, DEBUG+32, DEBUG+51
HL("SAP"	DEBUG+51, DEBUG+52, DEBUG+53, DEBUG+66
HLA	EOJ+2!, DISPLAY+6
HLA("HLA"	ACKMSG+7, ACKMSG+8, DISPLAY+7
HLECH	PID+3, ORC+5, Z02+9, INIT+9*, INIT+10, DEBUG+8~
HLERR	START+5, START+6*, INIT+3!, DISPLAY+3
HLMTIEN	BULLETIN+7, DEBUG+8~, DEBUG+12*, DEBUG+14
>> HLMTIENS	ACKMSG+10
HLNEXT	START+3, DEBUG+8~, DEBUG+78*
HLNODE	START+3, DEBUG+8~, DEBUG+14, DEBUG+15, DEBUG+19, DEBUG+20, DEBUG+21, DEBUG+22, DEBUG+23, DEBUG+26 , DEBUG+27, DEBUG+28, DEBUG+76
HLQUIT	START+3, DEBUG+8~, DEBUG+77*
HLRESLTA	ACKMSG+2~, ACKMSG+10, ACKMSG+11
I	EOJ+2!, DISPLAY+7~*
IO	DEBUG+9~
SEG	FILING+1~, FILING+2*
U	ACKMSG+11
X	BULLETIN+3~, EOJ+2!, DEBUG+8~, DEBUG+9~, DEBUG+58, DEBUG+72, DEBUG+79!
X2	DEBUG+8~, DEBUG+60*, DEBUG+61, DEBUG+62, DEBUG+79!
XMB	BULLETIN+3~, BULLETIN+4*
XMB(1	BULLETIN+5*
XMB(2	BULLETIN+6*
XMB(3	BULLETIN+7*
XMDT	BULLETIN+3~
XMDUZ	BULLETIN+3~, BULLETIN+8*
Y	EOJ+2!, DEBUG+9~, DEBUG+12
Y1	BULLETIN+3~

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLBPS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items