CREATE OR REPLACE PROCEDURE DAVID(p_ep_instance IN VARCHAR2)

AS

p_message VARCHAR(2000);
p_record_id VARCHAR(60);
p_docAction VARCHAR(60);
p_user VARCHAR(60);
p_result NUMERIC;

BEGIN
      FOR Cur_Params IN (
    SELECT *
    FROM ad_ep_instance_para
    WHERE ad_ep_instance_id = p_ep_instance
    ) LOOP
    IF (cur_params.parametername LIKE 'DocAction') THEN
      p_docaction := Cur_Params.p_string;
    ELSIF (cur_params.parametername LIKE 'Record_ID') THEN
      p_record_id := cur_params.p_string;
    ELSIF (cur_params.parametername LIKE 'User') THEN
      p_user := cur_params.p_string;
    ELSIF (cur_params.parametername LIKE 'Message') THEN
      p_message := cur_params.p_text;
    ELSIF (cur_params.parametername LIKE 'Result') THEN
      p_result := cur_params.p_number;
    END IF;
  END LOOP;

  UPDATE ad_ep_instance_para
  SET p_text = 'David'
  WHERE ad_ep_instance_id = p_ep_instance
  AND parametername LIKE 'Message';
--   
  RAISE_APPLICATION_ERROR(-20000, 'DAVID');
END DAVID;
/