# KEHOME/knowledge/rhm/applications/Genealogy/bin/check.mkr.html # Richard H. McCullough Jul/28/1999 Aug/11/2005 Mar/31/2015 # check unique names and other names do clock od "read family history"; do read from family.mkr; do check od person; # number of persons Dr. Richard H. McCullough isa person; echo := off; do clock od "check MISSING unique names"; every unique isa person { if $unique has uniquename; else do print od "# MISSING uniquename: $unique"; fi; }; do clock od "check CONFLICT with other names"; every unique isa person { if ? has othername += $unique; then do print od "# CONFLICT with othername: $unique"; fi; }; do clock od "done"; echo := on; exit;