Routine: VAFHLZCD

Package	Total	Call Graph
Registration	3	($$LIMBTOHL,$$METH2HL7,$$PERMTOHL,$$RSNTOHL7)^DGENA5 $$GET^DGENCDA $$STATION^VAFHLFNC
Health Level Seven	1	$$HLDATE^HLFNC

Entry Points

Name	Comments	DBIA/ICR reference
INSERT(LIST,NAME,ITEM)	; Insert item into existing list position (internal). ; LIST - By reference, a list of items. ; NAME - Name of one item to add. ; ITEM - Value of item to add. ; Note: the list should already contain at least one item.
ENQ
BUILD(VAFSEGS,DFN,VAFSTR,VAFHLQ,VAFHLFS)	; ; Entry point for creating HL7 Catastrophic Disability (ZCD) segments. ; This is the preferred entry point for building ZCD segments. ; ; Input(s): ; VAFSEGS - Pass-by-reference array to contain all ZCD segments ; for this patient. ; DFN - internal entry number of Patient (#2) file ; VAFSTR - (optional) string of fields requested, separated by ; commas. If not passed, return all data fields. ; VAFHLQ - (optional) HL7 null variable ; VAFHLFS - (optional) HL7 field separator
EN(DFN,VAFSTR,VAFNUM,VAFHLQ,VAFHLFS)	; -- ; Entry point for creating HL7 Catastrophic Disability (ZCD) segment. ; ; Input(s): ; DFN - internal entry number of Patient (#2) file ; VAFSTR - (optional) string of fields requested, separated by ; commas. If not passed, return all data fields. ; VAFNUM - (optional) sequential number for SET ID (default=1) ; VAFHLQ - (optional) HL7 null variable ; VAFHLFS - (optional) HL7 field separator
MAKELST(VAFCDLST,VAFCAT)	; Make list of ZCD Segments. ; Inputs: ; VAFCDLST - By reference (used to hold output array.) ; VAFCAT - By reference, an array containing the patient's CD ; data (as created in $$GET^DGENCDA). ; Output: ; VAFCDLST(Segment#,"DIAG") = CD Diagnosis (pointer to #27.17). ; VAFCDLST(Segment#,"PROC")= CD Procedure(pointer to #27.17). ; VAFCDLST(Segment#,"EXT") = Affected Extremity (for procedure). ; VAFCDLST(Segment#,"COND")= CD Condition (pointer to #27.17). ; VAFCDLST(Segment#,"PERM") = Permanent Indicator (for condition). ; VAFCDLST(Segment#,"SCORE") = Test Score (for condition).
ADDNEW(LIST,NAME,ITEM)	; Add an item to the list (internal use only). ; Inputs: ; LIST - By reference, a list of items. ; NAME - Name of one item to add. ; ITEM - Value of item to add. ; Note: a new position is created in the list.

External References

Name	Field # of Occurrence
$$LIMBTOHL^DGENA5	EN+87
$$METH2HL7^DGENA5	EN+81
$$PERMTOHL^DGENA5	EN+95
$$RSNTOHL7^DGENA5	EN+83, EN+85, EN+89
$$GET^DGENCDA	EN+47, BUILD+32
$$HLDATE^HLFNC	EN+73, EN+79, EN+97, EN+99, EN+101
$$STATION^VAFHLFNC	EN+77

Label References

Name	Line Occurrences
$$EN	BUILD+37
ADDNEW	MAKELST+23, MAKELST+27, MAKELST+31
ENQ	EN+44, EN+47
INSERT	MAKELST+28, MAKELST+32, MAKELST+33
MAKELST	EN+66, BUILD+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, EN+44, EN+47, BUILD~, BUILD+30, BUILD+32, BUILD+37
>> HLFS	EN+38
>> HLQ	EN+37
ITEM	MAKELST+17~, MAKELST+20, MAKELST+22, MAKELST+23, MAKELST+25, MAKELST+26, MAKELST+27, MAKELST+28, MAKELST+30, MAKELST+31 , MAKELST+32, MAKELST+33, ADDNEW~, ADDNEW+7, INSERT~, INSERT+5
LIST	ADDNEW~, ADDNEW+6*, ADDNEW+7, INSERT~, INSERT+5
LIST(	ADDNEW+7, INSERT+5
NAME	ADDNEW~, ADDNEW+7, INSERT~, INSERT+5
SETID	EN+34~, EN+70*, EN+71, EN+83, EN+85, EN+87, EN+89, EN+91, EN+95
SITEM	MAKELST+17~, MAKELST+20, MAKELST+26, MAKELST+28
STR	MAKELST+17~
SUB	EN+34~, EN+51, EN+52
VAFCAT	EN+34~, EN+47, EN+66, MAKELST~, BUILD+32, BUILD+34
VAFCAT(	EN+51, EN+52*
VAFCAT("BY"	EN+75
VAFCAT("COND"	MAKELST+30, MAKELST+31
VAFCAT("DATE"	EN+79
VAFCAT("DIAG"	MAKELST+22, MAKELST+23
VAFCAT("DTFACIRV"	EN+99
VAFCAT("DTVETNOT"	EN+101
VAFCAT("EXT"	MAKELST+26, MAKELST+28
VAFCAT("FACDET"	EN+77
VAFCAT("METDET"	EN+81
VAFCAT("PERM"	MAKELST+33
VAFCAT("PROC"	MAKELST+25, MAKELST+27
VAFCAT("REVDTE"	EN+73
VAFCAT("SCORE"	MAKELST+32
VAFCAT("VCD"	EN+51, EN+93
VAFCAT("VETREQDT"	EN+97
VAFCDLST	EN+66~, MAKELST~, MAKELST+18!, MAKELST+19, MAKELST+23, MAKELST+27, MAKELST+28, MAKELST+31, MAKELST+32, MAKELST+33 , MAKELST+34, BUILD+27~, BUILD+34, BUILD+35, BUILD+37
VAFCDLST(	EN+83, EN+85, EN+87, EN+89, EN+91, EN+95
VAFHLFS	EN~, EN+38*, EN+58, EN+71, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83 , EN+85, EN+87, EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, ENQ , BUILD~, BUILD+37
VAFHLQ	EN~, EN+37*, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83, EN+85, EN+87 , EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, BUILD~, BUILD+37
VAFNUM	EN~, EN+41*, EN+70
VAFSEGS	BUILD~, BUILD+28!, BUILD+37
VAFSEGS(	BUILD+37*
VAFSTR	EN~, EN+55, EN+58, EN+59, EN+73, EN+75, EN+77, EN+79, EN+81, EN+83 , EN+85, EN+87, EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101, EN+103* , EN+104*, BUILD~, BUILD+37
VAFY	EN+34~, EN+44, EN+47, EN+58, EN+71, EN+73, EN+75, EN+77, EN+79, EN+81* , EN+83, EN+85, EN+87, EN+89, EN+91, EN+93, EN+95, EN+97, EN+99, EN+101 , ENQ
VALOK	EN+34~, EN+50, EN+51, EN+52
X	EN+34~, EN+77*

Customize PDF page

Package: Registration

Routine: VAFHLZCD

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Label References

Local Variables

Legend: