X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=363a5ac59a5871b91704dc94b7c89894d4afb62d;hb=ea26d2291ff800e37c28388d9bb24cacbfbbbe57;hp=3a1ac39df773d543fb41266cdcbdd8f90793a373;hpb=d31820a74816f320079eeed9448c41272f7c9692;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 3a1ac39..363a5ac 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -585,15 +585,17 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
   "Find usab for a key"
   (collect-umlisp-query-eval ('mrsab '(vcui rcui vsab rsab son sf sver vstart
 				       vend imeta rmeta slc scc srl tfr cfr cxty
-				       ttyl atnl lat cenc curver sabin)
+				       ttyl atnl lat cenc curver sabin
+				       ssn scit)
 				     nil key-name key :single t)
      (make-instance 'usab :vcui (ensure-integer vcui) 
-		   :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
-		   :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
-		   :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)
-		   :tfr (ensure-integer tfr) :cfr (ensure-integer cfr)
-		   :cxty cxty :ttyl ttyl :atnl atnl :lat lat :cenc cenc
-		   :curver curver :sabin sabin)))
+		    :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
+		    :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
+		    :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)
+		    :tfr (ensure-integer tfr) :cfr (ensure-integer cfr)
+		    :cxty cxty :ttyl ttyl :atnl atnl :lat lat :cenc cenc
+		    :curver curver :sabin sabin
+		    :ssn ssn :scit scit)))
 
 (defun find-usab-rsab (rsab)
   "Find usab for rsab"