CREATE OR REPLACE PROCEDURE ACCURATE.items_control (
   pram_store_id   IN       NUMBER,
   pram_item_id    IN       NUMBER,
   pram_what       IN       NUMBER,
   pram_amount     IN       NUMBER,
   pram_result     OUT      VARCHAR2
)
IS
/******************************************************************************
   NAME:       items_control
   PURPOSE:

   REVISIONS:
   Ver        Date        Author           Description
   ---------  ----------  ---------------  ------------------------------------
   1.0        02/05/2010          1. Created this procedure.

   NOTES:

   Automatically available Auto Replace Keywords:
      Object Name:     items_control
      Sysdate:         02/05/2010
      Date and Time:   02/05/2010, 03:18:40 م, and 02/05/2010 03:18:40 م
      Username:         (set in TOAD Options, Procedure Editor)
      Table Name:       (set in the "New PL/SQL Object" dialog)

******************************************************************************/
BEGIN
   IF pram_what = 1
   THEN
      UPDATE accurate.wh_startyear
         SET sy_start_amount = pram_amount
       WHERE finance_year = 2010
         AND store_id = pram_store_id
         AND item_id = pram_item_id;

      pram_result := 'Saved .. ';
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
   WHEN OTHERS
   THEN
      -- Consider logging the error and then re-raise
      RAISE;
END items_control;
/

declare
	var_r varchar2(50);
begin
	
ITEMS_CONTROL(1,1,1,20,var_r);
:TEXT_ITEM5:=var_r;

end;

SQL> l
  1  create or replace procedure prc_test
  2    (par_empno in number,
  3     par_msg   out varchar2
  4    )
  5  is
  6  begin
  7    update emp set
  8      comm = -comm
  9      where empno = par_empno;
 10
 11    if sql%rowcount > 0 then
 12       par_msg := 'Updated!';
 13    else
 14       par_msg := 'Better luck next time';
 15    end if;
 16* end;
SQL> /

Procedure created.

SQL> declare
  2    l_msg varchar2(50);
  3  begin
  4    prc_test (1111, l_msg);
  5    dbms_output.put_line(l_msg);
  6  end;
  7  /
Better luck next time

PL/SQL procedure successfully completed.

SQL> select empno, comm from emp where comm is not null and rownum = 1;

     EMPNO       COMM
---------- ----------
      7499        300

SQL> declare
  2    l_msg varchar2(50);
  3  begin
  4    prc_test (7499, l_msg);
  5    dbms_output.put_line(l_msg);
  6  end;
  7  /
Updated!

PL/SQL procedure successfully completed.

SQL> select empno, comm from emp where empno = 7499;

     EMPNO       COMM
---------- ----------
      7499       -300

SQL>

/* Formatted on 2010/05/03 09:41 (Formatter Plus v4.8.8) */
CREATE OR REPLACE PROCEDURE accurate.items_control (
   pram_store_id   IN       NUMBER,
   pram_item_id    IN       NUMBER,
   pram_what       IN       NUMBER,
   pram_amount     IN       NUMBER,
   pram_result     OUT      VARCHAR2
)
IS
BEGIN
   IF pram_what = 1
   THEN
      UPDATE accurate.wh_startyear
         SET sy_start_amount = pram_amount
       WHERE finance_year = 2010
         AND store_id = pram_store_id
         AND item_id = pram_item_id;

      COMMIT;

      --pram_result := 'Saved .. ';
      IF SQL%ROWCOUNT = 1
      THEN
         pram_result := 'Saved .. ';
      ELSE
         ROLLBACK;
         pram_result := 'more than one record ';
      END IF;
   END IF;
END items_control;
/