Routine: DGMTDD1

Package	Total	Call Graph
VA Fileman	2	GETS^DIQ ^DIR
Registration	1	$$CNTDEPS^DGMTU11

Entry Points

Name	Comments	DBIA/ICR reference
SSNQ
WARN	; printed WARNING message to alert user that spouse/dependent SSN be ; that of a veteran in Patient/Income Person File.
SSN	; called from the input transform of the SSN field in file 408.13
SSDEP	; warning if spouse's/dependent's SSN is found in file 408.13 and ; name, sex, DOB don't match
PSEU	;create a Pseudo SSN using same algorithm as file 2 in PSEU^DGRPDD1
REL	; called from the input transform of the RELATIONSHIP field of file 408.12...sets DIC("S")
CON	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Response must be either nine numbers, be in the format nnn-nn-nnnn",!,"or include a ""P"" for a Pseudo SSN." Line Location: SSN+3
Function Call: WRITE	Prompt: !!,$C(7),"Invalid Pseudo SSN, type ""P"" for valid one." Line Location: SSN+5
Function Call: WRITE	Prompt: !,*7,"The SSN must not begin with 9." Line Location: SSN+9
Function Call: WRITE	Prompt: !,*7,"First three digits cannot be zeros." Line Location: SSN+10
Function Call: WRITE	Prompt: !,*7,"Warning - ",X," belongs to patient ",PATNAME Line Location: WARN+2
Routine Call	DIR Line Location: WARN+3

FileNo	Call Tags
^DGPR(408.13 - [#408.13]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPR(408.12 - [#408.12]	REL+2
^DGPR(408.13 - [#408.13]	SSDEP+2, SSDEP+4, PSEU+3
^DPT - [#2]	SSN+29
^DPT("SSN"	SSN+29

Name	Field # of Occurrence
%	SSN+1~, SSN+7*
ANS	SSNQ!
ANS(	SSN+22, SSN+25, SSN+30, SSDEP+3, PSEU+2, PSEU+4, PSEU+5, PSEU+6
>> DA	SSN+24, SSN+25, PSEU+3, REL+2
DGN	SSN+1~, SSN+29, SSDEP+2, SSDEP+4
DGNODE	REL+1~, REL+2*, REL+4, REL+6
>> DGNODE0	PSEU+3*, PSEU+4
DGPAT	SSN+1~, SSN+29, SSN+30, SSN+31, SSDEP+2, SSDEP+3
>> DGTYPE	REL+7
DGX	REL+1~, REL+2, REL+3, REL+4
>> DIC("S"	REL+3, REL+5, REL+6, REL+7
DIR	WARN+3!
DIR("A"	WARN+3*
DIR("B"	WARN+3*, WARN+4!, WARN+5!
DIR(0	WARN+3*
>> DOB	PSEU+6, PSEU+7, PSEU+12
FLD	SSN+23~, SSN+25*
KANS	SSN+1~, SSN+26, SSN+27, SSNQ, PSEU+1*
L	SSN+1~, SSN+4!, SSN+5!, SSN+9, PSEU+12
>> L1	PSEU+8, PSEU+9, PSEU+12
>> L2	PSEU+8, PSEU+10, PSEU+12
>> L3	PSEU+8, PSEU+11, PSEU+12
>> NAM	PSEU+5, PSEU+8
PATNAME	SSN+1~, SSN+31, SSDEP+4, WARN+2
PREVX	SSN+1~, WARN+3*, WARN+4!
REC	SSN+23~
REC(	SSN+25
SEX	REL+1~, REL+4*, REL+5
U	PSEU+4, REL+6
X	SSN+3!, SSN+4, SSN+5!, SSN+6, SSN+7, SSN+8!, SSN+9!, SSN+10!, SSN+29, SSDEP+2 , WARN+2, WARN+3, WARN+4*, WARN+5!
>> Y	WARN+4
>> Z	PSEU+9, PSEU+10, PSEU+11, CON+1