BEGIN

      IF LENGTH(i_kpp) <> 9 
      OR LTRIM(SUBSTR(i_kpp,1,4),'1234567890') IS NOT NULL
      OR LTRIM(SUBSTR(i_kpp,5,2),'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ') IS NOT NULL  
      OR LTRIM(SUBSTR(i_kpp,7,3),'1234567890') IS NOT NULL
      THEN 
        raise_application_error(-20001,'ашыпка');
      END IF;  

END;

WITH t AS(
  SELECT '1111' v FROM dual UNION ALL
  SELECT '123456789' v FROM dual UNION ALL
  SELECT '098765432' v FROM dual UNION ALL
  SELECT 'A12345678' v FROM dual UNION ALL
  SELECT '1234A2567' v FROM dual UNION ALL
  SELECT '1234AA56' v FROM dual UNION ALL
  SELECT '1234AAD60' v FROM dual
)

SELECT v , CASE WHEN regexp_like(v,'^[0-9]{4}[0-9A-Z]{2}[0-9]{3}$','c') THEN 'OK' ELSE 'ERROR' END  
FROM t