Routine: BHLRXPS2

Package	Total	Call Graph
VA Fileman	2	FILE^DICN IXALL^DIK

Package	Total	Caller Graph
IHS Support HL7 Interfaces	1	BHLRXPST

Entry Points

Name	Comments	DBIA/ICR reference
LOOKUPS	; do lookups for the various fields ; lookup of HL7 ACCEPT ACK CONDITION file entry ien
RINDEX	;re-index the PROTOCOL file
EOJ	; clean up and leave
START	; ENTRY POINT from BHLRXPST
SUBSCRIB	; install subscriber protocol
PROCESS	;
EVENT	; install event driver protocol

Name	Field # of Occurrence
FILE^DICN	PROCESS+11, PROCESS+25
IXALL^DIK	RINDEX+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"....Re-indexing the PROTOCOL file." Line Location: RINDEX+2
Function Call: WRITE	Prompt: !,"....exists: ",BHLNAME Line Location: PROCESS+2
Function Call: WRITE	Prompt: !,"Entry was unsuccessful: ",X Line Location: PROCESS+12
Function Call: WRITE	Prompt: !,"....adding: ",X Line Location: PROCESS+15
Function Call: WRITE	Prompt: !?5,"Multiple entry was unsuccessful: ",X Line Location: PROCESS+26

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(101	PROCESS+21
^HL(771 - [#771]	PROCESS+3
^HL(771.2 - [#771.2]	LOOKUPS+8, LOOKUPS+12
^HL(771.5 - [#771.5]	LOOKUPS+6
^HL(779.001 - [#779.001]	LOOKUPS+10
^HL(779.003 - [#779.003]	LOOKUPS+2, LOOKUPS+4
^ORD(101 - [#101]	START+1, PROCESS+2, PROCESS+14*, SUBSCRIB+4

Name	Field # of Occurrence
>> BHLACACK	LOOKUPS+2*, EVENT+2
>> BHLAPACK	LOOKUPS+4*, EVENT+2
>> BHLDIC	PROCESS+7*, PROCESS+19
>> BHLDR	PROCESS+8, SUBSCRIB+2, EVENT+2
>> BHLEVNT	LOOKUPS+10*, SUBSCRIB+2, EVENT+2
>> BHLIEN	PROCESS+13*, PROCESS+14, PROCESS+19, PROCESS+22
>> BHLISEQC	PROCESS+18*
>> BHLITEM	PROCESS+24, SUBSCRIB+4*
>> BHLMTG	LOOKUPS+12*, SUBSCRIB+2
>> BHLMTR	LOOKUPS+8*, SUBSCRIB+2, EVENT+2
>> BHLNAME	PROCESS+2, PROCESS+3, PROCESS+10, SUBSCRIB+1, SUBSCRIB+4, EVENT+1
>> BHLPKG	SUBSCRIB+2, EVENT+2
>> BHLPTR	PROCESS+3*, PROCESS+4, PROCESS+8
>> BHLTEXT	SUBSCRIB+1, SUBSCRIB+2, EVENT+1, EVENT+2
>> BHLTYPE	PROCESS+8, PROCESS+14, PROCESS+17, SUBSCRIB+1, SUBSCRIB+2, EVENT+1, EVENT+2
>> BHLVID	LOOKUPS+6*, SUBSCRIB+2, EVENT+2
D0	EOJ+1!
DA	EOJ+1!
DA(1	PROCESS+22*
DD	EOJ+1!, PROCESS+6!, PROCESS+11!, PROCESS+25!
DDH	EOJ+1!
DI	EOJ+1!
DIC	EOJ+1!, PROCESS+7, PROCESS+19
DIC("DR"	PROCESS+8, PROCESS+23
DIC("P"	PROCESS+21*
DIC(0	PROCESS+7, PROCESS+20
DIE	EOJ+1!
DIK	RINDEX+1*, EOJ+1!
DLAYGO	EOJ+1!, PROCESS+7*
DO	EOJ+1!, PROCESS+6!, PROCESS+11!, PROCESS+25!
DR	EOJ+1!
U	PROCESS+21
X	EOJ+1!, PROCESS+10, PROCESS+12!, PROCESS+15, PROCESS+16!, PROCESS+24, PROCESS+26!, PROCESS+27!
Y	EOJ+1!, PROCESS+12, PROCESS+13, PROCESS+16!, PROCESS+26, PROCESS+27!