API to Create Grades

DECLARE
   l_grade_id                NUMBER := NULL;
   l_object_version_number   NUMBER := NULL;
   l_grade_definition_id     NUMBER := NULL;
   l_name                    VARCHAR2 (500) := NULL;
   l_err_msg                 VARCHAR2 (500) := NULL;
BEGIN
   BEGIN
      HR_GRADE_API.create_grade (
         p_validate                => FALSE,
         p_business_group_id       => 81, -- Business Group ID
         p_date_from               => TO_DATE ('01-JAN-1950', 'DD-MON-YYYY'),
         p_sequence                => 22,
--         p_date_to                 => TO_DATE ('31-DEC-4312', 'DD-MON-YYYY'),
         p_segment1                => 22,     -- Segments Defined in Grade KFF
         p_grade_id                => l_grade_id,
         p_object_version_number   => l_object_version_number,
         p_grade_definition_id     => l_grade_definition_id,
         p_name                    => l_name
      );
      COMMIT;
      DBMS_OUTPUT.put_line ('Grade Created: ' || l_grade_id);
   EXCEPTION
      WHEN OTHERS
      THEN
         l_err_msg := SQLERRM;
         DBMS_OUTPUT.put_line ('Inner Exception: ' || l_err_msg);
   END;
EXCEPTION
   WHEN OTHERS
   THEN
      l_err_msg := SQLERRM;
      DBMS_OUTPUT.put_line ('Main Exception: ' || l_err_msg);
END;