DBA Data[Home] [Help]

APPS.PA_COST1 dependencies on PA_COST1

Line 1: package body PA_COST1 as

1: package body PA_COST1 as
2: -- $Header: PAXCSR1B.pls 120.9 2011/07/10 05:41:48 racheruv ship $
3:
4: g_debug_flag Varchar2(10) ;
5:

Line 32: l_module varchar2(100) := 'PA_COST1';

28: PROCEDURE print_msg(p_debug_flag varchar2
29: ,p_msg varchar2 Default NULL) IS
30:
31: l_msg varchar2(1000);
32: l_module varchar2(100) := 'PA_COST1';
33: BEGIN
34: --calc_log(p_msg);
35: If p_debug_flag = 'Y' Then
36: l_msg := substr(p_msg,1,1000);

Line 154: PA_DEBUG.init_err_stack ('PA_COST1.get_projLevel_BurdSchds');

150: End If;
151: l_debug_flag := NVL(g_debug_flag,'N');
152: IF ( l_debug_flag = 'Y' )
153: THEN
154: PA_DEBUG.init_err_stack ('PA_COST1.get_projLevel_BurdSchds');
155: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
156: ,x_write_file => 'LOG'
157: ,x_debug_mode => l_debug_flag
158: );

Line 484: IF ((pa_cost1.g_project_type is NULL OR pa_cost1.g_project_type <> p_project_type )

480:
481: l_burden_flag varchar2(10) := 'N';
482: BEGIN
483: /* Bug fix: 4230258 Use one-level cache logic so that executing cursor will be avoided */
484: IF ((pa_cost1.g_project_type is NULL OR pa_cost1.g_project_type <> p_project_type )
485: OR (pa_cost1.g_project_id is NULL or pa_cost1.g_project_id <> p_project_id)) Then
486:
487: OPEN cur_burden_flag;
488: FETCH cur_burden_flag INTO l_burden_flag;

Line 485: OR (pa_cost1.g_project_id is NULL or pa_cost1.g_project_id <> p_project_id)) Then

481: l_burden_flag varchar2(10) := 'N';
482: BEGIN
483: /* Bug fix: 4230258 Use one-level cache logic so that executing cursor will be avoided */
484: IF ((pa_cost1.g_project_type is NULL OR pa_cost1.g_project_type <> p_project_type )
485: OR (pa_cost1.g_project_id is NULL or pa_cost1.g_project_id <> p_project_id)) Then
486:
487: OPEN cur_burden_flag;
488: FETCH cur_burden_flag INTO l_burden_flag;
489: CLOSE cur_burden_flag;

Line 491: pa_cost1.g_project_type := p_project_type;

487: OPEN cur_burden_flag;
488: FETCH cur_burden_flag INTO l_burden_flag;
489: CLOSE cur_burden_flag;
490: --print_msg(g_debug_flag,'Executing cursor to get burden cost flag');
491: pa_cost1.g_project_type := p_project_type;
492: pa_cost1.g_project_id := p_project_id;
493: pa_cost1.g_burden_costFlag := l_burden_flag;
494: Else
495: --print_msg(g_debug_flag,'Getting from cache');

Line 492: pa_cost1.g_project_id := p_project_id;

488: FETCH cur_burden_flag INTO l_burden_flag;
489: CLOSE cur_burden_flag;
490: --print_msg(g_debug_flag,'Executing cursor to get burden cost flag');
491: pa_cost1.g_project_type := p_project_type;
492: pa_cost1.g_project_id := p_project_id;
493: pa_cost1.g_burden_costFlag := l_burden_flag;
494: Else
495: --print_msg(g_debug_flag,'Getting from cache');
496: l_burden_flag := pa_cost1.g_burden_costFlag;

Line 493: pa_cost1.g_burden_costFlag := l_burden_flag;

489: CLOSE cur_burden_flag;
490: --print_msg(g_debug_flag,'Executing cursor to get burden cost flag');
491: pa_cost1.g_project_type := p_project_type;
492: pa_cost1.g_project_id := p_project_id;
493: pa_cost1.g_burden_costFlag := l_burden_flag;
494: Else
495: --print_msg(g_debug_flag,'Getting from cache');
496: l_burden_flag := pa_cost1.g_burden_costFlag;
497: End If;

Line 496: l_burden_flag := pa_cost1.g_burden_costFlag;

