[Home] [Help]
1045:
1046: type inv_lines_tbl_type is table of ra_interface_lines_all%rowtype index by binary_integer;
1047: type inv_dist_tbl_type is table of ra_interface_distributions_all%rowtype index by pls_integer;
1048: type sales_credits_tbl_type is table of ra_interface_salescredits_all%rowtype index by pls_integer;
1049: type ar_contingency_tbl_type is table of ar_interface_conts_all%rowtype index by pls_integer;
1050:
1051: inv_lines_tbl inv_lines_tbl_type;
1052: inv_dist_tbl inv_dist_tbl_type;
1053: sales_credits_tbl sales_credits_tbl_type;
1863: END IF;
1864: -- Build ra_interface_lines_rec
1865: -- Build ra_interface_distributions_rec
1866: -- Build ra_interface_salescredits_all
1867: -- Build ar_interface_conts_all
1868:
1869: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1870: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Building AR records');
1871: END IF;
2663: --begin bug 5474184
2664: cont_cnt := ( ar_contingency_tbl.count + 1 );
2665:
2666: BEGIN
2667: SELECT AR_INTERFACE_CONTS_S.NEXTVAL
2668: INTO ar_contingency_tbl(cont_cnt).INTERFACE_CONTINGENCY_ID
2669: FROM DUAL;
2670: EXCEPTION
2671: WHEN OTHERS THEN
3087: IF ar_contingency_tbl.COUNT > 0 THEN
3088:
3089: FORALL indx in ar_contingency_tbl.first..ar_contingency_tbl.LAST
3090: SAVE EXCEPTIONS
3091: INSERT INTO AR_INTERFACE_CONTS_ALL
3092: VALUES ar_contingency_tbl(indx);
3093:
3094: END IF;
3095:
3214:
3215: -- ----------------------------------
3216: -- delete records from contingencies
3217: -- ----------------------------------
3218: delete from AR_INTERFACE_CONTS
3219: --start: | 15-FEB-07 cklee R12 Billing enhancement project
3220: -- where interface_line_attribute10 = to_char(SUBSTR (error_tbl(indx).id,1, 20))
3221: -- and interface_line_attribute11 = to_char(SUBSTR(error_tbl(indx).id,21));
3222: where interface_line_attribute14 = to_char(error_tbl(indx).id);