# 1999/7/28
# check unique names and other names
!clock "read family history"
!read family.ku
#Dr. Richard H. McCullough isa person
#!psize person
echo=off
!clock "check MISSING unique names"
every unique isa person do
if $unique has uniquename else
!print "# MISSING uniquename: $unique";
fi;
done
!clock "check CONFLICT with other names"
every unique isa person do
if ? has othername +=$unique then
!print "# CONFLICT with othername: $unique";
fi;
done
!clock "done"
echo=on
!exit