DBA Data[Home] [Help]

APPS.OKS_REPRICE_PVT dependencies on OKS_RENEW_PVT

Line 2089: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2085: l_api_name
2086: );
2087: END IF;
2088:
2089: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2090: p_perf_msg => 'Inside Reprice Api');
2091: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2092: p_perf_msg => 'Contract Id: ' ||
2093: p_reprice_rec.contract_id);

Line 2091: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2087: END IF;
2088:
2089: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2090: p_perf_msg => 'Inside Reprice Api');
2091: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2092: p_perf_msg => 'Contract Id: ' ||
2093: p_reprice_rec.contract_id);
2094: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2095: p_perf_msg => 'Price List Id: ' ||

Line 2094: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2090: p_perf_msg => 'Inside Reprice Api');
2091: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2092: p_perf_msg => 'Contract Id: ' ||
2093: p_reprice_rec.contract_id);
2094: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2095: p_perf_msg => 'Price List Id: ' ||
2096: p_reprice_rec.price_list_id);
2097: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2098: p_perf_msg => 'Price Type: ' ||

Line 2097: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2093: p_reprice_rec.contract_id);
2094: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2095: p_perf_msg => 'Price List Id: ' ||
2096: p_reprice_rec.price_list_id);
2097: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2098: p_perf_msg => 'Price Type: ' ||
2099: p_reprice_rec.price_type);
2100: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2101: p_perf_msg => 'Markup Percent: ' ||

Line 2100: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2096: p_reprice_rec.price_list_id);
2097: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2098: p_perf_msg => 'Price Type: ' ||
2099: p_reprice_rec.price_type);
2100: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2101: p_perf_msg => 'Markup Percent: ' ||
2102: p_reprice_rec.markup_percent);
2103: -- Make a save point, in case of error rollback
2104: DBMS_TRANSACTION.SAVEPOINT ('REPRICE_OKS');

Line 2208: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2204: RAISE g_error;
2205: END IF;
2206:
2207: --End new logic for Partial Periods
2208: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2209: p_perf_msg => 'Derived PriceList Id: ' ||
2210: l_pricelist_id);
2211:
2212: -- Bug 4628808

Line 2226: oks_renew_pvt.debug_log

2222: p_restricted_update => 'N',
2223: p_chrv_rec => l_chr_rec_in,
2224: x_chrv_rec => l_chr_rec_out
2225: );
2226: oks_renew_pvt.debug_log
2227: (p_program_name => 'Reprice',
2228: p_perf_msg => 'Status After Price List Update: ' ||
2229: l_return_status);
2230:

Line 2238: oks_renew_pvt.debug_log

2234: END IF;
2235:
2236: l_detail_rec.chr_id := p_reprice_rec.contract_id;
2237: l_detail_rec.intent := 'HP';
2238: oks_renew_pvt.debug_log
2239: (p_program_name => 'Reprice',
2240: p_perf_msg => 'Calling Pricing Api with intent ' ||
2241: l_detail_rec.intent);
2242: --This api will take care about updating the amounts of the contract.

Line 2254: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2250: x_return_status => l_return_status,
2251: x_msg_count => l_msg_count,
2252: x_msg_data => l_msg_data
2253: );
2254: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2255: p_perf_msg => 'Status After Compute Price: ' ||
2256: l_return_status);
2257:
2258: IF l_return_status <> g_ret_sts_success THEN

Line 2352: oks_renew_pvt.debug_log

2348: p_currency_code => l_currency);
2349:
2350: End if;
2351: /*Added for GSI Bug 14102072*/
2352: oks_renew_pvt.debug_log
2353: (p_program_name => 'Reprice',
2354: p_perf_msg => 'Prorated Negotiated Price: ' ||
2355: l_prorated_price_neg);
2356: --Update Manually priced Lines With the Prorated Amounts(Price Negotiated and Unit Price)

Line 2362: oks_renew_pvt.debug_log

2358: l_clev_rec.price_negotiated := l_prorated_price_neg;
2359: -- Update line's price negotiated only, unit price remains same.
2360: update_line (p_clev_rec => l_clev_rec,
2361: x_return_status => l_return_status);
2362: oks_renew_pvt.debug_log
2363: (p_program_name => 'Reprice',
2364: p_perf_msg => 'Status after line updation: ' ||
2365: l_return_status);
2366:

