544: END IF;
545: END; /* Validate_Cust_Class */
546:
547: /* This function validates that the Custgl Class
548: exists in op_cgld_cls table */
549:
550: PROCEDURE Validate_Custgl_Class(
551: pi_table_name in varchar2,
552: pi_key_name in varchar2,
554: pi_field_name in varchar2,
555: pi_field_value in varchar2) IS
556: CURSOR C_Val_Custgl_Class (v_apps_Custgl_Class in varchar2) IS
557: SELECT 1
558: FROM op_cgld_cls
559: WHERE Custgl_Class = v_apps_Custgl_Class;
560: BEGIN
561: IF pi_field_value IS NOT NULL THEN
562: IF C_Val_Custgl_Class%ISOPEN THEN