Routine: VAFEOHL2

Package	Total	Call Graph
Health Level Seven	1	$$HLDATE^HLFNC
Registration	1	LOG^VAFEDOHL

Package	Total	Caller Graph
Registration	1	VAFEDOHL

Entry Points

Name	Comments	DBIA/ICR reference
DIAG	;this subroutine will set up the diagnosics in the OBX.
CPT	;this subroutine will set up the OBX with CPT codes.
OBR	;sets up the OBR segment and the fields 4,7,8,9,14,22
ORC	;sets up the ORC segment and the fields 1 to indicate if new or canceled
OBX	;this subroutine set up the OBX segments and the fields 3,5

Name	Field # of Occurrence
$$HLDATE^HLFNC	OBR+5, OBR+9
LOG^VAFEDOHL	ORC+5, OBR+10, DIAG+9, DIAG+17, CPT+8

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	DIAG+5, DIAG+6, DIAG+13, DIAG+14
^ICD9("BA"	DIAG+4, DIAG+12
^ICPT - [#81]	CPT+4, CPT+5
^ICPT("B"	CPT+3

Name	Line Occurrences
CPT	OBX+4
DIAG	OBX+3

Name	Field # of Occurrence
>> HLECH	OBR+4, DIAG+8, DIAG+16, CPT+7
>> HLFS	ORC+3, ORC+4, OBR+3, OBR+4, OBR+5, OBR+6, OBR+7, OBR+8, OBR+9, DIAG+8 , DIAG+16, CPT+7
>> HLQ	OBR+6, OBR+7, OBR+8, DIAG+8, DIAG+16, CPT+7
I	DIAG+1~, DIAG+10*, DIAG+11
U	OBR+5, OBX+3, DIAG+2, DIAG+3, DIAG+6, DIAG+11, DIAG+14, CPT+2, CPT+5
VAFEDC	DIAG+3, DIAG+4, DIAG+8, DIAG+11, DIAG+12, DIAG+16, CPT+1~, CPT+2*, CPT+3, CPT+7
VAFEDD	DIAG+1~, DIAG+6, DIAG+8, DIAG+14, DIAG+16, CPT+1~, CPT+5*, CPT+7
>> VAFEDDA	OBR+4
>> VAFEDDX(	DIAG+10, DIAG+11
>> VAFEDDX(1	OBX+3, DIAG+2, DIAG+3
>> VAFEDDX(2	DIAG+10
VAFEDHL	ORC+1~, ORC+3, ORC+4, OBR+1~, OBR+3, OBR+4, OBR+5, OBR+6, OBR+7, OBR+8 , OBR+9, DIAG+8, DIAG+16, CPT+7
>> VAFEDLCT	ORC+2, OBR+2, DIAG+7, DIAG+15, CPT+6*
>> VAFEDLP	OBR+9
VAFEDN	DIAG+1~, DIAG+2*
VAFEDOBX	OBX+1~, OBX+2, DIAG+7, DIAG+8, DIAG+15, DIAG+16, CPT+6, CPT+7
>> VAFEDST1	ORC+4, OBR+5
>> VAFEDST2	OBX+4, CPT+2
X	OBX+1~, DIAG+1~, DIAG+3, DIAG+11, CPT+1~, CPT+2*
>> Y	DIAG+4, DIAG+5, DIAG+6, DIAG+12, DIAG+13, DIAG+14, CPT+3*, CPT+4, CPT+5