;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.89 2003/07/21 09:46:22 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.91 2003/08/02 07:03:00 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
:lrl 'klrl :order '(cui asc))
(find-ucon-cui cui :srl srl)))
+(defun find-cui-normalized-word (word &key (srl *current-srl*) (like nil))
+ "Return list of cui that match word, optionally use SQL's LIKE syntax"
+ (collect-umlisp-query-eval ('mrxnw_eng '(cui) srl 'nwd word :like like :distinct t
+ :lrl 'klrl :order '(cui asc))
+ cui))
+
+(defun find-lui-normalized-word (word &key (srl *current-srl*) (like nil))
+ "Return list of cui that match word, optionally use SQL's LIKE syntax"
+ (collect-umlisp-query-eval ('mrxnw_eng '(lui) srl 'nwd word :like like :distinct t
+ :lrl 'klrl :order '(cui asc))
+ lui))
+
+(defun find-sui-normalized-word (word &key (srl *current-srl*) (like nil))
+ "Return list of cui that match word, optionally use SQL's LIKE syntax"
+ (collect-umlisp-query-eval ('mrxnw_eng '(sui) srl 'nwd word :like like :distinct t
+ :lrl 'klrl :order '(cui asc))
+ sui))
+
(defun find-ustr-word (word &key (srl *current-srl*))
"Return list of ustrs that match word"
(collect-umlisp-query (mrxw_eng (cui sui) srl wd word :lrl klrl
(make-instance 'bsab :sab sab :name name :hits (ensure-integer count))))
(defun find-btty-tty (tty)
- (:collect-umlisp-query (bonus_tty (name count) nil tty tty :single t)
+ (collect-umlisp-query (bonus_tty (name count) nil tty tty :single t)
(make-instance 'btty :tty tty :name name :hits (ensure-integer count))))
(defun find-btty-all ()
- (u::collect-umlisp-query (bonus_tty (tty name count) nil nil nil :order (tty asc))
+ (collect-umlisp-query (bonus_tty (tty name count) nil nil nil :order (tty asc))
(make-instance 'btty :tty tty :name name :hits (ensure-integer count))))
(defun find-brel-rel (rel)
- (u::collect-umlisp-query (bonus_rel (sab sl rel rela count) nil rel rel)
- (make-instance 'brel :sab sab :sl sl :rel rel :rela rela
+ (collect-umlisp-query (bonus_rel (sab sl rel rela count) nil rel rel)
+ (make-instance 'brel :sab sab :sl sl :rel rel :rela rela
:hits (ensure-integer count))))
-