Line 2376: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2372: p_cle_id => l_man_priced_line_rec.ID,
2373: p_amount => l_prorated_price_neg,
2374: x_return_status => l_return_status
2375: );
2376: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2377: p_perf_msg => 'Status after Tax: ' ||
2378: l_return_status);
2379:
2380: IF l_return_status <> g_ret_sts_success THEN

Line 2462: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2458: p_opn_code => 'RENEWAL',
2459: x_old_start_date => l_old_start_date,
2460: x_old_end_date => l_old_end_date
2461: );
2462: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2463: p_perf_msg => 'Old Start Date: ' ||
2464: l_old_start_date ||
2465: ' Old End Date: ' ||
2466: l_old_end_date);

Line 2505: oks_renew_pvt.debug_log

2501: (p_amount => l_prorated_price_neg,
2502: p_currency_code => l_currency);
2503: End if;
2504: /*Added for GSI Bug 14102072*/
2505: oks_renew_pvt.debug_log
2506: (p_program_name => 'Reprice',
2507: p_perf_msg => 'Prorated Negotiated Price: ' ||
2508: l_prorated_price_neg);
2509:

Line 2517: oks_renew_pvt.debug_log

2513: l_clev_rec.price_negotiated := l_prorated_price_neg;
2514: -- Update line's price negotiated only, unit price remains same.
2515: update_line (p_clev_rec => l_clev_rec,
2516: x_return_status => l_return_status);
2517: oks_renew_pvt.debug_log
2518: (p_program_name => 'Reprice',
2519: p_perf_msg => 'Status after line updation: ' ||
2520: l_return_status);
2521:

Line 2531: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2527: p_cle_id => l_line_rec.ID,
2528: p_amount => l_prorated_price_neg,
2529: x_return_status => l_return_status
2530: );
2531: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2532: p_perf_msg => 'Status after Tax: ' ||
2533: l_return_status);
2534:
2535: IF l_return_status <> g_ret_sts_success THEN

Line 2569: oks_renew_pvt.debug_log

2565: p_price_type => p_reprice_rec.price_type,
2566: p_price_details => l_price_details,
2567: x_return_status => l_return_status
2568: );
2569: oks_renew_pvt.debug_log
2570: (p_program_name => 'Reprice',
2571: p_perf_msg => 'Status after updating pricing info: ' ||
2572: l_return_status);
2573:

Line 2641: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2637: --Update Line With the Prorated Amounts(Price Negotiated and Unit Price)
2638: l_clev_rec.ID := l_line_rec.ID;
2639: l_clev_rec.price_negotiated := l_prorated_price_neg;
2640: l_clev_rec.price_unit := l_prorated_unit_price;
2641: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2642: p_perf_msg => 'Prorated unit price: ' ||
2643: l_clev_rec.price_negotiated);
2644: update_line (p_clev_rec => l_clev_rec,
2645: x_return_status => l_return_status);

Line 2646: oks_renew_pvt.debug_log

2642: p_perf_msg => 'Prorated unit price: ' ||
2643: l_clev_rec.price_negotiated);
2644: update_line (p_clev_rec => l_clev_rec,
2645: x_return_status => l_return_status);
2646: oks_renew_pvt.debug_log
2647: (p_program_name => 'Reprice',
2648: p_perf_msg => 'Status after updating line: ' ||
2649: l_return_status);
2650:

Line 2674: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2670: (p_amount => l_prorated_price_neg,
2671: p_currency_code => l_currency);
2672: End If;
2673: /*Added for bug 14102072*/
2674: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2675: p_perf_msg => 'Prorated price: ' ||
2676: l_prorated_price_neg);
2677:
2678: IF p_reprice_rec.price_list_id IS NOT NULL THEN

Line 2695: oks_renew_pvt.debug_log

2691: p_price_list => p_reprice_rec.price_list_id,
2692: p_amount => l_prorated_price_neg,
2693: x_return_status => l_return_status
2694: );
2695: oks_renew_pvt.debug_log
2696: (p_program_name => 'Reprice',
2697: p_perf_msg => 'Status after calculate_price: ' ||
2698: l_return_status);
2699:

Line 2709: oks_renew_pvt.debug_log

2705: l_clev_rec.ID := l_line_rec.ID;
2706: l_clev_rec.price_negotiated := l_prorated_price_neg;
2707: update_line (p_clev_rec => l_clev_rec,
2708: x_return_status => l_return_status);
2709: oks_renew_pvt.debug_log
2710: (p_program_name => 'Reprice',
2711: p_perf_msg => 'Status after updating line: ' ||
2712: l_return_status);
2713:

Line 2747: oks_renew_pvt.debug_log

2743: p_price_type => p_reprice_rec.price_type,
2744: p_price_details => l_price_details,
2745: x_return_status => l_return_status
2746: );
2747: oks_renew_pvt.debug_log
2748: (p_program_name => 'Reprice',
2749: p_perf_msg => 'Status in CP2 API in PCT where PL is NULL: ' ||
2750: l_return_status);
2751:

Line 2776: oks_renew_pvt.debug_log

2772: x_msg_data => l_msg_data,
2773: p_scev_rec => l_scev_rec_in,
2774: x_scev_rec => l_scev_rec_out
2775: );
2776: oks_renew_pvt.debug_log
2777: (p_program_name => 'Reprice',
2778: p_perf_msg => 'Status after updating Subscription elements: ' ||
2779: l_return_status);
2780:

Line 2794: oks_renew_pvt.debug_log

2790: p_cle_id => l_line_rec.ID,
2791: p_amount => l_prorated_price_neg,
2792: x_return_status => l_return_status
2793: );
2794: oks_renew_pvt.debug_log
2795: (p_program_name => 'Reprice',
2796: p_perf_msg => 'Status after Tax - ' ||
2797: l_return_status);
2798:

Line 2809: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2805: p_cle_id => l_line_rec.ID,
2806: p_amount => l_prorated_price_neg,
2807: x_return_status => l_return_status
2808: );
2809: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2810: p_perf_msg => 'Status after Tax = ' ||
2811: l_return_status);
2812:
2813: IF l_return_status <> g_ret_sts_success THEN

Line 2854: oks_renew_pvt.debug_log

2850: --FOR MAN and PCT the simple api is called and it will not update the amounts of the contract
2851: --Because of this update_amounts need to be called....
2852: update_amounts (p_chr_id => p_reprice_rec.contract_id,
2853: x_return_status => l_return_status);
2854: oks_renew_pvt.debug_log
2855: (p_program_name => 'Reprice',
2856: p_perf_msg => 'Status after updating amounts: ' ||
2857: l_return_status);
2858:

Line 2865: oks_renew_pvt.debug_log (p_program_name => 'Reprice',

2861: END IF;
2862: END IF; --For Price List(LST)
2863:
2864: x_return_status := l_return_status;
2865: oks_renew_pvt.debug_log (p_program_name => 'Reprice',
2866: p_perf_msg => 'Final Status: ' ||
2867: l_return_status);
2868:
2869: -- end debug log

Line 3087: oks_renew_pvt.debug_log

3083: fnd_file.put_line(FND_FILE.LOG,'l_srv_k_details_rec.renewal_pricing_type : '||l_srv_k_details_rec.renewal_pricing_type);
3084: fnd_file.put_line(FND_FILE.LOG,'l_srv_k_details_rec.renewal_price_list : '||l_srv_k_details_rec.renewal_price_list);
3085: fnd_file.put_line(FND_FILE.LOG,'l_srv_k_details_rec.renewal_markup_percent : '||l_srv_k_details_rec.renewal_markup_percent);
3086:
3087: oks_renew_pvt.debug_log
3088: (p_program_name => 'Renewal Consolidation Reprice::',
3089: p_perf_msg => 'PRICING TYPE = ' ||
3090: l_srv_k_details_rec.renewal_pricing_type);
3091: oks_renew_pvt.debug_log

Line 3091: oks_renew_pvt.debug_log

3087: oks_renew_pvt.debug_log
3088: (p_program_name => 'Renewal Consolidation Reprice::',
3089: p_perf_msg => 'PRICING TYPE = ' ||
3090: l_srv_k_details_rec.renewal_pricing_type);
3091: oks_renew_pvt.debug_log
3092: (p_program_name => 'Renewal Consolidation Reprice::',
3093: p_perf_msg => 'PRICE LIST = ' ||
3094: l_srv_k_details_rec.renewal_price_list);
3095: oks_renew_pvt.debug_log

Line 3095: oks_renew_pvt.debug_log

3091: oks_renew_pvt.debug_log
3092: (p_program_name => 'Renewal Consolidation Reprice::',
3093: p_perf_msg => 'PRICE LIST = ' ||
3094: l_srv_k_details_rec.renewal_price_list);
3095: oks_renew_pvt.debug_log
3096: (p_program_name => 'Renewal Consolidation Reprice::',
3097: p_perf_msg => 'MARKUP = ' ||
3098: l_srv_k_details_rec.renewal_markup_percent);
3099:

Line 3104: oks_renew_pvt.debug_log

3100: IF l_srv_k_details_rec.renewal_pricing_type = 'LST' THEN
3101: l_chr_rec_in.ID := p_subject_chr_id;
3102: l_chr_rec_in.price_list_id := l_k_details_rec.price_list_id;
3103: l_currency := l_k_details_rec.currency_code;
3104: oks_renew_pvt.debug_log
3105: (p_program_name => 'Renewal Consolidation Reprice::',
3106: p_perf_msg => 'Pricing type - Price List - Header Pricing');
3107:
3108: fnd_file.put_line(FND_FILE.LOG,'renewal_pricing_type = LST, Calling okc_contract_pub.update_contract_header');

Line 3123: oks_renew_pvt.debug_log

3119: );
3120:
3121: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling okc_contract_pub.update_contract_header x_return_status= '||l_return_status);
3122:
3123: oks_renew_pvt.debug_log
3124: (p_program_name => 'Renewal Consolidation Reprice::',
3125: p_perf_msg => 'UPDATE CONTRACT HDR - RETURN = ' ||
3126: l_return_status);
3127:

Line 3143: oks_renew_pvt.debug_log

3139: -- l_detail_rec.line_id := p_subject_top_line_id;
3140: -- l_detail_rec.intent := 'LP';
3141: -- end added bug 6016714
3142:
3143: oks_renew_pvt.debug_log
3144: (p_program_name => 'Renewal Consolidation Reprice::',
3145: p_perf_msg => 'HDR PRICING - CONTRACT ID= ' ||
3146: l_detail_rec.chr_id);
3147:

Line 3165: oks_renew_pvt.debug_log

3161: );
3162:
3163: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling oks_qp_int_pvt.compute_price x_return_status= '||l_return_status);
3164:
3165: oks_renew_pvt.debug_log
3166: (p_program_name => 'Renewal Consolidation Reprice::',
3167: p_perf_msg => 'HDR REPRICE - RETURN = ' ||
3168: l_return_status);
3169:

Line 3177: oks_renew_pvt.debug_log

3173: ELSE
3174: -- Renewal Price type is Manual or Markup. Each line has price to be updated individually.
3175: fnd_file.put_line(FND_FILE.LOG,'Renewal Price type is Manual or Markup');
3176:
3177: oks_renew_pvt.debug_log
3178: (p_program_name => 'Renewal Consolidation Reprice::',
3179: p_perf_msg => 'NON PRICE LIST REPRICE - LINE/SUBLINE COUNT = ' ||
3180: p_subject_sub_line_tbl.COUNT);
3181: --begin new logic for Partial Periods

Line 3234: oks_renew_pvt.debug_log

3230: fnd_file.put_line(FND_FILE.LOG,'l_line_rec.dnz_chr_id : '||l_line_rec.dnz_chr_id);
3231: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
3232: fnd_file.put_line(FND_FILE.LOG,' ');
3233:
3234: oks_renew_pvt.debug_log
3235: (p_program_name => 'Renewal Consolidation Reprice::',
3236: p_perf_msg => 'NON PRICE LIST REPRICE - LINE/SUBLINE ID = ' ||
3237: l_line_rec.ID);
3238: oks_renew_pvt.debug_log

Line 3238: oks_renew_pvt.debug_log

3234: oks_renew_pvt.debug_log
3235: (p_program_name => 'Renewal Consolidation Reprice::',
3236: p_perf_msg => 'NON PRICE LIST REPRICE - LINE/SUBLINE ID = ' ||
3237: l_line_rec.ID);
3238: oks_renew_pvt.debug_log
3239: (p_program_name => 'Renewal Consolidation Reprice::',
3240: p_perf_msg => 'NON PRICE LIST REPRICE - LINE/SUBLINE LSE ID = ' ||
3241: l_line_rec.lse_id);
3242: --added by mchoudha for bug#5191528

