Routine: DGENCD1

Call Graph

Package	Total	Call Graph
Registration	7	$$PRIORITY^DGENA EDITCD^DGENCD ($$CDTYPE,$$CHKSITE,$$GET,$$HASCAT)^DGENCDA $$DELETE^DGENCDA1 BLD^DGENL (EN,INIT)^DGENLCD FULL^VALM1
Kernel	2	(BMES,MES)^XPDUTL $$NS^XUAF4
VA Fileman	2	YN^DICN ^DIR

Package	Total	Caller Graph
Registration	1	DGENU

Name	Comments	DBIA/ICR reference
EN(DFN)	;Entry point for DGENCD CATASTROPHIC DISABILITY protocol
DELETECD	;Entry point for DGENCD DELETE CATASTROPHIC DISABILITY protocol ; Input -- DFN Patient IEN ; Output -- VALMBCK R =Refresh screen
YN(PROMPT,DFLT)	; Ask user a yes/no question.
RUSURE(DFN)	;
ADDCD	;Entry point for DGENCD ADD/EDIT CATASTROPHIC DISABILITY protocol ; Input -- DFN Patient IEN ; Output -- VALMBCK R =Refresh screen

Name	Field # of Occurrence
$$PRIORITY^DGENA	ADDCD+28
EDITCD^DGENCD	ADDCD+36
$$CDTYPE^DGENCDA	ADDCD+6, RUSURE+13
$$CHKSITE^DGENCDA	ADDCD+7, RUSURE+6
$$GET^DGENCDA	DELETECD+5
$$HASCAT^DGENCDA	RUSURE+25
$$DELETE^DGENCDA1	DELETECD+10
BLD^DGENL	EN+2
EN^DGENLCD	EN+1
INIT^DGENLCD	ADDCD+36, DELETECD+11
YN^DICN	YN+6
^DIR	ADDCD+25, DELETECD+7, RUSURE+18, RUSURE+28
FULL^VALM1	ADDCD+5, DELETECD+4
BMES^XPDUTL	ADDCD+9, ADDCD+14, ADDCD+21, RUSURE+9, RUSURE+14
MES^XPDUTL	ADDCD+10, ADDCD+11, ADDCD+15, ADDCD+16, ADDCD+17, ADDCD+22, ADDCD+23, RUSURE+10, RUSURE+11, RUSURE+15
$$NS^XUAF4	ADDCD+20, RUSURE+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"According to the veteran's current enrollment record, the",! Line Location: ADDCD+31
Function Call: WRITE	Prompt: "assignment of a Catastrophically Disabled Status will not",! Line Location: ADDCD+32
Function Call: WRITE	Prompt: "improve his/her enrollment priority.",!! Line Location: ADDCD+33
Function Call: WRITE	Prompt: !!,">>> Deleting the Catastrophic Disability information will also delete all <<<",! Line Location: RUSURE+26
Function Call: WRITE	Prompt: ">>> supporting fields, including Diagnoses, Procedures and Conditions. <<<",! Line Location: RUSURE+27
Function Call: WRITE	Prompt: PROMPT Line Location: YN+4
Function Call: WRITE	Prompt: ! Line Location: YN+7
Function Call: WRITE	Prompt: ?5,"You can just enter 'Y' or 'N'.",!! Line Location: YN+9
Routine Call	DIR Line Location: ADDCD+25 DELETECD+7 RUSURE+18 RUSURE+28

Name	Line Occurrences
$$RUSURE	DELETECD+9
$$YN	ADDCD+12, ADDCD+34

Name	Field # of Occurrence
%	YN+2~, YN+5*, YN+8
%Y	YN+2~
CDSITE	ADDCD+3~, ADDCD+7*, ADDCD+8, ADDCD+20
DFLT	YN~, YN+1*, YN+5
DFN	EN~, EN+1, EN+2, ADDCD+6, ADDCD+7, ADDCD+28, ADDCD+36, DELETECD+5, DELETECD+9, DELETECD+10 , RUSURE~, RUSURE+6, RUSURE+13, RUSURE+25
>> DGCD	DELETECD+5
>> DGCD("DIAG"	DELETECD+5
DIR	RUSURE+5~, RUSURE+20!
DIR("A"	ADDCD+25, DELETECD+7, RUSURE+17, RUSURE+23
DIR("B"	RUSURE+16, RUSURE+24
DIR(0	ADDCD+25, DELETECD+7, RUSURE+16, RUSURE+22
DIROUT	RUSURE+5~, RUSURE+19
DIRUT	RUSURE+5~, RUSURE+19, RUSURE+29
DTOUT	RUSURE+5~, RUSURE+19
DUOUT	RUSURE+5~, RUSURE+19
EXIT	ADDCD+3~, ADDCD+4, ADDCD+18, ADDCD+24, ADDCD+26, ADDCD+35, ADDCD+36
NOERR	RUSURE+5~, RUSURE+13, RUSURE+19*
PRI	ADDCD+3~, ADDCD+28*, ADDCD+29
PROMPT	YN~, YN+4
SITE	RUSURE+5~, RUSURE+6*, RUSURE+7, RUSURE+8
SITEINF	ADDCD+20, ADDCD+21, ADDCD+22, RUSURE+5~, RUSURE+8, RUSURE+9, RUSURE+10
>> VALMBCK	ADDCD+4, ADDCD+26, ADDCD+37, DELETECD+3, DELETECD+12*
Y	RUSURE+19, RUSURE+20!, RUSURE+30
YN	ADDCD+3~, ADDCD+12, ADDCD+13, ADDCD+34, ADDCD+35, YN+2~, YN+3, YN+8*, YN+9, YN+10