492: pa_cost1.g_project_id := p_project_id;
493: pa_cost1.g_burden_costFlag := l_burden_flag;
494: Else
495: --print_msg(g_debug_flag,'Getting from cache');
496: l_burden_flag := pa_cost1.g_burden_costFlag;
497: End If;
498: RETURN l_burden_flag;
499:
500: END check_proj_burdened;

Line 678: PA_DEBUG.init_err_stack ('PA_COST1.Get_Plan_Actual_Cost_Rates');

674: g_debug_flag := NVL(g_debug_flag, 'N');
675: End If;
676: l_debug_flag := NVL(g_debug_flag,'N');
677: IF l_debug_flag = 'Y' Then
678: PA_DEBUG.init_err_stack ('PA_COST1.Get_Plan_Actual_Cost_Rates');
679: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
680: ,x_write_file => 'LOG'
681: ,x_debug_mode => l_debug_flag
682: );

Line 688: l_stage := 'Inside PA_COST1.Get_Plan_Actual_Cost_Rates API';

684:
685: /* Derive the Rate Organization Id from the params*/
686: l_rate_organization_id := NVL(p_override_organization_id,NVL(p_incurred_by_organization_id,p_nlr_organization_id));
687:
688: l_stage := 'Inside PA_COST1.Get_Plan_Actual_Cost_Rates API';
689: l_stage := l_stage||' IN PARAMS mode['||p_calling_mode||']Proj Type['||p_project_type||
690: ']Proj Id['||p_project_id||']TaskId['||p_task_id||']TopTask['||p_top_task_id||
691: ']Ei Date['||p_Exp_item_date||']ExpType['||p_expenditure_type||
692: ']ResClass['||p_resource_class||']Personid['||p_person_id||']NLR['||p_non_labor_resource||

Line 1431: pa_cost1.Get_Non_Labor_raw_cost

