Try this.

Originally posted by oracledev
Code:
CREATE OR REPLACE PACKAGE BODY Calendar_LastYrStatistics 
IS
   PROCEDURE LastYr_Statistics
   ( pProperty In  Varchar2,
     pThisDate In  Date,
     pOccupied Out Number,
     pSameDay  Out Number);
END Calendar_LastYrStatistics;

CREATE OR REPLACE PACKAGE BODY Calendar_LastYrStatistics 
IS
   PROCEDURE LastYr_Statistics
   ( pProperty In  Varchar2,
     pThisDate In  Date,
     pOccupied Out Number,
     pSameDay  Out Number) 
   IS 
      vFromDate Date;
   BEGIN
      vFromDate:=Add_Months(pThisDate,-12);

      SELECT Occupied,SameDay
        INTO pOccupied, pSameDay
        FROM Daily_Stat 
       WHERE Property = pProperty 
         AND ThisDate = vFromDate;       
   Exception
      WHEN NO_DATA_FOUND THEN
         pOccupied :=NULL;
         pSameDay  :=NULL;
      WHEN OTHERS THEN
         RAISE;
   END LastYr_Statistics;
END Calendar_LastYrStatistics;
/