[Home] [Help]
81: X_proj_bcost_flag VARCHAR2(10) DEFAULT 'N';
82: BEGIN
83: SELECT nvl(burden_cost_flag,'N')
84: INTO X_proj_bcost_flag
85: FROM pa_projects_all proj,
86: pa_project_types_all ptype
87: WHERE proj.project_type = ptype.project_type
88: AND nvl(proj.org_id, -99) = nvl(ptype.org_id,-99)
89: AND project_id = p_Project_id ;
139: BEGIN
140:
141: SELECT 'Y'
142: INTO l_billable
143: FROM pa_projects_all pp,
144: pa_tasks t,
145: pa_project_types_all pt /** Bug fix 2262118 **/
146: WHERE t.task_id = p_task_id
147: AND pp.project_id = t.project_id
2364: ,l_old_billability
2365: FROM pa_expenditure_items_all EI
2366: ,pa_transaction_sources tr
2367: ,pa_project_types_all pt /** Bug fix 2262118 **/
2368: ,pa_projects_all pp
2369: -- ,pa_tasks t /* Bug 3457922 */
2370: WHERE tr.transaction_source(+) = ei.transaction_source
2371: AND ei.expenditure_item_id = ItemsIdTab(i)
2372: -- AND t.task_id = ei.task_id /* Bug 3457922 */
3776: --IF X_project_currency_code is NULL then
3777: BEGIN
3778: SELECT decode(project_currency_code,NULL,projfunc_currency_code,project_currency_code)
3779: INTO l_project_currency_code
3780: FROM pa_projects_all
3781: WHERE project_id = x_dest_prj_id;
3782: EXCEPTION
3783: WHEN NO_DATA_FOUND then
3784: Raise;
5562: l_source_expenditure_item_id PA_EXPENDITURE_ITEMS_ALL.SOURCE_EXPENDITURE_ITEM_ID%TYPE;
5563: l_acct_currency_code PA_EXPENDITURE_ITEMS_ALL.ACCT_CURRENCY_CODE%TYPE;
5564: l_adjusted_expenditure_item_id PA_EXPENDITURE_ITEMS_ALL.ADJUSTED_EXPENDITURE_ITEM_ID%TYPE;
5565: l_orig_transaction_reference PA_EXPENDITURE_ITEMS_ALL.ORIG_TRANSACTION_REFERENCE%TYPE;
5566: l_project_status_code PA_PROJECTS_ALL.PROJECT_STATUS_CODE%TYPE;
5567: l_adjust_allowed BOOLEAN := TRUE;
5568: l_award_id GMS_AWARDS_ALL.AWARD_ID%TYPE; /* Bug 5436420 */
5569: l_project_id_cache PA_PROJECTS_ALL.PROJECT_ID%TYPE := -1; /* Bug 5441891 */
5570: l_transaction_source_cache PA_TRANSACTION_SOURCES.TRANSACTION_SOURCE%TYPE := 'NULL'; /* Bug 5441891 */
5565: l_orig_transaction_reference PA_EXPENDITURE_ITEMS_ALL.ORIG_TRANSACTION_REFERENCE%TYPE;
5566: l_project_status_code PA_PROJECTS_ALL.PROJECT_STATUS_CODE%TYPE;
5567: l_adjust_allowed BOOLEAN := TRUE;
5568: l_award_id GMS_AWARDS_ALL.AWARD_ID%TYPE; /* Bug 5436420 */
5569: l_project_id_cache PA_PROJECTS_ALL.PROJECT_ID%TYPE := -1; /* Bug 5441891 */
5570: l_transaction_source_cache PA_TRANSACTION_SOURCES.TRANSACTION_SOURCE%TYPE := 'NULL'; /* Bug 5441891 */
5571: l_commit_count NUMBER := 0; /* Bug 5501593 */
5572: /* R12 Changes - End */
5573:
5731:
5732: if x_billable_flag is not null then
5733: where_clause := where_clause || ' AND 1 = (SELECT 1'
5734: || ' FROM pa_project_types_all pt'
5735: || ' , pa_projects_all p'
5736: || ' WHERE p.project_type = pt.project_type'
5737: || ' AND p.org_id = pt.org_id'
5738: || ' AND p.project_id = ei.project_id'
5739: || ' AND pt.project_type_class_code <> ''CAPITAL'')'
5770:
5771: if x_revenue_distributed_flag is not null then
5772: where_clause := where_clause || ' AND 1 = (SELECT 1'
5773: || ' FROM pa_project_types_all pt'
5774: || ' , pa_projects_all p'
5775: || ' WHERE p.project_type = pt.project_type'
5776: || ' AND p.org_id = pt.org_id'
5777: || ' AND p.project_id = ei.project_id'
5778: || ' AND pt.project_type_class_code <> ''CAPITAL'')'
5992:
5993: if x_capitalizable_flag is not null then
5994: where_clause := where_clause || ' AND 1 = (SELECT 1'
5995: || ' FROM pa_project_types_all pt'
5996: || ' , pa_projects_all p'
5997: || ' WHERE p.project_type = pt.project_type'
5998: || ' AND p.org_id = pt.org_id'
5999: || ' AND p.project_id = ei.project_id'
6000: || ' AND pt.project_type_class_code = ''CAPITAL'')'
6003:
6004: if x_grouped_cip_flag is not null then
6005: where_clause := where_clause || ' AND 1 = (SELECT 1'
6006: || ' FROM pa_project_types_all pt'
6007: || ' , pa_projects_all p'
6008: || ' WHERE p.project_type = pt.project_type'
6009: || ' AND p.org_id = pt.org_id'
6010: || ' AND p.project_id = ei.project_id'
6011: || ' AND pt.project_type_class_code = ''CAPITAL'')'
6018:
6019: if p_grouped_rwip_flag is not null then
6020: where_clause := where_clause || ' AND 1 = (SELECT 1'
6021: || ' FROM pa_project_types_all pt'
6022: || ' , pa_projects_all p'
6023: || ' WHERE p.project_type = pt.project_type'
6024: || ' AND p.org_id = pt.org_id'
6025: || ' AND p.project_id = ei.project_id'
6026: || ' AND pt.project_type_class_code = ''CAPITAL'')'
6033:
6034: if p_expensed_flag = 'Y' then /* Bug 5393328 */
6035: where_clause := where_clause || ' AND 1 = (SELECT 1'
6036: || ' FROM pa_project_types_all pt'
6037: || ' , pa_projects_all p'
6038: || ' WHERE p.project_type = pt.project_type'
6039: || ' AND p.org_id = pt.org_id'
6040: || ' AND p.project_id = ei.project_id'
6041: || ' AND pt.project_type_class_code = ''CAPITAL'')'
6400: , p.project_status_code
6401: INTO v_project_type_class_code
6402: , l_project_status_code
6403: FROM pa_project_types_all pt
6404: , pa_projects_all p
6405: WHERE p.project_type = pt.project_type
6406: AND p.org_id = pt.org_id
6407: AND p.project_id = l_project_id;
6408: l_project_id_cache := l_project_id;
6819: l_start_date DATE;
6820: l_end_date DATE;
6821: cursor proj_start_end_date is
6822: select start_date, completion_date
6823: from pa_projects_all
6824: where project_id = X_dest_prj_id;
6825: begin
6826: open proj_start_end_date;
6827: fetch proj_start_end_date into l_start_date, l_end_date;
9660: l_rate_sch_id pa_std_bill_rate_schedules_all.bill_rate_sch_id%TYPE;
9661: l_acct_rate_type pa_expenditure_items_all.acct_rate_type%TYPE;
9662: l_acct_rate_date_code pa_implementations_all.acct_rate_date_code%TYPE;
9663: l_acct_exch_rate pa_org_labor_sch_rule.acct_exchange_rate%TYPE;
9664: l_ot_project_id pa_projects_all.project_id%TYPE;
9665: l_ot_task_id pa_tasks.task_id%TYPE;
9666: l_err_stage number;
9667: l_err_code varchar2(1000);
9668: OTHERS_EXCEPTION EXCEPTION;