Routine: XDRPTCAN

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+4

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

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