Routine: DGENA5

Package	Total	Call Graph
VA Fileman	1	DO^DIC1

Package	Total	Caller Graph
Registration	6	DGENCD DGENCDA1 DGENELA DGENLCD1 DGENUPL1 VAFHLZCD
Integrated Billing	1	CD STATUS CONDITIONS

Entry Points

Name	Comments	DBIA/ICR reference
CODEPTR(REASON)	; Internal label--get pointer to CODE.
CONDHELP(DFN,COND)	; Display help text for a condition. ; Applies to the PATIENT file (#2) CD STATUS CONDITIONS field (#.398) ; Note - Help text stored in 27.17 CD REASONS.
HELP(REASON)	; Display help text from 27.17 CD REASONS.
LIMBOK(REASON,LIMBCODE)	; Return 1/0 Affected Extremity OK for this REASON.
VCD(DFN)	; Veteran Catastrophically Disabled? (#.39)
TYPE(REASON)	; Return TYPE (#1) for this CD REASON.
NEXTLIMB(REASON,LIMBIEN)	; Get next possible limb for this REASON.
RANGEMET(REASON,SCORE,PERM)	; Determine whether this reason is satisfied.
PATSCORE(DFN,COND)	; Get the TEST SCORE for this patient, for this condition.
CONDMET(DFN,COND)	; Determine whether a condition meets the criteria.
PERMTOHL(NUMBER,D2)	; Convert Permanent Status Indicator to HL7 sequence. ; NUMBER = 1 for Permanent, 2 for Not Permanent, 3 for Unknown. ; D2 = Secondary Delimiter to use in this HL7 sequence.
CODE(REASON)	; Return the HL7 Transmission Code for this CD Reason.
REASON(DFN,COND)	; Get the CD REASON for this patient, for this condition.
LSCREEN(LIMBCODE)	; Used to validate LIMB in screen.
CONDINP(DFN,COND,SCORE)	; Validate a score entered by the user for a PATIENT.
VALSCORE(REASON)	; Return VALIDATION (#7) for this CD REASON. ; This determines whether a score is valid at all.
HL7TORSN(HL7VAL,D2)	; Return REASON IEN for a HL7 Transmission Value. ; This function returns the IEN or 0 if there is none.
CODENAME(REASON)	; Return name of code associated with this CD Reason.
LIMBCODE(REASON,LIMBIEN)	; Return limb code for an affected limb.
HLTOLIMB(HLVAL,D2)	; Convert HL7 transmission value to Limb code. ; HLVAL = HL7 text of "Affected Extremity" code. ; D2 = Secondary delimiter (for future expansion.) ; NOTE: D2 Parameter is ignored at present, but may be ; required in future if the sequence structure changes.
PATPERM(DFN,COND)	; Get the PERMANENT INDICATOR for this patient+condition.
FILENAME(REASON)	; Return the file name to which this CD Reason points.
RSNTOHL7(REASON,D2)	; Return HL7 Segment Value for this Reason.
VALID(REASON,SCORE)	; Validate a proposed score for a test.
LIMBTOHL(LIMB,D2)	; Convert Limb code to HL7 transmission value. ; LIMB = Affected Extremity code: RUE = Right Upper Extremity; ; LLE = Left Lower Extremity; also RLE and LUE. ; D2 = Secondary Delimiter to use in this HL7 sequence.
NAME(REASON)	; Return NAME (.01) for this CD REASON.
METH2HL7(METHOD,D2)	; Comvert Method of Determination to HL7 Transmission Value.
RANGE(REASON)	; Return TEST SCORE RANGE (#5) for this CD REASON. ; This determines whether the score qualifies for CD.

Name	Field # of Occurrence
DO^DIC1	FILENAME+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"HELP TEXT FOR ",$$NAME(REASON),! Line Location: HELP+4
Function Call: WRITE	Prompt: ?3,^DGEN(27.17,REASON,3,LINE,0),! Line Location: HELP+6

Name	Line Occurrences (* Changed, ! Killed)
^DGEN(27.17 - [#27.17]	HELP+5, HELP+6, NAME+2, TYPE+2, VALSCORE+2, RANGE+2, CODE+2, CODEPTR+1, NEXTLIMB+2, LIMBCODE+1 , HL7TORSN+7
^DPT - [#2]	VCD+1, REASON+5, PATSCORE+3, PATPERM+3, LSCREEN+6

Name	Line Occurrences
$$CODE	RSNTOHL7+5, RSNTOHL7+14
$$CODEPTR	FILENAME+3, CODENAME+2
$$FILENAME	RSNTOHL7+16
$$LIMBCODE	LIMBOK+5
$$LIMBOK	LSCREEN+8
$$NAME	HELP+4, RSNTOHL7+12
$$NEXTLIMB	LIMBOK+4
$$PATPERM	CONDMET+4
$$PATSCORE	CONDMET+3
$$RANGE	RANGEMET+2
$$RANGEMET	CONDMET+5
$$REASON	CONDHELP+4, CONDINP+2, CONDMET+2
$$TYPE	HELP+2, RSNTOHL7+4
$$VALID	CONDINP+3
$$VALSCORE	VALID+2
HELP	CONDHELP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	CODENAME+1~, CODENAME+8, RSNTOHL7+3~, RSNTOHL7+5, RSNTOHL7+6, RSNTOHL7+7, RSNTOHL7+10, RSNTOHL7+14*, RSNTOHL7+15, RSNTOHL7+18
CODEGLO	CODENAME+1~, CODENAME+5, CODENAME+6, CODENAME+7, CODENAME+8, CODENAME+9
CODEIEN	CODENAME+1~, CODENAME+4*, CODENAME+7
CODENAME	CODENAME+1~, CODENAME+9*, CODENAME+10
CODEPC	CODENAME+1~, CODENAME+6*, CODENAME+9
CODEPTR	FILENAME+1~, FILENAME+3, FILENAME+4, FILENAME+5, CODENAME+1~, CODENAME+2, CODENAME+3, CODENAME+4, CODENAME+5
COND	CONDHELP~, CONDHELP+4, CONDINP~, CONDINP+2, CONDMET~, CONDMET+2, CONDMET+3, CONDMET+4, REASON~, REASON+2 , REASON+5, PATSCORE~, PATSCORE+2, PATSCORE+3, PATPERM~, PATPERM+2, PATPERM+3
>> D0	LSCREEN+3, LSCREEN+6
>> D1	LSCREEN+3, LSCREEN+6
D2	HL7TORSN~, HL7TORSN+2, HL7TORSN+3, HL7TORSN+5, RSNTOHL7~, RSNTOHL7+2, RSNTOHL7+10, RSNTOHL7+18, HLTOLIMB~, LIMBTOHL~ , LIMBTOHL+4, LIMBTOHL+8, PERMTOHL~, PERMTOHL+3, PERMTOHL+7, METH2HL7~, METH2HL7+1*, METH2HL7+5
DFN	VCD~, VCD+1, CONDHELP~, CONDHELP+4, CONDINP~, CONDINP+2, CONDMET~, CONDMET+2, CONDMET+3, CONDMET+4 , REASON~, REASON+2, REASON+5, PATSCORE~, PATSCORE+2, PATSCORE+3, PATPERM~, PATPERM+2, PATPERM+3
>> DGCDIS("COND"	REASON+4
>> DGCDIS("PROC"	LSCREEN+5
>> DGCDREAS	REASON+3, LSCREEN+4
DIC	FILENAME+1~, FILENAME+5*
DIC(0	FILENAME+6*
DO	FILENAME+1~, FILENAME+8
FILE	RSNTOHL7+3~, RSNTOHL7+16*, RSNTOHL7+17, RSNTOHL7+18
HL7VAL	HL7TORSN~, HL7TORSN+3, HL7TORSN+4, HL7TORSN+5, HL7TORSN+6, HL7TORSN+7, RSNTOHL7+3~, RSNTOHL7+10, RSNTOHL7+18, RSNTOHL7+22
>> HLECH	HL7TORSN+2, RSNTOHL7+2, LIMBTOHL+4, PERMTOHL+3, METH2HL7+1
HLVAL	HLTOLIMB~, HLTOLIMB+5, LIMBTOHL+5~, LIMBTOHL+8, LIMBTOHL+9, PERMTOHL+4~, PERMTOHL+7, PERMTOHL+8
>> ITEM	REASON+4, LSCREEN+5
LIMB	LIMBTOHL~, LIMBTOHL+6, LIMBTOHL+7, LIMBTOHL+8
LIMBCODE	LSCREEN~, LSCREEN+7, LSCREEN+8, LIMBOK~, LIMBOK+5
LIMBIEN	LIMBOK+1~, LIMBOK+3, LIMBOK+4, LIMBOK+5, NEXTLIMB~, NEXTLIMB+1, NEXTLIMB+2, NEXTLIMB+3*, NEXTLIMB+4, LIMBCODE~ , LIMBCODE+1
LINE	HELP+1~, HELP+3, HELP+5, HELP+6
METHOD	METH2HL7~, METH2HL7+4, METH2HL7+5
METHS	METH2HL7+2~, METH2HL7+3*, METH2HL7+5
NAME	RSNTOHL7+3~, RSNTOHL7+12*, RSNTOHL7+13, RSNTOHL7+18
NUMBER	RSNTOHL7+3~, RSNTOHL7+7, RSNTOHL7+8, RSNTOHL7+10, LIMBTOHL+5~, LIMBTOHL+7, LIMBTOHL+8, PERMTOHL~, PERMTOHL+5, PERMTOHL+7
PERM	CONDMET+1~, CONDMET+4, CONDMET+5, RANGEMET~, PERMTOHL+4~, PERMTOHL+5, PERMTOHL+6, PERMTOHL+7
REASON	CONDHELP+3~, CONDHELP+4, CONDHELP+5, CONDINP+1~, CONDINP+2, CONDINP+3, CONDMET+2, CONDMET+5, REASON+1~, REASON+3 , REASON+4, REASON+5, REASON+6, PATSCORE+1~, PATSCORE+3, PATSCORE+4, PATPERM+1~, PATPERM+3, PATPERM+4, HELP~ , HELP+2, HELP+4, HELP+5, HELP+6, VALID~, VALID+2, RANGEMET~, RANGEMET+2, NAME~, NAME+1 , NAME+2, TYPE~, TYPE+1, TYPE+2, VALSCORE~, VALSCORE+2, RANGE~, RANGE+2, FILENAME~, FILENAME+3 , CODE~, CODE+1, CODE+2, CODENAME~, CODENAME+2, CODEPTR~, CODEPTR+1, LSCREEN+1~, LSCREEN+2, LSCREEN+4 , LSCREEN+5, LSCREEN+6, LSCREEN+7, LSCREEN+8, LIMBOK~, LIMBOK+4, LIMBOK+5, NEXTLIMB~, NEXTLIMB+2, LIMBCODE~ , LIMBCODE+1, RSNTOHL7~, RSNTOHL7+1, RSNTOHL7+4, RSNTOHL7+5, RSNTOHL7+12, RSNTOHL7+14, RSNTOHL7+16
SCORE	CONDINP~, CONDINP+3, CONDMET+1~, CONDMET+3*, CONDMET+5, VALID~, VALID+3, RANGEMET~
TABLE	RSNTOHL7+3~, RSNTOHL7+9*, RSNTOHL7+10
TEST	VALID+1~, VALID+2, VALID+4, RANGEMET+1~, RANGEMET+2, RANGEMET+3
U	FILENAME+2*
VALID	LIMBOK+1~, LIMBOK+2, LIMBOK+4, LIMBOK+5, LIMBOK+6
X	VALID+1~, VALID+3*

Customize PDF page

Package: Registration

Routine: DGENA5

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: