[Home] [Help]
43: G_last_update_date Date;
44: G_sysdate Date := sysdate;
45: -------------------------------------------------------------------------------
46:
47: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
48:
49: PROCEDURE Get_Transfer_Price
50: (
51: p_module_name IN VARCHAR2,
225: BEGIN
226:
227: -- Convert the data
228:
229: pa_debug.set_err_stack ('Get_Transfer_Price_Wrapper');
230: pa_debug.set_process(
231: x_process => 'PLSQL',
232: x_debug_mode => p_debug_mode);
233:
226:
227: -- Convert the data
228:
229: pa_debug.set_err_stack ('Get_Transfer_Price_Wrapper');
230: pa_debug.set_process(
231: x_process => 'PLSQL',
232: x_debug_mode => p_debug_mode);
233:
234: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price wrapper';
230: pa_debug.set_process(
231: x_process => 'PLSQL',
232: x_debug_mode => p_debug_mode);
233:
234: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price wrapper';
235: IF g1_debug_mode = 'Y' THEN
236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
237: END IF;
238: pa_debug.G_Err_Stage :=
232: x_debug_mode => p_debug_mode);
233:
234: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price wrapper';
235: IF g1_debug_mode = 'Y' THEN
236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
237: END IF;
238: pa_debug.G_Err_Stage :=
239: 'Transfer Price API Start Date and Time is '
240: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
234: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price wrapper';
235: IF g1_debug_mode = 'Y' THEN
236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
237: END IF;
238: pa_debug.G_Err_Stage :=
239: 'Transfer Price API Start Date and Time is '
240: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
241: IF g1_debug_mode = 'Y' THEN
242: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
238: pa_debug.G_Err_Stage :=
239: 'Transfer Price API Start Date and Time is '
240: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
241: IF g1_debug_mode = 'Y' THEN
242: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
243: END IF;
244: pa_debug.G_Err_Stage :=
245: '--------------------------------------------------------------------------';
246: IF g1_debug_mode = 'Y' THEN
240: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
241: IF g1_debug_mode = 'Y' THEN
242: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
243: END IF;
244: pa_debug.G_Err_Stage :=
245: '--------------------------------------------------------------------------';
246: IF g1_debug_mode = 'Y' THEN
247: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
248: END IF;
243: END IF;
244: pa_debug.G_Err_Stage :=
245: '--------------------------------------------------------------------------';
246: IF g1_debug_mode = 'Y' THEN
247: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
248: END IF;
249:
250: For i IN 1..p_array_size
251: LOOP
410:
411: -- Log Information :
412:
413: IF g1_debug_mode = 'Y' THEN
414: pa_debug.write_file('LOG','----------------------------------------------------');
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
411: -- Log Information :
412:
413: IF g1_debug_mode = 'Y' THEN
414: pa_debug.write_file('LOG','----------------------------------------------------');
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
412:
413: IF g1_debug_mode = 'Y' THEN
414: pa_debug.write_file('LOG','----------------------------------------------------');
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
413: IF g1_debug_mode = 'Y' THEN
414: pa_debug.write_file('LOG','----------------------------------------------------');
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
414: pa_debug.write_file('LOG','----------------------------------------------------');
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
415: pa_debug.write_file('LOG','p_expenditure_item_id '||p_expenditure_item_id(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
416: pa_debug.write_file('LOG','x_proj_tp_rate_type '||x_proj_tp_rate_type(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
417: pa_debug.write_file('LOG','x_proj_tp_rate_date '||x_proj_tp_rate_date(i));
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
418: pa_debug.write_file('LOG','x_proj_tp_exchange_rate '||x_proj_tp_exchange_rate(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
419: pa_debug.write_file('LOG','x_projfunc_tp_rate_type '||x_projfunc_tp_rate_type(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
427: pa_debug.write_file('LOG','p_projfunc_currency_code '||p_projfunc_currency_code(i));
420: pa_debug.write_file('LOG','x_projfunc_tp_rate_date '||x_projfunc_tp_rate_date(i));
421: pa_debug.write_file('LOG','x_projfunc_tp_exchange_rate '||x_proj_tp_rate_type(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
427: pa_debug.write_file('LOG','p_projfunc_currency_code '||p_projfunc_currency_code(i));
428: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
422: pa_debug.write_file('LOG','x_acct_tp_rate_type '||x_acct_tp_rate_type(i));
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
427: pa_debug.write_file('LOG','p_projfunc_currency_code '||p_projfunc_currency_code(i));
428: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
429: END IF;
430:
423: pa_debug.write_file('LOG','x_acct_tp_rate_date '||x_acct_tp_rate_date(i));
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
427: pa_debug.write_file('LOG','p_projfunc_currency_code '||p_projfunc_currency_code(i));
428: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
429: END IF;
430:
431: --End Added for devdrop2
424: pa_debug.write_file('LOG','x_acct_tp_exchange_rate '||x_acct_tp_exchange_rate(i));
425:
426: pa_debug.write_file('LOG','p_project_currency_code '||p_project_currency_code(i));
427: pa_debug.write_file('LOG','p_projfunc_currency_code '||p_projfunc_currency_code(i));
428: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
429: END IF;
430:
431: --End Added for devdrop2
432:
431: --End Added for devdrop2
432:
433: END LOOP;
434:
435: pa_debug.G_Err_Stage := 'Calling actual Transfer Price API';
436: IF g1_debug_mode = 'Y' THEN
437: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
438: END IF;
439:
433: END LOOP;
434:
435: pa_debug.G_Err_Stage := 'Calling actual Transfer Price API';
436: IF g1_debug_mode = 'Y' THEN
437: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
438: END IF;
439:
440: Get_Transfer_Price (
441: p_module_name => p_module_name,
538: );
539:
540:
541: -- Convert the number and dates to varchar2
542: pa_debug.G_Err_Stage := 'Doing the data type Conversion ';
543: IF g1_debug_mode = 'Y' THEN
544: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
545: END IF;
546: For i in 1..p_array_size
540:
541: -- Convert the number and dates to varchar2
542: pa_debug.G_Err_Stage := 'Doing the data type Conversion ';
543: IF g1_debug_mode = 'Y' THEN
544: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
545: END IF;
546: For i in 1..p_array_size
547: LOOP
548: pa_debug.G_Err_Stage := 'Processing EI: '||
544: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
545: END IF;
546: For i in 1..p_array_size
547: LOOP
548: pa_debug.G_Err_Stage := 'Processing EI: '||
549: p_expenditure_item_id(i);
550: IF g1_debug_mode = 'Y' THEN
551: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
552: END IF;
547: LOOP
548: pa_debug.G_Err_Stage := 'Processing EI: '||
549: p_expenditure_item_id(i);
550: IF g1_debug_mode = 'Y' THEN
551: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
552: END IF;
553:
554: pa_debug.G_Err_Stage := 'Rejection Code: '|| x_error_code(i);
555: IF g1_debug_mode = 'Y' THEN
550: IF g1_debug_mode = 'Y' THEN
551: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
552: END IF;
553:
554: pa_debug.G_Err_Stage := 'Rejection Code: '|| x_error_code(i);
555: IF g1_debug_mode = 'Y' THEN
556: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
557: END IF;
558:
552: END IF;
553:
554: pa_debug.G_Err_Stage := 'Rejection Code: '|| x_error_code(i);
555: IF g1_debug_mode = 'Y' THEN
556: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
557: END IF;
558:
559: x_acct_tp_rate_date(i) := to_char(l_acct_tp_rate_date(i),'YYYY/MM/DD');/*File.Date.5*/
560:
559: x_acct_tp_rate_date(i) := to_char(l_acct_tp_rate_date(i),'YYYY/MM/DD');/*File.Date.5*/
560:
561: x_denom_transfer_price(i) := to_char(l_denom_transfer_price(i));
562: IF g1_debug_mode = 'Y' THEN
563: pa_debug.write_file('LOG',
564: 'Denom TP ='||x_denom_transfer_price(i));
565: END IF;
566:
567: /** Bug# 1063619 : while converting the tp_exchange_rate
572: x_acct_tp_exchange_rate(i):=
573: substr(to_char(l_acct_tp_exchange_rate(i)),1,30);
574: x_acct_transfer_price (i) := to_char(l_acct_transfer_price(i));
575: IF g1_debug_mode = 'Y' THEN
576: pa_debug.write_file('LOG','Acct TP ='||x_acct_transfer_price(i));
577: END IF;
578: x_tp_bill_rate (i) := to_char(l_tp_bill_rate (i));
579: x_tp_base_amount (i) := to_char(l_tp_base_amount(i));
580: x_tp_bill_markup_percentage (i) :=
586:
587: --Start Added for devdrop2
588:
589: IF g1_debug_mode = 'Y' THEN
590: pa_debug.write_file('LOG','------END OF THE PROCESS-----------------');
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
587: --Start Added for devdrop2
588:
589: IF g1_debug_mode = 'Y' THEN
590: pa_debug.write_file('LOG','------END OF THE PROCESS-----------------');
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
588:
589: IF g1_debug_mode = 'Y' THEN
590: pa_debug.write_file('LOG','------END OF THE PROCESS-----------------');
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
589: IF g1_debug_mode = 'Y' THEN
590: pa_debug.write_file('LOG','------END OF THE PROCESS-----------------');
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
590: pa_debug.write_file('LOG','------END OF THE PROCESS-----------------');
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
591: pa_debug.write_file('LOG','l_expenditure_item_id '||to_char(p_expenditure_item_id(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
592: pa_debug.write_file('LOG','l_expenditure_item_date '||to_char(l_expenditure_item_date(i)));
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
600: pa_debug.write_file('LOG','-----------------------------------------');
593: pa_debug.write_file('LOG','x_denom_tp_currency_code '||x_denom_tp_currency_code(i));
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
600: pa_debug.write_file('LOG','-----------------------------------------');
601: END IF;
594: pa_debug.write_file('LOG','l_proj_tp_rate_date '||to_char(l_proj_tp_rate_date(i)));
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
600: pa_debug.write_file('LOG','-----------------------------------------');
601: END IF;
602:
595: pa_debug.write_file('LOG','l_proj_tp_exchange_rate '||to_char(l_proj_tp_exchange_rate(i)));
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
600: pa_debug.write_file('LOG','-----------------------------------------');
601: END IF;
602:
603: x_proj_tp_rate_date(i) := to_char(l_proj_tp_rate_date(i),'YYYY/MM/DD');
596: pa_debug.write_file('LOG','l_proj_transfer_price '||to_char(l_proj_transfer_price(i)));
597: pa_debug.write_file('LOG','l_projfunc_tp_rate_date '||to_char(l_projfunc_tp_rate_date(i)));
598: pa_debug.write_file('LOG','l_projfunc_tp_exchange_rate '||to_char(l_projfunc_tp_exchange_rate(i)));
599: pa_debug.write_file('LOG','l_projfunc_transfer_price '||to_char(l_projfunc_transfer_price(i)));
600: pa_debug.write_file('LOG','-----------------------------------------');
601: END IF;
602:
603: x_proj_tp_rate_date(i) := to_char(l_proj_tp_rate_date(i),'YYYY/MM/DD');
604: x_proj_tp_exchange_rate(i) := substr(to_char(l_proj_tp_exchange_rate(i)),1,30);
609: x_projfunc_transfer_price(i) := to_char(l_projfunc_transfer_price(i));
610:
611: --End Added for devdrop2
612:
613: pa_debug.G_Err_Stage := 'Completing the loop';
614: IF g1_debug_mode = 'Y' THEN
615: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
616: END IF;
617: END LOOP;
611: --End Added for devdrop2
612:
613: pa_debug.G_Err_Stage := 'Completing the loop';
614: IF g1_debug_mode = 'Y' THEN
615: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
616: END IF;
617: END LOOP;
618:
619: x_return_status := l_return_status;
617: END LOOP;
618:
619: x_return_status := l_return_status;
620:
621: pa_debug.G_Err_Stage :=
622: 'Transfer Price API End Date and Time is '
623: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
624: IF g1_debug_mode = 'Y' THEN
625: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
621: pa_debug.G_Err_Stage :=
622: 'Transfer Price API End Date and Time is '
623: ||to_char(sysdate,'DD-MON-YYYY:HH24-MI-SS');
624: IF g1_debug_mode = 'Y' THEN
625: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
626: END IF;
627:
628: END Get_Transfer_Price;
629:
849:
850: unexpected_result exception;
851:
852: BEGIN
853: pa_debug.Set_err_stack ('Get_Transfer_Price');
854:
855: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price';
856: IF g1_debug_mode = 'Y' THEN
857: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
851:
852: BEGIN
853: pa_debug.Set_err_stack ('Get_Transfer_Price');
854:
855: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price';
856: IF g1_debug_mode = 'Y' THEN
857: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
858: END IF;
859:
853: pa_debug.Set_err_stack ('Get_Transfer_Price');
854:
855: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price';
856: IF g1_debug_mode = 'Y' THEN
857: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
858: END IF;
859:
860: /** Added for Org Forecasting **/
861:
888: End If;
889:
890: -- Print all the global variables
891: IF g1_debug_mode = 'Y' THEN
892: pa_debug.write_file('LOG',' Array Size = '||to_char(G_array_size));
893: pa_debug.write_file('LOG',' Processed thru date = '
894: ||to_char(G_processed_thru_date));
895: pa_debug.write_file('LOG',' Provider Org ID = '
896: ||to_char(G_prvdr_org_id));
889:
890: -- Print all the global variables
891: IF g1_debug_mode = 'Y' THEN
892: pa_debug.write_file('LOG',' Array Size = '||to_char(G_array_size));
893: pa_debug.write_file('LOG',' Processed thru date = '
894: ||to_char(G_processed_thru_date));
895: pa_debug.write_file('LOG',' Provider Org ID = '
896: ||to_char(G_prvdr_org_id));
897: pa_debug.write_file('LOG',' Provider"s Legal Entity ID = '
891: IF g1_debug_mode = 'Y' THEN
892: pa_debug.write_file('LOG',' Array Size = '||to_char(G_array_size));
893: pa_debug.write_file('LOG',' Processed thru date = '
894: ||to_char(G_processed_thru_date));
895: pa_debug.write_file('LOG',' Provider Org ID = '
896: ||to_char(G_prvdr_org_id));
897: pa_debug.write_file('LOG',' Provider"s Legal Entity ID = '
898: ||to_char(G_prvdr_legal_entity_id));
899: pa_debug.write_file('LOG',' Buiseness Group ID = '
893: pa_debug.write_file('LOG',' Processed thru date = '
894: ||to_char(G_processed_thru_date));
895: pa_debug.write_file('LOG',' Provider Org ID = '
896: ||to_char(G_prvdr_org_id));
897: pa_debug.write_file('LOG',' Provider"s Legal Entity ID = '
898: ||to_char(G_prvdr_legal_entity_id));
899: pa_debug.write_file('LOG',' Buiseness Group ID = '
900: ||to_char(G_bg_id));
901: pa_debug.write_file('LOG',' Default Curr Conversion Rate Type = '
895: pa_debug.write_file('LOG',' Provider Org ID = '
896: ||to_char(G_prvdr_org_id));
897: pa_debug.write_file('LOG',' Provider"s Legal Entity ID = '
898: ||to_char(G_prvdr_legal_entity_id));
899: pa_debug.write_file('LOG',' Buiseness Group ID = '
900: ||to_char(G_bg_id));
901: pa_debug.write_file('LOG',' Default Curr Conversion Rate Type = '
902: ||G_cc_default_rate_type);
903: pa_debug.write_file('LOG',' Default Curr Conversion Rate Date Code = '
897: pa_debug.write_file('LOG',' Provider"s Legal Entity ID = '
898: ||to_char(G_prvdr_legal_entity_id));
899: pa_debug.write_file('LOG',' Buiseness Group ID = '
900: ||to_char(G_bg_id));
901: pa_debug.write_file('LOG',' Default Curr Conversion Rate Type = '
902: ||G_cc_default_rate_type);
903: pa_debug.write_file('LOG',' Default Curr Conversion Rate Date Code = '
904: ||G_cc_default_rate_date_code);
905: pa_debug.write_file('LOG',' Default Currency Code = '
899: pa_debug.write_file('LOG',' Buiseness Group ID = '
900: ||to_char(G_bg_id));
901: pa_debug.write_file('LOG',' Default Curr Conversion Rate Type = '
902: ||G_cc_default_rate_type);
903: pa_debug.write_file('LOG',' Default Curr Conversion Rate Date Code = '
904: ||G_cc_default_rate_date_code);
905: pa_debug.write_file('LOG',' Default Currency Code = '
906: ||G_acct_currency_code );
907: END IF;
901: pa_debug.write_file('LOG',' Default Curr Conversion Rate Type = '
902: ||G_cc_default_rate_type);
903: pa_debug.write_file('LOG',' Default Curr Conversion Rate Date Code = '
904: ||G_cc_default_rate_date_code);
905: pa_debug.write_file('LOG',' Default Currency Code = '
906: ||G_acct_currency_code );
907: END IF;
908:
909: -- Validate input parameters and identify transactions passes for only
923: x_error_code
924: );
925:
926: -- Call Pre Client extension to calculate transfer price
927: pa_debug.G_Err_Stage := 'Calling Pre-Client Extension............';
928: IF g1_debug_mode = 'Y' THEN
929: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
930: END IF;
931: For i in 1 .. G_Array_Size
925:
926: -- Call Pre Client extension to calculate transfer price
927: pa_debug.G_Err_Stage := 'Calling Pre-Client Extension............';
928: IF g1_debug_mode = 'Y' THEN
929: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
930: END IF;
931: For i in 1 .. G_Array_Size
932: LOOP
933:
935: Set_Global_Variables (p_prvdr_operating_unit(i));
936: End If;
937:
938: IF (l_compute_flag (i) = 'Y' and x_error_code(i) is null ) THEN
939: pa_debug.G_Err_Stage := 'Processing Expenditure ID: '||
940: to_char(p_expenditure_item_id(i));
941: IF g1_debug_mode = 'Y' THEN
942: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
943: END IF;
938: IF (l_compute_flag (i) = 'Y' and x_error_code(i) is null ) THEN
939: pa_debug.G_Err_Stage := 'Processing Expenditure ID: '||
940: to_char(p_expenditure_item_id(i));
941: IF g1_debug_mode = 'Y' THEN
942: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
943: END IF;
944:
945: PA_CC_TP_CLIENT_EXTN.Determine_Transfer_Price
946: (
971: IF (l_status = 0) THEN
972:
973: IF (l_denom_transfer_price IS NOT NULL) THEN
974: IF g1_debug_mode = 'Y' THEN
975: pa_debug.write_file('LOG','Pre-client Bill Rate = '
976: ||to_char(l_tp_bill_rate));
977: pa_debug.write_file('LOG','Pre-client markup = '
978: ||to_char(l_tp_bill_markup_percentage));
979: END IF;
973: IF (l_denom_transfer_price IS NOT NULL) THEN
974: IF g1_debug_mode = 'Y' THEN
975: pa_debug.write_file('LOG','Pre-client Bill Rate = '
976: ||to_char(l_tp_bill_rate));
977: pa_debug.write_file('LOG','Pre-client markup = '
978: ||to_char(l_tp_bill_markup_percentage));
979: END IF;
980:
981: IF (l_denom_tp_currency_code IS NULL) THEN
1003: x_tp_bill_rate(i) := l_tp_bill_rate;
1004: x_tp_bill_markup_percentage(i) :=
1005: l_tp_bill_markup_percentage;
1006: IF g1_debug_mode = 'Y' THEN
1007: pa_debug.write_file('LOG',
1008: 'Transfer Price calculated by Pre-Client extension');
1009: pa_debug.write_file('LOG','Transfer Price = '||
1010: to_char(x_denom_transfer_price(i)));
1011: pa_debug.write_file('LOG','Transfer Price currency = '||
1005: l_tp_bill_markup_percentage;
1006: IF g1_debug_mode = 'Y' THEN
1007: pa_debug.write_file('LOG',
1008: 'Transfer Price calculated by Pre-Client extension');
1009: pa_debug.write_file('LOG','Transfer Price = '||
1010: to_char(x_denom_transfer_price(i)));
1011: pa_debug.write_file('LOG','Transfer Price currency = '||
1012: x_denom_tp_currency_code(i));
1013: END IF;
1007: pa_debug.write_file('LOG',
1008: 'Transfer Price calculated by Pre-Client extension');
1009: pa_debug.write_file('LOG','Transfer Price = '||
1010: to_char(x_denom_transfer_price(i)));
1011: pa_debug.write_file('LOG','Transfer Price currency = '||
1012: x_denom_tp_currency_code(i));
1013: END IF;
1014:
1015: END IF;
1021: ELSIF (l_status > 0 ) THEN
1022: -- Application error occurred with client extension
1023: --x_error_code(i) := 'PA_CC_TP_PREC_APPS_ERROR'; -- Commented for 2661949
1024: x_error_code(i) := l_error_message; -- Added for 2661949
1025: pa_debug.G_Err_Stage :=
1026: Substr( 'Application error from Pre-Client extension'||
1027: 'while processing expenditure_item :'||
1028: to_char(p_expenditure_item_id(i))||'Error Message :'
1029: || l_error_message,1,2000);
1027: 'while processing expenditure_item :'||
1028: to_char(p_expenditure_item_id(i))||'Error Message :'
1029: || l_error_message,1,2000);
1030: IF g1_debug_mode = 'Y' THEN
1031: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1);
1032: END IF;
1033:
1034: ELSIF (l_status < 0) THEN
1035: x_error_code(i) := l_error_message; -- Added for 2661949
1032: END IF;
1033:
1034: ELSIF (l_status < 0) THEN
1035: x_error_code(i) := l_error_message; -- Added for 2661949
1036: pa_debug.G_Err_Stage :=
1037: Substr( 'Unexpected error from Pre-Client extension'||
1038: 'while processing expenditure_item :'||
1039: to_char(p_expenditure_item_id(i))||'Error Message :'
1040: || l_error_message,1,2000);
1039: to_char(p_expenditure_item_id(i))||'Error Message :'
1040: || l_error_message,1,2000);
1041:
1042: IF g1_debug_mode = 'Y' THEN
1043: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1);
1044: END IF;
1045: raise unexpected_result;
1046:
1047: END IF; /** l_status **/
1099: ClOSE PROJ_VALUES;
1100: /* Added for bill rate disount and transfer price revenue*/
1101: IF (p_system_linkage_function(i) in ('ST','OT')) then
1102: IF g1_debug_mode = 'Y' THEN
1103: pa_debug.write_file('LOG','in assignment override within Assignment_Rev_Amt');
1104: END IF;
1105: pa_revenue.Assignment_Rev_Amt(
1106: p_project_id => P_project_id(i)
1107: ,p_task_id => P_task_id(i)
1148: ,p_project_raw_cost => l_project_raw_cost
1149: ,p_project_currency_code => l_project_currency_code
1150: ,x_adjusted_bill_rate => l_adjust_bill_rate); --4038485
1151: IF g1_debug_mode = 'Y' THEN
1152: pa_debug.write_file('LOG','in assignment override completed Assignment_Rev_Amt');
1153: END IF;
1154:
1155: end if; /* end of system linkage */
1156: IF g1_debug_mode = 'Y' THEN
1153: END IF;
1154:
1155: end if; /* end of system linkage */
1156: IF g1_debug_mode = 'Y' THEN
1157: pa_debug.write_file('LOG','x_base revenue amount' || x_tp_base_amount(i) ||'code : ' ||l_tp_base_curr_code1);
1158: END IF;
1159: IF l_msg_data is NULL then
1160: IF x_tp_base_amount(i) is NULL THEN
1161: l_error_code := 'PA_CC_TP_REV_AMT_NULL';
1199: end if; /* l_compute_flag(i) = 'Y' */
1200:
1201: --End Added for devdrop2
1202:
1203: pa_debug.G_Err_Stage := 'Completed Processing Expenditure ID: '||
1204: to_char(p_expenditure_item_id(i));
1205: IF g1_debug_mode = 'Y' THEN
1206: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1207: END IF;
1202:
1203: pa_debug.G_Err_Stage := 'Completed Processing Expenditure ID: '||
1204: to_char(p_expenditure_item_id(i));
1205: IF g1_debug_mode = 'Y' THEN
1206: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1207: END IF;
1208:
1209: END IF; /**l_compute_flag (i) = 'Y' and x_error_code(i) IS NULL**/
1210:
1210:
1211: END LOOP;
1212:
1213:
1214: pa_debug.G_Err_Stage := 'Completes Pre-Client Extension............';
1215: IF g1_debug_mode = 'Y' THEN
1216: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1217: END IF;
1218:
1212:
1213:
1214: pa_debug.G_Err_Stage := 'Completes Pre-Client Extension............';
1215: IF g1_debug_mode = 'Y' THEN
1216: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1217: END IF;
1218:
1219: -- Get the schedule_line_id and the right rule_id associated with it.
1220:
1324: End If;
1325:
1326: -- Don't consider transactions identified for adjustment and
1327: -- also transfer price already calculated by Pre-client extension.
1328: pa_debug.G_Err_Stage := 'Calling Post-client extension';
1329: IF g1_debug_mode = 'Y' THEN
1330: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1331: END IF;
1332:
1326: -- Don't consider transactions identified for adjustment and
1327: -- also transfer price already calculated by Pre-client extension.
1328: pa_debug.G_Err_Stage := 'Calling Post-client extension';
1329: IF g1_debug_mode = 'Y' THEN
1330: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1331: END IF;
1332:
1333: PA_CC_TP_CLIENT_EXTN.Override_Transfer_Price
1334: (
1355: l_tp_bill_markup_percentage,
1356: l_error_message,
1357: l_status
1358: );
1359: pa_debug.G_Err_Stage := 'After Call to Post-client extension';
1360: IF g1_debug_mode = 'Y' THEN
1361: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1362: END IF;
1363:
1357: l_status
1358: );
1359: pa_debug.G_Err_Stage := 'After Call to Post-client extension';
1360: IF g1_debug_mode = 'Y' THEN
1361: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1362: END IF;
1363:
1364: -- Validate if the amount is calculated by extension
1365: -- Also, mark the transactions where transfer price is calculated by
1418: ELSIF (l_status > 0 ) THEN
1419: -- Application error occurred with client extension
1420: --x_error_code(i) := 'PA_CC_TP_POSC_APPS_ERROR';-- Commented for 2661949
1421: x_error_code(i) := l_error_message;-- Added for 2661949
1422: pa_debug.G_Err_Stage :=
1423: Substr( 'Application error from Post-Client extension'||
1424: 'while processing expenditure_item :'||
1425: to_char(p_expenditure_item_id(i))||'Error Message :'
1426: || l_error_message,1,2000);
1424: 'while processing expenditure_item :'||
1425: to_char(p_expenditure_item_id(i))||'Error Message :'
1426: || l_error_message,1,2000);
1427: IF g1_debug_mode = 'Y' THEN
1428: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1); -- Changed for 2661949
1429: END IF;
1430:
1431: ELSIF (l_status < 0) THEN
1432: x_error_code(i) := l_error_message; -- Added for 2661949
1429: END IF;
1430:
1431: ELSIF (l_status < 0) THEN
1432: x_error_code(i) := l_error_message; -- Added for 2661949
1433: pa_debug.G_Err_Stage :=
1434: Substr( 'Unexpected error from Post-Client extension'||
1435: 'while processing expenditure_item :'||
1436: to_char(p_expenditure_item_id(i))||'Error Message :'
1437: || l_error_message,1,2000);
1435: 'while processing expenditure_item :'||
1436: to_char(p_expenditure_item_id(i))||'Error Message :'
1437: || l_error_message,1,2000);
1438: IF g1_debug_mode = 'Y' THEN
1439: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1);
1440: END IF;
1441: raise unexpected_result;
1442:
1443: END IF; /** l_status **/
1447: END LOOP;
1448:
1449:
1450: -- Currency Conversion
1451: pa_debug.G_Err_Stage := 'Do Currency Conversion';
1452: IF g1_debug_mode = 'Y' THEN
1453: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1454: END IF;
1455:
1449:
1450: -- Currency Conversion
1451: pa_debug.G_Err_Stage := 'Do Currency Conversion';
1452: IF g1_debug_mode = 'Y' THEN
1453: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1454: END IF;
1455:
1456: --Start devdrops2 change
1457:
1474: IF (x_denom_transfer_price(i) IS NOT NULL) THEN
1475: IF (x_denom_tp_currency_code(i) IS NOT NULL) THEN
1476:
1477: IF (l_compute_flag(i) = 'C') THEN
1478: pa_debug.G_Err_Stage := 'Converting adjustment cases';
1479: IF g1_debug_mode = 'Y' THEN
1480: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1481: END IF;
1482: -- Convert the adjustment cases
1476:
1477: IF (l_compute_flag(i) = 'C') THEN
1478: pa_debug.G_Err_Stage := 'Converting adjustment cases';
1479: IF g1_debug_mode = 'Y' THEN
1480: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1481: END IF;
1482: -- Convert the adjustment cases
1483: IF (x_acct_tp_rate_type(i) = 'User' AND
1484: x_acct_tp_exchange_rate(i) IS NOT NULL) THEN
1609: );
1610: ELSIF (l_error_message IS NULL) THEN
1611: -- Added the condition of l_error_message for Bug 5276842
1612: -- Use default rate_type and rate_date to convert
1613: pa_debug.G_Err_Stage := 'Using default rate type';
1614: IF g1_debug_mode = 'Y' THEN
1615: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1616: END IF;
1617: l_rate_type := G_cc_default_rate_type;
1611: -- Added the condition of l_error_message for Bug 5276842
1612: -- Use default rate_type and rate_date to convert
1613: pa_debug.G_Err_Stage := 'Using default rate type';
1614: IF g1_debug_mode = 'Y' THEN
1615: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1616: END IF;
1617: l_rate_type := G_cc_default_rate_type;
1618:
1619: PA_MULTI_CURRENCY.Convert_Amount(
1635: IF l_error_message IS NOT NULL THEN
1636:
1637: x_error_code(i) := 'PA_CC_TP_CONVERT_AMT';
1638: IF g1_debug_mode = 'Y' THEN
1639: pa_debug.write_file('LOG',
1640: Substr (l_error_message,1,2000),1);
1641: END IF;
1642: ELSE
1643: x_acct_transfer_price (i) := l_acct_transfer_price;
1650: x_proj_tp_rate_date(i) := l_rate_date;
1651: x_projfunc_tp_rate_type(i) := l_rate_type;
1652: x_projfunc_tp_rate_date(i) := l_rate_date;
1653:
1654: pa_debug.G_Err_Stage := 'Rate Type ='||l_rate_type;
1655: IF g1_debug_mode = 'Y' THEN
1656: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1657: END IF;
1658: END IF;
1652: x_projfunc_tp_rate_date(i) := l_rate_date;
1653:
1654: pa_debug.G_Err_Stage := 'Rate Type ='||l_rate_type;
1655: IF g1_debug_mode = 'Y' THEN
1656: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1657: END IF;
1658: END IF;
1659:
1660: ELSIF (l_status > 0) THEN
1661: -- Application error occurred in extension to override
1662: -- currency conversion attributes
1663: -- x_error_code(i) := 'PA_CC_TP_OVERIDE_APP_ERROR';
1664: x_error_code(i) := l_error_message; -- Added for 2661949
1665: pa_debug.G_Err_Stage :=
1666: Substr( 'Application error from Currency conversion
1667: override extension'||
1668: 'while processing expenditure_item :'||
1669: to_char(p_expenditure_item_id(i))||'Error Message :'
1668: 'while processing expenditure_item :'||
1669: to_char(p_expenditure_item_id(i))||'Error Message :'
1670: || l_error_message,1,2000);
1671: IF g1_debug_mode = 'Y' THEN
1672: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1);
1673: END IF;
1674: ELSIF (l_status < 0) THEN
1675:
1676: -- Unexpected error occurred in extension to override
1676: -- Unexpected error occurred in extension to override
1677: -- currency conversion attributes
1678: --x_error_code(i) := 'PA_CC_TP_OVERIDE_ORA_ERROR';
1679: x_error_code(i) := l_error_message; -- Added for 2661949
1680: pa_debug.G_Err_Stage :=
1681: Substr( 'Unexpected error from Currency conversion
1682: override extension'||
1683: 'while processing expenditure_item :'||
1684: to_char(p_expenditure_item_id(i))||'Error Message :'
1683: 'while processing expenditure_item :'||
1684: to_char(p_expenditure_item_id(i))||'Error Message :'
1685: || l_error_message,1,2000);
1686: IF g1_debug_mode = 'Y' THEN
1687: pa_debug.write_file('LOG',pa_debug.G_Err_Stage,1);
1688: END IF;
1689: raise unexpected_result;
1690: ELSE
1691: x_error_code (i) := 'PA_CC_TP_INVALID_OVERIDE_STATUS';
1722: if p_tp_amt_type_code(i) = 'REVENUE_TRANSFER' THEN /*bug6389559*/
1723: IF ( l_multi_currency_billing_flag = 'Y' ) THEN
1724:
1725: IF g1_debug_mode = 'Y' THEN
1726: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1727: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1723: IF ( l_multi_currency_billing_flag = 'Y' ) THEN
1724:
1725: IF g1_debug_mode = 'Y' THEN
1726: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1727: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1724:
1725: IF g1_debug_mode = 'Y' THEN
1726: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1727: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1725: IF g1_debug_mode = 'Y' THEN
1726: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1727: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1727: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1728: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1729: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1737: pa_debug.write_file('LOG','x_denom_tp_currency_code : '||x_denom_tp_currency_code(i));
1730:
1731: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1737: pa_debug.write_file('LOG','x_denom_tp_currency_code : '||x_denom_tp_currency_code(i));
1738: pa_debug.write_file('LOG','p_project_currency_code : '||p_project_currency_code(i));
1732: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1737: pa_debug.write_file('LOG','x_denom_tp_currency_code : '||x_denom_tp_currency_code(i));
1738: pa_debug.write_file('LOG','p_project_currency_code : '||p_project_currency_code(i));
1739: END IF;
1740: --
1733: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1737: pa_debug.write_file('LOG','x_denom_tp_currency_code : '||x_denom_tp_currency_code(i));
1738: pa_debug.write_file('LOG','p_project_currency_code : '||p_project_currency_code(i));
1739: END IF;
1740: --
1741: --Converting into Project currency attributes
1734: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1735:
1736: pa_debug.write_file('LOG','pa_date : '||p_pa_date(i));
1737: pa_debug.write_file('LOG','x_denom_tp_currency_code : '||x_denom_tp_currency_code(i));
1738: pa_debug.write_file('LOG','p_project_currency_code : '||p_project_currency_code(i));
1739: END IF;
1740: --
1741: --Converting into Project currency attributes
1742: -- for tp_amt_type_code = 'REVENUE_TRANSFER'
1751: p_project_currency_code(i));
1752: ELSE
1753: x_error_code(i) := 'PA_CC_TP_CONVERT_AMT';
1754: IF g1_debug_mode = 'Y' THEN
1755: pa_debug.write_file('LOG','ERROR NO USER RATE ');
1756: END IF;
1757:
1758: END IF;
1759: else
1762: l_project_bil_rate_date := G_processed_thru_date;
1763: END IF;
1764:
1765: IF g1_debug_mode = 'Y' THEN
1766: pa_debug.write_file('LOG','BEFORE CONVERT: l_project_bil_rate_type: '||l_project_bil_rate_type);
1767: pa_debug.write_file('LOG','BEFORE CONVERT: l_project_bil_rate_date: '||l_project_bil_rate_date);
1768: END IF;
1769:
1770: PA_MULTI_CURRENCY.Convert_Amount(
1763: END IF;
1764:
1765: IF g1_debug_mode = 'Y' THEN
1766: pa_debug.write_file('LOG','BEFORE CONVERT: l_project_bil_rate_type: '||l_project_bil_rate_type);
1767: pa_debug.write_file('LOG','BEFORE CONVERT: l_project_bil_rate_date: '||l_project_bil_rate_date);
1768: END IF;
1769:
1770: PA_MULTI_CURRENCY.Convert_Amount(
1771: p_from_currency => x_denom_tp_currency_code(i),
1782: x_status => l_error_message
1783: );
1784:
1785: IF g1_debug_mode = 'Y' THEN
1786: pa_debug.write_file('LOG','l_error_message : '||l_error_message);
1787: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_type: '||l_project_bil_rate_type);
1788: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_date: '||l_project_bil_rate_date);
1789: END IF;
1790:
1783: );
1784:
1785: IF g1_debug_mode = 'Y' THEN
1786: pa_debug.write_file('LOG','l_error_message : '||l_error_message);
1787: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_type: '||l_project_bil_rate_type);
1788: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_date: '||l_project_bil_rate_date);
1789: END IF;
1790:
1791: IF l_error_message IS NOT NULL THEN
1784:
1785: IF g1_debug_mode = 'Y' THEN
1786: pa_debug.write_file('LOG','l_error_message : '||l_error_message);
1787: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_type: '||l_project_bil_rate_type);
1788: pa_debug.write_file('LOG','AFTER CONVERT: l_project_bil_rate_date: '||l_project_bil_rate_date);
1789: END IF;
1790:
1791: IF l_error_message IS NOT NULL THEN
1792:
1791: IF l_error_message IS NOT NULL THEN
1792:
1793: x_error_code(i) := 'PA_CC_TP_CONVERT_AMT';
1794: IF g1_debug_mode = 'Y' THEN
1795: pa_debug.write_file('LOG',
1796: Substr (l_error_message,1,2000));
1797: END IF;
1798: ELSE
1799: x_proj_transfer_price (i) := l_project_transfer_price;
1799: x_proj_transfer_price (i) := l_project_transfer_price;
1800: x_proj_tp_rate_type(i) := l_project_bil_rate_type;
1801: x_proj_tp_rate_date(i) := l_project_bil_rate_date;
1802: x_proj_tp_exchange_rate(i) := l_project_bil_exchange_rate;
1803: pa_debug.G_Err_Stage := 'Rate Type ='||l_project_bil_rate_type;
1804: IF g1_debug_mode = 'Y' THEN
1805: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1806: END IF;
1807: END IF;
1801: x_proj_tp_rate_date(i) := l_project_bil_rate_date;
1802: x_proj_tp_exchange_rate(i) := l_project_bil_exchange_rate;
1803: pa_debug.G_Err_Stage := 'Rate Type ='||l_project_bil_rate_type;
1804: IF g1_debug_mode = 'Y' THEN
1805: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1806: END IF;
1807: END IF;
1808:
1809:
1846: IF l_error_message IS NOT NULL THEN
1847:
1848: x_error_code(i) := 'PA_CC_TP_CONVERT_AMT';
1849: IF g1_debug_mode = 'Y' THEN
1850: pa_debug.write_file('LOG',
1851: Substr (l_error_message,1,2000));
1852: END IF;
1853: ELSE
1854: x_projfunc_transfer_price (i) := l_projfunc_transfer_price;
1854: x_projfunc_transfer_price (i) := l_projfunc_transfer_price;
1855: x_projfunc_tp_rate_type(i) := l_projfunc_bil_rate_type;
1856: x_projfunc_tp_rate_date(i) := l_projfunc_bil_rate_date;
1857: x_projfunc_tp_exchange_rate(i) := l_projfunc_bil_exchange_rate;
1858: pa_debug.G_Err_Stage := 'Rate Type ='||l_projfunc_bil_rate_type;
1859: IF g1_debug_mode = 'Y' THEN
1860: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1861: END IF;
1862: END IF;
1856: x_projfunc_tp_rate_date(i) := l_projfunc_bil_rate_date;
1857: x_projfunc_tp_exchange_rate(i) := l_projfunc_bil_exchange_rate;
1858: pa_debug.G_Err_Stage := 'Rate Type ='||l_projfunc_bil_rate_type;
1859: IF g1_debug_mode = 'Y' THEN
1860: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1861: END IF;
1862: END IF;
1863:
1864:
1864:
1865: END IF; /* esle l_projfunc_bil_rate_type = 'User'*/
1866:
1867: IF g1_debug_mode = 'Y' THEN
1868: pa_debug.write_file('LOG','AFTER CONVERSION');
1869: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1865: END IF; /* esle l_projfunc_bil_rate_type = 'User'*/
1866:
1867: IF g1_debug_mode = 'Y' THEN
1868: pa_debug.write_file('LOG','AFTER CONVERSION');
1869: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1866:
1867: IF g1_debug_mode = 'Y' THEN
1868: pa_debug.write_file('LOG','AFTER CONVERSION');
1869: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1867: IF g1_debug_mode = 'Y' THEN
1868: pa_debug.write_file('LOG','AFTER CONVERSION');
1869: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1868: pa_debug.write_file('LOG','AFTER CONVERSION');
1869: pa_debug.write_file('LOG','l_project_bil_rate_date_code: '||l_project_bil_rate_date_code);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1876: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1870: pa_debug.write_file('LOG','l_project_bil_rate_type: '||l_project_bil_rate_type);
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1876: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1877: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1878: END IF;
1871: pa_debug.write_file('LOG','l_project_bil_rate_date: '||l_project_bil_rate_date);
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1876: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1877: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1878: END IF;
1879:
1872: pa_debug.write_file('LOG','l_project_bil_exchange_rate: '||l_project_bil_exchange_rate);
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1876: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1877: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1878: END IF;
1879:
1880: END IF ; /** l_multi_currency_billing_flag = 'Y' **/
1873:
1874: pa_debug.write_file('LOG','l_projfunc_bil_rate_date_code: '||l_projfunc_bil_rate_date_code);
1875: pa_debug.write_file('LOG','l_projfunc_bil_rate_type: '||l_projfunc_bil_rate_type);
1876: pa_debug.write_file('LOG','l_projfunc_bil_rate_date: '||l_projfunc_bil_rate_date);
1877: pa_debug.write_file('LOG','l_projfunc_bil_exchange_rate: '||l_projfunc_bil_exchange_rate);
1878: END IF;
1879:
1880: END IF ; /** l_multi_currency_billing_flag = 'Y' **/
1881: END IF; /** p_tp_amt_type_code(i) = 'REVENUE_TRANSFER' **/
1936: END IF; /** x_error_code(i) IS NULL **/
1937:
1938: END LOOP;
1939:
1940: pa_debug.G_Err_Stage := 'Completed Get_Transfer_Price with success';
1941: IF g1_debug_mode = 'Y' THEN
1942: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1943: END IF;
1944: x_return_status := 0;
1938: END LOOP;
1939:
1940: pa_debug.G_Err_Stage := 'Completed Get_Transfer_Price with success';
1941: IF g1_debug_mode = 'Y' THEN
1942: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1943: END IF;
1944: x_return_status := 0;
1945: pa_debug.Reset_err_stack;
1946:
1941: IF g1_debug_mode = 'Y' THEN
1942: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1943: END IF;
1944: x_return_status := 0;
1945: pa_debug.Reset_err_stack;
1946:
1947: EXCEPTION
1948: when unexpected_result THEN
1949: IF g1_debug_mode = 'Y' THEN
1946:
1947: EXCEPTION
1948: when unexpected_result THEN
1949: IF g1_debug_mode = 'Y' THEN
1950: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1951: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1952: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1953: END IF;
1954:
1947: EXCEPTION
1948: when unexpected_result THEN
1949: IF g1_debug_mode = 'Y' THEN
1950: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1951: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1952: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1953: END IF;
1954:
1955: when others then
1948: when unexpected_result THEN
1949: IF g1_debug_mode = 'Y' THEN
1950: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1951: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1952: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1953: END IF;
1954:
1955: when others then
1956:
1954:
1955: when others then
1956:
1957: IF g1_debug_mode = 'Y' THEN
1958: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1959: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1960: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1961: END IF;
1962:
1955: when others then
1956:
1957: IF g1_debug_mode = 'Y' THEN
1958: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1959: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1960: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1961: END IF;
1962:
1963: raise;
1956:
1957: IF g1_debug_mode = 'Y' THEN
1958: pa_debug.write_file('LOG','Unexpected Error in Transfer Price API' );
1959: pa_debug.write_file('LOG',pa_debug.G_Err_Stack);
1960: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1961: END IF;
1962:
1963: raise;
1964:
1968: PROCEDURE Init_who_cols
1969: IS
1970: BEGIN
1971:
1972: pa_debug.Set_err_stack ('Init_who_cols');
1973: pa_debug.G_Err_Stage := 'Inside Init_who_cols';
1974: IF g1_debug_mode = 'Y' THEN
1975: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1976: END IF;
1969: IS
1970: BEGIN
1971:
1972: pa_debug.Set_err_stack ('Init_who_cols');
1973: pa_debug.G_Err_Stage := 'Inside Init_who_cols';
1974: IF g1_debug_mode = 'Y' THEN
1975: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1976: END IF;
1977:
1971:
1972: pa_debug.Set_err_stack ('Init_who_cols');
1973: pa_debug.G_Err_Stage := 'Inside Init_who_cols';
1974: IF g1_debug_mode = 'Y' THEN
1975: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
1976: END IF;
1977:
1978: G_created_by := nvl(TO_NUMBER(FND_PROFILE.VALUE('USER_ID')),-1);
1979: G_last_update_login := nvl(TO_NUMBER(FND_PROFILE.VALUE('LOGIN_ID')), -1);
1980: G_last_updated_by := G_created_by;
1981: G_creation_date := G_sysdate;
1982: G_last_update_date := G_sysdate ;
1983:
1984: pa_debug.Reset_err_stack;
1985:
1986: END Init_who_cols ;
1987:
1988: -------------------------------------------------------------------------------
2010: l_legal_entity hr_organization_information.org_information2%TYPE;
2011:
2012: BEGIN
2013:
2014: pa_debug.Set_err_stack ('Get_Legal_Entity');
2015: pa_debug.G_Err_Stage := 'Get Legal Entity of Org'||to_char(p_org_id);
2016: IF g1_debug_mode = 'Y' THEN
2017: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2018: END IF;
2011:
2012: BEGIN
2013:
2014: pa_debug.Set_err_stack ('Get_Legal_Entity');
2015: pa_debug.G_Err_Stage := 'Get Legal Entity of Org'||to_char(p_org_id);
2016: IF g1_debug_mode = 'Y' THEN
2017: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2018: END IF;
2019:
2013:
2014: pa_debug.Set_err_stack ('Get_Legal_Entity');
2015: pa_debug.G_Err_Stage := 'Get Legal Entity of Org'||to_char(p_org_id);
2016: IF g1_debug_mode = 'Y' THEN
2017: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2018: END IF;
2019:
2020: open c_legal_entity;
2021: fetch c_legal_entity into l_legal_entity;
2026: -- conversion required as legal_entity_id is stored as varchar2
2027: -- in hr_operating_units
2028: END IF;
2029:
2030: pa_debug.Reset_err_stack;
2031:
2032: EXCEPTION
2033:
2034: WHEN OTHERS THEN
2046: --Added nvl to G_prvdr_org_id
2047:
2048: IF nvl(G_prvdr_org_id,-1) <> p_org_id and g_Calling_Module = 'FORECAST' Then
2049:
2050: pa_debug.Set_err_stack ('Set_Global_Variables ');
2051: pa_debug.G_Err_Stage := 'Set_Global_Variables '||to_char(p_org_id);
2052: IF g1_debug_mode = 'Y' THEN
2053: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2054: END IF;
2047:
2048: IF nvl(G_prvdr_org_id,-1) <> p_org_id and g_Calling_Module = 'FORECAST' Then
2049:
2050: pa_debug.Set_err_stack ('Set_Global_Variables ');
2051: pa_debug.G_Err_Stage := 'Set_Global_Variables '||to_char(p_org_id);
2052: IF g1_debug_mode = 'Y' THEN
2053: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2054: END IF;
2055:
2049:
2050: pa_debug.Set_err_stack ('Set_Global_Variables ');
2051: pa_debug.G_Err_Stage := 'Set_Global_Variables '||to_char(p_org_id);
2052: IF g1_debug_mode = 'Y' THEN
2053: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2054: END IF;
2055:
2056: G_prvdr_org_id := G_prvdr_org_id_Tab(p_org_id);
2057: G_bg_id := G_bg_id_Tab(p_org_id);
2083:
2084: l_business_group hr_operating_units.business_group_id%TYPE;
2085:
2086: BEGIN
2087: pa_debug.Set_err_stack ('Get_Business_group');
2088: pa_debug.G_Err_Stage := 'Get bisiness_group of Org'||to_char(p_org_id);
2089: IF g1_debug_mode = 'Y' THEN
2090: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2091: END IF;
2084: l_business_group hr_operating_units.business_group_id%TYPE;
2085:
2086: BEGIN
2087: pa_debug.Set_err_stack ('Get_Business_group');
2088: pa_debug.G_Err_Stage := 'Get bisiness_group of Org'||to_char(p_org_id);
2089: IF g1_debug_mode = 'Y' THEN
2090: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2091: END IF;
2092:
2086: BEGIN
2087: pa_debug.Set_err_stack ('Get_Business_group');
2088: pa_debug.G_Err_Stage := 'Get bisiness_group of Org'||to_char(p_org_id);
2089: IF g1_debug_mode = 'Y' THEN
2090: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2091: END IF;
2092:
2093: open c_business_group;
2094: fetch c_business_group into l_business_group;
2097: IF l_business_group IS NOT NULL THEN
2098: x_business_group_id := l_business_group;
2099: END IF;
2100:
2101: pa_debug.Reset_err_stack;
2102:
2103: EXCEPTION
2104:
2105: WHEN OTHERS THEN
2138:
2139: l_provider_org_id pa_implementations.org_id%type;
2140:
2141: BEGIN
2142: pa_debug.Set_err_stack ('Get_Provider_Attributes');
2143: pa_debug.G_Err_Stage := 'Inside Get_Provider_Attributes';
2144: IF g1_debug_mode = 'Y' THEN
2145: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2146: END IF;
2139: l_provider_org_id pa_implementations.org_id%type;
2140:
2141: BEGIN
2142: pa_debug.Set_err_stack ('Get_Provider_Attributes');
2143: pa_debug.G_Err_Stage := 'Inside Get_Provider_Attributes';
2144: IF g1_debug_mode = 'Y' THEN
2145: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2146: END IF;
2147:
2141: BEGIN
2142: pa_debug.Set_err_stack ('Get_Provider_Attributes');
2143: pa_debug.G_Err_Stage := 'Inside Get_Provider_Attributes';
2144: IF g1_debug_mode = 'Y' THEN
2145: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2146: END IF;
2147:
2148: If G_Calling_module = 'FORECAST' Then
2149: Begin
2147:
2148: If G_Calling_module = 'FORECAST' Then
2149: Begin
2150: For i in 1 .. G_array_size Loop
2151: pa_debug.G_Err_Stage := 'i: '||to_char(i)||' error code : '||x_error_code(i);
2152: IF g1_debug_mode = 'Y' THEN
2153: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2154: END IF;
2155:
2149: Begin
2150: For i in 1 .. G_array_size Loop
2151: pa_debug.G_Err_Stage := 'i: '||to_char(i)||' error code : '||x_error_code(i);
2152: IF g1_debug_mode = 'Y' THEN
2153: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2154: END IF;
2155:
2156:
2157: l_provider_org_id := nvl(p_prvdr_operating_unit(i),-1);
2157: l_provider_org_id := nvl(p_prvdr_operating_unit(i),-1);
2158: If G_prvdr_org_id_tab.Exists(l_provider_org_id)
2159: Then Null;
2160: IF g1_debug_mode = 'Y' THEN
2161: pa_debug.write_file('LOG','i :'||to_char(i)||' Exist ');
2162: END IF;
2163: Else
2164: open c_ou_attributes_fcst (l_provider_org_id);
2165: fetch c_ou_attributes_fcst
2178:
2179:
2180: End If; /** G_prvdr_org_id_tab.Exists **/
2181:
2182: pa_debug.G_Err_Stage := 'I : '||to_char(i)||' p_prvdr_operating_unit(i) '||to_char(l_provider_org_id)||
2183: ' G_prvdr_org_id_tab(l_provider_org_id): '||to_char(G_prvdr_org_id_tab(l_provider_org_id));
2184:
2185: IF g1_debug_mode = 'Y' THEN
2186: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2182: pa_debug.G_Err_Stage := 'I : '||to_char(i)||' p_prvdr_operating_unit(i) '||to_char(l_provider_org_id)||
2183: ' G_prvdr_org_id_tab(l_provider_org_id): '||to_char(G_prvdr_org_id_tab(l_provider_org_id));
2184:
2185: IF g1_debug_mode = 'Y' THEN
2186: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2187: END IF;
2188:
2189: End loop;
2190: End;
2203:
2204: -- Get accounting currency code of the provider
2205: G_acct_currency_code := PA_MULTI_CURRENCY.Get_Acct_Currency_Code;
2206: End If; /** End p_module_name = 'FORECAST' **/
2207: pa_debug.Reset_err_stack;
2208:
2209: EXCEPTION
2210: when others then
2211: raise;
2229: )
2230: IS
2231: l_acct_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE ; /** Added for Org Forecasting **/
2232: BEGIN
2233: pa_debug.Set_err_stack ('Validate_Array');
2234: pa_debug.G_Err_Stage := 'Starting Validate_Array';
2235: IF g1_debug_mode = 'Y' THEN
2236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2237: END IF;
2230: IS
2231: l_acct_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE ; /** Added for Org Forecasting **/
2232: BEGIN
2233: pa_debug.Set_err_stack ('Validate_Array');
2234: pa_debug.G_Err_Stage := 'Starting Validate_Array';
2235: IF g1_debug_mode = 'Y' THEN
2236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2237: END IF;
2238:
2232: BEGIN
2233: pa_debug.Set_err_stack ('Validate_Array');
2234: pa_debug.G_Err_Stage := 'Starting Validate_Array';
2235: IF g1_debug_mode = 'Y' THEN
2236: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2237: END IF;
2238:
2239: l_acct_currency_code := p_acct_currency_code; /** Added for Org Forecasting **/
2240:
2239: l_acct_currency_code := p_acct_currency_code; /** Added for Org Forecasting **/
2240:
2241: For i in 1 .. G_array_Size
2242: Loop
2243: pa_debug.G_Err_Stage := 'Start Loop';
2244: -- Consider records with error_code is null and compute_flag = 'Y'
2245: IF (x_compute_flag(i) = 'Y' ) THEN
2246: IF ( x_error_code(i) IS NULL ) THEN
2247: -- Check if transfer price is already available -
2244: -- Consider records with error_code is null and compute_flag = 'Y'
2245: IF (x_compute_flag(i) = 'Y' ) THEN
2246: IF ( x_error_code(i) IS NULL ) THEN
2247: -- Check if transfer price is already available -
2248: pa_debug.G_Err_Stage := 'Flagged as error-free';
2249: IF g1_debug_mode = 'Y' THEN
2250: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2251: END IF;
2252:
2246: IF ( x_error_code(i) IS NULL ) THEN
2247: -- Check if transfer price is already available -
2248: pa_debug.G_Err_Stage := 'Flagged as error-free';
2249: IF g1_debug_mode = 'Y' THEN
2250: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2251: END IF;
2252:
2253: IF G_Calling_Module = 'FORECAST' Then /** Added for Org Forecasting **/
2254: l_acct_currency_code := G_acct_currency_code_Tab(p_prvdr_operating_unit(i));
2256:
2257: IF (p_denom_transfer_price(i) IS NOT NULL
2258: and nvl(p_denom_tp_currency_code(i),'-1') <> nvl(l_acct_currency_code,'-1')) THEN
2259: /** Changed p_acct_currency_code to l_acct_currency_code for Org Forecasting **/
2260: pa_debug.G_Err_Stage := 'Reconversion Case';
2261: IF g1_debug_mode = 'Y' THEN
2262: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2263: END IF;
2264: -- Check if all conversion attributes are provided
2258: and nvl(p_denom_tp_currency_code(i),'-1') <> nvl(l_acct_currency_code,'-1')) THEN
2259: /** Changed p_acct_currency_code to l_acct_currency_code for Org Forecasting **/
2260: pa_debug.G_Err_Stage := 'Reconversion Case';
2261: IF g1_debug_mode = 'Y' THEN
2262: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2263: END IF;
2264: -- Check if all conversion attributes are provided
2265:
2266: IF( ( (p_acct_tp_rate_type(i) IS NOT NULL) AND
2278: x_error_code(i) := 'PA_CC_TP_CURR_CONVERSION_ATTR';
2279: END IF;
2280:
2281: ELSE
2282: pa_debug.G_Err_Stage := 'Calculate Transfer Price';
2283: -- Need to calculate transfer price
2284:
2285: -- Check if schedule_id is provided
2286: IF p_tp_schedule_id(i) IS NULL THEN
2293: END IF; /**x_compute_flag(i) = 'Y' AND x_error_code(i) IS NULL **/
2294:
2295: END Loop;
2296:
2297: pa_debug.Reset_err_stack;
2298: pa_debug.G_Err_Stage := 'Exitting Validate_Array ';
2299: IF g1_debug_mode = 'Y' THEN
2300: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2301: END IF;
2294:
2295: END Loop;
2296:
2297: pa_debug.Reset_err_stack;
2298: pa_debug.G_Err_Stage := 'Exitting Validate_Array ';
2299: IF g1_debug_mode = 'Y' THEN
2300: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2301: END IF;
2302:
2296:
2297: pa_debug.Reset_err_stack;
2298: pa_debug.G_Err_Stage := 'Exitting Validate_Array ';
2299: IF g1_debug_mode = 'Y' THEN
2300: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2301: END IF;
2302:
2303: EXCEPTION
2304: when others then
2337: p_sort_order Number; -- Added for bug 5753774
2338:
2339: BEGIN
2340:
2341: pa_debug.Set_err_stack ('Get_Schedule_Line');
2342: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line';
2343: IF g1_debug_mode = 'Y' THEN
2344: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2345: END IF;
2338:
2339: BEGIN
2340:
2341: pa_debug.Set_err_stack ('Get_Schedule_Line');
2342: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line';
2343: IF g1_debug_mode = 'Y' THEN
2344: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2345: END IF;
2346:
2340:
2341: pa_debug.Set_err_stack ('Get_Schedule_Line');
2342: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line';
2343: IF g1_debug_mode = 'Y' THEN
2344: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2345: END IF;
2346:
2347: For i in 1 ..G_array_Size
2348: Loop
2347: For i in 1 ..G_array_Size
2348: Loop
2349: If G_Calling_module = 'FORECAST' Then /** Added for Org Forecasting **/
2350:
2351: pa_debug.G_Err_Stage := 'p_prvdr_operating_unit: '||
2352: to_char(p_prvdr_operating_unit(i));
2353: IF g1_debug_mode = 'Y' THEN
2354: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2355: END IF;
2350:
2351: pa_debug.G_Err_Stage := 'p_prvdr_operating_unit: '||
2352: to_char(p_prvdr_operating_unit(i));
2353: IF g1_debug_mode = 'Y' THEN
2354: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2355: END IF;
2356:
2357: Set_Global_Variables (p_prvdr_operating_unit(i));
2358: Get_legal_entity (G_prvdr_org_id,G_prvdr_legal_entity_id);
2358: Get_legal_entity (G_prvdr_org_id,G_prvdr_legal_entity_id);
2359: End If;
2360:
2361:
2362: pa_debug.G_Err_Stage := 'Processing Expenditure ID: '||
2363: to_char(p_expenditure_item_id(i));
2364: IF g1_debug_mode = 'Y' THEN
2365: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2366: END IF;
2361:
2362: pa_debug.G_Err_Stage := 'Processing Expenditure ID: '||
2363: to_char(p_expenditure_item_id(i));
2364: IF g1_debug_mode = 'Y' THEN
2365: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2366: END IF;
2367:
2368: pa_debug.G_Err_Stage := 'p_compute_flag: '||p_compute_flag(i);
2369: IF g1_debug_mode = 'Y' THEN
2364: IF g1_debug_mode = 'Y' THEN
2365: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2366: END IF;
2367:
2368: pa_debug.G_Err_Stage := 'p_compute_flag: '||p_compute_flag(i);
2369: IF g1_debug_mode = 'Y' THEN
2370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2371: END IF;
2372:
2366: END IF;
2367:
2368: pa_debug.G_Err_Stage := 'p_compute_flag: '||p_compute_flag(i);
2369: IF g1_debug_mode = 'Y' THEN
2370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2371: END IF;
2372:
2373: pa_debug.G_Err_Stage := 'x_error_code: '||x_error_code(i);
2374: IF g1_debug_mode = 'Y' THEN
2369: IF g1_debug_mode = 'Y' THEN
2370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2371: END IF;
2372:
2373: pa_debug.G_Err_Stage := 'x_error_code: '||x_error_code(i);
2374: IF g1_debug_mode = 'Y' THEN
2375: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2376: END IF;
2377:
2371: END IF;
2372:
2373: pa_debug.G_Err_Stage := 'x_error_code: '||x_error_code(i);
2374: IF g1_debug_mode = 'Y' THEN
2375: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2376: END IF;
2377:
2378: IF (p_compute_flag(i) = 'Y' AND
2379: x_error_code(i) is null ) THEN
2396:
2397: IF x_tp_schedule_line_id(i) IS NULL THEN
2398: -- Find out schedule_line_id
2399:
2400: pa_debug.G_Err_Stage := 'Find out Schedule_Line_ID';
2401: Determine_Schedule_Line(
2402: p_prvdr_organization_id(i),
2403: p_recvr_org_id(i),
2404: p_recvr_organization_id(i),
2418: p_sort_order, -- added for bug 5753774
2419: x_error_code(i) );
2420:
2421: IF g1_debug_mode = 'Y' THEN
2422: pa_debug.write_file('LOG','Error Code'||x_error_code(i));
2423: END IF;
2424:
2425: l_tp_schedule_line_id := x_tp_schedule_line_id(i);
2426:
2426:
2427: IF ( x_error_code(i) IS NULL ) THEN
2428: -- No error from Determine_Schedule_Line
2429:
2430: pa_debug.G_Err_Stage := 'Insert Schedule Line into Lookup';
2431: -- pa_debug.G_Err_Stage := 'Sort order is :'||x_sort_order ;/*bug 5753774*/
2432:
2433: Insert_Schedule_Line_Into_Lkp(
2434: p_prvdr_organization_id(i),
2427: IF ( x_error_code(i) IS NULL ) THEN
2428: -- No error from Determine_Schedule_Line
2429:
2430: pa_debug.G_Err_Stage := 'Insert Schedule Line into Lookup';
2431: -- pa_debug.G_Err_Stage := 'Sort order is :'||x_sort_order ;/*bug 5753774*/
2432:
2433: Insert_Schedule_Line_Into_Lkp(
2434: p_prvdr_organization_id(i),
2435: p_recvr_org_id (i),
2450: ELSE
2451:
2452: l_tp_schedule_line_id := x_tp_schedule_line_id(i);
2453: -- Get Schedule Line attributes
2454: pa_debug.G_Err_Stage := 'Get Schedule Line Attributes';
2455:
2456: Get_Schedule_Line_Attributes(
2457: l_tp_schedule_line_id,
2458: p_labor_non_labor_flag(i),
2463: -- Set the OUT variables
2464: x_tp_schedule_line_id(i) := l_tp_schedule_line_id;
2465: x_tp_schedule_line_percentage(i) := l_percentage_applied;
2466: x_tp_rule_id (i) := l_tp_rule_id;
2467: pa_debug.G_Err_Stage := 'Rule ID is '||to_char(x_tp_rule_id(i));
2468: IF g1_debug_mode = 'Y' THEN
2469: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2470: END IF;
2471:
2465: x_tp_schedule_line_percentage(i) := l_percentage_applied;
2466: x_tp_rule_id (i) := l_tp_rule_id;
2467: pa_debug.G_Err_Stage := 'Rule ID is '||to_char(x_tp_rule_id(i));
2468: IF g1_debug_mode = 'Y' THEN
2469: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2470: END IF;
2471:
2472:
2473: END IF; /** p_compute_flag = 'Y' and x_error_code is null **/
2471:
2472:
2473: END IF; /** p_compute_flag = 'Y' and x_error_code is null **/
2474:
2475: pa_debug.G_Err_Stage := 'Completed Processing the item';
2476: IF g1_debug_mode = 'Y' THEN
2477: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2478: END IF;
2479: pa_debug.G_Err_Stage := '..................................................';
2473: END IF; /** p_compute_flag = 'Y' and x_error_code is null **/
2474:
2475: pa_debug.G_Err_Stage := 'Completed Processing the item';
2476: IF g1_debug_mode = 'Y' THEN
2477: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2478: END IF;
2479: pa_debug.G_Err_Stage := '..................................................';
2480: IF g1_debug_mode = 'Y' THEN
2481: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2475: pa_debug.G_Err_Stage := 'Completed Processing the item';
2476: IF g1_debug_mode = 'Y' THEN
2477: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2478: END IF;
2479: pa_debug.G_Err_Stage := '..................................................';
2480: IF g1_debug_mode = 'Y' THEN
2481: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2482: END IF;
2483:
2477: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2478: END IF;
2479: pa_debug.G_Err_Stage := '..................................................';
2480: IF g1_debug_mode = 'Y' THEN
2481: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2482: END IF;
2483:
2484: End Loop;
2485:
2482: END IF;
2483:
2484: End Loop;
2485:
2486: pa_debug.Reset_err_stack;
2487: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line';
2488: IF g1_debug_mode = 'Y' THEN
2489: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2490: END IF;
2483:
2484: End Loop;
2485:
2486: pa_debug.Reset_err_stack;
2487: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line';
2488: IF g1_debug_mode = 'Y' THEN
2489: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2490: END IF;
2491:
2485:
2486: pa_debug.Reset_err_stack;
2487: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line';
2488: IF g1_debug_mode = 'Y' THEN
2489: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2490: END IF;
2491:
2492: EXCEPTION
2493: WHEN OTHERS THEN
2532: trunc(NVL(end_date_active,p_expenditure_item_date)) /* Added for 3118101 */
2533: ORDER BY sort_order; /*Bug 5753774*/
2534:
2535: BEGIN
2536: pa_debug.Set_err_stack ('Get_Schedule_Line_From_Lookup');
2537: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_From_Lookup';
2538: IF g1_debug_mode = 'Y' THEN
2539: Pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2540:
2533: ORDER BY sort_order; /*Bug 5753774*/
2534:
2535: BEGIN
2536: pa_debug.Set_err_stack ('Get_Schedule_Line_From_Lookup');
2537: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_From_Lookup';
2538: IF g1_debug_mode = 'Y' THEN
2539: Pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2540:
2541: Pa_debug.write_file('LOG','prvdr_oranz_id '||p_prvdr_organization_id||
2535: BEGIN
2536: pa_debug.Set_err_stack ('Get_Schedule_Line_From_Lookup');
2537: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_From_Lookup';
2538: IF g1_debug_mode = 'Y' THEN
2539: Pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2540:
2541: Pa_debug.write_file('LOG','prvdr_oranz_id '||p_prvdr_organization_id||
2542: ' recv_organz_id '||p_recvr_organization_id||
2543: 'prvdr_org_id '||G_prvdr_org_id||
2537: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_From_Lookup';
2538: IF g1_debug_mode = 'Y' THEN
2539: Pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2540:
2541: Pa_debug.write_file('LOG','prvdr_oranz_id '||p_prvdr_organization_id||
2542: ' recv_organz_id '||p_recvr_organization_id||
2543: 'prvdr_org_id '||G_prvdr_org_id||
2544: 'p_recvr_org_id '||p_recvr_org_id||
2545: ' sch_id '||p_tp_schedule_id);
2542: ' recv_organz_id '||p_recvr_organization_id||
2543: 'prvdr_org_id '||G_prvdr_org_id||
2544: 'p_recvr_org_id '||p_recvr_org_id||
2545: ' sch_id '||p_tp_schedule_id);
2546: Pa_debug.write_file('LOG','p_labor_flag '||p_labor_flag||
2547: ' tp_amt_type_code '||p_tp_amt_type_code||
2548: ' p_expenditure_item_date '||to_char(p_expenditure_item_date)); /* Added for 3118101 */
2549: END IF;
2550:
2555:
2556: close c_schedule_line;
2557:
2558:
2559: pa_debug.Reset_err_stack;
2560: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_From_Lookup';
2561: IF g1_debug_mode = 'Y' THEN
2562: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2563: END IF;
2556: close c_schedule_line;
2557:
2558:
2559: pa_debug.Reset_err_stack;
2560: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_From_Lookup';
2561: IF g1_debug_mode = 'Y' THEN
2562: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2563: END IF;
2564:
2558:
2559: pa_debug.Reset_err_stack;
2560: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_From_Lookup';
2561: IF g1_debug_mode = 'Y' THEN
2562: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2563: END IF;
2564:
2565: EXCEPTION
2566: WHEN OTHERS THEN
2735: l_recvr_legal_entity_id Number;
2736: l_recvr_business_group_id number;
2737:
2738: BEGIN
2739: pa_debug.Set_err_stack ('Determine_Schedule_Line');
2740: pa_debug.G_Err_Stage := 'Starting Determine_Schedule_Line';
2741: IF g1_debug_mode = 'Y' THEN
2742: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2743:
2736: l_recvr_business_group_id number;
2737:
2738: BEGIN
2739: pa_debug.Set_err_stack ('Determine_Schedule_Line');
2740: pa_debug.G_Err_Stage := 'Starting Determine_Schedule_Line';
2741: IF g1_debug_mode = 'Y' THEN
2742: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2743:
2744:
2738: BEGIN
2739: pa_debug.Set_err_stack ('Determine_Schedule_Line');
2740: pa_debug.G_Err_Stage := 'Starting Determine_Schedule_Line';
2741: IF g1_debug_mode = 'Y' THEN
2742: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2743:
2744:
2745: pa_debug.write_file('LOG',
2746: 'p_prvdr_organization_id '||p_prvdr_organization_id);
2741: IF g1_debug_mode = 'Y' THEN
2742: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2743:
2744:
2745: pa_debug.write_file('LOG',
2746: 'p_prvdr_organization_id '||p_prvdr_organization_id);
2747: pa_debug.write_file('LOG',
2748: 'p_recvr_org_id '||p_recvr_org_id);
2749: pa_debug.write_file('LOG',
2743:
2744:
2745: pa_debug.write_file('LOG',
2746: 'p_prvdr_organization_id '||p_prvdr_organization_id);
2747: pa_debug.write_file('LOG',
2748: 'p_recvr_org_id '||p_recvr_org_id);
2749: pa_debug.write_file('LOG',
2750: 'p_recvr_organization_id '||p_recvr_organization_id);
2751: pa_debug.write_file('LOG',
2745: pa_debug.write_file('LOG',
2746: 'p_prvdr_organization_id '||p_prvdr_organization_id);
2747: pa_debug.write_file('LOG',
2748: 'p_recvr_org_id '||p_recvr_org_id);
2749: pa_debug.write_file('LOG',
2750: 'p_recvr_organization_id '||p_recvr_organization_id);
2751: pa_debug.write_file('LOG',
2752: 'p_recvr_org_id '||p_recvr_org_id);
2753: pa_debug.write_file('LOG',
2747: pa_debug.write_file('LOG',
2748: 'p_recvr_org_id '||p_recvr_org_id);
2749: pa_debug.write_file('LOG',
2750: 'p_recvr_organization_id '||p_recvr_organization_id);
2751: pa_debug.write_file('LOG',
2752: 'p_recvr_org_id '||p_recvr_org_id);
2753: pa_debug.write_file('LOG',
2754: 'p_tp_schedule_id '||p_tp_schedule_id);
2755: pa_debug.write_file('LOG',
2749: pa_debug.write_file('LOG',
2750: 'p_recvr_organization_id '||p_recvr_organization_id);
2751: pa_debug.write_file('LOG',
2752: 'p_recvr_org_id '||p_recvr_org_id);
2753: pa_debug.write_file('LOG',
2754: 'p_tp_schedule_id '||p_tp_schedule_id);
2755: pa_debug.write_file('LOG',
2756: 'p_labor_non_labor_flag '||p_labor_non_labor_flag);
2757: pa_debug.write_file('LOG',
2751: pa_debug.write_file('LOG',
2752: 'p_recvr_org_id '||p_recvr_org_id);
2753: pa_debug.write_file('LOG',
2754: 'p_tp_schedule_id '||p_tp_schedule_id);
2755: pa_debug.write_file('LOG',
2756: 'p_labor_non_labor_flag '||p_labor_non_labor_flag);
2757: pa_debug.write_file('LOG',
2758: 'p_tp_amt_type_code '||p_tp_amt_type_code);
2759: pa_debug.write_file('LOG',
2753: pa_debug.write_file('LOG',
2754: 'p_tp_schedule_id '||p_tp_schedule_id);
2755: pa_debug.write_file('LOG',
2756: 'p_labor_non_labor_flag '||p_labor_non_labor_flag);
2757: pa_debug.write_file('LOG',
2758: 'p_tp_amt_type_code '||p_tp_amt_type_code);
2759: pa_debug.write_file('LOG',
2760: 'G_exp_org_struct_ver_id '||G_exp_org_struct_ver_id);
2761: pa_debug.write_file('LOG',
2755: pa_debug.write_file('LOG',
2756: 'p_labor_non_labor_flag '||p_labor_non_labor_flag);
2757: pa_debug.write_file('LOG',
2758: 'p_tp_amt_type_code '||p_tp_amt_type_code);
2759: pa_debug.write_file('LOG',
2760: 'G_exp_org_struct_ver_id '||G_exp_org_struct_ver_id);
2761: pa_debug.write_file('LOG',
2762: 'G_prj_org_struct_ver_id '||G_prj_org_struct_ver_id);
2763: END IF;
2757: pa_debug.write_file('LOG',
2758: 'p_tp_amt_type_code '||p_tp_amt_type_code);
2759: pa_debug.write_file('LOG',
2760: 'G_exp_org_struct_ver_id '||G_exp_org_struct_ver_id);
2761: pa_debug.write_file('LOG',
2762: 'G_prj_org_struct_ver_id '||G_prj_org_struct_ver_id);
2763: END IF;
2764:
2765: -- Use Rule1
2765: -- Use Rule1
2766:
2767:
2768: IF g1_debug_mode = 'Y' THEN
2769: pa_debug.write_file('LOG','Testing Rule 1');
2770: END IF;
2771:
2772: open c_rule (p_prvdr_organization_id,p_recvr_organization_id);
2773: fetch c_rule
2776:
2777: IF c_rule%FOUND THEN
2778: IF (x_tp_rule_id IS NOT NULL) THEN
2779: close c_rule;
2780: pa_debug.Reset_err_stack;
2781: pa_debug.G_Err_Stage := 'Schedule Line found using Rule1';
2782: IF g1_debug_mode = 'Y' THEN
2783: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2784: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2777: IF c_rule%FOUND THEN
2778: IF (x_tp_rule_id IS NOT NULL) THEN
2779: close c_rule;
2780: pa_debug.Reset_err_stack;
2781: pa_debug.G_Err_Stage := 'Schedule Line found using Rule1';
2782: IF g1_debug_mode = 'Y' THEN
2783: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2784: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2785: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2779: close c_rule;
2780: pa_debug.Reset_err_stack;
2781: pa_debug.G_Err_Stage := 'Schedule Line found using Rule1';
2782: IF g1_debug_mode = 'Y' THEN
2783: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2784: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2785: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2786:
2787: END IF;
2780: pa_debug.Reset_err_stack;
2781: pa_debug.G_Err_Stage := 'Schedule Line found using Rule1';
2782: IF g1_debug_mode = 'Y' THEN
2783: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2784: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2785: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2786:
2787: END IF;
2788: Return;
2781: pa_debug.G_Err_Stage := 'Schedule Line found using Rule1';
2782: IF g1_debug_mode = 'Y' THEN
2783: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2784: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2785: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2786:
2787: END IF;
2788: Return;
2789: END IF;
2793:
2794: --DevDrop2 Changes Start
2795:
2796: IF g1_debug_mode = 'Y' THEN
2797: pa_debug.write_file('LOG','Testing Parent Rule ');
2798: END IF;
2799:
2800: if ( nvl(G_prev_rcvr_org_id,-1) <> nvl(p_recvr_org_id,-1) ) then
2801: G_prev_rcvr_org_id := p_recvr_org_id;
2812:
2813: IF c_parent_rule%FOUND THEN
2814: IF (x_tp_rule_id IS NOT NULL) THEN
2815: close c_parent_rule;
2816: pa_debug.Reset_err_stack;
2817: pa_debug.G_Err_Stage := 'Schedule Line found using Parent Rule';
2818: IF g1_debug_mode = 'Y' THEN
2819: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2820: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2813: IF c_parent_rule%FOUND THEN
2814: IF (x_tp_rule_id IS NOT NULL) THEN
2815: close c_parent_rule;
2816: pa_debug.Reset_err_stack;
2817: pa_debug.G_Err_Stage := 'Schedule Line found using Parent Rule';
2818: IF g1_debug_mode = 'Y' THEN
2819: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2820: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2821: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2815: close c_parent_rule;
2816: pa_debug.Reset_err_stack;
2817: pa_debug.G_Err_Stage := 'Schedule Line found using Parent Rule';
2818: IF g1_debug_mode = 'Y' THEN
2819: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2820: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2821: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2822: END IF;
2823: Return;
2816: pa_debug.Reset_err_stack;
2817: pa_debug.G_Err_Stage := 'Schedule Line found using Parent Rule';
2818: IF g1_debug_mode = 'Y' THEN
2819: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2820: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2821: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2822: END IF;
2823: Return;
2824: END IF;
2817: pa_debug.G_Err_Stage := 'Schedule Line found using Parent Rule';
2818: IF g1_debug_mode = 'Y' THEN
2819: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2820: pa_debug.write_file('LOG','x_tp_schedule_line_id='||x_tp_schedule_line_id); -- Added for bug 5753774
2821: pa_debug.write_file('LOG','x_sort_order='||x_sort_order);
2822: END IF;
2823: Return;
2824: END IF;
2825: END IF;
2829:
2830: --Devdrop2 Changes Changed c_rule cursor to c_prvdr_organz_rule
2831:
2832: IF g1_debug_mode = 'Y' THEN
2833: pa_debug.write_file('LOG','Testing Rule 2');
2834: END IF;
2835:
2836: /* **************************************************************
2837: COMMENTED FOR LEGAL ENTITY TRANSFER PRICE SCHEDULE. aFTER 12.0 THERE
2847:
2848: IF c_prvdr_organz_rule%FOUND THEN
2849: IF (x_tp_rule_id IS NOT NULL) THEN
2850: close c_prvdr_organz_rule;
2851: pa_debug.Reset_err_stack;
2852: pa_debug.G_Err_Stage := 'Schedule Line found using Rule2';
2853: IF g1_debug_mode = 'Y' THEN
2854: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2855: END IF;
2848: IF c_prvdr_organz_rule%FOUND THEN
2849: IF (x_tp_rule_id IS NOT NULL) THEN
2850: close c_prvdr_organz_rule;
2851: pa_debug.Reset_err_stack;
2852: pa_debug.G_Err_Stage := 'Schedule Line found using Rule2';
2853: IF g1_debug_mode = 'Y' THEN
2854: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2855: END IF;
2856: Return;
2850: close c_prvdr_organz_rule;
2851: pa_debug.Reset_err_stack;
2852: pa_debug.G_Err_Stage := 'Schedule Line found using Rule2';
2853: IF g1_debug_mode = 'Y' THEN
2854: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2855: END IF;
2856: Return;
2857: END IF;
2858: END IF;
2870: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied --Added for bug 5753774
2871: ,x_start_date_active,x_end_date_active;
2872:
2873: IF g1_debug_mode = 'Y' THEN
2874: pa_debug.write_file('LOG','Testing Rule 3');
2875: END IF;
2876: IF c_prvdr_organz_rule%FOUND THEN
2877: IF (x_tp_rule_id IS NOT NULL) THEN
2878: close c_prvdr_organz_rule;
2875: END IF;
2876: IF c_prvdr_organz_rule%FOUND THEN
2877: IF (x_tp_rule_id IS NOT NULL) THEN
2878: close c_prvdr_organz_rule;
2879: pa_debug.Reset_err_stack;
2880: pa_debug.G_Err_Stage := 'Schedule Line found using Rule3';
2881: IF g1_debug_mode = 'Y' THEN
2882: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2883: END IF;
2876: IF c_prvdr_organz_rule%FOUND THEN
2877: IF (x_tp_rule_id IS NOT NULL) THEN
2878: close c_prvdr_organz_rule;
2879: pa_debug.Reset_err_stack;
2880: pa_debug.G_Err_Stage := 'Schedule Line found using Rule3';
2881: IF g1_debug_mode = 'Y' THEN
2882: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2883: END IF;
2884: Return;
2878: close c_prvdr_organz_rule;
2879: pa_debug.Reset_err_stack;
2880: pa_debug.G_Err_Stage := 'Schedule Line found using Rule3';
2881: IF g1_debug_mode = 'Y' THEN
2882: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2883: END IF;
2884: Return;
2885: END IF;
2886: END IF;
2897: fetch c_prvdr_organz_rule
2898: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied --Added for bug 5753774
2899: ,x_start_date_active,x_end_date_active;
2900: IF g1_debug_mode = 'Y' THEN
2901: pa_debug.write_file('LOG','Testing Rule 4');
2902: END IF;
2903: IF c_prvdr_organz_rule%FOUND THEN
2904: IF (x_tp_rule_id IS NOT NULL) THEN
2905: close c_prvdr_organz_rule;
2902: END IF;
2903: IF c_prvdr_organz_rule%FOUND THEN
2904: IF (x_tp_rule_id IS NOT NULL) THEN
2905: close c_prvdr_organz_rule;
2906: pa_debug.Reset_err_stack;
2907: pa_debug.G_Err_Stage := 'Schedule Line found using Rule4';
2908: IF g1_debug_mode = 'Y' THEN
2909: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2910: END IF;
2903: IF c_prvdr_organz_rule%FOUND THEN
2904: IF (x_tp_rule_id IS NOT NULL) THEN
2905: close c_prvdr_organz_rule;
2906: pa_debug.Reset_err_stack;
2907: pa_debug.G_Err_Stage := 'Schedule Line found using Rule4';
2908: IF g1_debug_mode = 'Y' THEN
2909: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2910: END IF;
2911: Return;
2905: close c_prvdr_organz_rule;
2906: pa_debug.Reset_err_stack;
2907: pa_debug.G_Err_Stage := 'Schedule Line found using Rule4';
2908: IF g1_debug_mode = 'Y' THEN
2909: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2910: END IF;
2911: Return;
2912: END IF;
2913: END IF;
2918:
2919:
2920: -- Use Rule2
2921: IF g1_debug_mode = 'Y' THEN
2922: pa_debug.write_file('LOG','Testing Rule 2');
2923: END IF;
2924: open c_other_rule (p_prvdr_organization_id);
2925: fetch c_other_rule
2926: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
2928:
2929: IF c_other_rule%FOUND THEN
2930: IF (x_tp_rule_id IS NOT NULL) THEN
2931: close c_other_rule;
2932: pa_debug.Reset_err_stack;
2933: pa_debug.G_Err_Stage := 'Schedule Line found using Rule5';
2934: IF g1_debug_mode = 'Y' THEN
2935: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2936: END IF;
2929: IF c_other_rule%FOUND THEN
2930: IF (x_tp_rule_id IS NOT NULL) THEN
2931: close c_other_rule;
2932: pa_debug.Reset_err_stack;
2933: pa_debug.G_Err_Stage := 'Schedule Line found using Rule5';
2934: IF g1_debug_mode = 'Y' THEN
2935: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2936: END IF;
2937: Return;
2931: close c_other_rule;
2932: pa_debug.Reset_err_stack;
2933: pa_debug.G_Err_Stage := 'Schedule Line found using Rule5';
2934: IF g1_debug_mode = 'Y' THEN
2935: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2936: END IF;
2937: Return;
2938: END IF;
2939: END IF;
2945: IS NO CONCEPT OF OU,LE AND BG check every thing should be maintained
2946: in org hierarchy
2947: -- Use Rule6
2948: IF g1_debug_mode = 'Y' THEN
2949: pa_debug.write_file('LOG','Testing Rule 6');
2950: END IF;
2951: open c_rule (G_Prvdr_Org_id,p_recvr_org_id);
2952: fetch c_rule
2953: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
2955:
2956: IF c_rule%FOUND THEN
2957: IF (x_tp_rule_id IS NOT NULL) THEN
2958: close c_rule;
2959: pa_debug.Reset_err_stack;
2960: pa_debug.G_Err_Stage := 'Schedule Line found using Rule6';
2961: IF g1_debug_mode = 'Y' THEN
2962: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2963: END IF;
2956: IF c_rule%FOUND THEN
2957: IF (x_tp_rule_id IS NOT NULL) THEN
2958: close c_rule;
2959: pa_debug.Reset_err_stack;
2960: pa_debug.G_Err_Stage := 'Schedule Line found using Rule6';
2961: IF g1_debug_mode = 'Y' THEN
2962: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2963: END IF;
2964: Return;
2958: close c_rule;
2959: pa_debug.Reset_err_stack;
2960: pa_debug.G_Err_Stage := 'Schedule Line found using Rule6';
2961: IF g1_debug_mode = 'Y' THEN
2962: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2963: END IF;
2964: Return;
2965: END IF;
2966: END IF;
2968: close c_rule;
2969:
2970: -- Use Rule7
2971: IF g1_debug_mode = 'Y' THEN
2972: pa_debug.write_file('LOG','Testing Rule 7');
2973: END IF;
2974: open c_rule (G_prvdr_org_id,l_recvr_legal_entity_id);
2975: fetch c_rule
2976: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
2978:
2979: IF c_rule%FOUND THEN
2980: IF (x_tp_rule_id IS NOT NULL) THEN
2981: close c_rule;
2982: pa_debug.Reset_err_stack;
2983: pa_debug.G_Err_Stage := 'Schedule Line found using Rule7';
2984: IF g1_debug_mode = 'Y' THEN
2985: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2986: END IF;
2979: IF c_rule%FOUND THEN
2980: IF (x_tp_rule_id IS NOT NULL) THEN
2981: close c_rule;
2982: pa_debug.Reset_err_stack;
2983: pa_debug.G_Err_Stage := 'Schedule Line found using Rule7';
2984: IF g1_debug_mode = 'Y' THEN
2985: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2986: END IF;
2987: Return;
2981: close c_rule;
2982: pa_debug.Reset_err_stack;
2983: pa_debug.G_Err_Stage := 'Schedule Line found using Rule7';
2984: IF g1_debug_mode = 'Y' THEN
2985: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
2986: END IF;
2987: Return;
2988: END IF;
2989: END IF;
2992:
2993: --Use Rule 8
2994: if G_global_access='Y' then
2995: IF g1_debug_mode = 'Y' THEN
2996: pa_debug.write_file('LOG','Testing Rule 8');
2997: END IF;
2998: open c_rule(G_prvdr_org_id,l_recvr_business_group_id);
2999: fetch c_rule
3000: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
3001: , x_start_date_active,x_end_date_active;
3002: IF c_rule%FOUND THEN
3003: IF (x_tp_rule_id IS NOT NULL) THEN
3004: close c_rule;
3005: pa_debug.Reset_err_stack;
3006: pa_debug.G_Err_Stage := 'Schedule Line found using Rule8';
3007: IF g1_debug_mode = 'Y' THEN
3008: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3009: END IF;
3002: IF c_rule%FOUND THEN
3003: IF (x_tp_rule_id IS NOT NULL) THEN
3004: close c_rule;
3005: pa_debug.Reset_err_stack;
3006: pa_debug.G_Err_Stage := 'Schedule Line found using Rule8';
3007: IF g1_debug_mode = 'Y' THEN
3008: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3009: END IF;
3010: Return;
3004: close c_rule;
3005: pa_debug.Reset_err_stack;
3006: pa_debug.G_Err_Stage := 'Schedule Line found using Rule8';
3007: IF g1_debug_mode = 'Y' THEN
3008: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3009: END IF;
3010: Return;
3011: END IF;
3012: END IF;
3015: end if;
3016:
3017: -- Use Rule9
3018: IF g1_debug_mode = 'Y' THEN
3019: pa_debug.write_file('LOG','Testing Rule 9 '|| to_char(G_prvdr_org_id));
3020: END IF;
3021: open c_other_rule (G_prvdr_org_id);
3022: fetch c_other_rule
3023: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
3023: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
3024: ,x_start_date_active,x_end_date_active;
3025:
3026: IF c_other_rule%FOUND THEN
3027: pa_debug.G_Err_Stage := 'Cursor matched Rule9';
3028: IF g1_debug_mode = 'Y' THEN
3029: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3030: END IF;
3031:
3025:
3026: IF c_other_rule%FOUND THEN
3027: pa_debug.G_Err_Stage := 'Cursor matched Rule9';
3028: IF g1_debug_mode = 'Y' THEN
3029: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3030: END IF;
3031:
3032: IF (x_tp_rule_id IS NOT NULL) THEN
3033: close c_other_rule;
3030: END IF;
3031:
3032: IF (x_tp_rule_id IS NOT NULL) THEN
3033: close c_other_rule;
3034: pa_debug.Reset_err_stack;
3035: pa_debug.G_Err_Stage := 'Schedule Line found using Rule9';
3036: IF g1_debug_mode = 'Y' THEN
3037: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3038: END IF;
3031:
3032: IF (x_tp_rule_id IS NOT NULL) THEN
3033: close c_other_rule;
3034: pa_debug.Reset_err_stack;
3035: pa_debug.G_Err_Stage := 'Schedule Line found using Rule9';
3036: IF g1_debug_mode = 'Y' THEN
3037: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3038: END IF;
3039: Return;
3033: close c_other_rule;
3034: pa_debug.Reset_err_stack;
3035: pa_debug.G_Err_Stage := 'Schedule Line found using Rule9';
3036: IF g1_debug_mode = 'Y' THEN
3037: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3038: END IF;
3039: Return;
3040: END IF;
3041: END IF;
3044:
3045:
3046: -- Use Rule10
3047: IF g1_debug_mode = 'Y' THEN
3048: pa_debug.write_file('LOG','Testing Rule 10');
3049: END IF;
3050: open c_rule (G_prvdr_legal_entity_id,l_recvr_legal_entity_id);
3051: fetch c_rule
3052: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
3054:
3055: IF c_rule%FOUND THEN
3056: IF (x_tp_rule_id IS NOT NULL) THEN
3057: close c_rule;
3058: pa_debug.Reset_err_stack;
3059: pa_debug.G_Err_Stage := 'Schedule Line found using Rule10';
3060: IF g1_debug_mode = 'Y' THEN
3061: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3062: END IF;
3055: IF c_rule%FOUND THEN
3056: IF (x_tp_rule_id IS NOT NULL) THEN
3057: close c_rule;
3058: pa_debug.Reset_err_stack;
3059: pa_debug.G_Err_Stage := 'Schedule Line found using Rule10';
3060: IF g1_debug_mode = 'Y' THEN
3061: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3062: END IF;
3063: Return;
3057: close c_rule;
3058: pa_debug.Reset_err_stack;
3059: pa_debug.G_Err_Stage := 'Schedule Line found using Rule10';
3060: IF g1_debug_mode = 'Y' THEN
3061: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3062: END IF;
3063: Return;
3064: END IF;
3065: END IF;
3068:
3069: --Use Rule 11
3070: if G_global_access ='Y' then
3071: IF g1_debug_mode = 'Y' THEN
3072: pa_debug.write_file('LOG','Testing Rule 11');
3073: END IF;
3074: open c_rule (G_prvdr_legal_entity_id,l_recvr_business_group_id);
3075: fetch c_rule
3076: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for 5753774
3077: ,x_start_date_active,x_end_date_active;
3078: IF c_rule%FOUND THEN
3079: IF (x_tp_rule_id IS NOT NULL) THEN
3080: close c_rule;
3081: pa_debug.Reset_err_stack;
3082: pa_debug.G_Err_Stage := 'Schedule Line found using Rule11';
3083: IF g1_debug_mode = 'Y' THEN
3084: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3085: END IF;
3078: IF c_rule%FOUND THEN
3079: IF (x_tp_rule_id IS NOT NULL) THEN
3080: close c_rule;
3081: pa_debug.Reset_err_stack;
3082: pa_debug.G_Err_Stage := 'Schedule Line found using Rule11';
3083: IF g1_debug_mode = 'Y' THEN
3084: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3085: END IF;
3086: Return;
3080: close c_rule;
3081: pa_debug.Reset_err_stack;
3082: pa_debug.G_Err_Stage := 'Schedule Line found using Rule11';
3083: IF g1_debug_mode = 'Y' THEN
3084: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3085: END IF;
3086: Return;
3087: END IF;
3088: END IF;
3091: end if;
3092:
3093: -- Use Rule12
3094: IF g1_debug_mode = 'Y' THEN
3095: pa_debug.write_file('LOG','Testing Rule 12');
3096: END IF;
3097: open c_other_rule (G_prvdr_legal_entity_id);
3098: fetch c_other_rule
3099: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- added for bug 5753774
3101:
3102: IF c_other_rule%FOUND THEN
3103: IF (x_tp_rule_id IS NOT NULL) THEN
3104: close c_other_rule;
3105: pa_debug.Reset_err_stack;
3106: pa_debug.G_Err_Stage := 'Schedule Line found using Rule12';
3107: IF g1_debug_mode = 'Y' THEN
3108: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3109: END IF;
3102: IF c_other_rule%FOUND THEN
3103: IF (x_tp_rule_id IS NOT NULL) THEN
3104: close c_other_rule;
3105: pa_debug.Reset_err_stack;
3106: pa_debug.G_Err_Stage := 'Schedule Line found using Rule12';
3107: IF g1_debug_mode = 'Y' THEN
3108: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3109: END IF;
3110: Return;
3104: close c_other_rule;
3105: pa_debug.Reset_err_stack;
3106: pa_debug.G_Err_Stage := 'Schedule Line found using Rule12';
3107: IF g1_debug_mode = 'Y' THEN
3108: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3109: END IF;
3110: Return;
3111: END IF;
3112: END IF;
3114:
3115: --Use Rule 13
3116: if G_global_access='Y' then
3117: IF g1_debug_mode = 'Y' THEN
3118: pa_debug.write_file('LOG','Testing Rule 13');
3119: END IF;
3120: open c_rule(G_bg_id,l_recvr_business_group_id);
3121: fetch c_rule
3122: into x_tp_schedule_line_id,x_sort_order,x_tp_rule_id,x_percentage_applied -- Added for bug 5753774
3123: ,x_start_date_active,x_end_date_active;
3124: IF c_rule%FOUND THEN
3125: IF (x_tp_rule_id IS NOT NULL) THEN
3126: close c_rule;
3127: pa_debug.Reset_err_stack;
3128: pa_debug.G_Err_Stage := 'Schedule Line found using Rule13';
3129: IF g1_debug_mode = 'Y' THEN
3130: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3131: END IF;
3124: IF c_rule%FOUND THEN
3125: IF (x_tp_rule_id IS NOT NULL) THEN
3126: close c_rule;
3127: pa_debug.Reset_err_stack;
3128: pa_debug.G_Err_Stage := 'Schedule Line found using Rule13';
3129: IF g1_debug_mode = 'Y' THEN
3130: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3131: END IF;
3132: Return;
3126: close c_rule;
3127: pa_debug.Reset_err_stack;
3128: pa_debug.G_Err_Stage := 'Schedule Line found using Rule13';
3129: IF g1_debug_mode = 'Y' THEN
3130: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3131: END IF;
3132: Return;
3133: END IF;
3134: END IF;
3143:
3144: IF c_other_rule%FOUND THEN
3145: IF (x_tp_rule_id IS NOT NULL) THEN
3146: close c_other_rule;
3147: pa_debug.Reset_err_stack;
3148: pa_debug.G_Err_Stage := 'Schedule Line found using Rule14';
3149: IF g1_debug_mode = 'Y' THEN
3150: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3151: END IF;
3144: IF c_other_rule%FOUND THEN
3145: IF (x_tp_rule_id IS NOT NULL) THEN
3146: close c_other_rule;
3147: pa_debug.Reset_err_stack;
3148: pa_debug.G_Err_Stage := 'Schedule Line found using Rule14';
3149: IF g1_debug_mode = 'Y' THEN
3150: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3151: END IF;
3152: Return;
3146: close c_other_rule;
3147: pa_debug.Reset_err_stack;
3148: pa_debug.G_Err_Stage := 'Schedule Line found using Rule14';
3149: IF g1_debug_mode = 'Y' THEN
3150: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3151: END IF;
3152: Return;
3153: END IF;
3154: END IF;
3163: ,x_start_date_active,x_end_date_active;
3164: if c_default_rule%found then
3165: IF (x_tp_rule_id IS NOT NULL) THEN
3166: close c_default_rule;
3167: pa_debug.Reset_err_stack;
3168: pa_debug.G_Err_Stage := 'Schedule Line found using default rule';
3169: IF g1_debug_mode = 'Y' THEN
3170: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3171: END IF;
3164: if c_default_rule%found then
3165: IF (x_tp_rule_id IS NOT NULL) THEN
3166: close c_default_rule;
3167: pa_debug.Reset_err_stack;
3168: pa_debug.G_Err_Stage := 'Schedule Line found using default rule';
3169: IF g1_debug_mode = 'Y' THEN
3170: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3171: END IF;
3172: Return;
3166: close c_default_rule;
3167: pa_debug.Reset_err_stack;
3168: pa_debug.G_Err_Stage := 'Schedule Line found using default rule';
3169: IF g1_debug_mode = 'Y' THEN
3170: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3171: END IF;
3172: Return;
3173: END IF;
3174: END IF;
3173: END IF;
3174: END IF;
3175:
3176: x_error_code := 'PA_CC_TP_NO_SCHEDULE_LINE';
3177: pa_debug.Reset_err_stack;
3178: pa_debug.G_Err_Stage := 'Exitting Determine_Schedule_Line';
3179: IF g1_debug_mode = 'Y' THEN
3180: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3181: END IF;
3174: END IF;
3175:
3176: x_error_code := 'PA_CC_TP_NO_SCHEDULE_LINE';
3177: pa_debug.Reset_err_stack;
3178: pa_debug.G_Err_Stage := 'Exitting Determine_Schedule_Line';
3179: IF g1_debug_mode = 'Y' THEN
3180: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3181: END IF;
3182:
3176: x_error_code := 'PA_CC_TP_NO_SCHEDULE_LINE';
3177: pa_debug.Reset_err_stack;
3178: pa_debug.G_Err_Stage := 'Exitting Determine_Schedule_Line';
3179: IF g1_debug_mode = 'Y' THEN
3180: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3181: END IF;
3182:
3183: EXCEPTION
3184: WHEN OTHERS THEN
3205:
3206: PRAGMA AUTONOMOUS_TRANSACTION;
3207:
3208: BEGIN
3209: pa_debug.Set_err_stack ('Insert_Schedule_Line_Into_Lkp');
3210: pa_debug.G_Err_Stage := 'Starting Insert_Schedule_Line_Into_Lkp';
3211: IF g1_debug_mode = 'Y' THEN
3212: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3213: END IF;
3206: PRAGMA AUTONOMOUS_TRANSACTION;
3207:
3208: BEGIN
3209: pa_debug.Set_err_stack ('Insert_Schedule_Line_Into_Lkp');
3210: pa_debug.G_Err_Stage := 'Starting Insert_Schedule_Line_Into_Lkp';
3211: IF g1_debug_mode = 'Y' THEN
3212: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3213: END IF;
3214:
3208: BEGIN
3209: pa_debug.Set_err_stack ('Insert_Schedule_Line_Into_Lkp');
3210: pa_debug.G_Err_Stage := 'Starting Insert_Schedule_Line_Into_Lkp';
3211: IF g1_debug_mode = 'Y' THEN
3212: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3213: END IF;
3214:
3215: INSERT INTO
3216: PA_CC_TP_SCHEDULE_LINE_LKP
3250:
3251: -- commit the autonomous transaction
3252: commit;
3253:
3254: pa_debug.Reset_err_stack;
3255: pa_debug.G_Err_Stage := 'Exitting Insert_Schedule_Line_Into_Lkp';
3256: IF g1_debug_mode = 'Y' THEN
3257: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3258: END IF;
3251: -- commit the autonomous transaction
3252: commit;
3253:
3254: pa_debug.Reset_err_stack;
3255: pa_debug.G_Err_Stage := 'Exitting Insert_Schedule_Line_Into_Lkp';
3256: IF g1_debug_mode = 'Y' THEN
3257: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3258: END IF;
3259:
3253:
3254: pa_debug.Reset_err_stack;
3255: pa_debug.G_Err_Stage := 'Exitting Insert_Schedule_Line_Into_Lkp';
3256: IF g1_debug_mode = 'Y' THEN
3257: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3258: END IF;
3259:
3260: EXCEPTION
3261: WHEN Dup_val_on_index THEN
3258: END IF;
3259:
3260: EXCEPTION
3261: WHEN Dup_val_on_index THEN
3262: pa_debug.Reset_err_stack;
3263: null;
3264: WHEN OTHERS THEN
3265: raise;
3266:
3283: from pa_cc_tp_schedule_lines
3284: where tp_schedule_line_id = p_tp_schedule_line_id;
3285:
3286: BEGIN
3287: pa_debug.Set_err_stack ('Get_Schedule_Line_Attributes');
3288: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_Attributes';
3289: IF g1_debug_mode = 'Y' THEN
3290: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3291: END IF;
3284: where tp_schedule_line_id = p_tp_schedule_line_id;
3285:
3286: BEGIN
3287: pa_debug.Set_err_stack ('Get_Schedule_Line_Attributes');
3288: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_Attributes';
3289: IF g1_debug_mode = 'Y' THEN
3290: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3291: END IF;
3292:
3286: BEGIN
3287: pa_debug.Set_err_stack ('Get_Schedule_Line_Attributes');
3288: pa_debug.G_Err_Stage := 'Starting Get_Schedule_Line_Attributes';
3289: IF g1_debug_mode = 'Y' THEN
3290: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3291: END IF;
3292:
3293: open c_schedule_line_attr;
3294: fetch c_schedule_line_attr
3299: END IF;
3300:
3301: close c_schedule_line_attr;
3302:
3303: pa_debug.Reset_err_stack;
3304: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_Attributes';
3305: IF g1_debug_mode = 'Y' THEN
3306: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3307: END IF;
3300:
3301: close c_schedule_line_attr;
3302:
3303: pa_debug.Reset_err_stack;
3304: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_Attributes';
3305: IF g1_debug_mode = 'Y' THEN
3306: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3307: END IF;
3308:
3302:
3303: pa_debug.Reset_err_stack;
3304: pa_debug.G_Err_Stage := 'Exitting Get_Schedule_Line_Attributes';
3305: IF g1_debug_mode = 'Y' THEN
3306: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3307: END IF;
3308:
3309: EXCEPTION
3310: WHEN OTHERS THEN
3396: l_bill_rate_compute_flag PA_PLSQL_DATATYPES.Char1TabTyp;
3397: l_burden_rate_compute_flag PA_PLSQL_DATATYPES.Char1TabTyp;
3398:
3399: BEGIN
3400: pa_debug.Set_err_stack ('Get_Transfer_Price_Amount');
3401: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price_Amount';
3402: IF g1_debug_mode = 'Y' THEN
3403: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3404: END IF;
3397: l_burden_rate_compute_flag PA_PLSQL_DATATYPES.Char1TabTyp;
3398:
3399: BEGIN
3400: pa_debug.Set_err_stack ('Get_Transfer_Price_Amount');
3401: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price_Amount';
3402: IF g1_debug_mode = 'Y' THEN
3403: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3404: END IF;
3405:
3399: BEGIN
3400: pa_debug.Set_err_stack ('Get_Transfer_Price_Amount');
3401: pa_debug.G_Err_Stage := 'Starting Get_Transfer_Price_Amount';
3402: IF g1_debug_mode = 'Y' THEN
3403: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3404: END IF;
3405:
3406:
3407: l_calc_method_code := l_empty_calc_method_code;
3518: x_error_code
3519: );
3520:
3521:
3522: pa_debug.Reset_err_stack;
3523: pa_debug.G_Err_Stage := 'Exitting Get_Transfer_Price_Amount';
3524: IF g1_debug_mode = 'Y' THEN
3525: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3526: END IF;
3519: );
3520:
3521:
3522: pa_debug.Reset_err_stack;
3523: pa_debug.G_Err_Stage := 'Exitting Get_Transfer_Price_Amount';
3524: IF g1_debug_mode = 'Y' THEN
3525: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3526: END IF;
3527: EXCEPTION
3521:
3522: pa_debug.Reset_err_stack;
3523: pa_debug.G_Err_Stage := 'Exitting Get_Transfer_Price_Amount';
3524: IF g1_debug_mode = 'Y' THEN
3525: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3526: END IF;
3527: EXCEPTION
3528: WHEN OTHERS THEN
3529: raise;
3552: l_schedule_id PA_PLSQL_DATATYPES.IdTabTyp;
3553:
3554: BEGIN
3555: x_schedule_id := l_schedule_id;
3556: pa_debug.Set_err_stack ('Get_Rule_Attributes');
3557: pa_debug.G_Err_Stage := 'Starting Get_Rule_Attributes';
3558: IF g1_debug_mode = 'Y' THEN
3559: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3560: END IF;
3553:
3554: BEGIN
3555: x_schedule_id := l_schedule_id;
3556: pa_debug.Set_err_stack ('Get_Rule_Attributes');
3557: pa_debug.G_Err_Stage := 'Starting Get_Rule_Attributes';
3558: IF g1_debug_mode = 'Y' THEN
3559: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3560: END IF;
3561:
3555: x_schedule_id := l_schedule_id;
3556: pa_debug.Set_err_stack ('Get_Rule_Attributes');
3557: pa_debug.G_Err_Stage := 'Starting Get_Rule_Attributes';
3558: IF g1_debug_mode = 'Y' THEN
3559: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3560: END IF;
3561:
3562: For i in 1 .. G_Array_Size
3563: Loop
3561:
3562: For i in 1 .. G_Array_Size
3563: Loop
3564: IF (p_compute_flag(i) = 'Y' and x_error_code(i) is null) THEN
3565: pa_debug.G_Err_Stage := 'Fetching Get_Rule_Attributes';
3566: pa_debug.G_Err_Stage := 'Rule ID is '|| to_char(p_tp_rule_id(i));
3567:
3568: open c_rule_attributes (p_tp_rule_id(i));
3569: --open c_rule_attributes (3342);
3562: For i in 1 .. G_Array_Size
3563: Loop
3564: IF (p_compute_flag(i) = 'Y' and x_error_code(i) is null) THEN
3565: pa_debug.G_Err_Stage := 'Fetching Get_Rule_Attributes';
3566: pa_debug.G_Err_Stage := 'Rule ID is '|| to_char(p_tp_rule_id(i));
3567:
3568: open c_rule_attributes (p_tp_rule_id(i));
3569: --open c_rule_attributes (3342);
3570: fetch c_rule_attributes
3575:
3576: END Loop;
3577:
3578:
3579: pa_debug.Reset_err_stack;
3580: pa_debug.G_Err_Stage := 'Exitting Get_Rule_Attributes';
3581: IF g1_debug_mode = 'Y' THEN
3582: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3583: END IF;
3576: END Loop;
3577:
3578:
3579: pa_debug.Reset_err_stack;
3580: pa_debug.G_Err_Stage := 'Exitting Get_Rule_Attributes';
3581: IF g1_debug_mode = 'Y' THEN
3582: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3583: END IF;
3584:
3578:
3579: pa_debug.Reset_err_stack;
3580: pa_debug.G_Err_Stage := 'Exitting Get_Rule_Attributes';
3581: IF g1_debug_mode = 'Y' THEN
3582: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3583: END IF;
3584:
3585: EXCEPTION
3586:
3723: l_nl_bill_rate NUMBER;
3724: l_nl_adjusted_bill_rate NUMBER;--4038485
3725: l_nl_markup_percentage NUMBER;
3726: BEGIN
3727: pa_debug.Set_err_stack ('Set_Base_Amount_And_Flag');
3728: pa_debug.G_Err_Stage := 'Starting Set_Base_Amount_And_Flag';
3729: IF g1_debug_mode = 'Y' THEN
3730: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3731: END IF;
3724: l_nl_adjusted_bill_rate NUMBER;--4038485
3725: l_nl_markup_percentage NUMBER;
3726: BEGIN
3727: pa_debug.Set_err_stack ('Set_Base_Amount_And_Flag');
3728: pa_debug.G_Err_Stage := 'Starting Set_Base_Amount_And_Flag';
3729: IF g1_debug_mode = 'Y' THEN
3730: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3731: END IF;
3732:
3726: BEGIN
3727: pa_debug.Set_err_stack ('Set_Base_Amount_And_Flag');
3728: pa_debug.G_Err_Stage := 'Starting Set_Base_Amount_And_Flag';
3729: IF g1_debug_mode = 'Y' THEN
3730: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3731: END IF;
3732:
3733: For i in 1 .. G_Array_Size
3734: Loop
3777: /* Added for bug 2697945 */
3778:
3779: IF(PROJ_VALUES%NOTFOUND) THEN
3780: IF g1_debug_mode = 'Y' THEN
3781: pa_debug.write_file('LOG','No Data Found for the Expenditure Item Id :'||p_expenditure_item_id(i));
3782: END IF;
3783:
3784: if PROJ_VALUES%ISOPEN THEN
3785: CLOSE PROJ_VALUES;
3815: IF (p_compute_flag(i) = 'Y' and x_error_code(i) IS NULL) THEN
3816: l_error_code := null; /** Fixed Bug: 1063455 **/
3817: l_burden_error_code := x_error_code; /* 2215942 */
3818:
3819: pa_debug.G_Err_Stage :=
3820: 'Processing EI: '||to_char(p_expenditure_item_id(i));
3821: IF g1_debug_mode = 'Y' THEN
3822: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3823: END IF;
3818:
3819: pa_debug.G_Err_Stage :=
3820: 'Processing EI: '||to_char(p_expenditure_item_id(i));
3821: IF g1_debug_mode = 'Y' THEN
3822: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
3823: END IF;
3824: IF p_cc_markup_base_code(i) = 'C' THEN
3825: -- Raw Cost
3826:
3828: IF p_denom_raw_cost_amount(i) is not null THEN
3829: x_tp_base_amount(i) := p_denom_raw_cost_amount(i);
3830: x_tp_base_curr_code(i) := p_denom_currency_code(i);
3831: IF g1_debug_mode = 'Y' THEN
3832: pa_debug.write_file('LOG','Base is raw cost');
3833: END IF;
3834: ELSE
3835: l_error_code := 'PA_CC_TP_RAW_COST_NULL';
3836: END IF;
3837:
3838: ELSIF p_cc_markup_base_code(i) = 'R' THEN
3839: -- Raw Revenue
3840: IF g1_debug_mode = 'Y' THEN
3841: pa_debug.write_file('LOG','Base is raw rev');
3842: END IF;
3843: /*The below block is added for bug 2863550 */
3844: IF(p_dist_rule.exists(i)) THEN
3845: IF (substr(p_dist_rule(i),1,4) = 'WORK') THEN
3893: END IF; /* Revenue amount is not null */
3894: /* Code Added for Bug#2469987 -- End */
3895: ELSE
3896: IF g1_debug_mode = 'Y' THEN
3897: pa_debug.write_file('LOG',
3898: 'Rev flag is '||p_revenue_distributed_flag(i));
3899: END IF;
3900: /* Added for bill rate disount and transfer price revenue*/
3901: IF (p_sys_linkage_function(i) in ('ST','OT')) then
3899: END IF;
3900: /* Added for bill rate disount and transfer price revenue*/
3901: IF (p_sys_linkage_function(i) in ('ST','OT')) then
3902: IF g1_debug_mode = 'Y' THEN
3903: pa_debug.write_file('LOG','within Assignment_Rev_Amt');
3904: END IF;
3905: pa_revenue.Assignment_Rev_Amt(
3906: p_project_id => P_project_id(i)
3907: ,p_task_id => P_task_id(i)
3949: ,p_project_raw_cost => l_project_raw_cost
3950: ,p_project_currency_code => l_project_currency_code
3951: ,x_adjusted_bill_rate => l_adjusted_bill_rate);--4038485
3952: IF g1_debug_mode = 'Y' THEN
3953: pa_debug.write_file('LOG','completed Assignment_Rev_Amt');
3954: END IF;
3955:
3956: ELSE
3957: IF g1_debug_mode = 'Y' THEN
3954: END IF;
3955:
3956: ELSE
3957: IF g1_debug_mode = 'Y' THEN
3958: pa_debug.write_file('LOG','Non Labor Revenue Amount');
3959: END IF;
3960: l_exp_func_curr_code := p_exp_func_curr_code(i);
3961: select decode(p_sys_linkage_function(i),'BTC',6,2)
3962: into l_sl_function
4020: x_adjusted_bill_rate => l_nl_adjusted_bill_rate,--4038485
4021: p_uom_flag => p_uom_flag(i));
4022:
4023: IF g1_debug_mode = 'Y' THEN
4024: pa_debug.write_file('LOG','Completed Non Labor Revenue Amount');
4025: END IF;
4026: END IF;
4027: IF g1_debug_mode = 'Y' THEN
4028: pa_debug.write_file('LOG','x_base revenue amount' || x_tp_base_amount(i) || 'code : ' ||x_tp_base_curr_code(i));
4024: pa_debug.write_file('LOG','Completed Non Labor Revenue Amount');
4025: END IF;
4026: END IF;
4027: IF g1_debug_mode = 'Y' THEN
4028: pa_debug.write_file('LOG','x_base revenue amount' || x_tp_base_amount(i) || 'code : ' ||x_tp_base_curr_code(i));
4029: END IF;
4030: IF l_msg_data is NULL then
4031: IF x_tp_base_amount(i) is NULL THEN
4032: l_error_code := 'PA_CC_TP_REV_AMT_NULL';
4052: l_burden_amt_display_method
4053: );
4054:
4055: IF g1_debug_mode = 'Y' THEN
4056: pa_debug.write_file('LOG','Project_id is: '
4057: ||to_char(p_project_id(i)));
4058:
4059: pa_debug.write_file('LOG','Burdening flag is : '
4060: ||l_burdening_allowed);
4055: IF g1_debug_mode = 'Y' THEN
4056: pa_debug.write_file('LOG','Project_id is: '
4057: ||to_char(p_project_id(i)));
4058:
4059: pa_debug.write_file('LOG','Burdening flag is : '
4060: ||l_burdening_allowed);
4061:
4062: pa_debug.write_file('LOG','burden amount allowed flag is: '
4063: ||l_burden_amt_display_method);
4058:
4059: pa_debug.write_file('LOG','Burdening flag is : '
4060: ||l_burdening_allowed);
4061:
4062: pa_debug.write_file('LOG','burden amount allowed flag is: '
4063: ||l_burden_amt_display_method);
4064: END IF;
4065:
4066: -- Check if project allows burdening
4227: END IF; /** p_cc_markup_base_code **/
4228:
4229: IF (l_error_code IS NULL) THEN
4230: IF g1_debug_mode = 'Y' THEN
4231: pa_debug.write_file('LOG','Base Amount is: '
4232: ||to_char(x_tp_base_amount(i)));
4233: pa_debug.write_file('LOG','Base currency is: '
4234: ||x_tp_base_curr_code(i));
4235: END IF;
4229: IF (l_error_code IS NULL) THEN
4230: IF g1_debug_mode = 'Y' THEN
4231: pa_debug.write_file('LOG','Base Amount is: '
4232: ||to_char(x_tp_base_amount(i)));
4233: pa_debug.write_file('LOG','Base currency is: '
4234: ||x_tp_base_curr_code(i));
4235: END IF;
4236: -- No error encountered yet
4237: IF p_calc_method_code(i) = 'A' THEN
4257: END IF;/** p_compute_flag(i) = 'Y' and x_error_code(i) IS NULL **/
4258:
4259: END LOOP;
4260:
4261: pa_debug.Reset_err_stack;
4262: pa_debug.G_Err_Stage := 'Exitting Set_Base_Amount_And_Flag';
4263: IF g1_debug_mode = 'Y' THEN
4264: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4265: END IF;
4258:
4259: END LOOP;
4260:
4261: pa_debug.Reset_err_stack;
4262: pa_debug.G_Err_Stage := 'Exitting Set_Base_Amount_And_Flag';
4263: IF g1_debug_mode = 'Y' THEN
4264: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4265: END IF;
4266:
4260:
4261: pa_debug.Reset_err_stack;
4262: pa_debug.G_Err_Stage := 'Exitting Set_Base_Amount_And_Flag';
4263: IF g1_debug_mode = 'Y' THEN
4264: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4265: END IF;
4266:
4267: EXCEPTION
4268:
4285: where proj.project_id = p_project_id
4286: and proj.project_type = type.project_type
4287: and proj.org_id = type.org_id; /** Added this condition while making changes for Org Forecasting **/
4288: BEGIN
4289: pa_debug.Set_err_stack ('Get_Burdening_Details');
4290: pa_debug.G_Err_Stage := 'Starting Get_Burdening_Details';
4291: IF g1_debug_mode = 'Y' THEN
4292: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4293: END IF;
4286: and proj.project_type = type.project_type
4287: and proj.org_id = type.org_id; /** Added this condition while making changes for Org Forecasting **/
4288: BEGIN
4289: pa_debug.Set_err_stack ('Get_Burdening_Details');
4290: pa_debug.G_Err_Stage := 'Starting Get_Burdening_Details';
4291: IF g1_debug_mode = 'Y' THEN
4292: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4293: END IF;
4294:
4288: BEGIN
4289: pa_debug.Set_err_stack ('Get_Burdening_Details');
4290: pa_debug.G_Err_Stage := 'Starting Get_Burdening_Details';
4291: IF g1_debug_mode = 'Y' THEN
4292: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4293: END IF;
4294:
4295: open c_burdening_details;
4296: fetch c_burdening_details
4296: fetch c_burdening_details
4297: into x_burdening_allowed,x_burden_amt_display_method;
4298: close c_burdening_details;
4299:
4300: pa_debug.Reset_err_stack;
4301: pa_debug.G_Err_Stage := 'Exitting Get_Burdening_Details';
4302: IF g1_debug_mode = 'Y' THEN
4303: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4304: END IF;
4297: into x_burdening_allowed,x_burden_amt_display_method;
4298: close c_burdening_details;
4299:
4300: pa_debug.Reset_err_stack;
4301: pa_debug.G_Err_Stage := 'Exitting Get_Burdening_Details';
4302: IF g1_debug_mode = 'Y' THEN
4303: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4304: END IF;
4305:
4299:
4300: pa_debug.Reset_err_stack;
4301: pa_debug.G_Err_Stage := 'Exitting Get_Burdening_Details';
4302: IF g1_debug_mode = 'Y' THEN
4303: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4304: END IF;
4305:
4306: EXCEPTION
4307:
4363: l_temp_transfer_price NUMBER;
4364:
4365:
4366: BEGIN
4367: pa_debug.Set_err_stack ('Determine_Transfer_Price');
4368: pa_debug.G_Err_Stage := 'Starting Determine_Transfer_Price';
4369: IF g1_debug_mode = 'Y' THEN
4370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4371: END IF;
4364:
4365:
4366: BEGIN
4367: pa_debug.Set_err_stack ('Determine_Transfer_Price');
4368: pa_debug.G_Err_Stage := 'Starting Determine_Transfer_Price';
4369: IF g1_debug_mode = 'Y' THEN
4370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4371: END IF;
4372: l_bill_rate_compute_flag := p_bill_rate_compute_flag;
4366: BEGIN
4367: pa_debug.Set_err_stack ('Determine_Transfer_Price');
4368: pa_debug.G_Err_Stage := 'Starting Determine_Transfer_Price';
4369: IF g1_debug_mode = 'Y' THEN
4370: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4371: END IF;
4372: l_bill_rate_compute_flag := p_bill_rate_compute_flag;
4373:
4374: l_basis_error_code := x_error_code;
4376: l_bill_error_code := x_error_code;
4377:
4378: IF G_Basis_Exists THEN
4379: IF g1_debug_mode = 'Y' THEN
4380: pa_debug.write_file('LOG','Using Basis');
4381: END IF;
4382: Get_Basis_Amount(
4383: p_tp_base_curr_code => p_tp_base_curr_code,
4384: p_tp_base_amount => p_tp_base_amount,
4392:
4393: IF G_Bill_Rate_Exists THEN
4394: -- Call Bill rate API
4395: IF g1_debug_mode = 'Y' THEN
4396: pa_debug.write_file('LOG','Using Bill Rate');
4397: END IF;
4398:
4399: pa_bill_schedule.get_computed_bill_rate(
4400: p_array_size => G_Array_Size,
4425:
4426: IF G_Burden_Rate_Exists THEN
4427: -- Call Burden rate API
4428: IF g1_debug_mode = 'Y' THEN
4429: pa_debug.write_file('LOG','Using Burden schedule');
4430: END IF;
4431: get_burden_amount(
4432: p_array_size => G_array_size,
4433: p_burden_schedule_id => p_rate_schedule_id,
4503: END IF; /** p_compute_flag(i) = 'Y' and x_error_code(i) is null **/
4504:
4505: END Loop;
4506:
4507: pa_debug.Reset_err_stack;
4508: pa_debug.G_Err_Stage := 'Exitting Determine_transfer_price';
4509: IF g1_debug_mode = 'Y' THEN
4510: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4511: END IF;
4504:
4505: END Loop;
4506:
4507: pa_debug.Reset_err_stack;
4508: pa_debug.G_Err_Stage := 'Exitting Determine_transfer_price';
4509: IF g1_debug_mode = 'Y' THEN
4510: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4511: END IF;
4512: EXCEPTION
4506:
4507: pa_debug.Reset_err_stack;
4508: pa_debug.G_Err_Stage := 'Exitting Determine_transfer_price';
4509: IF g1_debug_mode = 'Y' THEN
4510: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4511: END IF;
4512: EXCEPTION
4513:
4514: WHEN OTHERS THEN
4525: x_error_code IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp
4526: )
4527: IS
4528: BEGIN
4529: pa_debug.Set_err_stack ('Get_Basis_Amount');
4530: pa_debug.G_Err_Stage := 'Starting Get_Basis_Amount';
4531: IF g1_debug_mode = 'Y' THEN
4532: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4533: END IF;
4526: )
4527: IS
4528: BEGIN
4529: pa_debug.Set_err_stack ('Get_Basis_Amount');
4530: pa_debug.G_Err_Stage := 'Starting Get_Basis_Amount';
4531: IF g1_debug_mode = 'Y' THEN
4532: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4533: END IF;
4534: For i in 1 .. p_Array_Size
4528: BEGIN
4529: pa_debug.Set_err_stack ('Get_Basis_Amount');
4530: pa_debug.G_Err_Stage := 'Starting Get_Basis_Amount';
4531: IF g1_debug_mode = 'Y' THEN
4532: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4533: END IF;
4534: For i in 1 .. p_Array_Size
4535: Loop
4536: IF (p_compute_flag(i) = 'Y' AND x_error_code(i) IS NULL) THEN
4533: END IF;
4534: For i in 1 .. p_Array_Size
4535: Loop
4536: IF (p_compute_flag(i) = 'Y' AND x_error_code(i) IS NULL) THEN
4537: pa_debug.G_Err_Stage := 'Processing Get_Basis_Amount';
4538: IF g1_debug_mode = 'Y' THEN
4539: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4540: END IF;
4541: IF (p_tp_base_curr_code(i) IS NOT NULL
4535: Loop
4536: IF (p_compute_flag(i) = 'Y' AND x_error_code(i) IS NULL) THEN
4537: pa_debug.G_Err_Stage := 'Processing Get_Basis_Amount';
4538: IF g1_debug_mode = 'Y' THEN
4539: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4540: END IF;
4541: IF (p_tp_base_curr_code(i) IS NOT NULL
4542: and p_tp_base_amount(i) IS NOT NULL) THEN
4543: pa_debug.G_Err_Stage:='Setting currency,amount in Get_Basis_Amount';
4539: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4540: END IF;
4541: IF (p_tp_base_curr_code(i) IS NOT NULL
4542: and p_tp_base_amount(i) IS NOT NULL) THEN
4543: pa_debug.G_Err_Stage:='Setting currency,amount in Get_Basis_Amount';
4544: IF g1_debug_mode = 'Y' THEN
4545: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4546: END IF;
4547: x_denom_tp_curr_code(i) := p_tp_base_curr_code(i);
4541: IF (p_tp_base_curr_code(i) IS NOT NULL
4542: and p_tp_base_amount(i) IS NOT NULL) THEN
4543: pa_debug.G_Err_Stage:='Setting currency,amount in Get_Basis_Amount';
4544: IF g1_debug_mode = 'Y' THEN
4545: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4546: END IF;
4547: x_denom_tp_curr_code(i) := p_tp_base_curr_code(i);
4548: x_amount(i) := p_tp_base_amount(i);
4549: ELSE
4551: END IF;
4552: END IF;
4553: End Loop;
4554:
4555: pa_debug.Reset_err_stack;
4556: pa_debug.G_Err_Stage := 'Exitting Get_Basis_Amount';
4557: IF g1_debug_mode = 'Y' THEN
4558: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4559: END IF;
4552: END IF;
4553: End Loop;
4554:
4555: pa_debug.Reset_err_stack;
4556: pa_debug.G_Err_Stage := 'Exitting Get_Basis_Amount';
4557: IF g1_debug_mode = 'Y' THEN
4558: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4559: END IF;
4560:
4554:
4555: pa_debug.Reset_err_stack;
4556: pa_debug.G_Err_Stage := 'Exitting Get_Basis_Amount';
4557: IF g1_debug_mode = 'Y' THEN
4558: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4559: END IF;
4560:
4561: EXCEPTION
4562:
4590: unexpected_result exception;
4591:
4592: BEGIN
4593:
4594: pa_debug.Set_err_stack ('Get_Burden_Amount');
4595: pa_debug.G_Err_Stage := 'Starting Get_Burden_Amount';
4596: IF g1_debug_mode = 'Y' THEN
4597: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4598: END IF;
4591:
4592: BEGIN
4593:
4594: pa_debug.Set_err_stack ('Get_Burden_Amount');
4595: pa_debug.G_Err_Stage := 'Starting Get_Burden_Amount';
4596: IF g1_debug_mode = 'Y' THEN
4597: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4598: END IF;
4599:
4593:
4594: pa_debug.Set_err_stack ('Get_Burden_Amount');
4595: pa_debug.G_Err_Stage := 'Starting Get_Burden_Amount';
4596: IF g1_debug_mode = 'Y' THEN
4597: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4598: END IF;
4599:
4600: For i in 1 .. p_array_size
4601: LOOP
4608: l_effective_date := p_fixed_date(i);
4609: END IF;
4610:
4611: IF g1_debug_mode = 'Y' THEN
4612: pa_debug.write_file('LOG','Burden Schedule ID: '
4613: ||to_char(p_burden_schedule_id(i)));
4614: pa_debug.write_file('LOG','Effective Date: '
4615: ||to_char(l_effective_date));
4616: pa_debug.write_file('LOG','Expenditure Type: '
4610:
4611: IF g1_debug_mode = 'Y' THEN
4612: pa_debug.write_file('LOG','Burden Schedule ID: '
4613: ||to_char(p_burden_schedule_id(i)));
4614: pa_debug.write_file('LOG','Effective Date: '
4615: ||to_char(l_effective_date));
4616: pa_debug.write_file('LOG','Expenditure Type: '
4617: ||p_expenditure_type(i));
4618: pa_debug.write_file('LOG','Expenditure Organization ID: '
4612: pa_debug.write_file('LOG','Burden Schedule ID: '
4613: ||to_char(p_burden_schedule_id(i)));
4614: pa_debug.write_file('LOG','Effective Date: '
4615: ||to_char(l_effective_date));
4616: pa_debug.write_file('LOG','Expenditure Type: '
4617: ||p_expenditure_type(i));
4618: pa_debug.write_file('LOG','Expenditure Organization ID: '
4619: ||to_char(p_organization_id(i)));
4620: pa_debug.write_file('LOG','Raw Amount IS : '
4614: pa_debug.write_file('LOG','Effective Date: '
4615: ||to_char(l_effective_date));
4616: pa_debug.write_file('LOG','Expenditure Type: '
4617: ||p_expenditure_type(i));
4618: pa_debug.write_file('LOG','Expenditure Organization ID: '
4619: ||to_char(p_organization_id(i)));
4620: pa_debug.write_file('LOG','Raw Amount IS : '
4621: ||to_char(p_raw_amount(i)));
4622: END IF;
4616: pa_debug.write_file('LOG','Expenditure Type: '
4617: ||p_expenditure_type(i));
4618: pa_debug.write_file('LOG','Expenditure Organization ID: '
4619: ||to_char(p_organization_id(i)));
4620: pa_debug.write_file('LOG','Raw Amount IS : '
4621: ||to_char(p_raw_amount(i)));
4622: END IF;
4623:
4624: PA_COST_PLUS.Get_Burden_Amount(
4638: IF l_status = 0 THEN
4639: x_computed_currency(i) := p_raw_amount_curr_code(i);
4640: x_burden_amount(i) := l_burden_amount;
4641: IF g1_debug_mode = 'Y' THEN
4642: pa_debug.write_file('LOG','Burden Amount IS : '
4643: ||to_char(l_burden_amount));
4644: pa_debug.write_file('LOG','Burden Schedule Revision ID : '
4645: ||to_char(l_burden_sch_rev_id));
4646: pa_debug.write_file('LOG','Compilede Set ID : '
4640: x_burden_amount(i) := l_burden_amount;
4641: IF g1_debug_mode = 'Y' THEN
4642: pa_debug.write_file('LOG','Burden Amount IS : '
4643: ||to_char(l_burden_amount));
4644: pa_debug.write_file('LOG','Burden Schedule Revision ID : '
4645: ||to_char(l_burden_sch_rev_id));
4646: pa_debug.write_file('LOG','Compilede Set ID : '
4647: ||to_char(x_compiled_set_id(i)));
4648: END IF;
4642: pa_debug.write_file('LOG','Burden Amount IS : '
4643: ||to_char(l_burden_amount));
4644: pa_debug.write_file('LOG','Burden Schedule Revision ID : '
4645: ||to_char(l_burden_sch_rev_id));
4646: pa_debug.write_file('LOG','Compilede Set ID : '
4647: ||to_char(x_compiled_set_id(i)));
4648: END IF;
4649: ELSIF l_status < 0 THEN
4650: pa_debug.G_Err_Stage := 'Error in PA_COST_PLUS.Get_Burden_Amount';
4646: pa_debug.write_file('LOG','Compilede Set ID : '
4647: ||to_char(x_compiled_set_id(i)));
4648: END IF;
4649: ELSIF l_status < 0 THEN
4650: pa_debug.G_Err_Stage := 'Error in PA_COST_PLUS.Get_Burden_Amount';
4651: -- unhandled exception
4652: raise unexpected_result;
4653: ELSIF l_status > 0 THEN
4654: x_error_code(i) := 'PA_CC_TP_ERROR_BURDEN_RATE';
4657: END IF; /** (p_compute_flag = 'Y' and x_error_code IS NULL) **/
4658:
4659: End Loop;
4660:
4661: pa_debug.Reset_err_stack;
4662: pa_debug.G_Err_Stage := 'Exitting Get_Burden_Amount';
4663: IF g1_debug_mode = 'Y' THEN
4664: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4665: END IF;
4658:
4659: End Loop;
4660:
4661: pa_debug.Reset_err_stack;
4662: pa_debug.G_Err_Stage := 'Exitting Get_Burden_Amount';
4663: IF g1_debug_mode = 'Y' THEN
4664: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4665: END IF;
4666:
4660:
4661: pa_debug.Reset_err_stack;
4662: pa_debug.G_Err_Stage := 'Exitting Get_Burden_Amount';
4663: IF g1_debug_mode = 'Y' THEN
4664: pa_debug.write_file('LOG',pa_debug.G_Err_Stage);
4665: END IF;
4666:
4667: EXCEPTION
4668:
4979:
4980: BEGIN
4981:
4982: IF p_debug_mode = 'Y' THEN
4983: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'ENTERING Get_Initial_Transfer_Price', 3);
4984: END IF;
4985:
4986: x_return_status := FND_API.G_RET_STS_SUCCESS;
4987:
4986: x_return_status := FND_API.G_RET_STS_SUCCESS;
4987:
4988: Open Cur_Forecast_Items(p_assignment_id, p_start_date);
4989:
4990: PA_DEBUG.g_err_stage := 'Fetching Cur_Forecast_Items';
4991: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4992:
4993: l_fi_id_tab.delete;
4994: l_fi_item_type_tab.delete;
4987:
4988: Open Cur_Forecast_Items(p_assignment_id, p_start_date);
4989:
4990: PA_DEBUG.g_err_stage := 'Fetching Cur_Forecast_Items';
4991: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
4992:
4993: l_fi_id_tab.delete;
4994: l_fi_item_type_tab.delete;
4995: l_fi_exp_orgid_tab.delete;
5046:
5047: CLOSE Cur_Forecast_Items;
5048:
5049: IF p_debug_mode = 'Y' THEN
5050: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Cursor cur_forecast_items_fetched', 3);
5051: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'f id:'||l_fi_id_tab(1)||' org id'||l_fi_exp_orgid_tab(1));
5052: END IF;
5053:
5054:
5047: CLOSE Cur_Forecast_Items;
5048:
5049: IF p_debug_mode = 'Y' THEN
5050: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Cursor cur_forecast_items_fetched', 3);
5051: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'f id:'||l_fi_id_tab(1)||' org id'||l_fi_exp_orgid_tab(1));
5052: END IF;
5053:
5054:
5055: l_cc_taskid_tab(1) := NULL;
5093: X_Error_Code => lx_cc_error_code
5094: );
5095:
5096: IF p_debug_mode = 'Y' THEN
5097: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Procedure PA_CC_IDENTIFY_TXN_FI executed', 3);
5098: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Status :'||lx_cc_status_tab(1), 3);
5099: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'cc code:'||lx_cc_code_tab(1), 3);
5100: END IF;
5101:
5094: );
5095:
5096: IF p_debug_mode = 'Y' THEN
5097: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Procedure PA_CC_IDENTIFY_TXN_FI executed', 3);
5098: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Status :'||lx_cc_status_tab(1), 3);
5099: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'cc code:'||lx_cc_code_tab(1), 3);
5100: END IF;
5101:
5102:
5095:
5096: IF p_debug_mode = 'Y' THEN
5097: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Procedure PA_CC_IDENTIFY_TXN_FI executed', 3);
5098: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Status :'||lx_cc_status_tab(1), 3);
5099: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'cc code:'||lx_cc_code_tab(1), 3);
5100: END IF;
5101:
5102:
5103: If lx_cc_code_tab(1) in ('I', 'B') AND lx_cc_status_tab(1) is NULL THEN
5195: /* ends here */
5196: EXCEPTION
5197: WHEN NO_DATA_FOUND THEN
5198: IF p_debug_mode = 'Y' THEN
5199: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'No data found in pa_project_role_types', 3);
5200: END IF;
5201: l_asg_fcst_job_id := NULL;
5202: l_asg_fcst_job_group_id := NULL;
5203: WHEN OTHERS THEN
5200: END IF;
5201: l_asg_fcst_job_id := NULL;
5202: l_asg_fcst_job_group_id := NULL;
5203: WHEN OTHERS THEN
5204: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';
5205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
5206: END;
5207: END IF;
5208:
5201: l_asg_fcst_job_id := NULL;
5202: l_asg_fcst_job_group_id := NULL;
5203: WHEN OTHERS THEN
5204: PA_DEBUG.g_err_stage := 'Inside Prj Role others Excep';
5205: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
5206: END;
5207: END IF;
5208:
5209: Open FI_Attributes(l_fi_proj_orgid_tab(1), l_fi_exptype_tab(1), l_fi_pvdr_papd_tab(1), l_fi_exp_orgid_tab(1));
5213: l_qty_tab.delete;
5214: l_qty_tab(1) := 1;
5215:
5216: IF p_debug_mode = 'Y' THEN
5217: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Just Calling PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5218: END IF;
5219:
5220: PA_RATE_PVT_PKG.CALC_RATE_AMOUNT(
5221: P_CALLING_MODE => l_calling_mode,
5314: X_MSG_DATA => lx_rt_msg_data
5315: );
5316:
5317: IF p_debug_mode = 'Y' THEN
5318: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Done With the PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5315: );
5316:
5317: IF p_debug_mode = 'Y' THEN
5318: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Done With the PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5323: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_others_rejct_reason_tab.count:'||lx_rt_others_rejct_reason_tab.count, 3);
5316:
5317: IF p_debug_mode = 'Y' THEN
5318: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Done With the PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5323: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_others_rejct_reason_tab.count:'||lx_rt_others_rejct_reason_tab.count, 3);
5324: END IF;
5317: IF p_debug_mode = 'Y' THEN
5318: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Done With the PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5323: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_others_rejct_reason_tab.count:'||lx_rt_others_rejct_reason_tab.count, 3);
5324: END IF;
5325:
5318: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Done With the PA_RATE_PVT_PKG.CALC_RATE_AMOUNT', 3);
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5323: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_others_rejct_reason_tab.count:'||lx_rt_others_rejct_reason_tab.count, 3);
5324: END IF;
5325:
5326:
5319: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'x_return status for calc_rate_amount is:'||x_return_status, 3);
5320: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_rev_rejct_reason_tab COUNT:'||lx_rt_rev_rejct_reason_tab.count, 3);
5321: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_cst_rejct_reason_tab.count :'||lx_rt_cst_rejct_reason_tab.count, 3);
5322: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_bd_rejct_reason_tab.count:'||lx_rt_bd_rejct_reason_tab.count, 3);
5323: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'lx_rt_others_rejct_reason_tab.count:'||lx_rt_others_rejct_reason_tab.count, 3);
5324: END IF;
5325:
5326:
5327: ERROR_OCCURED := 'N';
5332:
5333: If lx_rt_rev_rejct_reason_tab.exists(1) THEN
5334: IF lx_rt_rev_rejct_reason_tab(1) IS NOT NULL THEN
5335: IF p_debug_mode = 'Y' THEN
5336: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Rev Reject:'||lx_rt_rev_rejct_reason_tab(1), 3);
5337: END IF;
5338: ERROR_OCCURED := 'Y';
5339: END IF;
5340: END IF;
5341:
5342: IF lx_rt_cst_rejct_reason_tab.exists(1) THEN
5343: IF lx_rt_cst_rejct_reason_tab(1) IS NOT NULL THEN
5344: IF p_debug_mode = 'Y' THEN
5345: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Raw Cost Reject:'||lx_rt_cst_rejct_reason_tab(1), 3);
5346: END IF;
5347: ERROR_OCCURED := 'Y';
5348: END IF;
5349: END IF;
5350:
5351: IF lx_rt_bd_rejct_reason_tab.exists(1) THEN
5352: IF lx_rt_bd_rejct_reason_tab(1) IS NOT NULL THEN
5353: IF p_debug_mode = 'Y' THEN
5354: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Burden Cost Reject:'||lx_rt_bd_rejct_reason_tab(1), 3);
5355: END IF;
5356: ERROR_OCCURED := 'Y';
5357: END IF;
5358: END IF;
5359:
5360: IF lx_rt_others_rejct_reason_tab.exists(1) THEN
5361: IF lx_rt_others_rejct_reason_tab(1) IS NOT NULL THEN
5362: IF p_debug_mode = 'Y' THEN
5363: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Other Reject:'||lx_rt_others_rejct_reason_tab(1), 3);
5364: END IF;
5365: ERROR_OCCURED := 'Y';
5366: END IF;
5367: END IF;
5367: END IF;
5368:
5369: IF ERROR_OCCURED = 'Y' THEN
5370: IF p_debug_mode = 'Y' THEN
5371: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Some Error Occurred, Returning null as Rate', 3);
5372: END IF;
5373: x_transfer_price_rate := NULL;
5374: x_transfer_pr_rate_curr := NULL;
5375: x_return_status := FND_API.G_RET_STS_SUCCESS;
5457:
5458: lx_asg_precedes_task_tab(1) := l_asg_precedes_task; -- Added for bug 3255061
5459:
5460: IF p_debug_mode = 'Y' THEN
5461: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'PA_CC_TRANSFER_PRICE.GET_TRANSFER_PRICE calling', 3);
5462: END IF;
5463:
5464: PA_CC_TRANSFER_PRICE.GET_TRANSFER_PRICE(
5465: p_module_name => 'FORECAST',
5523: x_error_code => lx_tp_error_code,
5524: x_return_status => lx_tp_return_status );
5525:
5526: IF p_debug_mode = 'Y' THEN
5527: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'status is : '||lx_tp_return_status, 3);
5528: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'rate is :'||x_transfer_price_rate||' curr :'||x_transfer_pr_rate_curr, 3);
5529: END IF;
5530:
5531: If lx_tp_return_status <> 0 THEN
5524: x_return_status => lx_tp_return_status );
5525:
5526: IF p_debug_mode = 'Y' THEN
5527: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'status is : '||lx_tp_return_status, 3);
5528: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'rate is :'||x_transfer_price_rate||' curr :'||x_transfer_pr_rate_curr, 3);
5529: END IF;
5530:
5531: If lx_tp_return_status <> 0 THEN
5532: x_transfer_price_rate := NULL;
5540: END IF;
5541: END IF;
5542: ELSE
5543: IF p_debug_mode = 'Y' THEN
5544: pa_debug.write('PA_CC_TRANSFER_PRICE.Get_Initial_Transfer_Price', 'Returning with Null as value', 3);
5545: END IF;
5546: x_transfer_price_rate := NULL;
5547: x_transfer_pr_rate_curr := NULL;
5548: END IF;
5550: x_return_status := FND_API.G_RET_STS_SUCCESS;
5551: EXCEPTION
5552: WHEN OTHERS THEN
5553: If p_debug_mode = 'Y' THEN
5554: pa_debug.write('PA_CC_TRANSFER_PRICE.GET_INITIAL_TRANSFER_PRICE', 'Unhandled Exception occured', 3);
5555: End if;
5556: /*Added for File.sql.39*/
5557: x_transfer_price_rate := NULL;
5558: x_transfer_pr_rate_curr := NULL;