Line 3286: oks_renew_pvt.debug_log

3282: CLOSE l_usage_type_csr;
3283:
3284: -- Prorate only if it is negotaietd price
3285: IF NVL (l_usage_type, '-99') <> 'NPR' THEN
3286: oks_renew_pvt.debug_log
3287: (p_program_name => 'Renewal Consolidation Reprice::',
3288: p_perf_msg => 'Usage Line of type non negotiated - so no proration');
3289: RAISE g_skip_proration;
3290: END IF;

Line 3303: oks_renew_pvt.debug_log

3299:
3300: fnd_file.put_line(FND_FILE.LOG,'l_old_start_date= '||l_old_start_date);
3301: fnd_file.put_line(FND_FILE.LOG,'l_old_end_date= '||l_old_end_date);
3302:
3303: oks_renew_pvt.debug_log
3304: (p_program_name => 'Renewal Consolidation Reprice::',
3305: p_perf_msg => 'LINE OLD START DATE = ' ||
3306: l_old_start_date);
3307: oks_renew_pvt.debug_log

Line 3307: oks_renew_pvt.debug_log

3303: oks_renew_pvt.debug_log
3304: (p_program_name => 'Renewal Consolidation Reprice::',
3305: p_perf_msg => 'LINE OLD START DATE = ' ||
3306: l_old_start_date);
3307: oks_renew_pvt.debug_log
3308: (p_program_name => 'Renewal Consolidation Reprice::',
3309: p_perf_msg => 'LINE OLD END DATE = ' ||
3310: l_old_end_date);
3311: oks_renew_pvt.debug_log

Line 3311: oks_renew_pvt.debug_log

3307: oks_renew_pvt.debug_log
3308: (p_program_name => 'Renewal Consolidation Reprice::',
3309: p_perf_msg => 'LINE OLD END DATE = ' ||
3310: l_old_end_date);
3311: oks_renew_pvt.debug_log
3312: (p_program_name => 'Renewal Consolidation Reprice::',
3313: p_perf_msg => 'LINE START DATE = ' ||
3314: l_line_rec.start_date);
3315: oks_renew_pvt.debug_log

Line 3315: oks_renew_pvt.debug_log

3311: oks_renew_pvt.debug_log
3312: (p_program_name => 'Renewal Consolidation Reprice::',
3313: p_perf_msg => 'LINE START DATE = ' ||
3314: l_line_rec.start_date);
3315: oks_renew_pvt.debug_log
3316: (p_program_name => 'Renewal Consolidation Reprice::',
3317: p_perf_msg => 'LINE END DATE = ' ||
3318: l_line_rec.end_date);
3319:

Line 3355: oks_renew_pvt.debug_log

3351: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling do_prorating l_prorated_price_neg = '||l_prorated_price_neg);
3352: END IF;
3353:
3354: -- end new logic for partial periods
3355: oks_renew_pvt.debug_log
3356: (p_program_name => 'Renewal Consolidation Reprice::',
3357: p_perf_msg => 'PRORATED AMOUNT = ' ||
3358: l_prorated_price_neg);
3359: oks_renew_pvt.debug_log

Line 3359: oks_renew_pvt.debug_log

3355: oks_renew_pvt.debug_log
3356: (p_program_name => 'Renewal Consolidation Reprice::',
3357: p_perf_msg => 'PRORATED AMOUNT = ' ||
3358: l_prorated_price_neg);
3359: oks_renew_pvt.debug_log
3360: (p_program_name => 'Renewal Consolidation Reprice::',
3361: p_perf_msg => 'MULTI CURRENCY CODE = ' ||
3362: l_currency);
3363:

Line 3375: oks_renew_pvt.debug_log

3371: (p_amount => l_prorated_price_neg,
3372: p_currency_code => l_currency);
3373: End if;/*Added for bug 14102072*/
3374:
3375: oks_renew_pvt.debug_log
3376: (p_program_name => 'Renewal Consolidation Reprice::',
3377: p_perf_msg => 'PRORATED AMOUNT FOR MULTI CURRENCY CURRENCY = ' ||
3378: l_prorated_price_neg);
3379:

Line 3382: oks_renew_pvt.debug_log

