585: ------------------------------------------------
586: BEGIN
587: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
588:
589: p_delete_header_dist_c := dbms_sql.open_cursor;
590: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
586: BEGIN
587: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
588:
589: p_delete_header_dist_c := dbms_sql.open_cursor;
590: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
587: debug( ' Parsing update mode stmts', MSG_LEVEL_DEBUG );
588:
589: p_delete_header_dist_c := dbms_sql.open_cursor;
590: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
589: p_delete_header_dist_c := dbms_sql.open_cursor;
590: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
590: dbms_sql.parse( p_delete_header_dist_c, l_delete_header_dist_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
591: dbms_sql.v7 );
592:
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
593: p_delete_line_dist_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
594: dbms_sql.parse( p_delete_line_dist_c, l_delete_line_dist_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
595: dbms_sql.v7 );
596:
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
597: p_delete_header_cma_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
598: dbms_sql.parse( p_delete_header_cma_c, l_delete_header_cma_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
599: dbms_sql.v7 );
600:
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
601: p_delete_line_cma_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
602: dbms_sql.parse( p_delete_line_cma_c, l_delete_line_cma_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
603: dbms_sql.v7 );
604:
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
611: dbms_sql.v7 );
605: p_update_header_lines_c := dbms_sql.open_cursor;
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
611: dbms_sql.v7 );
612:
613: EXCEPTION
606: dbms_sql.parse( p_update_header_lines_c, l_update_header_lines_sql,
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
611: dbms_sql.v7 );
612:
613: EXCEPTION
614: WHEN OTHERS THEN
607: dbms_sql.v7 );
608:
609: p_update_lines_c := dbms_sql.open_cursor;
610: dbms_sql.parse( p_update_lines_c, l_update_lines_sql,
611: dbms_sql.v7 );
612:
613: EXCEPTION
614: WHEN OTHERS THEN
615: debug( 'EXCEPTION: Error parsing update mode stmts' );
1334: ------------------------------------------------
1335: BEGIN
1336: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1337:
1338: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1339: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1335: BEGIN
1336: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1337:
1338: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1339: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1336: debug( ' Parsing nonrule stmts', MSG_LEVEL_DEBUG );
1337:
1338: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1339: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1338: p_nonrule_insert_dist_c := dbms_sql.open_cursor;
1339: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1339: dbms_sql.parse( p_nonrule_insert_dist_c, l_nonrule_insert_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1340: dbms_sql.v7 );
1341:
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1342: p_nonrule_update_lines_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1343: dbms_sql.parse( p_nonrule_update_lines_c, l_nonrule_update_lines_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1351: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1344: dbms_sql.v7 );
1345:
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1351: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1352: dbms_sql.v7 );
1346: p_nonrule_update_dist_c := dbms_sql.open_cursor;
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1351: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1352: dbms_sql.v7 );
1353: EXCEPTION
1354: WHEN OTHERS THEN
1347: dbms_sql.parse( p_nonrule_update_dist_c, l_nonrule_update_dist_sql,
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1351: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1352: dbms_sql.v7 );
1353: EXCEPTION
1354: WHEN OTHERS THEN
1355: debug( 'EXCEPTION: Error parsing nonrule stmts' );
1348: dbms_sql.v7 );
1349:
1350: p_nonrule_update_dist2_c := dbms_sql.open_cursor;
1351: dbms_sql.parse( p_nonrule_update_dist2_c, l_nonrule_update_dist2_sql,
1352: dbms_sql.v7 );
1353: EXCEPTION
1354: WHEN OTHERS THEN
1355: debug( 'EXCEPTION: Error parsing nonrule stmts' );
1356: RAISE;
2046: ------------------------------------------------
2047: BEGIN
2048: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2049:
2050: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2051: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2052: dbms_sql.v7 );
2053:
2054: debug(' parsed p_rule_select_cm_lines_c');
2047: BEGIN
2048: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2049:
2050: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2051: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2052: dbms_sql.v7 );
2053:
2054: debug(' parsed p_rule_select_cm_lines_c');
2055:
2048: debug( ' Parsing rule stmts', MSG_LEVEL_DEBUG );
2049:
2050: p_rule_select_cm_lines_c := dbms_sql.open_cursor;
2051: dbms_sql.parse( p_rule_select_cm_lines_c, l_rule_select_cm_lines_sql,
2052: dbms_sql.v7 );
2053:
2054: debug(' parsed p_rule_select_cm_lines_c');
2055:
2056: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2052: dbms_sql.v7 );
2053:
2054: debug(' parsed p_rule_select_cm_lines_c');
2055:
2056: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2057: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2058: dbms_sql.v7 );
2059:
2060: debug(' parsed p_rule_update_cm_lines_c');
2053:
2054: debug(' parsed p_rule_select_cm_lines_c');
2055:
2056: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2057: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2058: dbms_sql.v7 );
2059:
2060: debug(' parsed p_rule_update_cm_lines_c');
2061:
2054: debug(' parsed p_rule_select_cm_lines_c');
2055:
2056: p_rule_update_cm_lines_c := dbms_sql.open_cursor;
2057: dbms_sql.parse( p_rule_update_cm_lines_c, l_rule_update_cm_lines_sql,
2058: dbms_sql.v7 );
2059:
2060: debug(' parsed p_rule_update_cm_lines_c');
2061:
2062: p_rule_insert_dist_c := dbms_sql.open_cursor;
2058: dbms_sql.v7 );
2059:
2060: debug(' parsed p_rule_update_cm_lines_c');
2061:
2062: p_rule_insert_dist_c := dbms_sql.open_cursor;
2063: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2064: dbms_sql.v7 );
2065:
2066: debug(' parsed p_rule_insert_dist_c');
2059:
2060: debug(' parsed p_rule_update_cm_lines_c');
2061:
2062: p_rule_insert_dist_c := dbms_sql.open_cursor;
2063: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2064: dbms_sql.v7 );
2065:
2066: debug(' parsed p_rule_insert_dist_c');
2067:
2060: debug(' parsed p_rule_update_cm_lines_c');
2061:
2062: p_rule_insert_dist_c := dbms_sql.open_cursor;
2063: dbms_sql.parse( p_rule_insert_dist_c, l_rule_insert_dist_sql,
2064: dbms_sql.v7 );
2065:
2066: debug(' parsed p_rule_insert_dist_c');
2067:
2068: p_rule_insert_cma_c := dbms_sql.open_cursor;
2064: dbms_sql.v7 );
2065:
2066: debug(' parsed p_rule_insert_dist_c');
2067:
2068: p_rule_insert_cma_c := dbms_sql.open_cursor;
2069: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2070: dbms_sql.v7 );
2071:
2072: debug(' parsed p_rule_insert_cma_c');
2065:
2066: debug(' parsed p_rule_insert_dist_c');
2067:
2068: p_rule_insert_cma_c := dbms_sql.open_cursor;
2069: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2070: dbms_sql.v7 );
2071:
2072: debug(' parsed p_rule_insert_cma_c');
2073: EXCEPTION
2066: debug(' parsed p_rule_insert_dist_c');
2067:
2068: p_rule_insert_cma_c := dbms_sql.open_cursor;
2069: dbms_sql.parse( p_rule_insert_cma_c, l_rule_insert_cma_sql,
2070: dbms_sql.v7 );
2071:
2072: debug(' parsed p_rule_insert_cma_c');
2073: EXCEPTION
2074: WHEN OTHERS THEN
2160: ------------------------------------------------
2161: BEGIN
2162: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2163:
2164: p_net_revenue_line_c := dbms_sql.open_cursor;
2165: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2166: dbms_sql.v7 );
2167:
2168: EXCEPTION
2161: BEGIN
2162: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2163:
2164: p_net_revenue_line_c := dbms_sql.open_cursor;
2165: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2166: dbms_sql.v7 );
2167:
2168: EXCEPTION
2169: WHEN OTHERS THEN
2162: debug( ' Parsing net revenue stmts', MSG_LEVEL_DEBUG );
2163:
2164: p_net_revenue_line_c := dbms_sql.open_cursor;
2165: dbms_sql.parse( p_net_revenue_line_c, l_net_revenue_line_sql,
2166: dbms_sql.v7 );
2167:
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: debug( 'EXCEPTION: Error parsing net revenue stmts' );
2253: ---------------------------------------------------------------
2254: -- Bind variables
2255: ---------------------------------------------------------------
2256: BEGIN
2257: dbms_sql.bind_variable( net_revenue_line_c,
2258: 'start_prev_ctlid',
2259: p_prev_cust_trx_line_id );
2260: dbms_sql.bind_variable( net_revenue_line_c,
2261: 'period_set_name',
2256: BEGIN
2257: dbms_sql.bind_variable( net_revenue_line_c,
2258: 'start_prev_ctlid',
2259: p_prev_cust_trx_line_id );
2260: dbms_sql.bind_variable( net_revenue_line_c,
2261: 'period_set_name',
2262: system_info.period_set_name );
2263: EXCEPTION
2264: WHEN OTHERS THEN
2271: ---------------------------------------------------------------
2272: debug( ' Executing net revenue sql', MSG_LEVEL_DEBUG );
2273:
2274: BEGIN
2275: l_ignore := dbms_sql.execute( net_revenue_line_c );
2276:
2277: EXCEPTION
2278: WHEN OTHERS THEN
2279: debug( 'EXCEPTION: Error executing net revenue sql' );
2286: ---------------------------------------------------------------
2287: BEGIN
2288: LOOP
2289:
2290: IF dbms_sql.fetch_rows( net_revenue_line_c ) > 0 THEN
2291:
2292: debug(' Fetched a row', MSG_LEVEL_DEBUG );
2293:
2294: debug(' Load row into tables', MSG_LEVEL_DEBUG );
2295:
2296: -----------------------------------------------
2297: -- Load row into table
2298: -----------------------------------------------
2299: dbms_sql.column_value( net_revenue_line_c, 1,
2300: net_rev_ctlid_t( net_rev_index ) );
2301: dbms_sql.column_value( net_revenue_line_c, 2,
2302: net_rev_gl_date_t( net_rev_index ) );
2303: dbms_sql.column_value( net_revenue_line_c, 3,
2297: -- Load row into table
2298: -----------------------------------------------
2299: dbms_sql.column_value( net_revenue_line_c, 1,
2300: net_rev_ctlid_t( net_rev_index ) );
2301: dbms_sql.column_value( net_revenue_line_c, 2,
2302: net_rev_gl_date_t( net_rev_index ) );
2303: dbms_sql.column_value( net_revenue_line_c, 3,
2304: net_rev_amount_t( net_rev_index ) );
2305: dbms_sql.column_value( net_revenue_line_c, 4,
2299: dbms_sql.column_value( net_revenue_line_c, 1,
2300: net_rev_ctlid_t( net_rev_index ) );
2301: dbms_sql.column_value( net_revenue_line_c, 2,
2302: net_rev_gl_date_t( net_rev_index ) );
2303: dbms_sql.column_value( net_revenue_line_c, 3,
2304: net_rev_amount_t( net_rev_index ) );
2305: dbms_sql.column_value( net_revenue_line_c, 4,
2306: net_rev_unit_t( net_rev_index ) );
2307: dbms_sql.column_value( net_revenue_line_c, 5,
2301: dbms_sql.column_value( net_revenue_line_c, 2,
2302: net_rev_gl_date_t( net_rev_index ) );
2303: dbms_sql.column_value( net_revenue_line_c, 3,
2304: net_rev_amount_t( net_rev_index ) );
2305: dbms_sql.column_value( net_revenue_line_c, 4,
2306: net_rev_unit_t( net_rev_index ) );
2307: dbms_sql.column_value( net_revenue_line_c, 5,
2308: net_rev_dist_exists_t( net_rev_index ));
2309:
2303: dbms_sql.column_value( net_revenue_line_c, 3,
2304: net_rev_amount_t( net_rev_index ) );
2305: dbms_sql.column_value( net_revenue_line_c, 4,
2306: net_rev_unit_t( net_rev_index ) );
2307: dbms_sql.column_value( net_revenue_line_c, 5,
2308: net_rev_dist_exists_t( net_rev_index ));
2309:
2310: net_rev_index := net_rev_index + 1;
2311:
2411: BEGIN
2412: IF g_bind_trx_12
2413: THEN
2414: /* INSERT */
2415: dbms_sql.bind_variable( nonrule_insert_dist_c,
2416: 'cm_customer_trx_id_1',
2417: p_cm_control.customer_trx_id );
2418:
2419: dbms_sql.bind_variable( nonrule_insert_dist_c,
2415: dbms_sql.bind_variable( nonrule_insert_dist_c,
2416: 'cm_customer_trx_id_1',
2417: p_cm_control.customer_trx_id );
2418:
2419: dbms_sql.bind_variable( nonrule_insert_dist_c,
2420: 'cm_customer_trx_id_2',
2421: p_cm_control.customer_trx_id );
2422: /* UPDATE LINE */
2423: dbms_sql.bind_variable( nonrule_update_lines_c,
2419: dbms_sql.bind_variable( nonrule_insert_dist_c,
2420: 'cm_customer_trx_id_2',
2421: p_cm_control.customer_trx_id );
2422: /* UPDATE LINE */
2423: dbms_sql.bind_variable( nonrule_update_lines_c,
2424: 'cm_customer_trx_id_1',
2425: p_cm_control.customer_trx_id );
2426:
2427: /* UPDATE DIST */
2424: 'cm_customer_trx_id_1',
2425: p_cm_control.customer_trx_id );
2426:
2427: /* UPDATE DIST */
2428: dbms_sql.bind_variable( nonrule_update_dist_c,
2429: 'cm_customer_trx_id_1',
2430: p_cm_control.customer_trx_id );
2431:
2432: END IF;
2431:
2432: END IF;
2433: IF g_bind_trx_3
2434: THEN
2435: dbms_sql.bind_variable( nonrule_insert_dist_c,
2436: 'cm_customer_trx_id_3',
2437: p_cm_control.customer_trx_id );
2438:
2439: END IF;
2443: RAISE;
2444: END;
2445:
2446: BEGIN
2447: dbms_sql.bind_variable( nonrule_update_dist2_c,
2448: 'cm_customer_trx_id',
2449: p_cm_control.customer_trx_id );
2450: EXCEPTION
2451: WHEN OTHERS THEN
2456: BEGIN
2457: IF g_bind_req_12
2458: THEN
2459: /* INSERT */
2460: dbms_sql.bind_variable( nonrule_insert_dist_c,
2461: 'request_id_1',
2462: p_cm_control.request_id );
2463: dbms_sql.bind_variable( nonrule_insert_dist_c,
2464: 'request_id_2',
2459: /* INSERT */
2460: dbms_sql.bind_variable( nonrule_insert_dist_c,
2461: 'request_id_1',
2462: p_cm_control.request_id );
2463: dbms_sql.bind_variable( nonrule_insert_dist_c,
2464: 'request_id_2',
2465: p_cm_control.request_id );
2466: /* UPDATE LINES */
2467: dbms_sql.bind_variable( nonrule_update_lines_c,
2463: dbms_sql.bind_variable( nonrule_insert_dist_c,
2464: 'request_id_2',
2465: p_cm_control.request_id );
2466: /* UPDATE LINES */
2467: dbms_sql.bind_variable( nonrule_update_lines_c,
2468: 'request_id_1',
2469: p_cm_control.request_id );
2470: /* UPDATE DISTS */
2471: dbms_sql.bind_variable( nonrule_update_dist_c,
2467: dbms_sql.bind_variable( nonrule_update_lines_c,
2468: 'request_id_1',
2469: p_cm_control.request_id );
2470: /* UPDATE DISTS */
2471: dbms_sql.bind_variable( nonrule_update_dist_c,
2472: 'request_id_1',
2473: p_cm_control.request_id );
2474:
2475: END IF;
2475: END IF;
2476:
2477: IF g_bind_req_3
2478: THEN
2479: dbms_sql.bind_variable( nonrule_insert_dist_c,
2480: 'request_id_3',
2481: p_cm_control.request_id );
2482: END IF;
2483:
2487: RAISE;
2488: END;
2489:
2490: BEGIN
2491: dbms_sql.bind_variable( nonrule_update_dist2_c,
2492: 'request_id',
2493: p_cm_control.request_id );
2494: EXCEPTION
2495: WHEN OTHERS THEN
2503: BEGIN
2504: IF g_bind_line_14
2505: THEN
2506: /* INSERT */
2507: dbms_sql.bind_variable( nonrule_insert_dist_c,
2508: 'cm_cust_trx_line_id_1',
2509: p_cm_control.customer_trx_line_id );
2510: dbms_sql.bind_variable( nonrule_insert_dist_c,
2511: 'cm_cust_trx_line_id_2',
2506: /* INSERT */
2507: dbms_sql.bind_variable( nonrule_insert_dist_c,
2508: 'cm_cust_trx_line_id_1',
2509: p_cm_control.customer_trx_line_id );
2510: dbms_sql.bind_variable( nonrule_insert_dist_c,
2511: 'cm_cust_trx_line_id_2',
2512: p_cm_control.customer_trx_line_id );
2513: dbms_sql.bind_variable( nonrule_insert_dist_c,
2514: 'cm_cust_trx_line_id_3',
2509: p_cm_control.customer_trx_line_id );
2510: dbms_sql.bind_variable( nonrule_insert_dist_c,
2511: 'cm_cust_trx_line_id_2',
2512: p_cm_control.customer_trx_line_id );
2513: dbms_sql.bind_variable( nonrule_insert_dist_c,
2514: 'cm_cust_trx_line_id_3',
2515: p_cm_control.customer_trx_line_id );
2516: dbms_sql.bind_variable( nonrule_insert_dist_c,
2517: 'cm_cust_trx_line_id_4',
2512: p_cm_control.customer_trx_line_id );
2513: dbms_sql.bind_variable( nonrule_insert_dist_c,
2514: 'cm_cust_trx_line_id_3',
2515: p_cm_control.customer_trx_line_id );
2516: dbms_sql.bind_variable( nonrule_insert_dist_c,
2517: 'cm_cust_trx_line_id_4',
2518: p_cm_control.customer_trx_line_id );
2519: /* UPDATE LINES */
2520: dbms_sql.bind_variable( nonrule_update_lines_c,
2516: dbms_sql.bind_variable( nonrule_insert_dist_c,
2517: 'cm_cust_trx_line_id_4',
2518: p_cm_control.customer_trx_line_id );
2519: /* UPDATE LINES */
2520: dbms_sql.bind_variable( nonrule_update_lines_c,
2521: 'cm_cust_trx_line_id_1',
2522: p_cm_control.customer_trx_line_id );
2523: dbms_sql.bind_variable( nonrule_update_lines_c,
2524: 'cm_cust_trx_line_id_2',
2519: /* UPDATE LINES */
2520: dbms_sql.bind_variable( nonrule_update_lines_c,
2521: 'cm_cust_trx_line_id_1',
2522: p_cm_control.customer_trx_line_id );
2523: dbms_sql.bind_variable( nonrule_update_lines_c,
2524: 'cm_cust_trx_line_id_2',
2525: p_cm_control.customer_trx_line_id );
2526: /* UPDATE DISTS */
2527: dbms_sql.bind_variable( nonrule_update_dist_c,
2523: dbms_sql.bind_variable( nonrule_update_lines_c,
2524: 'cm_cust_trx_line_id_2',
2525: p_cm_control.customer_trx_line_id );
2526: /* UPDATE DISTS */
2527: dbms_sql.bind_variable( nonrule_update_dist_c,
2528: 'cm_cust_trx_line_id_1',
2529: p_cm_control.customer_trx_line_id );
2530: dbms_sql.bind_variable( nonrule_update_dist_c,
2531: 'cm_cust_trx_line_id_2',
2526: /* UPDATE DISTS */
2527: dbms_sql.bind_variable( nonrule_update_dist_c,
2528: 'cm_cust_trx_line_id_1',
2529: p_cm_control.customer_trx_line_id );
2530: dbms_sql.bind_variable( nonrule_update_dist_c,
2531: 'cm_cust_trx_line_id_2',
2532: p_cm_control.customer_trx_line_id );
2533: END IF;
2534: EXCEPTION
2544: -----------------------------------------------------------------------
2545: debug( ' Inserting distributions', MSG_LEVEL_DEBUG );
2546:
2547: BEGIN
2548: l_ignore := dbms_sql.execute( nonrule_insert_dist_c );
2549: close_cursor( nonrule_insert_dist_c );
2550:
2551: debug( to_char(l_ignore) || ' row(s) inserted', MSG_LEVEL_DEBUG );
2552:
2563: -----------------------------------------------------------------------
2564: debug( ' Updating lines', MSG_LEVEL_DEBUG );
2565:
2566: BEGIN
2567: l_ignore := dbms_sql.execute( nonrule_update_lines_c );
2568: close_cursor( nonrule_update_lines_c );
2569: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2570:
2571: EXCEPTION
2579: -----------------------------------------------------------------------
2580: debug( ' Updating distributions', MSG_LEVEL_DEBUG );
2581:
2582: BEGIN
2583: l_ignore := dbms_sql.execute( nonrule_update_dist_c );
2584: close_cursor( nonrule_update_dist_c );
2585:
2586: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2587:
2598: -----------------------------------------------------------------------
2599: debug( ' Updating distributions for rounding errors', MSG_LEVEL_DEBUG );
2600:
2601: BEGIN
2602: l_ignore := dbms_sql.execute( nonrule_update_dist2_c );
2603: close_cursor( nonrule_update_dist2_c );
2604:
2605: debug( to_char(l_ignore) || ' row(s) updated', MSG_LEVEL_DEBUG );
2606:
2651: BEGIN
2652:
2653: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()+' );
2654:
2655: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2656: dbms_sql.define_column( p_select_c, 2,
2657: p_select_rec.prev_cust_trx_line_id );
2658: dbms_sql.define_column( p_select_c, 3,
2659: p_select_rec.allow_overapp_flag, 1 );
2652:
2653: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()+' );
2654:
2655: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2656: dbms_sql.define_column( p_select_c, 2,
2657: p_select_rec.prev_cust_trx_line_id );
2658: dbms_sql.define_column( p_select_c, 3,
2659: p_select_rec.allow_overapp_flag, 1 );
2660: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2654:
2655: dbms_sql.define_column( p_select_c, 1, p_select_rec.customer_trx_line_id );
2656: dbms_sql.define_column( p_select_c, 2,
2657: p_select_rec.prev_cust_trx_line_id );
2658: dbms_sql.define_column( p_select_c, 3,
2659: p_select_rec.allow_overapp_flag, 1 );
2660: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2661: dbms_sql.define_column( p_select_c, 5,
2662: p_select_rec.credit_method_for_rules, 1 );
2656: dbms_sql.define_column( p_select_c, 2,
2657: p_select_rec.prev_cust_trx_line_id );
2658: dbms_sql.define_column( p_select_c, 3,
2659: p_select_rec.allow_overapp_flag, 1 );
2660: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2661: dbms_sql.define_column( p_select_c, 5,
2662: p_select_rec.credit_method_for_rules, 1 );
2663: dbms_sql.define_column( p_select_c, 6,
2664: p_select_rec.last_period_to_credit );
2657: p_select_rec.prev_cust_trx_line_id );
2658: dbms_sql.define_column( p_select_c, 3,
2659: p_select_rec.allow_overapp_flag, 1 );
2660: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2661: dbms_sql.define_column( p_select_c, 5,
2662: p_select_rec.credit_method_for_rules, 1 );
2663: dbms_sql.define_column( p_select_c, 6,
2664: p_select_rec.last_period_to_credit );
2665: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2659: p_select_rec.allow_overapp_flag, 1 );
2660: dbms_sql.define_column( p_select_c, 4, p_select_rec.cm_amount );
2661: dbms_sql.define_column( p_select_c, 5,
2662: p_select_rec.credit_method_for_rules, 1 );
2663: dbms_sql.define_column( p_select_c, 6,
2664: p_select_rec.last_period_to_credit );
2665: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2666: dbms_sql.define_column( p_select_c, 8,
2667: p_select_rec.inv_acct_rule_duration );
2661: dbms_sql.define_column( p_select_c, 5,
2662: p_select_rec.credit_method_for_rules, 1 );
2663: dbms_sql.define_column( p_select_c, 6,
2664: p_select_rec.last_period_to_credit );
2665: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2666: dbms_sql.define_column( p_select_c, 8,
2667: p_select_rec.inv_acct_rule_duration );
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2662: p_select_rec.credit_method_for_rules, 1 );
2663: dbms_sql.define_column( p_select_c, 6,
2664: p_select_rec.last_period_to_credit );
2665: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2666: dbms_sql.define_column( p_select_c, 8,
2667: p_select_rec.inv_acct_rule_duration );
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2664: p_select_rec.last_period_to_credit );
2665: dbms_sql.define_column( p_select_c, 7, p_select_rec.currency_code, 15 );
2666: dbms_sql.define_column( p_select_c, 8,
2667: p_select_rec.inv_acct_rule_duration );
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2671: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2672: dbms_sql.define_column( p_select_c, 12,
2666: dbms_sql.define_column( p_select_c, 8,
2667: p_select_rec.inv_acct_rule_duration );
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2671: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2672: dbms_sql.define_column( p_select_c, 12,
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2667: p_select_rec.inv_acct_rule_duration );
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2671: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2672: dbms_sql.define_column( p_select_c, 12,
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2675: p_select_rec.invoice_sign);
2668: dbms_sql.define_column( p_select_c, 9,
2669: p_select_rec.allow_not_open_flag, 1 );
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2671: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2672: dbms_sql.define_column( p_select_c, 12,
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2675: p_select_rec.invoice_sign);
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2670: dbms_sql.define_column( p_select_c, 10, p_select_rec.cm_gl_date );
2671: dbms_sql.define_column( p_select_c, 11, p_select_rec.invoice_quantity );
2672: dbms_sql.define_column( p_select_c, 12,
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2675: p_select_rec.invoice_sign);
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2677: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2678: /* 4621029 */
2672: dbms_sql.define_column( p_select_c, 12,
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2675: p_select_rec.invoice_sign);
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2677: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2678: /* 4621029 */
2679: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2680: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2673: p_select_rec.cm_quantity );
2674: dbms_sql.define_column( p_select_c, 13,
2675: p_select_rec.invoice_sign);
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2677: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2678: /* 4621029 */
2679: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2680: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2681: /* 4621029 end */
2675: p_select_rec.invoice_sign);
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2677: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2678: /* 4621029 */
2679: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2680: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2681: /* 4621029 end */
2682:
2683: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()-' );
2676: dbms_sql.define_column( p_select_c, 14, p_select_rec.cm_sign);
2677: dbms_sql.define_column( p_select_c, 15, p_select_rec.partial_period_flag,1);
2678: /* 4621029 */
2679: dbms_sql.define_column( p_select_c, 16, p_select_rec.inv_unit_price);
2680: dbms_sql.define_column( p_select_c, 17, p_select_rec.cm_unit_price);
2681: /* 4621029 end */
2682:
2683: print_fcn_label2( 'arp_credit_memo_module.define_select_columns()-' );
2684:
2716: BEGIN
2717:
2718: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2719:
2720: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2721: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2722: dbms_sql.column_value( p_select_c, 3,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2717:
2718: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2719:
2720: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2721: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2722: dbms_sql.column_value( p_select_c, 3,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2718: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()+' );
2719:
2720: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2721: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2722: dbms_sql.column_value( p_select_c, 3,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2720: dbms_sql.column_value( p_select_c, 1, p_select_rec.customer_trx_line_id );
2721: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2722: dbms_sql.column_value( p_select_c, 3,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2721: dbms_sql.column_value( p_select_c, 2, p_select_rec.prev_cust_trx_line_id );
2722: dbms_sql.column_value( p_select_c, 3,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2723: p_select_rec.allow_overapp_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2724: dbms_sql.column_value( p_select_c, 4, p_select_rec.cm_amount );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2725: dbms_sql.column_value( p_select_c, 5,
2726: p_select_rec.credit_method_for_rules );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2727: dbms_sql.column_value( p_select_c, 6, p_select_rec.last_period_to_credit );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2728: dbms_sql.column_value( p_select_c, 7, p_select_rec.currency_code );
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2729: dbms_sql.column_value( p_select_c, 8,
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2737: p_select_rec.invoice_sign );
2730: p_select_rec.inv_acct_rule_duration );
2731: dbms_sql.column_value( p_select_c, 9, p_select_rec.allow_not_open_flag );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2737: p_select_rec.invoice_sign );
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2732: dbms_sql.column_value( p_select_c, 10, p_select_rec.cm_gl_date );
2733: dbms_sql.column_value( p_select_c, 11, p_select_rec.invoice_quantity );
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2737: p_select_rec.invoice_sign );
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2739: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2740: /* 4621029 */
2734: dbms_sql.column_value( p_select_c, 12,
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2737: p_select_rec.invoice_sign );
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2739: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2740: /* 4621029 */
2741: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2742: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2735: p_select_rec.cm_quantity );
2736: dbms_sql.column_value( p_select_c, 13,
2737: p_select_rec.invoice_sign );
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2739: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2740: /* 4621029 */
2741: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2742: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2743: /* 4621029 end */
2737: p_select_rec.invoice_sign );
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2739: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2740: /* 4621029 */
2741: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2742: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2743: /* 4621029 end */
2744:
2745:
2738: dbms_sql.column_value( p_select_c, 14, p_select_rec.cm_sign );
2739: dbms_sql.column_value( p_select_c, 15, p_select_rec.partial_period_flag);
2740: /* 4621029 */
2741: dbms_sql.column_value( p_select_c, 16, p_select_rec.inv_unit_price);
2742: dbms_sql.column_value( p_select_c, 17, p_select_rec.cm_unit_price);
2743: /* 4621029 end */
2744:
2745:
2746: print_fcn_label2( 'arp_credit_memo_module.get_select_column_values()-' );
2954: -------------------------------------------------------------
2955: BEGIN
2956: debug( ' Binding rule_insert_dist_c', MSG_LEVEL_DEBUG );
2957:
2958: dbms_sql.bind_variable( rule_insert_dist_c,
2959: 'customer_trx_line_id',
2960: cm_sched_ctlid_t( i ) );
2961: /*7147479 added binding for customer_trx_line_id_1*/
2962: dbms_sql.bind_variable( rule_insert_dist_c,
2958: dbms_sql.bind_variable( rule_insert_dist_c,
2959: 'customer_trx_line_id',
2960: cm_sched_ctlid_t( i ) );
2961: /*7147479 added binding for customer_trx_line_id_1*/
2962: dbms_sql.bind_variable( rule_insert_dist_c,
2963: 'customer_trx_line_id_1',
2964: cm_sched_ctlid_t( i ) );
2965: dbms_sql.bind_variable( rule_insert_dist_c,
2966: 'gl_date',
2961: /*7147479 added binding for customer_trx_line_id_1*/
2962: dbms_sql.bind_variable( rule_insert_dist_c,
2963: 'customer_trx_line_id_1',
2964: cm_sched_ctlid_t( i ) );
2965: dbms_sql.bind_variable( rule_insert_dist_c,
2966: 'gl_date',
2967: cm_sched_gl_date_t( i ) );
2968: dbms_sql.bind_variable( rule_insert_dist_c,
2969: 'amount',
2964: cm_sched_ctlid_t( i ) );
2965: dbms_sql.bind_variable( rule_insert_dist_c,
2966: 'gl_date',
2967: cm_sched_gl_date_t( i ) );
2968: dbms_sql.bind_variable( rule_insert_dist_c,
2969: 'amount',
2970: cm_sched_amount_t( i ) );
2971: dbms_sql.bind_variable( rule_insert_dist_c,
2972: 'amount_1',
2967: cm_sched_gl_date_t( i ) );
2968: dbms_sql.bind_variable( rule_insert_dist_c,
2969: 'amount',
2970: cm_sched_amount_t( i ) );
2971: dbms_sql.bind_variable( rule_insert_dist_c,
2972: 'amount_1',
2973: cm_sched_amount_t( i ) );
2974: dbms_sql.bind_variable( rule_insert_dist_c,
2975: 'amount_2',
2970: cm_sched_amount_t( i ) );
2971: dbms_sql.bind_variable( rule_insert_dist_c,
2972: 'amount_1',
2973: cm_sched_amount_t( i ) );
2974: dbms_sql.bind_variable( rule_insert_dist_c,
2975: 'amount_2',
2976: cm_sched_amount_t( i ) );
2977: dbms_sql.bind_variable( rule_insert_dist_c,
2978: 'amount_3',
2973: cm_sched_amount_t( i ) );
2974: dbms_sql.bind_variable( rule_insert_dist_c,
2975: 'amount_2',
2976: cm_sched_amount_t( i ) );
2977: dbms_sql.bind_variable( rule_insert_dist_c,
2978: 'amount_3',
2979: cm_sched_amount_t( i ) );
2980: dbms_sql.bind_variable( rule_insert_dist_c,
2981: 'amount_4',
2976: cm_sched_amount_t( i ) );
2977: dbms_sql.bind_variable( rule_insert_dist_c,
2978: 'amount_3',
2979: cm_sched_amount_t( i ) );
2980: dbms_sql.bind_variable( rule_insert_dist_c,
2981: 'amount_4',
2982: cm_sched_amount_t( i ) );
2983: dbms_sql.bind_variable( rule_insert_dist_c,
2984: 'amount_5',
2979: cm_sched_amount_t( i ) );
2980: dbms_sql.bind_variable( rule_insert_dist_c,
2981: 'amount_4',
2982: cm_sched_amount_t( i ) );
2983: dbms_sql.bind_variable( rule_insert_dist_c,
2984: 'amount_5',
2985: cm_sched_amount_t( i ) );
2986: dbms_sql.bind_variable( rule_insert_dist_c,
2987: 'amount_6',
2982: cm_sched_amount_t( i ) );
2983: dbms_sql.bind_variable( rule_insert_dist_c,
2984: 'amount_5',
2985: cm_sched_amount_t( i ) );
2986: dbms_sql.bind_variable( rule_insert_dist_c,
2987: 'amount_6',
2988: cm_sched_amount_t( i ) );
2989: /*7147479 changed bind variable insert_offset_1*/
2990: dbms_sql.bind_variable( rule_insert_dist_c,
2986: dbms_sql.bind_variable( rule_insert_dist_c,
2987: 'amount_6',
2988: cm_sched_amount_t( i ) );
2989: /*7147479 changed bind variable insert_offset_1*/
2990: dbms_sql.bind_variable( rule_insert_dist_c,
2991: 'insert_offset_1',
2992: cm_sched_insert_offset_t( i ) );
2993: /*7147479 added extra bind variable insert_offset_2*/
2994: dbms_sql.bind_variable( rule_insert_dist_c,
2990: dbms_sql.bind_variable( rule_insert_dist_c,
2991: 'insert_offset_1',
2992: cm_sched_insert_offset_t( i ) );
2993: /*7147479 added extra bind variable insert_offset_2*/
2994: dbms_sql.bind_variable( rule_insert_dist_c,
2995: 'insert_offset_2',
2996: cm_sched_insert_offset_t( i ) );
2997:
2998: dbms_sql.bind_variable( rule_insert_dist_c,
2994: dbms_sql.bind_variable( rule_insert_dist_c,
2995: 'insert_offset_2',
2996: cm_sched_insert_offset_t( i ) );
2997:
2998: dbms_sql.bind_variable( rule_insert_dist_c,
2999: 'check_gl_date_1',
3000: cm_sched_check_gl_date_t( i ) );
3001:
3002:
3003: /* Bug 2899714 - bind variable not defined when
3004: use_inv_acct set to no */
3005: IF( profile_info.use_inv_acct_for_cm_flag = YES ) THEN
3006: /* 4254587 */
3007: dbms_sql.bind_variable( rule_insert_dist_c,
3008: 'period_set_name',
3009: system_info.period_set_name );
3010:
3011: /* Bug 2347001 - session_id */
3008: 'period_set_name',
3009: system_info.period_set_name );
3010:
3011: /* Bug 2347001 - session_id */
3012: dbms_sql.bind_variable( rule_insert_dist_c,
3013: 'session_id',
3014: g_session_id);
3015:
3016: /*7147479 - added new bind variables*/
3013: 'session_id',
3014: g_session_id);
3015:
3016: /*7147479 - added new bind variables*/
3017: dbms_sql.bind_variable( rule_insert_dist_c,
3018: 'customer_trx_line_id_2',
3019: cm_sched_ctlid_t( i ) );
3020: dbms_sql.bind_variable( rule_insert_dist_c,
3021: 'original_gl_date_1',
3016: /*7147479 - added new bind variables*/
3017: dbms_sql.bind_variable( rule_insert_dist_c,
3018: 'customer_trx_line_id_2',
3019: cm_sched_ctlid_t( i ) );
3020: dbms_sql.bind_variable( rule_insert_dist_c,
3021: 'original_gl_date_1',
3022: cm_sched_orig_gl_date_t( i ) );
3023: dbms_sql.bind_variable( rule_insert_dist_c,
3024: 'gl_date_2',
3019: cm_sched_ctlid_t( i ) );
3020: dbms_sql.bind_variable( rule_insert_dist_c,
3021: 'original_gl_date_1',
3022: cm_sched_orig_gl_date_t( i ) );
3023: dbms_sql.bind_variable( rule_insert_dist_c,
3024: 'gl_date_2',
3025: cm_sched_gl_date_t( i ) );
3026: dbms_sql.bind_variable( rule_insert_dist_c,
3027: 'gl_date_3',
3022: cm_sched_orig_gl_date_t( i ) );
3023: dbms_sql.bind_variable( rule_insert_dist_c,
3024: 'gl_date_2',
3025: cm_sched_gl_date_t( i ) );
3026: dbms_sql.bind_variable( rule_insert_dist_c,
3027: 'gl_date_3',
3028: cm_sched_gl_date_t( i ) );
3029: dbms_sql.bind_variable( rule_insert_dist_c,
3030: 'gl_date_4',
3025: cm_sched_gl_date_t( i ) );
3026: dbms_sql.bind_variable( rule_insert_dist_c,
3027: 'gl_date_3',
3028: cm_sched_gl_date_t( i ) );
3029: dbms_sql.bind_variable( rule_insert_dist_c,
3030: 'gl_date_4',
3031: cm_sched_gl_date_t( i ) );
3032: /*bug-7147479 added For Use Invoice Accounting for CM is NO*/
3033: ELSE
3031: cm_sched_gl_date_t( i ) );
3032: /*bug-7147479 added For Use Invoice Accounting for CM is NO*/
3033: ELSE
3034: /* in SELECT portion of statement */
3035: dbms_sql.bind_variable( rule_insert_dist_c,
3036: 'original_gl_date',
3037: cm_sched_orig_gl_date_t( i ) );
3038: /* in WHERE portion of statement */
3039: dbms_sql.bind_variable( rule_insert_dist_c,
3035: dbms_sql.bind_variable( rule_insert_dist_c,
3036: 'original_gl_date',
3037: cm_sched_orig_gl_date_t( i ) );
3038: /* in WHERE portion of statement */
3039: dbms_sql.bind_variable( rule_insert_dist_c,
3040: 'gl_date_1',
3041: cm_sched_gl_date_t( i ) );
3042:
3043: dbms_sql.bind_variable( rule_insert_dist_c,
3039: dbms_sql.bind_variable( rule_insert_dist_c,
3040: 'gl_date_1',
3041: cm_sched_gl_date_t( i ) );
3042:
3043: dbms_sql.bind_variable( rule_insert_dist_c,
3044: 'check_gl_date_2',
3045: cm_sched_check_gl_date_t( i ) );
3046: END IF;
3047:
3055: -- Execute
3056: -------------------------------------------------------------
3057: BEGIN
3058: arp_standard.debug( ' Inserting distributions');
3059: l_ignore := dbms_sql.execute( rule_insert_dist_c );
3060: EXCEPTION
3061: WHEN OTHERS THEN
3062: debug( 'EXCEPTION: Error executing insert dist stmt' );
3063: RAISE;
3095:
3096: -------------------------------------------------------------
3097: -- Bind vars
3098: -------------------------------------------------------------
3099: dbms_sql.bind_variable( rule_insert_cma_c,
3100: 'customer_trx_line_id',
3101: cm_sched_ctlid_t( i ) );
3102: dbms_sql.bind_variable( rule_insert_cma_c,
3103: 'gl_date',
3098: -------------------------------------------------------------
3099: dbms_sql.bind_variable( rule_insert_cma_c,
3100: 'customer_trx_line_id',
3101: cm_sched_ctlid_t( i ) );
3102: dbms_sql.bind_variable( rule_insert_cma_c,
3103: 'gl_date',
3104: l_original_gl_date);
3105: dbms_sql.bind_variable( rule_insert_cma_c,
3106: 'amount',
3101: cm_sched_ctlid_t( i ) );
3102: dbms_sql.bind_variable( rule_insert_cma_c,
3103: 'gl_date',
3104: l_original_gl_date);
3105: dbms_sql.bind_variable( rule_insert_cma_c,
3106: 'amount',
3107: cm_sched_amount_t( i ) );
3108: -------------------------------------------------------------
3109: -- Execute
3110: -------------------------------------------------------------
3111: BEGIN
3112:
3113: debug( ' Inserting CM amounts', MSG_LEVEL_DEBUG );
3114: l_ignore := dbms_sql.execute( rule_insert_cma_c );
3115: debug( to_char(l_ignore) || ' row(s) inserted',
3116: MSG_LEVEL_DEBUG );
3117:
3118: EXCEPTION
4789:
4790: BEGIN
4791: debug( ' Defining columns for net_revenue_line_c', MSG_LEVEL_BASIC );
4792:
4793: dbms_sql.define_column( net_revenue_line_c, 1,
4794: net_revenue_rec.customer_trx_line_id );
4795: dbms_sql.define_column( net_revenue_line_c, 2,
4796: net_revenue_rec.gl_date );
4797: dbms_sql.define_column( net_revenue_line_c, 3,
4791: debug( ' Defining columns for net_revenue_line_c', MSG_LEVEL_BASIC );
4792:
4793: dbms_sql.define_column( net_revenue_line_c, 1,
4794: net_revenue_rec.customer_trx_line_id );
4795: dbms_sql.define_column( net_revenue_line_c, 2,
4796: net_revenue_rec.gl_date );
4797: dbms_sql.define_column( net_revenue_line_c, 3,
4798: net_revenue_rec.amount );
4799: dbms_sql.define_column( net_revenue_line_c, 4,
4793: dbms_sql.define_column( net_revenue_line_c, 1,
4794: net_revenue_rec.customer_trx_line_id );
4795: dbms_sql.define_column( net_revenue_line_c, 2,
4796: net_revenue_rec.gl_date );
4797: dbms_sql.define_column( net_revenue_line_c, 3,
4798: net_revenue_rec.amount );
4799: dbms_sql.define_column( net_revenue_line_c, 4,
4800: net_revenue_rec.net_unit_price );
4801: dbms_sql.define_column( net_revenue_line_c, 5,
4795: dbms_sql.define_column( net_revenue_line_c, 2,
4796: net_revenue_rec.gl_date );
4797: dbms_sql.define_column( net_revenue_line_c, 3,
4798: net_revenue_rec.amount );
4799: dbms_sql.define_column( net_revenue_line_c, 4,
4800: net_revenue_rec.net_unit_price );
4801: dbms_sql.define_column( net_revenue_line_c, 5,
4802: net_revenue_rec.inv_dist_exists, 1 );
4803: EXCEPTION
4797: dbms_sql.define_column( net_revenue_line_c, 3,
4798: net_revenue_rec.amount );
4799: dbms_sql.define_column( net_revenue_line_c, 4,
4800: net_revenue_rec.net_unit_price );
4801: dbms_sql.define_column( net_revenue_line_c, 5,
4802: net_revenue_rec.inv_dist_exists, 1 );
4803: EXCEPTION
4804: WHEN OTHERS THEN
4805: debug( 'EXCEPTION: Error defining columns for net_revenue_line_c' );
4808:
4809: /* bug fix 956189 */
4810: IF( p_cm_control.customer_trx_line_id IS NOT NULL ) THEN
4811: BEGIN
4812: dbms_sql.bind_variable( rule_select_cm_lines_c,
4813: 'cm_cust_trx_line_id',
4814: p_cm_control.customer_trx_line_id );
4815: EXCEPTION
4816: WHEN OTHERS THEN
4820:
4821: ELSE
4822: IF( p_cm_control.customer_trx_id IS NOT NULL ) THEN
4823: BEGIN
4824: dbms_sql.bind_variable( rule_select_cm_lines_c,
4825: 'cm_customer_trx_id',
4826: p_cm_control.customer_trx_id );
4827: EXCEPTION
4828: WHEN OTHERS THEN
4830: RAISE;
4831: END;
4832: ELSE /* bug 3525326 */
4833: BEGIN
4834: dbms_sql.bind_variable( rule_select_cm_lines_c,
4835: 'request_id',
4836: p_cm_control.request_id );
4837: EXCEPTION
4838: WHEN OTHERS THEN
4844:
4845: /* bug 3525326 */
4846: IF (p_cm_control.request_id IS NOT NULL) THEN
4847: BEGIN
4848: dbms_sql.bind_variable( rule_insert_cma_c,
4849: 'request_id',
4850: p_cm_control.request_id );
4851: EXCEPTION
4852: WHEN OTHERS THEN
4884: ---------------------------------------------------------------
4885: debug( ' Executing select sql', MSG_LEVEL_DEBUG );
4886:
4887: BEGIN
4888: l_ignore := dbms_sql.execute( rule_select_cm_lines_c );
4889:
4890: EXCEPTION
4891: WHEN OTHERS THEN
4892: debug( 'EXCEPTION: Error executing select cm lines sql' );
4903: BEGIN
4904: LOOP
4905:
4906:
4907: IF dbms_sql.fetch_rows( rule_select_cm_lines_c ) > 0 THEN
4908:
4909: debug(' fetched a row', MSG_LEVEL_DEBUG );
4910:
4911: l_first_fetch := FALSE;
5000: debug(' cm_acct_rule_duration='||
5001: l_select_rec.cm_acct_rule_duration,
5002: MSG_LEVEL_DEBUG);
5003:
5004: dbms_sql.bind_variable( rule_update_cm_lines_c,
5005: 'rule_start_date',
5006: l_select_rec.rule_start_date );
5007: dbms_sql.bind_variable( rule_update_cm_lines_c,
5008: 'rule_end_date',
5003:
5004: dbms_sql.bind_variable( rule_update_cm_lines_c,
5005: 'rule_start_date',
5006: l_select_rec.rule_start_date );
5007: dbms_sql.bind_variable( rule_update_cm_lines_c,
5008: 'rule_end_date',
5009: l_select_rec.rule_end_date );
5010: dbms_sql.bind_variable( rule_update_cm_lines_c,
5011: 'cm_acct_rule_duration',
5006: l_select_rec.rule_start_date );
5007: dbms_sql.bind_variable( rule_update_cm_lines_c,
5008: 'rule_end_date',
5009: l_select_rec.rule_end_date );
5010: dbms_sql.bind_variable( rule_update_cm_lines_c,
5011: 'cm_acct_rule_duration',
5012: l_select_rec.cm_acct_rule_duration );
5013: dbms_sql.bind_variable( rule_update_cm_lines_c,
5014: 'credit_method',
5009: l_select_rec.rule_end_date );
5010: dbms_sql.bind_variable( rule_update_cm_lines_c,
5011: 'cm_acct_rule_duration',
5012: l_select_rec.cm_acct_rule_duration );
5013: dbms_sql.bind_variable( rule_update_cm_lines_c,
5014: 'credit_method',
5015: l_select_rec.credit_method_for_rules);
5016: dbms_sql.bind_variable( rule_update_cm_lines_c,
5017: 'last_period_to_credit',
5012: l_select_rec.cm_acct_rule_duration );
5013: dbms_sql.bind_variable( rule_update_cm_lines_c,
5014: 'credit_method',
5015: l_select_rec.credit_method_for_rules);
5016: dbms_sql.bind_variable( rule_update_cm_lines_c,
5017: 'last_period_to_credit',
5018: l_select_rec.last_period_to_credit );
5019: dbms_sql.bind_variable( rule_update_cm_lines_c,
5020: 'customer_trx_line_id',
5015: l_select_rec.credit_method_for_rules);
5016: dbms_sql.bind_variable( rule_update_cm_lines_c,
5017: 'last_period_to_credit',
5018: l_select_rec.last_period_to_credit );
5019: dbms_sql.bind_variable( rule_update_cm_lines_c,
5020: 'customer_trx_line_id',
5021: l_select_rec.customer_trx_line_id );
5022: EXCEPTION
5023: WHEN OTHERS THEN
5030: -----------------------------------------------------------
5031: debug( ' Updating lines', MSG_LEVEL_DEBUG );
5032:
5033: BEGIN
5034: l_ignore := dbms_sql.execute( rule_update_cm_lines_c );
5035:
5036: debug( to_char(l_ignore) || ' row(s) updated',
5037: MSG_LEVEL_DEBUG );
5038:
5561: p_run_autoaccounting_flag IN BOOLEAN
5562: ) IS
5563:
5564: l_ignore INTEGER;
5565: gl_header_dist_array dbms_sql.number_table; /* mrc */
5566: gl_line_dist_array dbms_sql.number_table; /* mrc */
5567: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE; -- bug5870933
5568:
5569: BEGIN
5562: ) IS
5563:
5564: l_ignore INTEGER;
5565: gl_header_dist_array dbms_sql.number_table; /* mrc */
5566: gl_line_dist_array dbms_sql.number_table; /* mrc */
5567: l_xla_ev_rec ARP_XLA_EVENTS.XLA_EVENTS_TYPE; -- bug5870933
5568:
5569: BEGIN
5570: print_fcn_label('arp_credit_memo_module.credit_transactions()+' );
5600: -- Process Update mode
5601: ------------------------------
5602: debug( ' Update mode', MSG_LEVEL_DEBUG );
5603:
5604: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5601: ------------------------------
5602: debug( ' Update mode', MSG_LEVEL_DEBUG );
5603:
5604: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5609: dbms_sql.is_open( update_lines_c ) ) ) THEN
5602: debug( ' Update mode', MSG_LEVEL_DEBUG );
5603:
5604: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5609: dbms_sql.is_open( update_lines_c ) ) ) THEN
5610:
5603:
5604: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5609: dbms_sql.is_open( update_lines_c ) ) ) THEN
5610:
5611: ----------------------------------------------------------------
5604: IF( NOT( dbms_sql.is_open( delete_header_dist_c ) AND
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5609: dbms_sql.is_open( update_lines_c ) ) ) THEN
5610:
5611: ----------------------------------------------------------------
5612: -- Build dynamic sql
5605: dbms_sql.is_open( delete_line_dist_c ) AND
5606: dbms_sql.is_open( delete_header_cma_c ) AND
5607: dbms_sql.is_open( delete_line_cma_c ) AND
5608: dbms_sql.is_open( update_header_lines_c ) AND
5609: dbms_sql.is_open( update_lines_c ) ) ) THEN
5610:
5611: ----------------------------------------------------------------
5612: -- Build dynamic sql
5613: ----------------------------------------------------------------
5638:
5639: ---------------------------------------------------------------
5640: -- Bind variables
5641: ---------------------------------------------------------------
5642: dbms_sql.bind_variable(
5643: delete_line_dist_c,
5644: 'customer_trx_line_id',
5645: p_customer_trx_line_id );
5646:
5643: delete_line_dist_c,
5644: 'customer_trx_line_id',
5645: p_customer_trx_line_id );
5646:
5647: dbms_sql.bind_variable(
5648: delete_line_cma_c,
5649: 'customer_trx_line_id',
5650: p_customer_trx_line_id );
5651:
5648: delete_line_cma_c,
5649: 'customer_trx_line_id',
5650: p_customer_trx_line_id );
5651:
5652: dbms_sql.bind_variable(
5653: update_lines_c,
5654: 'customer_trx_line_id',
5655: p_customer_trx_line_id );
5656:
5656:
5657: --------------------------------------------------------------
5658: -- Bind output variables
5659: --------------------------------------------------------------
5660: dbms_sql.bind_array(delete_line_dist_c, ':gl_dist_key_value',
5661: gl_line_dist_array);
5662:
5663:
5664: ---------------------------------------------------------------
5665: -- Execute sql
5666: ---------------------------------------------------------------
5667: debug( ' Executing delete dist sql', MSG_LEVEL_DEBUG );
5668: BEGIN
5669: l_ignore := dbms_sql.execute( delete_line_dist_c );
5670:
5671: debug( to_char(l_ignore) || ' row(s) deleted',
5672: MSG_LEVEL_DEBUG );
5673:
5674: /*------------------------------------------+
5675: | get RETURNING COLUMN into OUT NOCOPY bind array |
5676: +------------------------------------------*/
5677:
5678: dbms_sql.variable_value( delete_line_dist_c,
5679: ':gl_dist_key_value',
5680: gl_line_dist_array);
5681: EXCEPTION
5682: WHEN OTHERS THEN
5685: END;
5686:
5687: debug( ' Executing delete cma sql', MSG_LEVEL_DEBUG );
5688: BEGIN
5689: l_ignore := dbms_sql.execute( delete_line_cma_c );
5690:
5691: debug( to_char(l_ignore) || ' row(s) deleted',
5692: MSG_LEVEL_DEBUG );
5693: EXCEPTION
5697: END;
5698:
5699: debug( ' Executing update lines sql', MSG_LEVEL_DEBUG );
5700: BEGIN
5701: l_ignore := dbms_sql.execute( update_lines_c );
5702:
5703: debug( to_char(l_ignore) || ' row(s) updated',
5704: MSG_LEVEL_DEBUG );
5705: EXCEPTION
5717:
5718: ---------------------------------------------------------------
5719: -- Bind variables
5720: ---------------------------------------------------------------
5721: dbms_sql.bind_variable(
5722: delete_header_dist_c,
5723: 'customer_trx_id',
5724: p_customer_trx_id );
5725:
5722: delete_header_dist_c,
5723: 'customer_trx_id',
5724: p_customer_trx_id );
5725:
5726: dbms_sql.bind_variable(
5727: delete_header_cma_c,
5728: 'customer_trx_id',
5729: p_customer_trx_id );
5730:
5727: delete_header_cma_c,
5728: 'customer_trx_id',
5729: p_customer_trx_id );
5730:
5731: dbms_sql.bind_variable(
5732: update_header_lines_c,
5733: 'customer_trx_id',
5734: p_customer_trx_id );
5735:
5735:
5736: --------------------------------------------------------------
5737: -- Bind output variables
5738: --------------------------------------------------------------
5739: dbms_sql.bind_array(delete_header_dist_c, ':gl_dist_key_value',
5740: gl_header_dist_array);
5741:
5742: ---------------------------------------------------------------
5743: -- Execute sql
5743: -- Execute sql
5744: ---------------------------------------------------------------
5745: debug( ' Executing delete dist sql', MSG_LEVEL_DEBUG );
5746: BEGIN
5747: l_ignore := dbms_sql.execute( delete_header_dist_c );
5748:
5749: debug( to_char(l_ignore) || ' row(s) deleted',
5750: MSG_LEVEL_DEBUG );
5751: /*------------------------------------------+
5751: /*------------------------------------------+
5752: | get RETURNING COLUMN into OUT NOCOPY bind array |
5753: +------------------------------------------*/
5754:
5755: dbms_sql.variable_value( delete_header_dist_c,
5756: ':gl_dist_key_value',
5757: gl_header_dist_array);
5758: EXCEPTION
5759: WHEN OTHERS THEN
5762: END;
5763:
5764: debug( ' Executing delete cma sql', MSG_LEVEL_DEBUG );
5765: BEGIN
5766: l_ignore := dbms_sql.execute( delete_header_cma_c );
5767:
5768: debug( to_char(l_ignore) || ' row(s) deleted',
5769: MSG_LEVEL_DEBUG );
5770: EXCEPTION
5774: END;
5775:
5776: debug( ' Executing update lines sql', MSG_LEVEL_DEBUG );
5777: BEGIN
5778: l_ignore := dbms_sql.execute( update_header_lines_c );
5779:
5780: debug( to_char(l_ignore) || ' row(s) updated',
5781: MSG_LEVEL_DEBUG );
5782: EXCEPTION