Example of function for DAIS

CREATE OR REPLACE FUNCTION ADD_MEDICINE(P_NAME Medicine.name%type, P_MANUFACTURER Medicine.manf%type, P_PRICE Medicine.price%type)
RETURN INT
AS
   CURSOR medicines IS SELECT * FROM Medicine;
   FOUNDED BOOLEAN := false;
   RESULT INT := 0;
BEGIN
   FOR medicine IN medicines LOOP
      IF (medicine.name = P_NAME AND medicine.manf = P_MANUFACTURER) THEN
         FOUNDED := true;
         EXIT;
      ELSE
         FOUNDED := false;
      END IF;
   END LOOP;
   IF (FOUNDED = false) THEN
      INSERT INTO Medicine VALUES(P_NAME, P_MANUFACTURER, P_PRICE);
      RESULT := 1;
   ELSE
      RESULT := 0;
   END IF;
   RETURN RESULT;
END;