Routine: VAFEDOHL

Information

VAFEDOHL ;ALB/JLU/CAW;generates the HL7 message to be sent;6/29/93

Source file <VAFEDOHL.m>

Package	Total	Call Graph
Registration	4	(ADD,DEM)^VADPT EXOHL^VAFEDUTL (MSH,PID,PV1,ZEL)^VAFEOHL1 (OBR,OBX,ORC)^VAFEOHL2
Health Level Seven	3	$$BHS^HLFNC1 FILE^HLTF (EN1,INIT)^HLTRANS
VA Fileman	3	^%DT NOW^%DTC ^DIK

Package	Total	Caller Graph
Registration	3	VAFEDUTL VAFEOHL1 VAFEOHL2

Name	Comments	DBIA/ICR reference
EN
LOG	;sets the HL7 string into the TMP global
SETUP	;starts the looping to get the info from the 391.51 file.
DSTR	;builds diagnosis string
SEND	;sends the HL7 message
SET	;second layer of the loop.
BUILD	;this subroutine builds the HL7 messages segments
HL	;this subroutine sets up HL7 variables.
DATE	;this subroutine gets the date to start from.
CHK(VAFEDDT)	;this subroutine checks for the existance of data in the 391.51
DELETE	;deletes entries that were sent.

Name	Line Occurrences (* Changed, ! Killed)
^TMP("HLS"	HL+7!, SET+6, SET+9, LOG+1*, DELETE+5!
^VAT(391.51	CHK+3, SETUP+3, SET+7, BUILD+1, BUILD+10, DELETE+2, DELETE+4, DSTR+3

Name	Field # of Occurrence
^(	DELETE+2, DSTR+3
^(150	BUILD+1

Name	Field # of Occurrence
%	HL+5, HL+7!
>> %DT	DATE+1*
%H	HL+7!
%I	HL+7!
DA	DELETE+3*!
DFN	SETUP+2~, SETUP+3*, SET+7
DIK	DELETE+3*!
HLDA	SET+5, SET+8, BUILD+10, DELETE+5!
HLERR	EN+4, DELETE+3, DELETE+4, DELETE+5!
>> HLEVN	HL+2, SET+4, SET+7, BUILD+2, SEND+2, SEND+6*
>> HLFS	SEND+2
>> HLMTN	HL+6*, SET+6, SET+9
>> HLNDAP	HL+3*
>> HLSDT	HL+5*, SET+6, SET+9, LOG+1
I	DSTR+1~, DSTR+2, DSTR+3
LP	DELETE+1~, DELETE+2*, DELETE+3, DELETE+4
U	BUILD+1, DELETE+2, DELETE+4
VA	SET+1!
VADM	SET+1!
VADM(1	SET+3
VAERR	SET+1!
VAFEDD	SETUP+2~, SET+7*
>> VAFEDDA	SET+7*, BUILD+1, BUILD+10, DSTR+3
VAFEDDT	EN+2, DATE+3*, CHK~, CHK+6, SETUP+3
>> VAFEDDX(	DSTR+3*
>> VAFEDHL	LOG+1, SEND+2*
>> VAFEDLCT	SETUP+1, LOG+1, SEND+1, SEND+6*
VAFEDLP	SETUP+2~, SETUP+3*, SET+7
>> VAFEDST1	BUILD+1*
>> VAFEDST2	BUILD+1*
VAFEDT	SETUP+2~, SET+7*
>> VAFELIG	BUILD+1*
VAPA	SET+1!
X	DATE+1, DATE+4!, CHK+2~, CHK+3, CHK+5, CHK+6, CHK+7*, CHK+8
X1	SETUP+2~
Y	DATE+3, DATE+4!, DELETE+1~, DELETE+2*