50: BEGIN
51: IF p_calc_sub_entry_id IS NOT NULL THEN
52: l_calc_sub_entry_id := p_calc_sub_entry_id;
53: ELSE
54: SELECT cn_calc_submission_entries_s1.NEXTVAL
55: INTO l_calc_sub_entry_id
56: FROM dual;
57: END IF;
58:
425: --+
426: FUNCTION get_calc_sub_entry_id RETURN NUMBER IS
427: l_calc_sub_entry_id NUMBER(15);
428: BEGIN
429: SELECT cn_calc_submission_entries_s1.nextval
430: INTO l_calc_sub_entry_id
431: FROM sys.dual;
432:
433: RETURN l_calc_sub_entry_id;