3378: l_prorated_price_neg);
3379:
3380: IF l_srv_k_details_rec.renewal_pricing_type = 'MAN' THEN
3381: fnd_file.put_line(FND_FILE.LOG,'l_srv_k_details_rec.renewal_pricing_type = MANUAL');
3382: oks_renew_pvt.debug_log
3383: (p_program_name => 'Renewal Consolidation Reprice::',
3384: p_perf_msg => 'Pricing type is manual');
3385: --Update Line With the Prorated Amounts(Price Negotiated and Unit Price)
3386: l_clev_rec.ID := l_line_rec.ID;

Line 3394: oks_renew_pvt.debug_log

3390: x_return_status => l_return_status);
3391:
3392: fnd_file.put_line(FND_FILE.LOG,'After update_line l_return_status = '||l_return_status);
3393:
3394: oks_renew_pvt.debug_log
3395: (p_program_name => 'Renewal Consolidation Reprice::',
3396: p_perf_msg => 'UPDATE LINE (MAN) - RETURN = ' ||
3397: l_return_status);
3398:

Line 3408: oks_renew_pvt.debug_log

3404: p_cle_id => l_line_rec.ID,
3405: p_amount => l_prorated_price_neg,
3406: x_return_status => l_return_status
3407: );
3408: oks_renew_pvt.debug_log
3409: (p_program_name => 'Renewal Consolidation Reprice::',
3410: p_perf_msg => 'CALCUALTE TAX - RETURN = ' ||
3411: l_return_status);
3412:

Line 3420: oks_renew_pvt.debug_log

3416: RAISE g_error;
3417: END IF;
3418:
3419: IF l_line_rec.lse_id IN (7, 9, 25, 46) THEN
3420: oks_renew_pvt.debug_log
3421: (p_program_name => 'Renewal Consolidation Reprice::',
3422: p_perf_msg => 'Covered Item, Product or Subscription (man)');
3423: l_price_details.serv_ext_amount := l_prorated_price_neg;
3424: l_price_details.status_text :=

Line 3434: oks_renew_pvt.debug_log

3430: p_price_type => l_srv_k_details_rec.renewal_pricing_type,
3431: p_price_details => l_price_details,
3432: x_return_status => l_return_status
3433: );
3434: oks_renew_pvt.debug_log
3435: (p_program_name => 'Renewal Consolidation Reprice::',
3436: p_perf_msg => 'UPDATE PRICE INFO - RETURN = ' ||
3437: l_return_status);
3438:

Line 3447: oks_renew_pvt.debug_log

3443: END IF;
3444: END IF;
3445: ELSE -- Process PCT - Markup percentage
3446: fnd_file.put_line(FND_FILE.LOG,'Renewal Process PCT - Markup percentage');
3447: oks_renew_pvt.debug_log
3448: (p_program_name => 'Renewal Consolidation Reprice::',
3449: p_perf_msg => 'Pricing type is manual');
3450:
3451: --begin new logic for Partial Periods

Line 3478: oks_renew_pvt.debug_log

3474: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling do_prorating l_prorated_unit_price = '||l_prorated_unit_price);
3475: END IF;
3476:
3477: --End new logic for partial periods
3478: oks_renew_pvt.debug_log
3479: (p_program_name => 'Renewal Consolidation Reprice::',
3480: p_perf_msg => 'PRORATED UNIT PRICE = ' ||
3481: l_prorated_unit_price);
3482: --Update Line With the Prorated Amounts(Price Negotiated and Unit Price)

Line 3489: oks_renew_pvt.debug_log

3485: l_clev_rec.price_unit := l_prorated_unit_price;
3486: update_line (p_clev_rec => l_clev_rec,
3487: x_return_status => l_return_status);
3488: fnd_file.put_line(FND_FILE.LOG,'After update_line l_return_status = '||l_return_status);
3489: oks_renew_pvt.debug_log
3490: (p_program_name => 'Renewal Consolidation Reprice::',
3491: p_perf_msg => 'UPDATE LINE (PCT) - RETURN = ' ||
3492: l_return_status);
3493:

Line 3500: oks_renew_pvt.debug_log

3496: END IF;
3497:
3498: IF l_line_rec.lse_id IN (7, 9, 25, 46) THEN
3499: -- if covered item is item, product, suscription
3500: oks_renew_pvt.debug_log
3501: (p_program_name => 'Renewal Consolidation Reprice::',
3502: p_perf_msg => 'Covered Item, Product or Subscription (pct)');
3503: --Prorated Amout should markedup/down then pass to find the actual
3504: --price negotiated

