Routine: DPTDCAN

Package	Total	Call Graph
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
END
NAME	;
DOB	;Get patients with same date of birth
EOJ	;
SSNX
VALUE	;
START	;
SSN	;Get patients with same last four digits of ssn
DOBX
NAMEX

Name	Field # of Occurrence
EN^DIQ1	VALUE+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+7, START+11, NAME+1
^DPT("ADOB"	DOB+4, DOB+10
^DPT("B"	NAME+6, NAME+7
^DPT("BS"	SSN+5
^DPT("SSN"	SSN+12
^TMP("DPTDCAN"	SSN+12*
^TMP("XDRD"	START+1!, NAME+7, SSN+5, DOB+4, DOB+10

Name	Field # of Occurrence
%	SSN+5, SSN+12, DOB+4, DOB+10, EOJ+1!
DA	VALUE+1*, VALUE+2!
DIC	VALUE+1*, VALUE+2!
DIQ	VALUE+1*, VALUE+2!
DIQ(0	VALUE+1*
DPTDCAN	START+1!, EOJ+1!
DPTDCAN(	NAME+2, NAME+3, SSN+1, SSN+2, DOB+1, DOB+2
DPTDCAN("5SSN"	SSN+12*
DPTDCAN("BDOB"	DOB+3, DOB+4, DOB+9, DOB+10
DPTDCAN("BL4SSN"	SSN+4, SSN+5
DPTDCAN("BNAME"	NAME+5, NAME+6, NAME+7
DPTDCAN("BNAMEDFN"	NAME+7*
DPTDCAN("DOB"	DOB+2*, DOB+4, DOB+8
DPTDCAN("L4SSN"	SSN+3*, SSN+5
DPTDCAN("LNAME&FI"	NAME+4*, NAME+5
DPTDCAN("NAME"	NAME+3*, NAME+4, NAME+6
DPTDCAN("SSN"	SSN+2*, SSN+3, SSN+12
DPTDCAN("TDOB"	DOB+8*, DOB+10
DR	VALUE+1*, VALUE+2!
>> I	NAME+6*
U	START+11
>> XDRCD	START+7, START+11, VALUE+1, NAME+1, NAME+2, NAME+3, NAME+7, SSN+1, SSN+2, SSN+4 , DOB+1, DOB+2, DOB+3, DOB+9
>> XDRFL	START+1, NAME+1, NAME+2, NAME+3, NAME+7, SSN+1, SSN+2, SSN+5, SSN+12, DOB+1 , DOB+2, DOB+4, DOB+10