# KEHOME/knowledge/applications/Genealogy/check.htm
# 1999/7/28
# new syntax May/21/2003
# check unique names and other names
do clock od "read family history" done;
do read from family.ku done;
#Dr. Richard H. McCullough isa person;
#do usize od person done;
set echo=off;
do clock od "check MISSING unique names" done;
every unique isa person {
if $unique has uniquename; else
do print od "# MISSING uniquename: $unique" done;
fi;
};
do clock od "check CONFLICT with other names" done;
every unique isa person {
if ? has othername +=$unique; then
do print od "# CONFLICT with othername: $unique" done;
fi;
};
do clock od "done" done;
set echo=on;
exit;