[Home] [Help]
84: /* Bug#6375368 The Unique Constraint error fires if there are multiple
85: * contracts to be processed in OKL_EXT_BILLING_INTERFACE table. As the
86: * contract changes and the contract repeats for further processing the
87: * max_line_num_csr returns l_max_line_num as NULL or a number thats used
88: * earlier for the contract, as the insert for okl_strm_elements is done
89: * outside the loop. When the insert is done a unique constraint is fired
90: * due to duplication of se_line_number in SEL_TBL. The order by clause
91: * is added in act_prop_tax_csr to process the records in order of
92: * contract_id, asset_id,sty_id resulting in unique se_line_number for
278: -- Max Line Number
279: ------------------------------------------------------------
280: CURSOR max_line_num_csr (p_stm_id NUMBER) IS
281: SELECT max(se_line_number)
282: FROM okl_strm_elements
283: WHERE stm_id = p_stm_id;
284:
285: ------------------------------------------------------------
286: -- Property Tax applicable cursor
370: TYPE tai_tbl_type IS TABLE OF OKL_TRX_AR_INVOICES_B%ROWTYPE INDEX BY BINARY_INTEGER;
371: TYPE til_tbl_type IS TABLE OF OKL_TXL_AR_INV_LNS_B%ROWTYPE INDEX BY BINARY_INTEGER;
372: TYPE ptc_tbl_type IS TABLE OF OKL_PROPERTY_TAX_B%ROWTYPE INDEX BY BINARY_INTEGER;
373: TYPE stm_tbl_type IS TABLE OF OKL_STREAMS%ROWTYPE INDEX BY BINARY_INTEGER;
374: TYPE sel_tbl_type IS TABLE OF OKL_STRM_ELEMENTS%ROWTYPE INDEX BY BINARY_INTEGER;
375:
376: -- TL tables for insert
377: TYPE taitl_tbl_type IS TABLE OF OKL_TRX_AR_INVOICES_TL%ROWTYPE INDEX BY BINARY_INTEGER;
378: TYPE tiltl_tbl_type IS TABLE OF OKL_TXL_AR_INV_LNS_TL%ROWTYPE INDEX BY BINARY_INTEGER;
1605: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1606: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ++ begin - create actual property tax stream elements.');
1607: END IF;
1608: forall i in sel_tbl.first..sel_tbl.last
1609: insert into okl_strm_elements
1610: values sel_tbl(i);
1611: COMMIT;
1612: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- end - create actual property tax stream elements.');
1666: -- referential integrity
1667: -- ------------------------------
1668: delete from OKL_PROPERTY_TAX_tl where id = ptc_tbl(indx).id;
1669: delete from OKL_PROPERTY_TAX_b where id = ptc_tbl(indx).id;
1670: delete from okl_strm_elements where id = upd_sel_tbl(indx);
1671: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Deleting records from OKL_PROPERTY_TAX_tl and OKL_PROPERTY_TAX_b.');
1673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Deleting record from OKL_STRM_ELEMENTS.');
1674: END IF;
1669: delete from OKL_PROPERTY_TAX_b where id = ptc_tbl(indx).id;
1670: delete from okl_strm_elements where id = upd_sel_tbl(indx);
1671: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Deleting records from OKL_PROPERTY_TAX_tl and OKL_PROPERTY_TAX_b.');
1673: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Deleting record from OKL_STRM_ELEMENTS.');
1674: END IF;
1675: END IF;
1676:
1677: IF l_acc_cmt_cnt > 500 THEN