[Home] [Help]
785: ,p_stream_type_purpose IN VARCHAR2
786: ,p_adv_grouping_flag IN VARCHAR2 -- reserved for future use
787: ) RETURN VARCHAR2 IS
788:
789: l_disb_rule varchar2(150) := to_char(p_okl_invoice_line_id); -- defualt to okl_txl_ap_inv_lns_all_b.id as a group criteria
790: l_disb_rules disb_rules_type;
791: lx_rule_found BOOLEAN := FALSE;
792: lx_return_status VARCHAR2(30) := G_RET_STS_SUCCESS;
793: BEGIN
793: BEGIN
794: /*
795: Business logic:
796: If criteria meet, set Term name as a grouping cirteria. Otherwise, set
797: okl_txl_ap_inv_lns_all_b.id as a grouping criteria.
798:
799: */
800:
801: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'get_Disbursement_rule: p_vendor_id/p_vendor_site_id/p_stream_type_purpose/'
2234: cin_cnt := cin_cnt + 1; -- create header only once
2235: END IF; -- IF cin_cnt = 0 THEN
2236:
2237: cin_ln_cnt := cin_ln_cnt + 1; -- increase the count
2238: -- 2. update okl_txl_ap_inv_lns_all_b with FK: cnsld_ap_inv_id and cnsld_line_number
2239: UPDATE okl_txl_ap_inv_lns_all_b txl
2240: SET txl.cnsld_ap_inv_id = lx_cin_rec.cnsld_ap_inv_id,
2241: txl.cnsld_line_number = cin_ln_cnt,
2242: txl.LAST_UPDATED_BY = fnd_global.user_id,
2235: END IF; -- IF cin_cnt = 0 THEN
2236:
2237: cin_ln_cnt := cin_ln_cnt + 1; -- increase the count
2238: -- 2. update okl_txl_ap_inv_lns_all_b with FK: cnsld_ap_inv_id and cnsld_line_number
2239: UPDATE okl_txl_ap_inv_lns_all_b txl
2240: SET txl.cnsld_ap_inv_id = lx_cin_rec.cnsld_ap_inv_id,
2241: txl.cnsld_line_number = cin_ln_cnt,
2242: txl.LAST_UPDATED_BY = fnd_global.user_id,
2243: txl.LAST_UPDATE_DATE = sysdate,
2242: txl.LAST_UPDATED_BY = fnd_global.user_id,
2243: txl.LAST_UPDATE_DATE = sysdate,
2244: txl.REQUEST_ID = Fnd_Global.CONC_REQUEST_ID -- 11-Dec-2007 cklee -- Fixed bug: 6682348 -- stamped request_id when insert/UPDATE
2245: WHERE txl.id = r_invoice.tpl_id;
2246: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' update okl_txl_ap_inv_lns_all_b with FK: cnsld_ap_inv_id and cnsld_line_number. cin_ln_cnt:<'
2247: || cin_ln_cnt || '>r_invoice.tpl_id:' ||r_invoice.tpl_id || 'lx_cin_rec.cnsld_ap_inv_id:'|| lx_cin_rec.cnsld_ap_inv_id);
2248:
2249: l_tplv_tbl(cin_ln_cnt).tap_id := r_invoice.tap_id;
2250: END LOOP; -- end of c_invoice loop
2252:
2253: -- Since the status stored at header, we only need to update once if
2254: -- one of the children record has been processed.
2255: --------------------------------------------------------------------
2256: -- note: we shall add another trx_status_code at line level okl_txl_ap_inv_lns_all_b
2257: -- in case if lines merged with diferent invoice header
2258: --------------------------------------------------------------------
2259: IF l_tplv_tbl.COUNT > 0 THEN
2260: FOR k in l_tplv_tbl.FIRST..l_tplv_tbl.LAST