Line 3512: oks_renew_pvt.debug_log

3508: NVL (l_srv_k_details_rec.renewal_markup_percent, 0)
3509: ) /
3510: 100
3511: );
3512: oks_renew_pvt.debug_log
3513: (p_program_name => 'Renewal Consolidation Reprice::',
3514: p_perf_msg => 'MARKED UP PRICE = ' ||
3515: l_prorated_price_neg);
3516: /*Added for bug 14102072*/

Line 3527: oks_renew_pvt.debug_log

3523: p_currency_code => l_currency);
3524: End If;
3525: /*Added for bug 14102072*/
3526: fnd_file.put_line(FND_FILE.LOG,'Round l_prorated_price_neg = '||l_prorated_price_neg);
3527: oks_renew_pvt.debug_log
3528: (p_program_name => 'Renewal Consolidation Reprice::',
3529: p_perf_msg => 'MARKED UP PRICE MULTI CURRENCY CODE = ' ||
3530: l_currency);
3531:

Line 3534: oks_renew_pvt.debug_log

3530: l_currency);
3531:
3532: IF l_srv_k_details_rec.renewal_price_list IS NOT NULL THEN
3533: fnd_file.put_line(FND_FILE.LOG,'l_srv_k_details_rec.renewal_price_list IS NOT NULL');
3534: oks_renew_pvt.debug_log
3535: (p_program_name => 'Renewal Consolidation Reprice::',
3536: p_perf_msg => 'Renewal PL is null (pct)');
3537:
3538: IF l_line_rec.lse_id = 46 THEN

Line 3559: oks_renew_pvt.debug_log

3555: );
3556:
3557: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling calculate_price l_return_status = '||l_return_status);
3558:
3559: oks_renew_pvt.debug_log
3560: (p_program_name => 'Renewal Consolidation Reprice::',
3561: p_perf_msg => 'CALC PRICE FOR MARKUP WITH PL - RETURN = ' ||
3562: l_return_status);
3563: oks_renew_pvt.debug_log

Line 3563: oks_renew_pvt.debug_log

3559: oks_renew_pvt.debug_log
3560: (p_program_name => 'Renewal Consolidation Reprice::',
3561: p_perf_msg => 'CALC PRICE FOR MARKUP WITH PL - RETURN = ' ||
3562: l_return_status);
3563: oks_renew_pvt.debug_log
3564: (p_program_name => 'Renewal Consolidation Reprice::',
3565: p_perf_msg => 'CALC PRICE FOR MARKUP WITH PL - AMOUNT = ' ||
3566: l_prorated_price_neg);
3567:

Line 3578: oks_renew_pvt.debug_log

3574: l_clev_rec.price_negotiated := l_prorated_price_neg;
3575: update_line (p_clev_rec => l_clev_rec,
3576: x_return_status => l_return_status);
3577: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling update_line l_return_status = '||l_return_status);
3578: oks_renew_pvt.debug_log
3579: (p_program_name => 'Renewal Consolidation Reprice::',
3580: p_perf_msg => 'UPDATE LINE (PCT) WITH NULL PL - RETURN = ' ||
3581: l_return_status);
3582:

Line 3600: oks_renew_pvt.debug_log

3596: x_return_status => l_return_status
3597: );
3598:
3599: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling update_price_info l_return_status = '||l_return_status);
3600: oks_renew_pvt.debug_log
3601: (p_program_name => 'Renewal Consolidation Reprice::',
3602: p_perf_msg => 'UPDATE PRICE INFO (PCT) WITH NULL PL - RETURN = ' ||
3603: l_return_status);
3604:

Line 3611: oks_renew_pvt.debug_log

3607: END IF;
3608:
3609: -- Update Subsciption elements
3610: IF l_line_rec.lse_id = 46 THEN
3611: oks_renew_pvt.debug_log
3612: (p_program_name => 'Renewal Consolidation Reprice::',
3613: p_perf_msg => 'Subscription line for pct with null PL');
3614:
3615: FOR l_subs_elements_rec IN

Line 3624: oks_renew_pvt.debug_log

