589: ------------------------------------------------
590: BEGIN
591: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
592:
593: p_delete_header_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
590: BEGIN
591: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
592:
593: p_delete_header_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
591: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
592:
593: p_delete_header_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
593: p_delete_header_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
595: dbms_sql.v7 );
596:
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
597: p_delete_line_dist_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
601: p_delete_header_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
603: dbms_sql.v7 );
604:
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
605: p_delete_line_cma_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
614: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
614: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
615: dbms_sql.v7 );
609: p_update_header_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
614: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
615: dbms_sql.v7 );
616:
617: EXCEPTION
610: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
614: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
615: dbms_sql.v7 );
616:
617: EXCEPTION
618: WHEN OTHERS THEN
611: dbms_sql.v7 );
612:
613: p_update_lines_c := dbms_sql.open_cursor;
614: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
615: dbms_sql.v7 );
616:
617: EXCEPTION
618: WHEN OTHERS THEN
619: debug( 'EXCEPTION: Error parsing update mode stmts' );
1341: ------------------------------------------------
1342: BEGIN
1343: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1344:
1345: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1346: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1342: BEGIN
1343: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1344:
1345: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1346: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1343: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1344:
1345: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1346: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1345: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1346: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1346: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1347: dbms_sql.v7 );
1348:
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1349: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1350: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1358: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1351: dbms_sql.v7 );
1352:
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1358: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1359: dbms_sql.v7 );
1353: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1358: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1359: dbms_sql.v7 );
1360: EXCEPTION
1361: WHEN OTHERS THEN
1354: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1358: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1359: dbms_sql.v7 );
1360: EXCEPTION
1361: WHEN OTHERS THEN
1362: debug( 'EXCEPTION: Error parsing nonrule stmts' );
1355: dbms_sql.v7 );
1356:
1357: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1358: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1359: dbms_sql.v7 );
1360: EXCEPTION
1361: WHEN OTHERS THEN
1362: debug( 'EXCEPTION: Error parsing nonrule stmts' );
1363: RAISE;
2047: ------------------------------------------------
2048: BEGIN
2049: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2050:
2051: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2052: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2053: dbms_sql.v7 );
2054:
2055: debug(' parsed p_rule_select_cm_lines_c');
2048: BEGIN
2049: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2050:
2051: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2052: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2053: dbms_sql.v7 );
2054:
2055: debug(' parsed p_rule_select_cm_lines_c');
2056:
2049: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2050:
2051: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2052: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2053: dbms_sql.v7 );
2054:
2055: debug(' parsed p_rule_select_cm_lines_c');
2056:
2057: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2053: dbms_sql.v7 );
2054:
2055: debug(' parsed p_rule_select_cm_lines_c');
2056:
2057: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2058: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2059: dbms_sql.v7 );
2060:
2061: debug(' parsed p_rule_update_cm_lines_c');
2054:
2055: debug(' parsed p_rule_select_cm_lines_c');
2056:
2057: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2058: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2059: dbms_sql.v7 );
2060:
2061: debug(' parsed p_rule_update_cm_lines_c');
2062:
2055: debug(' parsed p_rule_select_cm_lines_c');
2056:
2057: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2058: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2059: dbms_sql.v7 );
2060:
2061: debug(' parsed p_rule_update_cm_lines_c');
2062:
2063: p_rule_insert_dist_c := dbms_sql.open_cursor;
2059: dbms_sql.v7 );
2060:
2061: debug(' parsed p_rule_update_cm_lines_c');
2062:
2063: p_rule_insert_dist_c := dbms_sql.open_cursor;
2064: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2065: dbms_sql.v7 );
2066:
2067: debug(' parsed p_rule_insert_dist_c');
2060:
2061: debug(' parsed p_rule_update_cm_lines_c');
2062:
2063: p_rule_insert_dist_c := dbms_sql.open_cursor;
2064: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2065: dbms_sql.v7 );
2066:
2067: debug(' parsed p_rule_insert_dist_c');
2068:
2061: debug(' parsed p_rule_update_cm_lines_c');
2062:
2063: p_rule_insert_dist_c := dbms_sql.open_cursor;
2064: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2065: dbms_sql.v7 );
2066:
2067: debug(' parsed p_rule_insert_dist_c');
2068:
2069: p_rule_insert_cma_c := dbms_sql.open_cursor;
2065: dbms_sql.v7 );
2066:
2067: debug(' parsed p_rule_insert_dist_c');
2068:
2069: p_rule_insert_cma_c := dbms_sql.open_cursor;
2070: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2071: dbms_sql.v7 );
2072:
2073: debug(' parsed p_rule_insert_cma_c');
2066:
2067: debug(' parsed p_rule_insert_dist_c');
2068:
2069: p_rule_insert_cma_c := dbms_sql.open_cursor;
2070: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2071: dbms_sql.v7 );
2072:
2073: debug(' parsed p_rule_insert_cma_c');
2074: EXCEPTION
2067: debug(' parsed p_rule_insert_dist_c');
2068:
2069: p_rule_insert_cma_c := dbms_sql.open_cursor;
2070: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2071: dbms_sql.v7 );
2072:
2073: debug(' parsed p_rule_insert_cma_c');
2074: EXCEPTION
2075: WHEN OTHERS THEN
2164: ------------------------------------------------
2165: BEGIN
2166: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2167:
2168: p_net_revenue_line_c := dbms_sql.open_cursor;
2169: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2170: dbms_sql.v7 );
2171:
2172: EXCEPTION
2165: BEGIN
2166: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2167:
2168: p_net_revenue_line_c := dbms_sql.open_cursor;
2169: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2170: dbms_sql.v7 );
2171:
2172: EXCEPTION
2173: WHEN OTHERS THEN
2166: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2167:
2168: p_net_revenue_line_c := dbms_sql.open_cursor;
2169: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2170: dbms_sql.v7 );
2171:
2172: EXCEPTION
2173: WHEN OTHERS THEN
2174: debug( 'EXCEPTION: Error parsing net revenue stmts' );
2216: ------------------------------------------------
2217: BEGIN
2218: debug( ' Parsing net revenue dist stmts', MSG_LEVEL_DEBUG );
2219:
2220: p_net_revenue_dist_c := dbms_sql.open_cursor;
2221: dbms_sql.parse( p_net_revenue_dist_c, l_net_revenue_dist_sql,
2222: dbms_sql.v7 );
2223:
2224: EXCEPTION
2217: BEGIN
2218: debug( ' Parsing net revenue dist stmts', MSG_LEVEL_DEBUG );
2219:
2220: p_net_revenue_dist_c := dbms_sql.open_cursor;
2221: dbms_sql.parse( p_net_revenue_dist_c, l_net_revenue_dist_sql,
2222: dbms_sql.v7 );
2223:
2224: EXCEPTION
2225: WHEN OTHERS THEN
2218: debug( ' Parsing net revenue dist stmts', MSG_LEVEL_DEBUG );
2219:
2220: p_net_revenue_dist_c := dbms_sql.open_cursor;
2221: dbms_sql.parse( p_net_revenue_dist_c, l_net_revenue_dist_sql,
2222: dbms_sql.v7 );
2223:
2224: EXCEPTION
2225: WHEN OTHERS THEN
2226: debug( 'EXCEPTION: Error parsing net revenue stmts' );
2333: ---------------------------------------------------------------
2334: -- Bind variables
2335: ---------------------------------------------------------------
2336: BEGIN
2337: dbms_sql.bind_variable( l_cursor,
2338: 'start_prev_ctlid',
2339: p_prev_cust_trx_line_id );
2340: dbms_sql.bind_variable( l_cursor,
2341: 'period_set_name',
2336: BEGIN
2337: dbms_sql.bind_variable( l_cursor,
2338: 'start_prev_ctlid',
2339: p_prev_cust_trx_line_id );
2340: dbms_sql.bind_variable( l_cursor,
2341: 'period_set_name',
2342: system_info.period_set_name );
2343: EXCEPTION
2344: WHEN OTHERS THEN
2351: ---------------------------------------------------------------
2352: debug( ' Executing net revenue sql', MSG_LEVEL_DEBUG );
2353:
2354: BEGIN
2355: l_ignore := dbms_sql.execute( l_cursor );
2356:
2357: EXCEPTION
2358: WHEN OTHERS THEN
2359: debug( 'EXCEPTION: Error executing net revenue sql' );
2366: ---------------------------------------------------------------
2367: BEGIN
2368: LOOP
2369:
2370: IF dbms_sql.fetch_rows( l_cursor ) > 0 THEN
2371:
2372: debug(' Fetched a row', MSG_LEVEL_DEBUG );
2373:
2374: debug(' Load row into tables', MSG_LEVEL_DEBUG );
2375:
2376: -----------------------------------------------
2377: -- Load row into table
2378: -----------------------------------------------
2379: dbms_sql.column_value( l_cursor, 1,
2380: net_rev_ctlid_t( net_rev_index ) );
2381: dbms_sql.column_value( l_cursor, 2,
2382: net_rev_gl_date_t( net_rev_index ) );
2383: dbms_sql.column_value( l_cursor, 3,
2377: -- Load row into table
2378: -----------------------------------------------
2379: dbms_sql.column_value( l_cursor, 1,
2380: net_rev_ctlid_t( net_rev_index ) );
2381: dbms_sql.column_value( l_cursor, 2,
2382: net_rev_gl_date_t( net_rev_index ) );
2383: dbms_sql.column_value( l_cursor, 3,
2384: net_rev_amount_t( net_rev_index ) );
2385: dbms_sql.column_value( l_cursor, 4,
2379: dbms_sql.column_value( l_cursor, 1,
2380: net_rev_ctlid_t( net_rev_index ) );
2381: dbms_sql.column_value( l_cursor, 2,
2382: net_rev_gl_date_t( net_rev_index ) );
2383: dbms_sql.column_value( l_cursor, 3,
2384: net_rev_amount_t( net_rev_index ) );
2385: dbms_sql.column_value( l_cursor, 4,
2386: net_rev_unit_t( net_rev_index ) );
2387: dbms_sql.column_value( l_cursor, 5,
2381: dbms_sql.column_value( l_cursor, 2,
2382: net_rev_gl_date_t( net_rev_index ) );
2383: dbms_sql.column_value( l_cursor, 3,
2384: net_rev_amount_t( net_rev_index ) );
2385: dbms_sql.column_value( l_cursor, 4,
2386: net_rev_unit_t( net_rev_index ) );
2387: dbms_sql.column_value( l_cursor, 5,
2388: net_rev_dist_exists_t( net_rev_index ));
2389:
2383: dbms_sql.column_value( l_cursor, 3,
2384: net_rev_amount_t( net_rev_index ) );
2385: dbms_sql.column_value( l_cursor, 4,
2386: net_rev_unit_t( net_rev_index ) );
2387: dbms_sql.column_value( l_cursor, 5,
2388: net_rev_dist_exists_t( net_rev_index ));
2389:
2390: net_rev_index := net_rev_index + 1;
2391:
2491: BEGIN
2492: IF g_bind_trx_12
2493: THEN
2494: /* INSERT */
2495: dbms_sql.bind_variable( nonrule_insert_dist_c,
2496: 'cm_customer_trx_id_1',
2497: p_cm_control.customer_trx_id );
2498:
2499: dbms_sql.bind_variable( nonrule_insert_dist_c,
2495: dbms_sql.bind_variable( nonrule_insert_dist_c,
2496: 'cm_customer_trx_id_1',
2497: p_cm_control.customer_trx_id );
2498:
2499: dbms_sql.bind_variable( nonrule_insert_dist_c,
2500: 'cm_customer_trx_id_2',
2501: p_cm_control.customer_trx_id );
2502: /* UPDATE LINE */
2503: dbms_sql.bind_variable( nonrule_update_lines_c,
2499: dbms_sql.bind_variable( nonrule_insert_dist_c,
2500: 'cm_customer_trx_id_2',
2501: p_cm_control.customer_trx_id );
2502: /* UPDATE LINE */
2503: dbms_sql.bind_variable( nonrule_update_lines_c,
2504: 'cm_customer_trx_id_1',
2505: p_cm_control.customer_trx_id );
2506:
2507: /* UPDATE DIST */
2504: 'cm_customer_trx_id_1',
2505: p_cm_control.customer_trx_id );
2506:
2507: /* UPDATE DIST */
2508: dbms_sql.bind_variable( nonrule_update_dist_c,
2509: 'cm_customer_trx_id_1',
2510: p_cm_control.customer_trx_id );
2511:
2512: END IF;
2511:
2512: END IF;
2513: IF g_bind_trx_3
2514: THEN
2515: dbms_sql.bind_variable( nonrule_insert_dist_c,
2516: 'cm_customer_trx_id_3',
2517: p_cm_control.customer_trx_id );
2518:
2519: END IF;
2523: RAISE;
2524: END;
2525:
2526: BEGIN
2527: dbms_sql.bind_variable( nonrule_update_dist2_c,
2528: 'cm_customer_trx_id',
2529: p_cm_control.customer_trx_id );
2530: EXCEPTION
2531: WHEN OTHERS THEN
2536: BEGIN
2537: IF g_bind_req_12
2538: THEN
2539: /* INSERT */
2540: dbms_sql.bind_variable( nonrule_insert_dist_c,
2541: 'request_id_1',
2542: p_cm_control.request_id );
2543: dbms_sql.bind_variable( nonrule_insert_dist_c,
2544: 'request_id_2',
2539: /* INSERT */
2540: dbms_sql.bind_variable( nonrule_insert_dist_c,
2541: 'request_id_1',
2542: p_cm_control.request_id );
2543: dbms_sql.bind_variable( nonrule_insert_dist_c,
2544: 'request_id_2',
2545: p_cm_control.request_id );
2546: /* UPDATE LINES */
2547: dbms_sql.bind_variable( nonrule_update_lines_c,
2543: dbms_sql.bind_variable( nonrule_insert_dist_c,
2544: 'request_id_2',
2545: p_cm_control.request_id );
2546: /* UPDATE LINES */
2547: dbms_sql.bind_variable( nonrule_update_lines_c,
2548: 'request_id_1',
2549: p_cm_control.request_id );
2550: /* UPDATE DISTS */
2551: dbms_sql.bind_variable( nonrule_update_dist_c,
2547: dbms_sql.bind_variable( nonrule_update_lines_c,
2548: 'request_id_1',
2549: p_cm_control.request_id );
2550: /* UPDATE DISTS */
2551: dbms_sql.bind_variable( nonrule_update_dist_c,
2552: 'request_id_1',
2553: p_cm_control.request_id );
2554:
2555: END IF;
2555: END IF;
2556:
2557: IF g_bind_req_3
2558: THEN
2559: dbms_sql.bind_variable( nonrule_insert_dist_c,
2560: 'request_id_3',
2561: p_cm_control.request_id );
2562: END IF;
2563:
2567: RAISE;
2568: END;
2569:
2570: BEGIN
2571: dbms_sql.bind_variable( nonrule_update_dist2_c,
2572: 'request_id',
2573: p_cm_control.request_id );
2574: EXCEPTION
2575: WHEN OTHERS THEN
2583: BEGIN
2584: IF g_bind_line_14
2585: THEN
2586: /* INSERT */
2587: dbms_sql.bind_variable( nonrule_insert_dist_c,
2588: 'cm_cust_trx_line_id_1',
2589: p_cm_control.customer_trx_line_id );
2590: dbms_sql.bind_variable( nonrule_insert_dist_c,
2591: 'cm_cust_trx_line_id_2',
2586: /* INSERT */
2587: dbms_sql.bind_variable( nonrule_insert_dist_c,
2588: 'cm_cust_trx_line_id_1',
2589: p_cm_control.customer_trx_line_id );
2590: dbms_sql.bind_variable( nonrule_insert_dist_c,
2591: 'cm_cust_trx_line_id_2',
2592: p_cm_control.customer_trx_line_id );
2593: dbms_sql.bind_variable( nonrule_insert_dist_c,
2594: 'cm_cust_trx_line_id_3',
2589: p_cm_control.customer_trx_line_id );
2590: dbms_sql.bind_variable( nonrule_insert_dist_c,
2591: 'cm_cust_trx_line_id_2',
2592: p_cm_control.customer_trx_line_id );
2593: dbms_sql.bind_variable( nonrule_insert_dist_c,
2594: 'cm_cust_trx_line_id_3',
2595: p_cm_control.customer_trx_line_id );
2596: dbms_sql.bind_variable( nonrule_insert_dist_c,
2597: 'cm_cust_trx_line_id_4',
2592: p_cm_control.customer_trx_line_id );
2593: dbms_sql.bind_variable( nonrule_insert_dist_c,
2594: 'cm_cust_trx_line_id_3',
2595: p_cm_control.customer_trx_line_id );
2596: dbms_sql.bind_variable( nonrule_insert_dist_c,
2597: 'cm_cust_trx_line_id_4',
2598: p_cm_control.customer_trx_line_id );
2599: /* UPDATE LINES */
2600: dbms_sql.bind_variable( nonrule_update_lines_c,
2596: dbms_sql.bind_variable( nonrule_insert_dist_c,
2597: 'cm_cust_trx_line_id_4',
2598: p_cm_control.customer_trx_line_id );
2599: /* UPDATE LINES */
2600: dbms_sql.bind_variable( nonrule_update_lines_c,
2601: 'cm_cust_trx_line_id_1',
2602: p_cm_control.customer_trx_line_id );
2603: dbms_sql.bind_variable( nonrule_update_lines_c,
2604: 'cm_cust_trx_line_id_2',
2599: /* UPDATE LINES */
2600: dbms_sql.bind_variable( nonrule_update_lines_c,
2601: 'cm_cust_trx_line_id_1',
2602: p_cm_control.customer_trx_line_id );
2603: dbms_sql.bind_variable( nonrule_update_lines_c,
2604: 'cm_cust_trx_line_id_2',
2605: p_cm_control.customer_trx_line_id );
2606: /* UPDATE DISTS */
2607: dbms_sql.bind_variable( nonrule_update_dist_c,
2603: dbms_sql.bind_variable( nonrule_update_lines_c,
2604: 'cm_cust_trx_line_id_2',
2605: p_cm_control.customer_trx_line_id );
2606: /* UPDATE DISTS */
2607: dbms_sql.bind_variable( nonrule_update_dist_c,
2608: 'cm_cust_trx_line_id_1',
2609: p_cm_control.customer_trx_line_id );
2610: dbms_sql.bind_variable( nonrule_update_dist_c,
2611: 'cm_cust_trx_line_id_2',
2606: /* UPDATE DISTS */
2607: dbms_sql.bind_variable( nonrule_update_dist_c,
2608: 'cm_cust_trx_line_id_1',
2609: p_cm_control.customer_trx_line_id );
2610: dbms_sql.bind_variable( nonrule_update_dist_c,
2611: 'cm_cust_trx_line_id_2',
2612: p_cm_control.customer_trx_line_id );
2613: END IF;
2614: EXCEPTION
2624: -----------------------------------------------------------------------
2625: debug( ' Inserting distributions', MSG_LEVEL_DEBUG );
2626:
2627: BEGIN
2628: l_ignore := dbms_sql.execute( nonrule_insert_dist_c );
2629: close_cursor( nonrule_insert_dist_c );
2630:
2631: debug( to_char(l_ignore) || ' row(s) inserted', MSG_LEVEL_DEBUG );
2632:
2643: -----------------------------------------------------------------------
2644: debug( ' Updating lines', MSG_LEVEL_DEBUG );
2645:
2646: BEGIN
2647: l_ignore := dbms_sql.execute( nonrule_update_lines_c );
2648: close_cursor( nonrule_update_lines_c );
2649: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2650:
2651: EXCEPTION
2659: -----------------------------------------------------------------------
2660: debug( ' Updating distributions', MSG_LEVEL_DEBUG );
2661:
2662: BEGIN
2663: l_ignore := dbms_sql.execute( nonrule_update_dist_c );
2664: close_cursor( nonrule_update_dist_c );
2665:
2666: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2667:
2678: -----------------------------------------------------------------------
2679: debug( ' Updating distributions for rounding errors', MSG_LEVEL_DEBUG );
2680:
2681: BEGIN
2682: l_ignore := dbms_sql.execute( nonrule_update_dist2_c );
2683: close_cursor( nonrule_update_dist2_c );
2684:
2685: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2686:
2731: BEGIN
2732:
2733: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()+' );
2734:
2735: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2736: dbms_sql.define_column( p_select_c, 2,
2737: p_select_rec.prev_cust_trx_line_id );
2738: dbms_sql.define_column( p_select_c, 3,
2739: p_select_rec.allow_overapp_flag, 1 );
2732:
2733: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()+' );
2734:
2735: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2736: dbms_sql.define_column( p_select_c, 2,
2737: p_select_rec.prev_cust_trx_line_id );
2738: dbms_sql.define_column( p_select_c, 3,
2739: p_select_rec.allow_overapp_flag, 1 );
2740: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2734:
2735: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2736: dbms_sql.define_column( p_select_c, 2,
2737: p_select_rec.prev_cust_trx_line_id );
2738: dbms_sql.define_column( p_select_c, 3,
2739: p_select_rec.allow_overapp_flag, 1 );
2740: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2741: dbms_sql.define_column( p_select_c, 5,
2742: p_select_rec.credit_method_for_rules, 1 );
2736: dbms_sql.define_column( p_select_c, 2,
2737: p_select_rec.prev_cust_trx_line_id );
2738: dbms_sql.define_column( p_select_c, 3,
2739: p_select_rec.allow_overapp_flag, 1 );
2740: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2741: dbms_sql.define_column( p_select_c, 5,
2742: p_select_rec.credit_method_for_rules, 1 );
2743: dbms_sql.define_column( p_select_c, 6,
2744: p_select_rec.last_period_to_credit );
2737: p_select_rec.prev_cust_trx_line_id );
2738: dbms_sql.define_column( p_select_c, 3,
2739: p_select_rec.allow_overapp_flag, 1 );
2740: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2741: dbms_sql.define_column( p_select_c, 5,
2742: p_select_rec.credit_method_for_rules, 1 );
2743: dbms_sql.define_column( p_select_c, 6,
2744: p_select_rec.last_period_to_credit );
2745: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2739: p_select_rec.allow_overapp_flag, 1 );
2740: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2741: dbms_sql.define_column( p_select_c, 5,
2742: p_select_rec.credit_method_for_rules, 1 );
2743: dbms_sql.define_column( p_select_c, 6,
2744: p_select_rec.last_period_to_credit );
2745: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2746: dbms_sql.define_column( p_select_c, 8,
2747: p_select_rec.inv_acct_rule_duration );
2741: dbms_sql.define_column( p_select_c, 5,
2742: p_select_rec.credit_method_for_rules, 1 );
2743: dbms_sql.define_column( p_select_c, 6,
2744: p_select_rec.last_period_to_credit );
2745: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2746: dbms_sql.define_column( p_select_c, 8,
2747: p_select_rec.inv_acct_rule_duration );
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2742: p_select_rec.credit_method_for_rules, 1 );
2743: dbms_sql.define_column( p_select_c, 6,
2744: p_select_rec.last_period_to_credit );
2745: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2746: dbms_sql.define_column( p_select_c, 8,
2747: p_select_rec.inv_acct_rule_duration );
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2744: p_select_rec.last_period_to_credit );
2745: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2746: dbms_sql.define_column( p_select_c, 8,
2747: p_select_rec.inv_acct_rule_duration );
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2751: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2752: dbms_sql.define_column( p_select_c, 12,
2746: dbms_sql.define_column( p_select_c, 8,
2747: p_select_rec.inv_acct_rule_duration );
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2751: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2752: dbms_sql.define_column( p_select_c, 12,
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2747: p_select_rec.inv_acct_rule_duration );
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2751: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2752: dbms_sql.define_column( p_select_c, 12,
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2755: p_select_rec.invoice_sign);
2748: dbms_sql.define_column( p_select_c, 9,
2749: p_select_rec.allow_not_open_flag, 1 );
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2751: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2752: dbms_sql.define_column( p_select_c, 12,
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2755: p_select_rec.invoice_sign);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2750: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2751: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2752: dbms_sql.define_column( p_select_c, 12,
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2755: p_select_rec.invoice_sign);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2757: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2758: /* 4621029 */
2752: dbms_sql.define_column( p_select_c, 12,
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2755: p_select_rec.invoice_sign);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2757: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2758: /* 4621029 */
2759: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2760: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2753: p_select_rec.cm_quantity );
2754: dbms_sql.define_column( p_select_c, 13,
2755: p_select_rec.invoice_sign);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2757: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2758: /* 4621029 */
2759: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2760: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2761: /* 4621029 end */
2755: p_select_rec.invoice_sign);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2757: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2758: /* 4621029 */
2759: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2760: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2761: /* 4621029 end */
2762: /* 9478772 */
2763: dbms_sql.define_column( p_select_c, 18, p_select_rec.inv_rule_end_date);
2756: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2757: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2758: /* 4621029 */
2759: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2760: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2761: /* 4621029 end */
2762: /* 9478772 */
2763: dbms_sql.define_column( p_select_c, 18, p_select_rec.inv_rule_end_date);
2764: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()-' );
2759: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2760: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2761: /* 4621029 end */
2762: /* 9478772 */
2763: dbms_sql.define_column( p_select_c, 18, p_select_rec.inv_rule_end_date);
2764: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()-' );
2765:
2766: EXCEPTION
2767: WHEN OTHERS THEN
2797: BEGIN
2798:
2799: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2800:
2801: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2802: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2803: dbms_sql.column_value( p_select_c, 3,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2798:
2799: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2800:
2801: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2802: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2803: dbms_sql.column_value( p_select_c, 3,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2799: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2800:
2801: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2802: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2803: dbms_sql.column_value( p_select_c, 3,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2801: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2802: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2803: dbms_sql.column_value( p_select_c, 3,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2802: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2803: dbms_sql.column_value( p_select_c, 3,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2804: p_select_rec.allow_overapp_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2805: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2806: dbms_sql.column_value( p_select_c, 5,
2807: p_select_rec.credit_method_for_rules );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2808: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2809: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2810: dbms_sql.column_value( p_select_c, 8,
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2818: p_select_rec.invoice_sign );
2811: p_select_rec.inv_acct_rule_duration );
2812: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2818: p_select_rec.invoice_sign );
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2813: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2814: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2818: p_select_rec.invoice_sign );
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2820: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2821: /* 4621029 */
2815: dbms_sql.column_value( p_select_c, 12,
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2818: p_select_rec.invoice_sign );
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2820: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2821: /* 4621029 */
2822: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2823: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2816: p_select_rec.cm_quantity );
2817: dbms_sql.column_value( p_select_c, 13,
2818: p_select_rec.invoice_sign );
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2820: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2821: /* 4621029 */
2822: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2823: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2824: /* 4621029 end */
2818: p_select_rec.invoice_sign );
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2820: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2821: /* 4621029 */
2822: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2823: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2824: /* 4621029 end */
2825: /* 9478772 */
2826: dbms_sql.column_value( p_select_c, 18, p_select_rec.inv_rule_end_date);
2819: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2820: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2821: /* 4621029 */
2822: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2823: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2824: /* 4621029 end */
2825: /* 9478772 */
2826: dbms_sql.column_value( p_select_c, 18, p_select_rec.inv_rule_end_date);
2827:
2822: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2823: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2824: /* 4621029 end */
2825: /* 9478772 */
2826: dbms_sql.column_value( p_select_c, 18, p_select_rec.inv_rule_end_date);
2827:
2828:
2829: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()-' );
2830:
3041: -------------------------------------------------------------
3042: BEGIN
3043: debug( ' Binding rule_insert_dist_c', MSG_LEVEL_DEBUG );
3044:
3045: dbms_sql.bind_variable( rule_insert_dist_c,
3046: 'customer_trx_line_id',
3047: cm_sched_ctlid_t( i ) );
3048: /*7147479 added binding for customer_trx_line_id_1*/
3049: dbms_sql.bind_variable( rule_insert_dist_c,
3045: dbms_sql.bind_variable( rule_insert_dist_c,
3046: 'customer_trx_line_id',
3047: cm_sched_ctlid_t( i ) );
3048: /*7147479 added binding for customer_trx_line_id_1*/
3049: dbms_sql.bind_variable( rule_insert_dist_c,
3050: 'customer_trx_line_id_1',
3051: cm_sched_ctlid_t( i ) );
3052: dbms_sql.bind_variable( rule_insert_dist_c,
3053: 'gl_date',
3048: /*7147479 added binding for customer_trx_line_id_1*/
3049: dbms_sql.bind_variable( rule_insert_dist_c,
3050: 'customer_trx_line_id_1',
3051: cm_sched_ctlid_t( i ) );
3052: dbms_sql.bind_variable( rule_insert_dist_c,
3053: 'gl_date',
3054: cm_sched_gl_date_t( i ) );
3055: dbms_sql.bind_variable( rule_insert_dist_c,
3056: 'amount',
3051: cm_sched_ctlid_t( i ) );
3052: dbms_sql.bind_variable( rule_insert_dist_c,
3053: 'gl_date',
3054: cm_sched_gl_date_t( i ) );
3055: dbms_sql.bind_variable( rule_insert_dist_c,
3056: 'amount',
3057: cm_sched_amount_t( i ) );
3058: dbms_sql.bind_variable( rule_insert_dist_c,
3059: 'amount_1',
3054: cm_sched_gl_date_t( i ) );
3055: dbms_sql.bind_variable( rule_insert_dist_c,
3056: 'amount',
3057: cm_sched_amount_t( i ) );
3058: dbms_sql.bind_variable( rule_insert_dist_c,
3059: 'amount_1',
3060: cm_sched_amount_t( i ) );
3061: dbms_sql.bind_variable( rule_insert_dist_c,
3062: 'amount_2',
3057: cm_sched_amount_t( i ) );
3058: dbms_sql.bind_variable( rule_insert_dist_c,
3059: 'amount_1',
3060: cm_sched_amount_t( i ) );
3061: dbms_sql.bind_variable( rule_insert_dist_c,
3062: 'amount_2',
3063: cm_sched_amount_t( i ) );
3064: dbms_sql.bind_variable( rule_insert_dist_c,
3065: 'amount_3',
3060: cm_sched_amount_t( i ) );
3061: dbms_sql.bind_variable( rule_insert_dist_c,
3062: 'amount_2',
3063: cm_sched_amount_t( i ) );
3064: dbms_sql.bind_variable( rule_insert_dist_c,
3065: 'amount_3',
3066: cm_sched_amount_t( i ) );
3067: dbms_sql.bind_variable( rule_insert_dist_c,
3068: 'amount_4',
3063: cm_sched_amount_t( i ) );
3064: dbms_sql.bind_variable( rule_insert_dist_c,
3065: 'amount_3',
3066: cm_sched_amount_t( i ) );
3067: dbms_sql.bind_variable( rule_insert_dist_c,
3068: 'amount_4',
3069: cm_sched_amount_t( i ) );
3070: dbms_sql.bind_variable( rule_insert_dist_c,
3071: 'amount_5',
3066: cm_sched_amount_t( i ) );
3067: dbms_sql.bind_variable( rule_insert_dist_c,
3068: 'amount_4',
3069: cm_sched_amount_t( i ) );
3070: dbms_sql.bind_variable( rule_insert_dist_c,
3071: 'amount_5',
3072: cm_sched_amount_t( i ) );
3073: dbms_sql.bind_variable( rule_insert_dist_c,
3074: 'amount_6',
3069: cm_sched_amount_t( i ) );
3070: dbms_sql.bind_variable( rule_insert_dist_c,
3071: 'amount_5',
3072: cm_sched_amount_t( i ) );
3073: dbms_sql.bind_variable( rule_insert_dist_c,
3074: 'amount_6',
3075: cm_sched_amount_t( i ) );
3076: /*7147479 changed bind variable insert_offset_1*/
3077: dbms_sql.bind_variable( rule_insert_dist_c,
3073: dbms_sql.bind_variable( rule_insert_dist_c,
3074: 'amount_6',
3075: cm_sched_amount_t( i ) );
3076: /*7147479 changed bind variable insert_offset_1*/
3077: dbms_sql.bind_variable( rule_insert_dist_c,
3078: 'insert_offset_1',
3079: cm_sched_insert_offset_t( i ) );
3080: /*7147479 added extra bind variable insert_offset_2*/
3081: dbms_sql.bind_variable( rule_insert_dist_c,
3077: dbms_sql.bind_variable( rule_insert_dist_c,
3078: 'insert_offset_1',
3079: cm_sched_insert_offset_t( i ) );
3080: /*7147479 added extra bind variable insert_offset_2*/
3081: dbms_sql.bind_variable( rule_insert_dist_c,
3082: 'insert_offset_2',
3083: cm_sched_insert_offset_t( i ) );
3084:
3085: dbms_sql.bind_variable( rule_insert_dist_c,
3081: dbms_sql.bind_variable( rule_insert_dist_c,
3082: 'insert_offset_2',
3083: cm_sched_insert_offset_t( i ) );
3084:
3085: dbms_sql.bind_variable( rule_insert_dist_c,
3086: 'check_gl_date_1',
3087: cm_sched_check_gl_date_t( i ) );
3088:
3089:
3090: /* Bug 2899714 - bind variable not defined when
3091: use_inv_acct set to no */
3092: IF( profile_info.use_inv_acct_for_cm_flag = YES ) THEN
3093: /* 4254587 */
3094: dbms_sql.bind_variable( rule_insert_dist_c,
3095: 'period_set_name',
3096: system_info.period_set_name );
3097:
3098: /* Bug 2347001 - session_id */
3095: 'period_set_name',
3096: system_info.period_set_name );
3097:
3098: /* Bug 2347001 - session_id */
3099: dbms_sql.bind_variable( rule_insert_dist_c,
3100: 'session_id',
3101: g_session_id);
3102:
3103: /*7147479 - added new bind variables*/
3100: 'session_id',
3101: g_session_id);
3102:
3103: /*7147479 - added new bind variables*/
3104: dbms_sql.bind_variable( rule_insert_dist_c,
3105: 'customer_trx_line_id_2',
3106: cm_sched_ctlid_t( i ) );
3107: dbms_sql.bind_variable( rule_insert_dist_c,
3108: 'original_gl_date_1',
3103: /*7147479 - added new bind variables*/
3104: dbms_sql.bind_variable( rule_insert_dist_c,
3105: 'customer_trx_line_id_2',
3106: cm_sched_ctlid_t( i ) );
3107: dbms_sql.bind_variable( rule_insert_dist_c,
3108: 'original_gl_date_1',
3109: cm_sched_orig_gl_date_t( i ) );
3110: dbms_sql.bind_variable( rule_insert_dist_c,
3111: 'gl_date_2',
3106: cm_sched_ctlid_t( i ) );
3107: dbms_sql.bind_variable( rule_insert_dist_c,
3108: 'original_gl_date_1',
3109: cm_sched_orig_gl_date_t( i ) );
3110: dbms_sql.bind_variable( rule_insert_dist_c,
3111: 'gl_date_2',
3112: cm_sched_gl_date_t( i ) );
3113: dbms_sql.bind_variable( rule_insert_dist_c,
3114: 'gl_date_3',
3109: cm_sched_orig_gl_date_t( i ) );
3110: dbms_sql.bind_variable( rule_insert_dist_c,
3111: 'gl_date_2',
3112: cm_sched_gl_date_t( i ) );
3113: dbms_sql.bind_variable( rule_insert_dist_c,
3114: 'gl_date_3',
3115: cm_sched_gl_date_t( i ) );
3116: dbms_sql.bind_variable( rule_insert_dist_c,
3117: 'gl_date_4',
3112: cm_sched_gl_date_t( i ) );
3113: dbms_sql.bind_variable( rule_insert_dist_c,
3114: 'gl_date_3',
3115: cm_sched_gl_date_t( i ) );
3116: dbms_sql.bind_variable( rule_insert_dist_c,
3117: 'gl_date_4',
3118: cm_sched_gl_date_t( i ) );
3119: /*bug-7147479 added For Use Invoice Accounting for CM is NO*/
3120: ELSE
3118: cm_sched_gl_date_t( i ) );
3119: /*bug-7147479 added For Use Invoice Accounting for CM is NO*/
3120: ELSE
3121: /* in SELECT portion of statement */
3122: dbms_sql.bind_variable( rule_insert_dist_c,
3123: 'original_gl_date',
3124: cm_sched_orig_gl_date_t( i ) );
3125: /* in WHERE portion of statement */
3126: dbms_sql.bind_variable( rule_insert_dist_c,
3122: dbms_sql.bind_variable( rule_insert_dist_c,
3123: 'original_gl_date',
3124: cm_sched_orig_gl_date_t( i ) );
3125: /* in WHERE portion of statement */
3126: dbms_sql.bind_variable( rule_insert_dist_c,
3127: 'gl_date_1',
3128: cm_sched_gl_date_t( i ) );
3129:
3130: dbms_sql.bind_variable( rule_insert_dist_c,
3126: dbms_sql.bind_variable( rule_insert_dist_c,
3127: 'gl_date_1',
3128: cm_sched_gl_date_t( i ) );
3129:
3130: dbms_sql.bind_variable( rule_insert_dist_c,
3131: 'check_gl_date_2',
3132: cm_sched_check_gl_date_t( i ) );
3133: END IF;
3134:
3142: -- Execute
3143: -------------------------------------------------------------
3144: BEGIN
3145: debug( ' Inserting distributions', MSG_LEVEL_DEBUG);
3146: l_ignore := dbms_sql.execute( rule_insert_dist_c );
3147: debug(to_char(l_ignore) || ' row(s) inserted', MSG_LEVEL_DEBUG);
3148: EXCEPTION
3149: WHEN OTHERS THEN
3150: debug( 'EXCEPTION: Error executing insert dist stmt' );
3183:
3184: -------------------------------------------------------------
3185: -- Bind vars
3186: -------------------------------------------------------------
3187: dbms_sql.bind_variable( rule_insert_cma_c,
3188: 'customer_trx_line_id',
3189: cm_sched_ctlid_t( i ) );
3190: dbms_sql.bind_variable( rule_insert_cma_c,
3191: 'gl_date',
3186: -------------------------------------------------------------
3187: dbms_sql.bind_variable( rule_insert_cma_c,
3188: 'customer_trx_line_id',
3189: cm_sched_ctlid_t( i ) );
3190: dbms_sql.bind_variable( rule_insert_cma_c,
3191: 'gl_date',
3192: l_original_gl_date);
3193: dbms_sql.bind_variable( rule_insert_cma_c,
3194: 'amount',
3189: cm_sched_ctlid_t( i ) );
3190: dbms_sql.bind_variable( rule_insert_cma_c,
3191: 'gl_date',
3192: l_original_gl_date);
3193: dbms_sql.bind_variable( rule_insert_cma_c,
3194: 'amount',
3195: cm_sched_amount_t( i ) );
3196: -------------------------------------------------------------
3197: -- Execute
3198: -------------------------------------------------------------
3199: BEGIN
3200:
3201: debug( ' Inserting CM amounts', MSG_LEVEL_DEBUG );
3202: l_ignore := dbms_sql.execute( rule_insert_cma_c );
3203: debug( to_char(l_ignore) || ' row(s) inserted',
3204: MSG_LEVEL_DEBUG );
3205:
3206: EXCEPTION
4928:
4929: BEGIN
4930: debug( ' Defining columns for net_revenue_line_c', MSG_LEVEL_BASIC );
4931:
4932: dbms_sql.define_column( net_revenue_line_c, 1,
4933: net_revenue_rec.customer_trx_line_id );
4934: dbms_sql.define_column( net_revenue_line_c, 2,
4935: net_revenue_rec.gl_date );
4936: dbms_sql.define_column( net_revenue_line_c, 3,
4930: debug( ' Defining columns for net_revenue_line_c', MSG_LEVEL_BASIC );
4931:
4932: dbms_sql.define_column( net_revenue_line_c, 1,
4933: net_revenue_rec.customer_trx_line_id );
4934: dbms_sql.define_column( net_revenue_line_c, 2,
4935: net_revenue_rec.gl_date );
4936: dbms_sql.define_column( net_revenue_line_c, 3,
4937: net_revenue_rec.amount );
4938: dbms_sql.define_column( net_revenue_line_c, 4,
4932: dbms_sql.define_column( net_revenue_line_c, 1,
4933: net_revenue_rec.customer_trx_line_id );
4934: dbms_sql.define_column( net_revenue_line_c, 2,
4935: net_revenue_rec.gl_date );
4936: dbms_sql.define_column( net_revenue_line_c, 3,
4937: net_revenue_rec.amount );
4938: dbms_sql.define_column( net_revenue_line_c, 4,
4939: net_revenue_rec.net_unit_price );
4940: dbms_sql.define_column( net_revenue_line_c, 5,
4934: dbms_sql.define_column( net_revenue_line_c, 2,
4935: net_revenue_rec.gl_date );
4936: dbms_sql.define_column( net_revenue_line_c, 3,
4937: net_revenue_rec.amount );
4938: dbms_sql.define_column( net_revenue_line_c, 4,
4939: net_revenue_rec.net_unit_price );
4940: dbms_sql.define_column( net_revenue_line_c, 5,
4941: net_revenue_rec.inv_dist_exists, 1 );
4942:
4936: dbms_sql.define_column( net_revenue_line_c, 3,
4937: net_revenue_rec.amount );
4938: dbms_sql.define_column( net_revenue_line_c, 4,
4939: net_revenue_rec.net_unit_price );
4940: dbms_sql.define_column( net_revenue_line_c, 5,
4941: net_revenue_rec.inv_dist_exists, 1 );
4942:
4943: debug( ' Defining columns for net_revenue_dist_c', MSG_LEVEL_BASIC );
4944:
4941: net_revenue_rec.inv_dist_exists, 1 );
4942:
4943: debug( ' Defining columns for net_revenue_dist_c', MSG_LEVEL_BASIC );
4944:
4945: dbms_sql.define_column( net_revenue_dist_c, 1,
4946: net_revenue_rec.customer_trx_line_id );
4947: dbms_sql.define_column( net_revenue_dist_c, 2,
4948: net_revenue_rec.gl_date );
4949: dbms_sql.define_column( net_revenue_dist_c, 3,
4943: debug( ' Defining columns for net_revenue_dist_c', MSG_LEVEL_BASIC );
4944:
4945: dbms_sql.define_column( net_revenue_dist_c, 1,
4946: net_revenue_rec.customer_trx_line_id );
4947: dbms_sql.define_column( net_revenue_dist_c, 2,
4948: net_revenue_rec.gl_date );
4949: dbms_sql.define_column( net_revenue_dist_c, 3,
4950: net_revenue_rec.amount );
4951: dbms_sql.define_column( net_revenue_dist_c, 4,
4945: dbms_sql.define_column( net_revenue_dist_c, 1,
4946: net_revenue_rec.customer_trx_line_id );
4947: dbms_sql.define_column( net_revenue_dist_c, 2,
4948: net_revenue_rec.gl_date );
4949: dbms_sql.define_column( net_revenue_dist_c, 3,
4950: net_revenue_rec.amount );
4951: dbms_sql.define_column( net_revenue_dist_c, 4,
4952: net_revenue_rec.net_unit_price );
4953: dbms_sql.define_column( net_revenue_dist_c, 5,
4947: dbms_sql.define_column( net_revenue_dist_c, 2,
4948: net_revenue_rec.gl_date );
4949: dbms_sql.define_column( net_revenue_dist_c, 3,
4950: net_revenue_rec.amount );
4951: dbms_sql.define_column( net_revenue_dist_c, 4,
4952: net_revenue_rec.net_unit_price );
4953: dbms_sql.define_column( net_revenue_dist_c, 5,
4954: net_revenue_rec.inv_dist_exists, 1 );
4955: EXCEPTION
4949: dbms_sql.define_column( net_revenue_dist_c, 3,
4950: net_revenue_rec.amount );
4951: dbms_sql.define_column( net_revenue_dist_c, 4,
4952: net_revenue_rec.net_unit_price );
4953: dbms_sql.define_column( net_revenue_dist_c, 5,
4954: net_revenue_rec.inv_dist_exists, 1 );
4955: EXCEPTION
4956: WHEN OTHERS THEN
4957: debug( 'EXCEPTION: Error defining columns for net_revenue_line_c' );
4960:
4961: /* bug fix 956189 */
4962: IF( p_cm_control.customer_trx_line_id IS NOT NULL ) THEN
4963: BEGIN
4964: dbms_sql.bind_variable( rule_select_cm_lines_c,
4965: 'cm_cust_trx_line_id',
4966: p_cm_control.customer_trx_line_id );
4967: EXCEPTION
4968: WHEN OTHERS THEN
4972:
4973: ELSE
4974: IF( p_cm_control.customer_trx_id IS NOT NULL ) THEN
4975: BEGIN
4976: dbms_sql.bind_variable( rule_select_cm_lines_c,
4977: 'cm_customer_trx_id',
4978: p_cm_control.customer_trx_id );
4979: EXCEPTION
4980: WHEN OTHERS THEN
4982: RAISE;
4983: END;
4984: ELSE /* bug 3525326 */
4985: BEGIN
4986: dbms_sql.bind_variable( rule_select_cm_lines_c,
4987: 'request_id',
4988: p_cm_control.request_id );
4989: EXCEPTION
4990: WHEN OTHERS THEN
4996:
4997: /* bug 3525326 */
4998: IF (p_cm_control.request_id IS NOT NULL) THEN
4999: BEGIN
5000: dbms_sql.bind_variable( rule_insert_cma_c,
5001: 'request_id',
5002: p_cm_control.request_id );
5003: EXCEPTION
5004: WHEN OTHERS THEN
5037: ---------------------------------------------------------------
5038: debug( ' Executing select sql', MSG_LEVEL_DEBUG );
5039:
5040: BEGIN
5041: l_ignore := dbms_sql.execute( rule_select_cm_lines_c );
5042:
5043: EXCEPTION
5044: WHEN OTHERS THEN
5045: debug( 'EXCEPTION: Error executing select cm lines sql' );
5056: BEGIN
5057: LOOP
5058:
5059:
5060: IF dbms_sql.fetch_rows( rule_select_cm_lines_c ) > 0 THEN
5061:
5062: debug(' fetched a row', MSG_LEVEL_DEBUG );
5063:
5064: l_first_fetch := FALSE;
5153: debug(' cm_acct_rule_duration='||
5154: l_select_rec.cm_acct_rule_duration,
5155: MSG_LEVEL_DEBUG);
5156:
5157: dbms_sql.bind_variable( rule_update_cm_lines_c,
5158: 'rule_start_date',
5159: l_select_rec.rule_start_date );
5160: dbms_sql.bind_variable( rule_update_cm_lines_c,
5161: 'rule_end_date',
5156:
5157: dbms_sql.bind_variable( rule_update_cm_lines_c,
5158: 'rule_start_date',
5159: l_select_rec.rule_start_date );
5160: dbms_sql.bind_variable( rule_update_cm_lines_c,
5161: 'rule_end_date',
5162: l_select_rec.rule_end_date );
5163: dbms_sql.bind_variable( rule_update_cm_lines_c,
5164: 'cm_acct_rule_duration',
5159: l_select_rec.rule_start_date );
5160: dbms_sql.bind_variable( rule_update_cm_lines_c,
5161: 'rule_end_date',
5162: l_select_rec.rule_end_date );
5163: dbms_sql.bind_variable( rule_update_cm_lines_c,
5164: 'cm_acct_rule_duration',
5165: l_select_rec.cm_acct_rule_duration );
5166: dbms_sql.bind_variable( rule_update_cm_lines_c,
5167: 'credit_method',
5162: l_select_rec.rule_end_date );
5163: dbms_sql.bind_variable( rule_update_cm_lines_c,
5164: 'cm_acct_rule_duration',
5165: l_select_rec.cm_acct_rule_duration );
5166: dbms_sql.bind_variable( rule_update_cm_lines_c,
5167: 'credit_method',
5168: l_select_rec.credit_method_for_rules);
5169: dbms_sql.bind_variable( rule_update_cm_lines_c,
5170: 'last_period_to_credit',
5165: l_select_rec.cm_acct_rule_duration );
5166: dbms_sql.bind_variable( rule_update_cm_lines_c,
5167: 'credit_method',
5168: l_select_rec.credit_method_for_rules);
5169: dbms_sql.bind_variable( rule_update_cm_lines_c,
5170: 'last_period_to_credit',
5171: l_select_rec.last_period_to_credit );
5172: dbms_sql.bind_variable( rule_update_cm_lines_c,
5173: 'customer_trx_line_id',
5168: l_select_rec.credit_method_for_rules);
5169: dbms_sql.bind_variable( rule_update_cm_lines_c,
5170: 'last_period_to_credit',
5171: l_select_rec.last_period_to_credit );
5172: dbms_sql.bind_variable( rule_update_cm_lines_c,
5173: 'customer_trx_line_id',
5174: l_select_rec.customer_trx_line_id );
5175: EXCEPTION
5176: WHEN OTHERS THEN
5183: -----------------------------------------------------------
5184: debug( ' Updating lines', MSG_LEVEL_DEBUG );
5185:
5186: BEGIN
5187: l_ignore := dbms_sql.execute( rule_update_cm_lines_c );
5188:
5189: debug( to_char(l_ignore) || ' row(s) updated',
5190: MSG_LEVEL_DEBUG );
5191:
5813: p_run_autoaccounting_flag IN BOOLEAN
5814: ) IS
5815:
5816: l_ignore INTEGER;
5817: gl_header_dist_array dbms_sql.number_table; /* mrc */
5818: gl_line_dist_array dbms_sql.number_table; /* mrc */
5819: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE; -- bug5870933
5820:
5821: BEGIN
5814: ) IS
5815:
5816: l_ignore INTEGER;
5817: gl_header_dist_array dbms_sql.number_table; /* mrc */
5818: gl_line_dist_array dbms_sql.number_table; /* mrc */
5819: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE; -- bug5870933
5820:
5821: BEGIN
5822: print_fcn_label('arp_credit_memo_module.credit_transactions()+' );
5852: -- Process Update mode
5853: ------------------------------
5854: debug( ' Update mode', MSG_LEVEL_DEBUG );
5855:
5856: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5853: ------------------------------
5854: debug( ' Update mode', MSG_LEVEL_DEBUG );
5855:
5856: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5861: dbms_sql.is_open( update_lines_c ) ) ) THEN
5854: debug( ' Update mode', MSG_LEVEL_DEBUG );
5855:
5856: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5861: dbms_sql.is_open( update_lines_c ) ) ) THEN
5862:
5855:
5856: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5861: dbms_sql.is_open( update_lines_c ) ) ) THEN
5862:
5863: ----------------------------------------------------------------
5856: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5861: dbms_sql.is_open( update_lines_c ) ) ) THEN
5862:
5863: ----------------------------------------------------------------
5864: -- Build dynamic sql
5857: dbms_sql.is_open( delete_line_dist_c ) AND
5858: dbms_sql.is_open( delete_header_cma_c ) AND
5859: dbms_sql.is_open( delete_line_cma_c ) AND
5860: dbms_sql.is_open( update_header_lines_c ) AND
5861: dbms_sql.is_open( update_lines_c ) ) ) THEN
5862:
5863: ----------------------------------------------------------------
5864: -- Build dynamic sql
5865: ----------------------------------------------------------------
5890:
5891: ---------------------------------------------------------------
5892: -- Bind variables
5893: ---------------------------------------------------------------
5894: dbms_sql.bind_variable(
5895: delete_line_dist_c,
5896: 'customer_trx_line_id',
5897: p_customer_trx_line_id );
5898:
5895: delete_line_dist_c,
5896: 'customer_trx_line_id',
5897: p_customer_trx_line_id );
5898:
5899: dbms_sql.bind_variable(
5900: delete_line_cma_c,
5901: 'customer_trx_line_id',
5902: p_customer_trx_line_id );
5903:
5900: delete_line_cma_c,
5901: 'customer_trx_line_id',
5902: p_customer_trx_line_id );
5903:
5904: dbms_sql.bind_variable(
5905: update_lines_c,
5906: 'customer_trx_line_id',
5907: p_customer_trx_line_id );
5908:
5908:
5909: --------------------------------------------------------------
5910: -- Bind output variables
5911: --------------------------------------------------------------
5912: dbms_sql.bind_array(delete_line_dist_c, ':gl_dist_key_value',
5913: gl_line_dist_array);
5914:
5915:
5916: ---------------------------------------------------------------
5917: -- Execute sql
5918: ---------------------------------------------------------------
5919: debug( ' Executing delete dist sql', MSG_LEVEL_DEBUG );
5920: BEGIN
5921: l_ignore := dbms_sql.execute( delete_line_dist_c );
5922:
5923: debug( to_char(l_ignore) || ' row(s) deleted',
5924: MSG_LEVEL_DEBUG );
5925:
5926: /*------------------------------------------+
5927: | get RETURNING COLUMN into OUT NOCOPY bind array |
5928: +------------------------------------------*/
5929:
5930: dbms_sql.variable_value( delete_line_dist_c,
5931: ':gl_dist_key_value',
5932: gl_line_dist_array);
5933: EXCEPTION
5934: WHEN OTHERS THEN
5937: END;
5938:
5939: debug( ' Executing delete cma sql', MSG_LEVEL_DEBUG );
5940: BEGIN
5941: l_ignore := dbms_sql.execute( delete_line_cma_c );
5942:
5943: debug( to_char(l_ignore) || ' row(s) deleted',
5944: MSG_LEVEL_DEBUG );
5945: EXCEPTION
5949: END;
5950:
5951: debug( ' Executing update lines sql', MSG_LEVEL_DEBUG );
5952: BEGIN
5953: l_ignore := dbms_sql.execute( update_lines_c );
5954:
5955: debug( to_char(l_ignore) || ' row(s) updated',
5956: MSG_LEVEL_DEBUG );
5957: EXCEPTION
5969:
5970: ---------------------------------------------------------------
5971: -- Bind variables
5972: ---------------------------------------------------------------
5973: dbms_sql.bind_variable(
5974: delete_header_dist_c,
5975: 'customer_trx_id',
5976: p_customer_trx_id );
5977:
5974: delete_header_dist_c,
5975: 'customer_trx_id',
5976: p_customer_trx_id );
5977:
5978: dbms_sql.bind_variable(
5979: delete_header_cma_c,
5980: 'customer_trx_id',
5981: p_customer_trx_id );
5982:
5979: delete_header_cma_c,
5980: 'customer_trx_id',
5981: p_customer_trx_id );
5982:
5983: dbms_sql.bind_variable(
5984: update_header_lines_c,
5985: 'customer_trx_id',
5986: p_customer_trx_id );
5987:
5987:
5988: --------------------------------------------------------------
5989: -- Bind output variables
5990: --------------------------------------------------------------
5991: dbms_sql.bind_array(delete_header_dist_c, ':gl_dist_key_value',
5992: gl_header_dist_array);
5993:
5994: ---------------------------------------------------------------
5995: -- Execute sql
5995: -- Execute sql
5996: ---------------------------------------------------------------
5997: debug( ' Executing delete dist sql', MSG_LEVEL_DEBUG );
5998: BEGIN
5999: l_ignore := dbms_sql.execute( delete_header_dist_c );
6000:
6001: debug( to_char(l_ignore) || ' row(s) deleted',
6002: MSG_LEVEL_DEBUG );
6003: /*------------------------------------------+
6003: /*------------------------------------------+
6004: | get RETURNING COLUMN into OUT NOCOPY bind array |
6005: +------------------------------------------*/
6006:
6007: dbms_sql.variable_value( delete_header_dist_c,
6008: ':gl_dist_key_value',
6009: gl_header_dist_array);
6010: EXCEPTION
6011: WHEN OTHERS THEN
6014: END;
6015:
6016: debug( ' Executing delete cma sql', MSG_LEVEL_DEBUG );
6017: BEGIN
6018: l_ignore := dbms_sql.execute( delete_header_cma_c );
6019:
6020: debug( to_char(l_ignore) || ' row(s) deleted',
6021: MSG_LEVEL_DEBUG );
6022: EXCEPTION
6026: END;
6027:
6028: debug( ' Executing update lines sql', MSG_LEVEL_DEBUG );
6029: BEGIN
6030: l_ignore := dbms_sql.execute( update_header_lines_c );
6031:
6032: debug( to_char(l_ignore) || ' row(s) updated',
6033: MSG_LEVEL_DEBUG );
6034: EXCEPTION