1999: -- Validate that the Class category / code pair is valid
2000: BEGIN
2001:
2002: SELECT 'x' INTO l_dummy
2003: FROM pa_class_codes
2004: WHERE CLASS_CODE = p_class_code and
2005: CLASS_CATEGORY = p_class_category;
2006:
2007: EXCEPTION WHEN NO_DATA_FOUND THEN
2313: -- Validate that the Class category / code pair is valid
2314: BEGIN
2315:
2316: SELECT 'x' INTO l_dummy
2317: FROM pa_class_codes
2318: WHERE CLASS_CODE = p_class_code and
2319: CLASS_CATEGORY = p_class_category;
2320:
2321: EXCEPTION WHEN NO_DATA_FOUND THEN