1427: -- Call non-labor raw cost api
1428: l_stage := 'Calling Non Labor raw cost API';
1429: print_msg(l_debug_flag,l_stage);
1430: If (p_non_labor_resource is NOT NULL and p_expenditure_type is NOT NULL ) Then
1431: pa_cost1.Get_Non_Labor_raw_cost
1432: (p_project_id => p_project_id
1433: ,p_task_id => p_task_id
1434: ,p_non_labor_resource => p_non_labor_resource
1435: ,p_nlr_organization_id => p_nlr_organization_id

Line 1536: pa_cost1.get_RateSchDetails

1532: l_cost_rate_multiplier := NULL;
1533: End If;
1534: l_stage := 'Calling get_RateSchDetails SchType['||l_bill_rate_schedule_type||']SchId['||l_bill_rate_sch_id||']';
1535: print_msg(l_debug_flag,l_stage);
1536: pa_cost1.get_RateSchDetails
1537: (p_schedule_type => l_bill_rate_schedule_type
1538: ,p_rate_sch_id => l_bill_rate_sch_id
1539: ,p_person_id => p_person_id
1540: ,p_job_id => p_job_id

Line 1575: pa_cost1.get_RateSchDetails

1571: l_stage := 'Calling get_RateSchDetails SchType['
1572: ||l_bill_rate_schedule_type||']SchId['
1573: ||l_bill_rate_sch_id||']';
1574: print_msg(l_debug_flag,l_stage);
1575: pa_cost1.get_RateSchDetails
1576: (p_schedule_type => l_bill_rate_schedule_type
1577: ,p_rate_sch_id => l_bill_rate_sch_id
1578: ,p_person_id => p_person_id
1579: ,p_job_id => p_job_id

Line 1621: l_proj_flag := pa_cost1.check_proj_burdened(p_project_type,p_project_id);

1617: ']CurrCode['||x_trxn_curr_code||']';
1618: print_msg(l_debug_flag,l_stage);
1619: /* End of Raw Cost calculation*/
1620:
1621: l_proj_flag := pa_cost1.check_proj_burdened(p_project_type,p_project_id);
1622: print_msg(l_debug_flag,'ProjBurdFlag['||l_proj_flag||']');
1623: -- Check if project type is burdened if so calculate the burdened costs
1624:
1625: /**** Burden cost Calculation Starts here */

Line 1670: ElsIf ( pa_cost1.check_proj_burdened(p_project_type,p_project_id) = 'Y' ) Then

1666: Else
1667: l_burden_multiplier := 0;
1668: End If;
1669:
1670: ElsIf ( pa_cost1.check_proj_burdened(p_project_type,p_project_id) = 'Y' ) Then
1671:
1672: l_stage := 'Calling PA_COST1.Get_burden_sch_details API';
1673: print_msg(l_debug_flag,l_stage);
1674: pa_cost1.Get_burden_sch_details

Line 1672: l_stage := 'Calling PA_COST1.Get_burden_sch_details API';

1668: End If;
1669:
1670: ElsIf ( pa_cost1.check_proj_burdened(p_project_type,p_project_id) = 'Y' ) Then
1671:
1672: l_stage := 'Calling PA_COST1.Get_burden_sch_details API';
1673: print_msg(l_debug_flag,l_stage);
1674: pa_cost1.Get_burden_sch_details
1675: (p_calling_mode => p_calling_mode
1676: ,p_exp_item_id => NULL

Line 1674: pa_cost1.Get_burden_sch_details

1670: ElsIf ( pa_cost1.check_proj_burdened(p_project_type,p_project_id) = 'Y' ) Then
1671:
1672: l_stage := 'Calling PA_COST1.Get_burden_sch_details API';
1673: print_msg(l_debug_flag,l_stage);
1674: pa_cost1.Get_burden_sch_details
1675: (p_calling_mode => p_calling_mode
1676: ,p_exp_item_id => NULL
1677: ,p_trxn_type => NULL
1678: ,p_project_type => p_project_type

Line 1799: x_error_msg_code := 'PA_COST1_INVALID_PARAMS';

1795: x_error_msg_code := 'PA_INVALID_PLAN_FIN_PARAMS';
1796: End If;
1797: End If;
1798: If x_error_msg_code is NULL Then
1799: x_error_msg_code := 'PA_COST1_INVALID_PARAMS';
1800: End If;
1801: x_return_status := 'E';
1802: print_msg(l_debug_flag,l_stage);
1803: If l_debug_flag = 'Y' Then

Line 1926: PA_DEBUG.init_err_stack ('PA_COST1.Get_Non_Labor_raw_cost');

1922: g_debug_flag := NVL(g_debug_flag, 'N');
1923: End If;
1924: l_debug_flag := NVL(g_debug_flag,'N');
1925: IF l_debug_flag = 'Y' Then
1926: PA_DEBUG.init_err_stack ('PA_COST1.Get_Non_Labor_raw_cost');
1927: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
1928: ,x_write_file => 'LOG'
1929: ,x_debug_mode => l_debug_flag
1930: );

Line 1940: l_stage := 'Inside PA_COST1.Get_Non_Labor_raw_cost API CostRateFlag['||l_exp_cost_rate_flag||']' ;

1936: l_cost_rate_curr_code := Null;
1937:
1938: l_exp_cost_rate_flag := check_expCostRateFlag(p_expenditure_type);
1939:
1940: l_stage := 'Inside PA_COST1.Get_Non_Labor_raw_cost API CostRateFlag['||l_exp_cost_rate_flag||']' ;
1941: print_msg(l_debug_flag,l_stage);
1942:
1943: /* get the currency code */
1944: l_stage := 'Getting currency code the for the given OU';

Line 2135: PA_DEBUG.init_err_stack ('PA_COST1.Get_burden_sch_details');

2131: g_debug_flag := NVL(g_debug_flag, 'N');
2132: End If;
2133: l_debug_flag := NVL(g_debug_flag,'N');
2134: IF l_debug_flag = 'Y' Then
2135: PA_DEBUG.init_err_stack ('PA_COST1.Get_burden_sch_details');
2136: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
2137: ,x_write_file => 'LOG'
2138: ,x_debug_mode => l_debug_flag
2139: );

Line 2711: PA_DEBUG.init_err_stack ('PA_COST1.Convert_COST_TO_PC_PFC');

2707: g_debug_flag := NVL(g_debug_flag, 'N');
2708: End If;
2709: l_debug_flag := NVL(g_debug_flag,'N');
2710: If l_debug_flag = 'Y' Then
2711: PA_DEBUG.init_err_stack ('PA_COST1.Convert_COST_TO_PC_PFC');
2712: PA_DEBUG.SET_PROCESS( x_process => 'PLSQL'
2713: ,x_write_file => 'LOG'
2714: ,x_debug_mode => l_debug_flag
2715: );

Line 2892: END PA_COST1;

2888: End If;
2889:
2890: END Convert_COST_TO_PC_PFC;
2891:
2892: END PA_COST1;