Routine: DGENCD

Package	Total	Call Graph
Registration	10	($$RANGEMET,$$VALID)^DGENA5 $$GET^DGENCDA $$ISCD^DGENCDA1 $$STORE^DGENCDA2 ($$FILE,$$FLD)^DGENCDU EN^DGENLCD $$VET^DGENPTA ($$INST,$$PROMPT)^DGENU GETPAT^DGRPTU $$UPPER^DGUTL
VA Fileman	1	^DIR

Package

Total

Call Graph

($$RANGEMET,$$VALID)^DGENA5 $$GET^DGENCDA $$ISCD^DGENCDA1 $$STORE^DGENCDA2 ($$FILE,$$FLD)^DGENCDU EN^DGENLCD $$VET^DGENPTA ($$INST,$$PROMPT)^DGENU
GETPAT^DGRPTU $$UPPER^DGUTL

VA Fileman

^DIR

Package	Total	Caller Graph
Registration	3	DGENCD EDIT CATASTROP DISAB DGENCD1 DGRPCE

Package

Total

Caller Graph

Registration

DGENCD EDIT CATASTROP DISAB DGENCD1 DGRPCE

Name	Comments	DBIA/ICR reference
EDIT(DGCDIS)	;
EN	;
PATIENT()	;
EDITCD(DFN)	;
AGAIN(ERROR)	;

External References

Name	Field # of Occurrence
$$RANGEMET^DGENA5	EDIT+52
$$VALID^DGENA5	EDIT+46
$$GET^DGENCDA	EDITCD+7
$$ISCD^DGENCDA1	EDIT+59
$$STORE^DGENCDA2	EDITCD+18
$$FILE^DGENCDU	EDIT+8, EDIT+26
$$FLD^DGENCDU	EDIT+9, EDIT+27, EDIT+40
EN^DGENLCD	EN+7
$$VET^DGENPTA	PATIENT+8
$$INST^DGENU	EDITCD+9
$$PROMPT^DGENU	EDIT+10, EDIT+29, EDIT+41, EDIT+60
GETPAT^DGRPTU	PATIENT+6
$$UPPER^DGUTL	EDIT+12
^DIR	AGAIN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Catastrophic disability can only be entered for eligible veterans!" Line Location: PATIENT+9
Function Call: WRITE	Prompt: ! Line Location: EDIT+22
Function Call: WRITE	Prompt: ! Line Location: EDIT+28
Function Call: WRITE	Prompt: !,"ERROR: This is not a valid test score.",! Line Location: EDIT+47
Routine Call	DIR Line Location: AGAIN+6

Name	Line Occurrences
$$AGAIN	EDITCD+20
$$EDIT	EDITCD+16
$$PATIENT	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN+4~, EN+6, EN+7, EDITCD~, EDITCD+4, EDITCD+7, EDITCD+18, PATIENT+3~, PATIENT+4, PATIENT+5 , PATIENT+6, PATIENT+7, PATIENT+8, PATIENT+10, PATIENT+11
DGCDIS	EDITCD+7, EDITCD+16, EDITCD+18, EDIT~, EDIT+59
DGCDIS(	EDIT+10, EDIT+13, EDIT+19, EDIT+29, EDIT+31!, EDIT+32, EDIT+35, EDIT+36, EDIT+41, EDIT+44* , EDIT+45, EDIT+50!, EDIT+56
DGCDIS("COND"	EDIT+46, EDIT+49, EDIT+52
DGCDIS("DATE"	EDITCD+10*, EDITCD+11
DGCDIS("FACDET"	EDITCD+9*
DGCDIS("METDET"	EDITCD+12*
DGCDIS("PERM"	EDIT+55*
DGCDIS("REVDTE"	EDITCD+11*
DGCDIS("SCORE"	EDIT+48, EDIT+54*
DGCDIS("VCD"	EDIT+58, EDIT+59, EDIT+60, EDIT+61*
DIR	AGAIN+3~
DIR("A"	AGAIN+5*
DIR("B"	AGAIN+5*
DIR(0	AGAIN+5*
DT	EDITCD+10
ERROR	EN+4~, EDITCD+5~, EDITCD+18, EDITCD+20, AGAIN~, AGAIN+4
EXIT	EDIT+3~, EDIT+20, EDIT+23, EDIT+29, EDIT+33, EDIT+42
FILENUM	EDIT+3~, EDIT+8, EDIT+10, EDIT+26, EDIT+29, EDIT+41
FLDNUM	EDIT+3~, EDIT+9, EDIT+10, EDIT+27, EDIT+29, EDIT+40*, EDIT+41
FLST	EDIT+3~, EDIT+16*, EDIT+18, EDIT+25, EDIT+31, EDIT+38, EDIT+39, EDIT+50, EDIT+51, EDIT+53
GETOUT	EDIT+3~, EDIT+15, EDIT+16, EDIT+29
ITEM	EDIT+3~, EDIT+18, EDIT+19, EDIT+21, EDIT+29, EDIT+31, EDIT+32, EDIT+33, EDIT+34, EDIT+35 , EDIT+36, EDIT+41, EDIT+44, EDIT+45, EDIT+46, EDIT+48, EDIT+49, EDIT+50, EDIT+52, EDIT+54 , EDIT+55, EDIT+56, EDIT+57*
LOOKUP	EDIT+17~
LOOKUP(	EDIT+19, EDIT+34, EDIT+35, EDIT+49!
OK	EDIT+3~, EDIT+4, EDIT+5, EDIT+10, EDIT+14, EDIT+16, EDIT+60*, EDIT+61, EDIT+62
PC	EDIT+24~, EDIT+31, EDIT+38, EDIT+39, EDIT+50, EDIT+51, EDIT+53*
QUIT	EN+4~, EN+5, EDITCD+5~, EDITCD+6, EDITCD+14, EDITCD+16, EDITCD+18, EDITCD+20, PATIENT+3~, PATIENT+4 , PATIENT+5, PATIENT+7*
REQ	EDIT+3~, EDIT+7*, EDIT+10
RESPONSE	EDIT+3~, EDIT+10, EDIT+12*, EDIT+13, EDIT+29, EDIT+30, EDIT+34, EDIT+35, EDIT+36, EDIT+41 , EDIT+42, EDIT+44, EDIT+45, EDIT+46, EDIT+52, EDIT+54, EDIT+56, EDIT+60, EDIT+61
SUB	EDIT+3~, EDIT+6, EDIT+8, EDIT+9, EDIT+10, EDIT+13, EDIT+18, EDIT+19, EDIT+25, EDIT+26 , EDIT+27, EDIT+29, EDIT+32, EDIT+35, EDIT+36, EDIT+39, EDIT+40, EDIT+41, EDIT+43, EDIT+44 , EDIT+45, EDIT+46, EDIT+52, EDIT+56
SUBEXIT	EDIT+3~, EDIT+37, EDIT+38, EDIT+41, EDIT+42*, EDIT+57
VAL	EDIT+3~, EDIT+5*, EDIT+6, EDIT+7, EDIT+12
Y	AGAIN+3~, AGAIN+7

Customize PDF page

Package: Registration

Routine: DGENCD

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: