IDAS2_BUG

CREATE OR REPLACE PROCEDURE SEM_ZMENA_STAVU_OBEDNAVKY
(
P_OBJ_ID IN NUMBER,
P_OBJ_STAV IN VARCHAR2
) AS
any_rows_found NUMBER;
BEGIN
any_rows_found := 0;
SELECT COUNT(*)
  INTO   any_rows_found
  FROM   sem_objednavky
  WHERE  id = P_OBJ_ID;
IF any_rows_found = 0
THEN
raise_application_error(-20001,'Critical Error or no data found. A team of highly trained monkeys has been dispatched to deal with this situation.');
END IF;
UPDATE SEM_OBJEDNAVKY SET stav= P_OBJ_STAV WHERE ID = P_OBJ_ID;
DBMS_OUTPUT.PUT_LINE('Stav obednavky zmenen na: ' || p_obj_stav);
END SEM_ZMENA_STAVU_OBEDNAVKY;