[Home] [Help]
1: PACKAGE BODY gms_pa_api3 AS
2: /* $Header: gmspax3b.pls 120.8 2008/01/24 09:00:32 prabsing ship $ */
3:
4: /* added as part of bug 6761516 */
5: TYPE t_numb_tab is table of number index by binary_integer;
85: IF p_tran_item_id is NULL THEN
86: return ;
87: END IF ;
88:
89: gms_pa_api.Override_Rate_Rev_Id(
90: p_tran_item_id,
91: p_tran_type ,
92: p_task_id ,
93: p_schedule_type ,
2299: -- p_project_type varchar2
2300: -- End of comments
2301: -- ===============
2302: -- bug reference : 3596872
2303: -- problem : Please put the SELECT statement in the api :- GMS_PA_API3.IS_PROJECT_TYPE_SPONSORED in a cursor.
2304: -- If no record is found, the api should return 'N'.
2305: -- Otherwise, it is throwing a NO-DATA-FOUND error.
2306: -- Situation : When new project type is being created and not saved yet.
2307: --
2396: WHERE (ITEM.ind_compiled_set_id = p_ind_compiled_set_id
2397: AND ITEM.enc_distributed_flag = 'Y')
2398: AND NVL(ITEM.net_zero_adjustment_flag,'N') <> 'Y'
2399: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2400: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2401: AND exists (select /*+ NO_UNNEST */ null
2402: from pa_cost_base_exp_types cbet
2403: where cbet.cost_base = p_g_impacted_cost_bases
2404: AND cbet.cost_plus_structure = p_g_cp_structure
2480: NVL(p_end_date, cost_ind_sch_fixed_date))
2481: AND nvl(ei.net_zero_adjustment_flag, 'N') <>'Y'
2482: AND pa_project_stus_utils.Is_Project_Closed(ei.project_id) <>'Y'
2483: AND pa_utils2.Proj_Type_Burden_Disp_Method(ei.project_id) = 'D'
2484: AND gms_pa_api2.is_award_closed(ei.encumbrance_item_id,ei.task_id, 'ENC') = 'N';*/
2485: elsif p_mode = 'N' then --Update based on task.cost_ind_sch_fixed_date IS NULL then go by enc_item_date
2486: NULL;
2487: --update commented for the Bug#5989869
2488: /*UPDATE gms_encumbrance_items_all ei
2501: WHERE task.task_id = ei.task_id
2502: AND task.cost_ind_sch_fixed_date IS NULL)
2503: AND nvl(ei.net_zero_adjustment_flag, 'N') <>'Y'
2504: AND pa_project_stus_utils.Is_Project_Closed(ei.project_id) <> 'Y'
2505: AND gms_pa_api2.is_award_closed(ei.encumbrance_item_id,ei.task_id, 'ENC') = 'N'
2506: AND pa_utils2.Proj_Type_Burden_Disp_Method(ei.project_id) = 'D';*/
2507: elsif p_mode = 'O' then --Update based on enc_item_date
2508: UPDATE gms_encumbrance_items_all ei
2509: SET enc_distributed_flag = 'N' ,
2516: AND ei.encumbrance_item_date between p_start_date and nvl(p_end_date, ei.encumbrance_item_date) --Bug#5989869; Removed TRUNC
2517: AND nvl(ei.net_zero_adjustment_flag, 'N') <> 'Y'
2518: AND pa_project_stus_utils.Is_Project_Closed(ei.project_id) <> 'Y'
2519: --AND pa_utils2.Proj_Type_Burden_Disp_Method(ei.project_id) = 'D' commented for bug#5989869
2520: AND gms_pa_api2.is_award_closed(ei.encumbrance_item_id,ei.task_id, 'ENC') = 'N';
2521: end if;
2522: exception
2523: when others then
2524: errbuf := sqlcode;
2644: ,decode((select top_task_id
2645: from pa_tasks
2646: where task_id = ITEM.task_id), p_task_id ,1
2647: ,2))*/
2648: AND gms_pa_api3.item_task_validate(p_award_id, p_project_id, p_task_id, ITEM.task_id) = 'Y'
2649: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2650: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2651: AND EXISTS ( select null
2652: from gms_award_distributions adl
2646: where task_id = ITEM.task_id), p_task_id ,1
2647: ,2))*/
2648: AND gms_pa_api3.item_task_validate(p_award_id, p_project_id, p_task_id, ITEM.task_id) = 'Y'
2649: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2650: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2651: AND EXISTS ( select null
2652: from gms_award_distributions adl
2653: where adl.expenditure_item_id = ITEM.encumbrance_item_id
2654: and adl.award_id = p_award_id )
2681: ITEM.request_id = x_request_id
2682: WHERE ITEM.enc_distributed_flag = 'Y'
2683: AND NVL(ITEM.net_zero_adjustment_flag,'N') <> 'Y'
2684: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2685: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2686: AND EXISTS
2687: ( select null
2688: from gms_award_distributions adl
2689: where adl.expenditure_item_id = ITEM.encumbrance_item_id
2740: ,decode((select top_task_id
2741: from pa_tasks
2742: where task_id = ITEM.task_id), p_task_id ,1
2743: ,2))*/
2744: AND gms_pa_api3.item_task_validate(p_award_id, p_project_id, p_task_id, ITEM.task_id) = 'Y'
2745: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2746: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2747: AND EXISTS ( select null
2748: from gms_award_distributions adl
2742: where task_id = ITEM.task_id), p_task_id ,1
2743: ,2))*/
2744: AND gms_pa_api3.item_task_validate(p_award_id, p_project_id, p_task_id, ITEM.task_id) = 'Y'
2745: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2746: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2747: AND EXISTS ( select null
2748: from gms_award_distributions adl
2749: where adl.expenditure_item_id = ITEM.encumbrance_item_id
2750: and adl.award_id = p_award_id )
2775: ITEM.request_id = x_request_id
2776: WHERE ITEM.enc_distributed_flag = 'Y'
2777: AND NVL(ITEM.net_zero_adjustment_flag,'N') <> 'Y'
2778: AND pa_project_stus_utils.Is_Project_Closed(ITEM.project_id) <>'Y'
2779: AND gms_pa_api2.is_award_closed(ITEM.encumbrance_item_id,ITEM.task_id, 'ENC') = 'N'
2780: AND EXISTS ( select null
2781: from gms_award_distributions adl
2782: where adl.expenditure_item_id = ITEM.encumbrance_item_id
2783: and adl.award_id = p_award_id )
2912:
2913: end item_task_validate;
2914: /* Bug 6761516 end */
2915:
2916: END gms_pa_api3;