673: ELSE
674: RETURN 'VALID';
675: END IF;
676: ELSE
677: c := dbms_sql.open_cursor;
678: l_sql := 'select ' || P_PROCEDURE_NAME ||
679: '(:attrval,:lang,:attr,:entity) from dual';
680: dbms_sql.parse(c,l_sql,2);
681: dbms_sql.close_cursor(c);
676: ELSE
677: c := dbms_sql.open_cursor;
678: l_sql := 'select ' || P_PROCEDURE_NAME ||
679: '(:attrval,:lang,:attr,:entity) from dual';
680: dbms_sql.parse(c,l_sql,2);
681: dbms_sql.close_cursor(c);
682: RETURN 'VALID';
683: END IF;
684: EXCEPTION WHEN OTHERS THEN
677: c := dbms_sql.open_cursor;
678: l_sql := 'select ' || P_PROCEDURE_NAME ||
679: '(:attrval,:lang,:attr,:entity) from dual';
680: dbms_sql.parse(c,l_sql,2);
681: dbms_sql.close_cursor(c);
682: RETURN 'VALID';
683: END IF;
684: EXCEPTION WHEN OTHERS THEN
685: RETURN 'INVALID';
715: ELSE
716: RETURN 'VALID';
717: END IF;
718: ELSE
719: c := dbms_sql.open_cursor;
720: l_sql := 'select ' || P_CUST_PROCEDURE_NAME ||
721: '(:record_id,:entity,:attr) from dual';
722: dbms_sql.parse(c,l_sql,2);
723: dbms_sql.close_cursor(c);
718: ELSE
719: c := dbms_sql.open_cursor;
720: l_sql := 'select ' || P_CUST_PROCEDURE_NAME ||
721: '(:record_id,:entity,:attr) from dual';
722: dbms_sql.parse(c,l_sql,2);
723: dbms_sql.close_cursor(c);
724: RETURN 'VALID';
725: END IF;
726: EXCEPTION WHEN OTHERS THEN
719: c := dbms_sql.open_cursor;
720: l_sql := 'select ' || P_CUST_PROCEDURE_NAME ||
721: '(:record_id,:entity,:attr) from dual';
722: dbms_sql.parse(c,l_sql,2);
723: dbms_sql.close_cursor(c);
724: RETURN 'VALID';
725: END IF;
726: EXCEPTION WHEN OTHERS THEN
727: RETURN 'INVALID';