412: select element_type_id from pay_element_types_f
413: where element_name = element_name_list (el_cnt) || 'POST_VERTEX';
414:
415: cursor crs_post_input_value_id (p_element_type_id number, p_inp_cnt number) is
416: select input_value_id from pay_input_values_f
417: where element_type_id = p_element_type_id and
418: name = post_inp_value_list(p_inp_cnt);
419:
420: cursor crs_arr_element_type_id (el_count number) is
421: select element_type_id from pay_element_types_f
422: where element_name = element_name_list (el_count) || 'ARR';
423:
424: cursor crs_arr_input_value_id (p_element_type_id number, p_inp_cnt number) is
425: select input_value_id from pay_input_values_f
426: where element_type_id = p_element_type_id and
427: name = arr_inp_value_list(p_inp_cnt);
428:
429: cursor crs_arr_bal_id (p_bal_cnt number) is
1089: IS
1090: CURSOR arr_inp (p_arr_name VARCHAR2)
1091: IS
1092: SELECT iv.input_value_id
1093: FROM pay_input_values_f iv,
1094: pay_element_types_f et
1095: WHERE et.element_name = p_arr_name AND
1096: et.element_type_id = iv.element_type_id;
1097: /* balances counter */
1128: end;
1129: spec_cnt := spec_cnt + 1;
1130: END LOOP;
1131: begin
1132: DELETE FROM pay_input_values_f
1133: WHERE input_value_id = ln_id and
1134: business_group_id is null;
1135: EXCEPTION
1136: WHEN NO_DATA_FOUND THEN NULL;
1198: IS
1199: CURSOR arr_inp (p_arr_name VARCHAR2)
1200: IS
1201: SELECT iv.input_value_id
1202: FROM pay_input_values_f iv,
1203: pay_element_types_f et
1204: WHERE et.element_name = p_arr_name AND
1205: et.element_type_id = iv.element_type_id;
1206: /* balances counter */
1573: IS
1574: CURSOR post_inp (p_post_name VARCHAR2)
1575: IS
1576: SELECT iv.input_value_id
1577: FROM pay_input_values_f iv,
1578: pay_element_types_f et
1579: WHERE et.element_name = p_post_name AND
1580: et.element_type_id = iv.element_type_id;
1581: /* balances counter */
1596: FOR post_rec IN post_inp(lc_name)
1597: LOOP
1598: ln_id := post_rec.input_value_id;
1599: begin
1600: DELETE FROM pay_input_values_f
1601: WHERE input_value_id = ln_id and
1602: business_group_id is null;
1603: EXCEPTION
1604: WHEN NO_DATA_FOUND THEN NULL;
1908: IS
1909: CURSOR first_inp (p_post_name VARCHAR2)
1910: IS
1911: SELECT iv.input_value_id
1912: FROM pay_input_values_f iv,
1913: pay_element_types_f et
1914: WHERE et.element_name = p_post_name AND
1915: et.element_type_id = iv.element_type_id
1916: ;
2028: open sel_input (element_name_list(el_count)||'ARR');
2029: fetch sel_input into lc_element_type_id;
2030: close sel_input;
2031: --
2032: update pay_input_values_f
2033: set business_group_id = null
2034: where element_type_id = lc_element_type_id
2035: and business_group_id is not null
2036: ;
2039: set business_group_id = null,
2040: effective_start_date = v_effective_start_date
2041: where input_value_id in
2042: (select input_value_id
2043: from pay_input_values_f
2044: where element_type_id = lc_element_type_id)
2045: and (business_group_id is not null
2046: or effective_start_date <> v_effective_start_date)
2047: ;
2060: fetch sel_input into lc_element_type_id;
2061: close sel_input;
2062: --
2063: --
2064: update pay_input_values_f
2065: set business_group_id = null
2066: where element_type_id = lc_element_type_id
2067: and business_group_id is not null
2068: ;
2094:
2095: CURSOR csr_bal_feeds (p_arr_element_type_id number)
2096: IS
2097: SELECT pbf.balance_feed_id, pbt.balance_name
2098: FROM pay_balance_feeds_f pbf, pay_input_values_f pivf,
2099: pay_element_types_f petf, pay_balance_types pbt
2100: WHERE pbf.input_value_id = pivf.input_value_id and
2101: petf.element_type_id = pivf.element_type_id and
2102: petf.element_type_id = p_arr_element_type_id and
2192:
2193: cursor csr_run_results is
2194: select prrv.run_result_id, prrv.input_value_id, prrv.result_value
2195: from pay_run_result_values prrv,
2196: pay_input_values_f pivf,
2197: pay_element_types_f petf
2198: where prrv.input_value_id = pivf.input_value_id and
2199: upper(pivf.name) = 'PAY VALUE' and
2200: pivf.element_type_id = petf.element_type_id and