Update SQL_OO.sql

SQL_OO.sql

@@ -180,3 +180,21 @@ CREATE TABLE Client (
     l_animal ListeRefAnimal
 ) NESTED TABLE l_animal STORE AS ntAnimaux;
 /
+CREATE TYPE BODY esp IS
+MEMBER FUNCTION espece_autoriser(espece IN STRING) RETURN BOOL
+  IS
+    res BOOL;
+    esp e is
+      SELECT especes.espece
+      FROM Medicament
+      WHERE especes.espece = espece;
+
+    IF esp THEN
+      res := True;
+    ELSE
+      res := False;
+    END IF;
+    RETURN res;
+  END;
+END;
+/
\ No newline at end of file