3620: l_subs_elements_rec.quantity *
3621: l_prorated_unit_price;
3622: l_scev_rec_in.object_version_number :=
3623: l_subs_elements_rec.object_version_number;
3624: oks_renew_pvt.debug_log
3625: (p_program_name => 'Renewal Consolidation Reprice::',
3626: p_perf_msg => 'SUBSCR ELE ID = ' ||
3627: l_scev_rec_in.ID);
3628: oks_renew_pvt.debug_log

Line 3628: oks_renew_pvt.debug_log

3624: oks_renew_pvt.debug_log
3625: (p_program_name => 'Renewal Consolidation Reprice::',
3626: p_perf_msg => 'SUBSCR ELE ID = ' ||
3627: l_scev_rec_in.ID);
3628: oks_renew_pvt.debug_log
3629: (p_program_name => 'Renewal Consolidation Reprice::',
3630: p_perf_msg => 'SUBSCR ELE AMOUNT = ' ||
3631: l_scev_rec_in.amount);
3632: oks_subscr_elems_pub.update_row

Line 3642: oks_renew_pvt.debug_log

3638: p_scev_rec => l_scev_rec_in,
3639: x_scev_rec => l_scev_rec_out
3640: );
3641: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling oks_subscr_elems_pub.update_row l_return_status = '||l_return_status);
3642: oks_renew_pvt.debug_log
3643: (p_program_name => 'Renewal Consolidation Reprice::',
3644: p_perf_msg => 'UPDATE SUBSCR ELE - AMOUNT = ' ||
3645: l_return_status);
3646:

Line 3661: oks_renew_pvt.debug_log

3657: p_amount => l_prorated_price_neg,
3658: x_return_status => l_return_status
3659: );
3660: fnd_file.put_line(FND_FILE.LOG,' 1 AFTER Calling calculate_tax l_return_status = '||l_return_status);
3661: oks_renew_pvt.debug_log
3662: (p_program_name => 'Renewal Consolidation Reprice::',
3663: p_perf_msg => 'CALC TAX (PCT) WITH NULL PL - RETURN = ' ||
3664: l_return_status);
3665: oks_renew_pvt.debug_log

Line 3665: oks_renew_pvt.debug_log

3661: oks_renew_pvt.debug_log
3662: (p_program_name => 'Renewal Consolidation Reprice::',
3663: p_perf_msg => 'CALC TAX (PCT) WITH NULL PL - RETURN = ' ||
3664: l_return_status);
3665: oks_renew_pvt.debug_log
3666: (p_program_name => 'Renewal Consolidation Reprice::',
3667: p_perf_msg => 'CALC TAX (PCT) WITH NULL PL - AMOUNT = ' ||
3668: l_prorated_price_neg);
3669:

Line 3681: oks_renew_pvt.debug_log

3677: p_amount => l_prorated_price_neg,
3678: x_return_status => l_return_status
3679: );
3680: fnd_file.put_line(FND_FILE.LOG,' 2 AFTER Calling calculate_tax l_return_status = '||l_return_status);
3681: oks_renew_pvt.debug_log
3682: (p_program_name => 'Renewal Consolidation Reprice::',
3683: p_perf_msg => 'CALC TAX (PCT) FOR PARTY - RETURN = ' ||
3684: l_return_status);
3685: oks_renew_pvt.debug_log

Line 3685: oks_renew_pvt.debug_log

3681: oks_renew_pvt.debug_log
3682: (p_program_name => 'Renewal Consolidation Reprice::',
3683: p_perf_msg => 'CALC TAX (PCT) FOR PARTY - RETURN = ' ||
3684: l_return_status);
3685: oks_renew_pvt.debug_log
3686: (p_program_name => 'Renewal Consolidation Reprice::',
3687: p_perf_msg => 'CALC TAX (PCT) FOR PARTY - AMOUNT = ' ||
3688: l_prorated_price_neg);
3689:

Line 3736: oks_renew_pvt.debug_log

3732: --FOR MAN and PCT the simple api is called and it will not update the amounts of the contract
3733: --Because of this update_amounts need to be called....
3734: update_amounts (p_chr_id => p_subject_chr_id,
3735: x_return_status => l_return_status);
3736: oks_renew_pvt.debug_log
3737: (p_program_name => 'Renewal Consolidation Reprice::',
3738: p_perf_msg => 'UPDATE CONTRACT AMOUNT = ' ||
3739: l_return_status);
3740: