procedure para zerar valores orçados

zeravaloresorcados.sql

create or replace PROCEDURE ZERARVALORESORCAMENTO(ANO VARCHAR2) IS
ID_PERIODO NUMBER;
BEGIN

  /**
  
   Autores: ALfredo Braga / Paulo Moraes
   Data : 05/11/2014
  
    Atualmente o RM gerencia os itens de Orçamento de maneira peculiar.
    O Alisson da Controladoria utiliza uma rotina de atualização dos itens do
    orçamento que importa para o sistema uma tabela em Excel que possui os 
    valores para cada centro de custo. Mas caso já exista um valor para um 
    determinado centro que custo que esta na tabela do excel criada por ele
    em vez de sobrepor o valor ele soma o valor atual com o valor a ser 
    importado o que atrapalha o Alisson. Para resolver esse prtoblema foi 
    criada essa procedure que vai ser chamada por um relátorio dentro do sistema
    
    A procedure simplesmente zera todos os valores de itens de orçamento de um 
    determinado periodo/ano que é passado como parametro.
  */


  SELECT IDPERIODO INTO ID_PERIODO 
  FROM TPERIODOORCAMENTO 
  WHERE TO_CHAR(TPERIODOORCAMENTO.DATAINICIO, 'YYYY') = ANO 
  AND TO_CHAR(TPERIODOORCAMENTO.DATAFIM, 'YYYY') = ANO;
  
  UPDATE TITMORCAMENTO SET VALORORCADO = 0 WHERE IDPERIODO = ID_PERIODO;
  
  COMMIT;

END;