[Home] [Help]
151: --End FPM changes bug 330119
152: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
153: -- This param added for FP_M changes 3305199
154: -- Bug#3491609 : Workflow Chanegs FP M
155: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
156: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
157: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
158: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
159: -- Bug#3491609 : Workflow Chanegs FP M
152: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
153: -- This param added for FP_M changes 3305199
154: -- Bug#3491609 : Workflow Chanegs FP M
155: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
156: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
157: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
158: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
159: -- Bug#3491609 : Workflow Chanegs FP M
160: --bug 13923366
153: -- This param added for FP_M changes 3305199
154: -- Bug#3491609 : Workflow Chanegs FP M
155: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
156: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
157: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
158: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
159: -- Bug#3491609 : Workflow Chanegs FP M
160: --bug 13923366
161: p_pm_source_code IN VARCHAR2 :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
154: -- Bug#3491609 : Workflow Chanegs FP M
155: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
156: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
157: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
158: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
159: -- Bug#3491609 : Workflow Chanegs FP M
160: --bug 13923366
161: p_pm_source_code IN VARCHAR2 :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
162: --bug 13923366
175: l_error_message_code VARCHAR2(250);
176:
177: l_carrying_out_org_id NUMBER;
178:
179: l_task_description PA_PROJ_ELEMENTS.description%TYPE;
180: l_location_id NUMBER;
181: --l_country
182: --l_territory_code
183: --l_state_region
182: --l_territory_code
183: --l_state_region
184: --l_city
185: l_task_manager_id NUMBER;
186: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
183: --l_state_region
184: --l_city
185: l_task_manager_id NUMBER;
186: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
184: --l_city
185: l_task_manager_id NUMBER;
186: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
185: l_task_manager_id NUMBER;
186: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
186: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
187: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
188: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
189: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
190: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
191: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
192: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
193: --l_scheduled_start_date
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
194: --l_scheduled_finish_date
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
195: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
196: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
197: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
198: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
199: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
200: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
201: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
202: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
203: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
204: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
212: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
205: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
212: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
213: --hsiu
206: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
212: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
213: --hsiu
214: --added for advanced structure - versioning
207: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
212: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
213: --hsiu
214: --added for advanced structure - versioning
215: l_versioned VARCHAR2(1) := 'N';
208: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
209: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
210: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
211: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
212: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
213: --hsiu
214: --added for advanced structure - versioning
215: l_versioned VARCHAR2(1) := 'N';
216: l_shared VARCHAR2(1) := 'N';
234: l_tk_attribute10 pa_tasks.attribute10%TYPE;
235: -- end xxlu changes
236:
237: -- Bug#3491609 : Workflow Chanegs FP M
238: l_wf_item_type pa_proj_elements.wf_item_type%TYPE;
239: l_wf_process pa_proj_elements.wf_process%TYPE;
240: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
235: -- end xxlu changes
236:
237: -- Bug#3491609 : Workflow Chanegs FP M
238: l_wf_item_type pa_proj_elements.wf_item_type%TYPE;
239: l_wf_process pa_proj_elements.wf_process%TYPE;
240: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
236:
237: -- Bug#3491609 : Workflow Chanegs FP M
238: l_wf_item_type pa_proj_elements.wf_item_type%TYPE;
239: l_wf_process pa_proj_elements.wf_process%TYPE;
240: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
244: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
237: -- Bug#3491609 : Workflow Chanegs FP M
238: l_wf_item_type pa_proj_elements.wf_item_type%TYPE;
239: l_wf_process pa_proj_elements.wf_process%TYPE;
240: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
244: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
245: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
240: l_wf_lead_days pa_proj_elements.wf_start_lead_days%TYPE;
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
244: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
245: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
246: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
247:
248: cursor get_page_name(c_page_id NUMBER)
241: l_wf_enabled_flag pa_proj_elements.enable_wf_flag%TYPE;
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
244: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
245: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
246: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
247:
248: cursor get_page_name(c_page_id NUMBER)
249: IS
242: -- Bug#3491609 : Workflow Chanegs FP M
243:
244: --Modified pa_tasks to pa_proj_elements in the following local variables Bug 3809523
245: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
246: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
247:
248: cursor get_page_name(c_page_id NUMBER)
249: IS
250: SELECT page_name
292: and project_id = p_project_id
293: and STATUS_CODE = 'STRUCTURE_PUBLISHED';
294: --end bug 3074706
295:
296: -- should be checking for tasks in pa_proj_elements table.
297:
298: /*4156271 : Performance Fix - Commented the following Query for Performance reasons
299: CURSOR cur_chk_pa_tasks
300: IS
298: /*4156271 : Performance Fix - Commented the following Query for Performance reasons
299: CURSOR cur_chk_pa_tasks
300: IS
301: SELECT 'x'
302: FROM pa_tasks pt, pa_proj_elements ppe
303: WHERE pt.project_id = p_project_id
304: AND pt.task_id = ppe.proj_element_id
305: AND ppe.link_task_flag = 'N';
306: */
310: SELECT 'x'
311: FROM pa_tasks pt
312: WHERE pt.project_id = p_project_id
313: AND EXISTS(SELECT 1
314: FROM PA_PROJ_ELEMENTS ppe
315: WHERE ppe.link_task_flag = 'N'
316: AND ppe.project_id = p_project_id
317: );
318: /*End : Fix for 4156271 */
326: --structure version id.
327:
328: CURSOR cur_ref_loc_id
329: IS
330: SELECT location_id from pa_proj_elements where proj_element_id = p_ref_task_id;
331:
332: l_publised_version VARCHAR2(1);
333: l_dummy_char VARCHAR2(1);
334: l_dummy_char2 VARCHAR2(1);
341: INITIAL_STATUS_CODE, BASE_PERCENT_COMP_DERIV_CODE,
342: wf_item_type,wf_process,wf_start_lead_days
343: from pa_task_types
344: where task_type_id = c_task_type_id;
345: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
342: wf_item_type,wf_process,wf_start_lead_days
343: from pa_task_types
344: where task_type_id = c_task_type_id;
345: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
350: l_INITIAL_STATUS_CODE PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
343: from pa_task_types
344: where task_type_id = c_task_type_id;
345: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
350: l_INITIAL_STATUS_CODE PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
351:
344: where task_type_id = c_task_type_id;
345: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
350: l_INITIAL_STATUS_CODE PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
351:
352: --Bug 2947492
345: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
350: l_INITIAL_STATUS_CODE PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
351:
352: --Bug 2947492
353:
346: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
347: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
348: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
349: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
350: l_INITIAL_STATUS_CODE PA_PROJ_ELEMENTS.STATUS_CODE%TYPE;
351:
352: --Bug 2947492
353:
354: --Bug 3305199: commented out for M
389: FROM pa_projects_all
390: WHERE project_id = p_project_id;
391: --bug 13551360
392: --bug 13923366 start here
393: l_pm_source_code PA_PROJ_ELEMENTS.PM_SOURCE_CODE%TYPE;
394: --bug 13923366 end here
395: BEGIN
396:
397: --dbms_output.put_line(( 'Inside CREATE_TASK private API' );
453:
454: --Bug 2168170
455: --dbms_output.put_line('Inside private API');
456: --dbms_output.put_line( 'Check if the task name is unique within the project.'||l_task_number);
457: IF PA_PROJ_ELEMENTS_UTILS.Check_element_number_Unique
458: (
459: p_element_number => l_task_number --Bug 3705333 Changed from p_task_number to l_task_number
460: ,p_element_id => null
461: ,p_project_id => p_project_id
485: --end bug 2669388
486: --dbms_output.put_line( 'After Check if the task name is unique within the project.' );
487:
488: --Check if the task name is unique within the project
489: If (PA_PROJ_ELEMENTS_UTILS.check_element_number_unique(l_task_number, --Bug 3705333 Changed from p_task_number to l_task_number
490: NULL,
491: p_project_id,
492: p_structure_id) <> 'Y') THEN
493: --Name is not unique
593: IF ( p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_TYPE_ID IS NULL )
594: THEN
595: --IF (p_TYPE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_object_type = 'PA_TASKS') THEN
596: IF (p_object_type = 'PA_TASKS') THEN
597: l_TYPE_ID := PA_PROJ_ELEMENTS_UTILS.GET_DEFAULT_TASK_TYPE_ID;
598: ELSE
599: l_TYPE_ID := NULL;
600: END IF;
601: ELSE
960: end if;
961: -- 12700283: added if-else condition to check workplan versioning is enabled or not.. end.
962: -- 13102269: bypassing all validations of Check_create_subtask_ok API for peer task.
963: IF p_peer_or_sub = 'SUB' then
964: pa_proj_elements_utils.Check_create_subtask_ok
965: ( l_ref_parent_task_ver_id
966: ,l_return_status
967: ,l_error_message_code );
968:
988: l_wf_process := nvl(p_wf_process,l_wf_process);
989: l_wf_lead_days := nvl(p_wf_lead_days,l_wf_lead_days);
990: -- 3491609 : FP M : Tracking bug : Workflow Excecution
991: --Changes for 8566495 anuragag
992: --Setting the link_task_flag to Y for creation in pa_proj_elements
993: l_old_link_task_flag := l_link_task_flag;
994: if(PA_TASK_PVT1.G_CHG_DOC_CNTXT = 1)
995: then
996: l_link_task_flag := 'Y';
996: l_link_task_flag := 'Y';
997: l_task_status := 'NEW';
998: end if;
999: --end of changes 8566495
1000: PA_PROJ_ELEMENTS_PKG.Insert_Row(
1001: X_ROW_ID => X_ROW_ID
1002: ,X_PROJ_ELEMENT_ID => x_task_id
1003: ,X_PROJECT_ID => p_project_id
1004: ,X_OBJECT_TYPE => p_OBJECT_TYPE
1593: p_Base_Perc_Comp_Deriv_Code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1594: -- This param added for FP_M changes 3305199
1595: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1596: -- Bug#3491609 : Workflow Chanegs FP M
1597: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
1598: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
1599: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
1600: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
1601: -- Bug#3491609 : Workflow Chanegs FP M
1594: -- This param added for FP_M changes 3305199
1595: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1596: -- Bug#3491609 : Workflow Chanegs FP M
1597: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
1598: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
1599: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
1600: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
1601: -- Bug#3491609 : Workflow Chanegs FP M
1602: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1595: p_gen_etc_src_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1596: -- Bug#3491609 : Workflow Chanegs FP M
1597: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
1598: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
1599: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
1600: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
1601: -- Bug#3491609 : Workflow Chanegs FP M
1602: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1603: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1596: -- Bug#3491609 : Workflow Chanegs FP M
1597: p_wf_item_type IN pa_proj_elements.wf_item_type%TYPE :=NULL,
1598: p_wf_process IN pa_proj_elements.wf_process%TYPE :=NULL,
1599: p_wf_lead_days IN pa_proj_elements.wf_start_lead_days%TYPE :=NULL,
1600: p_wf_enabled_flag IN pa_proj_elements.enable_wf_flag%TYPE :=NULL,
1601: -- Bug#3491609 : Workflow Chanegs FP M
1602: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1603: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1604: x_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1615: l_change_allowed VARCHAR2(1);
1616:
1617: l_carrying_out_org_id NUMBER;
1618:
1619: l_task_description PA_PROJ_ELEMENTS.description%TYPE;
1620: l_location_id NUMBER;
1621: --l_country
1622: --l_territory_code
1623: --l_state_region
1622: --l_territory_code
1623: --l_state_region
1624: --l_city
1625: l_task_manager_id NUMBER;
1626: l_task_name PA_PROJ_ELEMENTS.name%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1623: --l_state_region
1624: --l_city
1625: l_task_manager_id NUMBER;
1626: l_task_name PA_PROJ_ELEMENTS.name%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1624: --l_city
1625: l_task_manager_id NUMBER;
1626: l_task_name PA_PROJ_ELEMENTS.name%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1625: l_task_manager_id NUMBER;
1626: l_task_name PA_PROJ_ELEMENTS.name%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1626: l_task_name PA_PROJ_ELEMENTS.name%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1627: l_priority_code PA_PROJ_ELEMENTS.priority_code%TYPE;
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1628: l_TYPE_ID PA_PROJ_ELEMENTS.TYPE_ID %TYPE;
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1629: l_status_code PA_PROJ_ELEMENTS.status_code%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1630: l_wf_status_code PA_PROJ_ELEMENTS.wf_status_code%TYPE;
1631: l_inc_proj_progress_flag PA_PROJ_ELEMENTS.inc_proj_progress_flag%TYPE;
1632: l_pm_product_code VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_product_code%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1633: l_pm_task_reference VARCHAR2(30); --PA_PROJ_ELEMENTS.pm_task_reference%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1634: l_closed_date PA_PROJ_ELEMENTS.closed_date%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1635: --l_scheduled_start_date
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1636: --l_scheduled_finish_date
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1637: l_attribute_category PA_PROJ_ELEMENTS.attribute_category%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1638: l_attribute1 PA_PROJ_ELEMENTS.attribute1%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1639: l_attribute2 PA_PROJ_ELEMENTS.attribute2%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1640: l_attribute3 PA_PROJ_ELEMENTS.attribute3%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1641: l_attribute4 PA_PROJ_ELEMENTS.attribute4%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1642: l_attribute5 PA_PROJ_ELEMENTS.attribute5%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1643: l_attribute6 PA_PROJ_ELEMENTS.attribute6%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1644: l_attribute7 PA_PROJ_ELEMENTS.attribute7%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1645: l_attribute8 PA_PROJ_ELEMENTS.attribute8%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1646: l_attribute9 PA_PROJ_ELEMENTS.attribute9%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1647: l_attribute10 PA_PROJ_ELEMENTS.attribute10%TYPE;
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1648: l_attribute11 PA_PROJ_ELEMENTS.attribute11%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1649: l_attribute12 PA_PROJ_ELEMENTS.attribute12%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1650: l_attribute13 PA_PROJ_ELEMENTS.attribute13%TYPE;
1651: l_attribute14 PA_PROJ_ELEMENTS.attribute14%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1652: l_attribute15 PA_PROJ_ELEMENTS.attribute15%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1659: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1660: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1653: l_phase_version_id PA_PROJ_ELEMENTS.phase_version_id%TYPE;
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1659: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1660: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1661:
1654: l_phase_code PA_PROJ_ELEMENTS.phase_code%TYPE;
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1659: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1660: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1661:
1662: -- xxlu added task DFF attributes
1655:
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1659: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1660: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1661:
1662: -- xxlu added task DFF attributes
1663: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1656: --l_task_weighting_deriv_code PA_PROJ_ELEMENTS.task_weighting_deriv_code%TYPE;
1657: l_work_item_code PA_PROJ_ELEMENTS.wq_item_code%TYPE;
1658: l_uom_code PA_PROJ_ELEMENTS.wq_uom_code%TYPE;
1659: l_wq_actual_entry_code PA_PROJ_ELEMENTS.wq_actual_entry_code%TYPE;
1660: l_task_progress_entry_page_id PA_PROJ_ELEMENTS.task_progress_entry_page_id%TYPE;
1661:
1662: -- xxlu added task DFF attributes
1663: l_tk_attribute_category pa_tasks.attribute_category%TYPE;
1664: l_tk_attribute1 pa_tasks.attribute1%TYPE;
1676: --hsiu added for task status
1677: l_task_status_changed varchar2(1);
1678: --end task status changes
1679:
1680: -- Changed Pa_tasks to pa_proj_elements for Bug 3809523
1681: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
1682: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
1683: cursor get_page_name(c_page_id NUMBER)
1684: IS
1677: l_task_status_changed varchar2(1);
1678: --end task status changes
1679:
1680: -- Changed Pa_tasks to pa_proj_elements for Bug 3809523
1681: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
1682: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
1683: cursor get_page_name(c_page_id NUMBER)
1684: IS
1685: SELECT page_name
1678: --end task status changes
1679:
1680: -- Changed Pa_tasks to pa_proj_elements for Bug 3809523
1681: l_task_number pa_proj_elements.element_number%TYPE := p_task_number; --ADDED FOR BUG 3705333
1682: la_task_name pa_proj_elements.name%TYPE := p_task_name; --ADDED FOR BUG 3705333
1683: cursor get_page_name(c_page_id NUMBER)
1684: IS
1685: SELECT page_name
1686: from pa_page_layouts
1757: ,ENABLE_WF_FLAG --Bug 14213385
1758: ,WF_PROCESS --Bug 14213385
1759: ,WF_ITEM_TYPE --Bug 14213385
1760: ,WF_START_LEAD_DAYS --Bug 14213385
1761: FROM PA_PROJ_ELEMENTS
1762: WHERE proj_element_id = p_task_id;
1763:
1764: v_cur_proj_elems_rec cur_proj_elems%ROWTYPE;
1765:
1809:
1810: --hsiu task status changes
1811: cursor get_latest_task_ver_id IS
1812: select b.parent_structure_version_id, b.element_version_id
1813: from pa_proj_elements a,
1814: pa_proj_element_versions b,
1815: pa_proj_elem_ver_structure c
1816: where a.proj_element_id = p_task_id
1817: and a.project_id = b.project_id
1877: l_base_perc_comp_deriv_code VARCHAR2(30);
1878: l_tt_base_perc_comp_der_cd VARCHAR2(30); --Jun 28th
1879:
1880: --Bug 3957706
1881: l_prog_method_code PA_PROJ_ELEMENTS.BASE_PERCENT_COMP_DERIV_CODE%TYPE;
1882: --Bug 14213385 start
1883: l_wf_enabled_flag PA_PROJ_ELEMENTS.enable_wf_flag%TYPE;
1884: l_wf_process PA_PROJ_ELEMENTS.wf_process%TYPE;
1885: l_wf_item_type PA_PROJ_ELEMENTS.wf_item_type%TYPE;
1879:
1880: --Bug 3957706
1881: l_prog_method_code PA_PROJ_ELEMENTS.BASE_PERCENT_COMP_DERIV_CODE%TYPE;
1882: --Bug 14213385 start
1883: l_wf_enabled_flag PA_PROJ_ELEMENTS.enable_wf_flag%TYPE;
1884: l_wf_process PA_PROJ_ELEMENTS.wf_process%TYPE;
1885: l_wf_item_type PA_PROJ_ELEMENTS.wf_item_type%TYPE;
1886: l_wf_lead_days PA_PROJ_ELEMENTS.wf_start_lead_days%TYPE;
1887: --Bug 14213385 end
1880: --Bug 3957706
1881: l_prog_method_code PA_PROJ_ELEMENTS.BASE_PERCENT_COMP_DERIV_CODE%TYPE;
1882: --Bug 14213385 start
1883: l_wf_enabled_flag PA_PROJ_ELEMENTS.enable_wf_flag%TYPE;
1884: l_wf_process PA_PROJ_ELEMENTS.wf_process%TYPE;
1885: l_wf_item_type PA_PROJ_ELEMENTS.wf_item_type%TYPE;
1886: l_wf_lead_days PA_PROJ_ELEMENTS.wf_start_lead_days%TYPE;
1887: --Bug 14213385 end
1888: BEGIN
1881: l_prog_method_code PA_PROJ_ELEMENTS.BASE_PERCENT_COMP_DERIV_CODE%TYPE;
1882: --Bug 14213385 start
1883: l_wf_enabled_flag PA_PROJ_ELEMENTS.enable_wf_flag%TYPE;
1884: l_wf_process PA_PROJ_ELEMENTS.wf_process%TYPE;
1885: l_wf_item_type PA_PROJ_ELEMENTS.wf_item_type%TYPE;
1886: l_wf_lead_days PA_PROJ_ELEMENTS.wf_start_lead_days%TYPE;
1887: --Bug 14213385 end
1888: BEGIN
1889:
1882: --Bug 14213385 start
1883: l_wf_enabled_flag PA_PROJ_ELEMENTS.enable_wf_flag%TYPE;
1884: l_wf_process PA_PROJ_ELEMENTS.wf_process%TYPE;
1885: l_wf_item_type PA_PROJ_ELEMENTS.wf_item_type%TYPE;
1886: l_wf_lead_days PA_PROJ_ELEMENTS.wf_start_lead_days%TYPE;
1887: --Bug 14213385 end
1888: BEGIN
1889:
1890: IF (p_debug_mode = 'Y') THEN
1967: /* changes end for bug 3705333*/
1968: --dbms_output.put_line('Value of l_task_number'||l_task_number);
1969: --dbms_output.put_line( 'Check if the task name is unique within the project.' );
1970: /** Commenting the code below for Bug 4120380. This check is same as the check implemented by
1971: the constraint PA_PROJ_ELEMENTS_U2. This needs to commented to faciliate updation of task_number in the
1972: case below:
1973: Task 1.0 to be re-named to Taslk 1.1 and Task 1.1 to be renamed to Task 1.0 **/
1974: --Check if the task name is unique within the project
1975: /* Code below is uncommented for bug 4218947 **/
1972: case below:
1973: Task 1.0 to be re-named to Taslk 1.1 and Task 1.1 to be renamed to Task 1.0 **/
1974: --Check if the task name is unique within the project
1975: /* Code below is uncommented for bug 4218947 **/
1976: If (PA_PROJ_ELEMENTS_UTILS.check_element_number_unique(l_task_number, --Bug 3705333 changed from p_task_number to l_task_number
1977: p_task_id,
1978: v_cur_proj_elems_rec.project_id,
1979: v_cur_proj_elems_rec.PARENT_STRUCTURE_ID) <> 'Y') THEN
1980: --Name is not unique
2011: IF ( p_phase_version_id IS NOT NULL) AND
2012: (p_phase_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
2013:
2014: -- check if it is top task
2015: IF ('N' = pa_proj_elements_utils.IS_TOP_TASK_ACROSS_ALL_VER(
2016: p_task_id)) THEN
2017: --Is not a top task across all versions. Error
2018: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NOT_ALL_TOP_TASKS');
2019: -- start of bug 3459905
2029: -- end of bug 3459905
2030: END IF;
2031:
2032: -- check if the current phase is already used.
2033: IF ('Y' = pa_proj_elements_utils.CHECK_PHASE_IN_USE(
2034: p_task_id,
2035: p_phase_version_id)) THEN
2036: -- Phase already in use in the structure. Error
2037: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_PHASE_IN_USE');
2396: OPEN get_task_versions_id(p_task_id,l_project_id);
2397: LOOP
2398: FETCH get_task_versions_id INTO l_task_version_id;
2399: EXIT WHEN get_task_versions_id%NOTFOUND;
2400: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2401: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2402: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2403: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2404: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2411: OPEN get_task_versions_id2(p_task_id,l_project_id);
2412: LOOP
2413: FETCH get_task_versions_id2 INTO l_task_version_id;
2414: EXIT WHEN get_task_versions_id2%NOTFOUND;
2415: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2416: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2417: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2418: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2419: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2528: ELSE
2529: l_base_perc_comp_deriv_code := p_base_perc_comp_deriv_code;
2530: END IF;
2531:
2532: --In the update_task process PA_PROJ_ELEMENTS.BASE_PERCENT_COMP_DERIV_CODE columns
2533: --is populated, only if it is null. Task_types value is used to populate base_percent_comp_deriv_code
2534: IF (l_base_perc_comp_deriv_code= PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR l_base_perc_comp_deriv_code IS NULL) THEN
2535: l_base_perc_comp_deriv_code:=l_tt_base_perc_comp_der_cd;
2536: END IF;
2768: --dbms_output.put_line(('value of p_task_NUMBER passed'||l_task_NUMBER);
2769: --dbms_output.put_line(('value of p_task_id passed'||p_task_id);
2770: --dbms_output.put_line(('Value of p_task_NAME '||p_task_NAME);
2771: --dbms_output.put_line( 'Before calling UPDATE_ROW API.' );
2772: PA_PROJ_ELEMENTS_PKG.Update_Row(
2773: X_ROW_ID => v_cur_proj_elems_rec.rowid
2774: ,X_PROJ_ELEMENT_ID => p_task_id
2775: ,X_PROJECT_ID => v_cur_proj_elems_rec.PROJECT_ID
2776: ,X_OBJECT_TYPE => 'PA_TASKS'
2915:
2916: -- Modified for FP_M changes
2917: -- Tracking Bug 3305199
2918:
2919: l_fin_task_flag := PA_Proj_Elements_Utils.CHECK_IS_FINANCIAL_TASK(P_Task_ID);
2920:
2921: IF (NVL( l_published_version, 'N' ) = 'N' and l_fin_task_flag = 'Y') OR
2922: (l_published_version = 'Y' AND l_versioned = 'N' AND l_shared = 'Y' and l_fin_task_flag = 'Y') -- Bug 3305199
2923: THEN
2950: -- xxlu added p_long_task_name
2951:
2952: -- avaithia ,Changed SUBSTR to SUBSTRB as SUBSTR doesnt provide Multi Language Support
2953: -- Included SUBSTRB for Task Description also ,because Task Description size
2954: -- is only 250 char in PA_TASKS Table ,whereas it can be upto 2000 char in pa_proj_elements
2955: -- These changes have been done for Bug 3935874
2956:
2957: PA_TASKS_MAINT_PUB.UPDATE_TASK
2958: (
3002: -- end xxlu changes
3003: ELSE --Added for transaction dates update
3004: --there is a publish version; update task that have financial attribute
3005: -- This code will excecute for fully shared and versioning enabled case
3006: IF (PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(p_task_id) = 'Y') THEN
3007: -- xxlu add task DFF attributes
3008: --bug 3690807
3009:
3010: -- Changed SUBSTR to SUBSTRB for 3935874
3115:
3116: --maansari
3117: IF PA_PROGRESS_UTILS.get_system_task_status( l_STATUS_CODE ) = 'CANCELLED'
3118: THEN
3119: PA_PROJ_ELEMENTS_UTILS.Check_chg_stat_cancel_ok (
3120: p_task_id => p_task_id
3121: ,p_task_version_id => l_latest_task_ver_rec.element_version_id
3122: ,p_new_task_status => l_STATUS_CODE
3123: ,x_return_status => l_return_status
3365: AND relationship_type = 'S';
3366: CURSOR get_task_detail(cp_task_id NUMBER)
3367: IS
3368: SELECT base_percent_comp_deriv_code
3369: FROM pa_proj_elements
3370: WHERE proj_element_id = cp_task_id;
3371:
3372: X_ROW_ID VARCHAR2(255);
3373: v_cur_proj_elems_rec cur_proj_elems%ROWTYPE;
3517: --
3518: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
3519: --Bug No 3475920
3520: IF p_peer_or_sub = 'PEER' THEN
3521: l_ref_parent_task_ver_id:=PA_PROJ_ELEMENTS_UTILS.GET_PARENT_TASK_VERSION_ID(p_ref_task_version_id);
3522: ELSE
3523: l_ref_parent_task_ver_id:=p_ref_task_version_id;
3524: END IF;
3525: --Bug No 3475920
3526: OPEN get_task_detail(p_task_id);
3527: FETCH get_task_detail INTO l_base_deriv_code;
3528: CLOSE get_task_detail;
3529: IF l_base_deriv_code LIKE 'DELIVERABLE' THEN
3530: IF PA_PROJ_ELEMENTS_UTILS.check_task_parents_deliv(l_ref_parent_task_ver_id) = 'Y' THEN
3531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3532: p_msg_name => 'PA_TASK_AND_PARENTTASK_DEL');
3533: raise FND_API.G_EXC_ERROR;
3534: END IF;
3617:
3618: --hsiu: bug 2695631
3619: --copy structure version should not validate when creating tasks
3620: IF (p_validation_level <> 0) THEN
3621: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
3622: p_parent_task_ver_id => l_parent_id
3623: ,x_return_status => l_return_status
3624: ,x_error_message_code => l_error_message_code
3625: );
3649: End if; /** Changes end for performance BUg 4046026 */
3650: --hsiu: bug 2695631
3651: --copy structure version should not validate when creating tasks
3652: IF (p_validation_level <> 0) THEN
3653: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
3654: p_parent_task_ver_id => p_ref_task_version_id
3655: ,x_return_status => l_return_status
3656: ,x_error_message_code => l_error_message_code
3657: );
3686: END IF;
3687: END IF;
3688:
3689: --Display sequence is null if the task is a linking task.
3690: l_link_task_flag := PA_PROJ_ELEMENTS_UTILS.link_flag ( p_task_id );
3691: IF l_link_task_flag = 'Y'
3692: THEN
3693: l_DISPLAY_SEQUENCE := null;
3694: END IF;
3781: WHERE display_sequence > l_ref_seq_no
3782: AND element_version_id <> x_task_version_id
3783: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3784: AND object_type = 'PA_TASKS'
3785: -- AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3786: ;
3787: ELSE
3788: IF p_peer_or_sub = 'PEER' --Bug 4046026
3789: THEN
3792: WHERE display_sequence > l_ref_seq_no
3793: AND element_version_id <> x_task_version_id
3794: AND parent_structure_version_id = v_cur_proj_elems_rec.parent_structure_version_id
3795: AND object_type = 'PA_TASKS'
3796: --AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N' commenitng out for bug 4180390
3797: ;
3798: END IF;
3799: END IF; --Added for Bug 4046026 Commented for 4057190 /** Uncommented it again for BUg 4046026 **/
3800: END IF; --End changes for bug 13923366
3856: IF l_link_task_flag = 'N'
3857: THEN
3858: --my_error_msg( 'In create_task_version pvt API Stage 6' );
3859:
3860: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
3861: p_commit => p_commit
3862: ,p_debug_mode => p_debug_mode
3863: ,p_parent_structure_ver_id => l_parent_struc_ver_id
3864: ,p_task_id => x_task_version_id
4172: IS
4173: SELECT ptt.prog_entry_enable_flag
4174: FROM pa_task_types ptt,
4175: pa_proj_element_versions ppev,
4176: pa_proj_elements ppe
4177: WHERE ppev.element_version_id = c_element_version_id
4178: AND ppev.proj_element_id = ppe.proj_element_id
4179: AND ppe.TYPE_ID = ptt.task_type_id;
4180:
4271: end;
4272: --Bug 13895419 end
4273: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
4274: --Bug No 3475920 SMukka Commented out following logic to check for deliverable.
4275: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
4276: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
4277: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4278: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
4279: -- raise FND_API.G_EXC_ERROR;
4272: --Bug 13895419 end
4273: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
4274: --Bug No 3475920 SMukka Commented out following logic to check for deliverable.
4275: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
4276: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
4277: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4278: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
4279: -- raise FND_API.G_EXC_ERROR;
4280: -- END IF;
4752: END LOOP;
4753:
4754: --updating wbs number only once after making display seq null
4755: --Bug 13895419 start
4756: -- if p_peer_or_sub is Sub or parent task is not same for source and destination task, then call PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS.
4757: IF p_peer_or_sub = 'SUB' or (p_peer_or_sub = 'PEER' and l_parent_task_id <> l_ref_parent_task_id)
4758: then
4759: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4760: ( p_commit => p_commit
4755: --Bug 13895419 start
4756: -- if p_peer_or_sub is Sub or parent task is not same for source and destination task, then call PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS.
4757: IF p_peer_or_sub = 'SUB' or (p_peer_or_sub = 'PEER' and l_parent_task_id <> l_ref_parent_task_id)
4758: then
4759: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
4760: ( p_commit => p_commit
4761: ,p_debug_mode => p_debug_mode
4762: ,p_parent_structure_ver_id => l_parent_struc_ver_id
4763: ,p_task_id => NULL
5115:
5116: --update wbs number for affected tasks
5117: -- Insert
5118: --update WBS NUMBER properly now for the affected rows.
5119: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
5120: ( p_commit => p_commit
5121: ,p_debug_mode => p_debug_mode
5122: ,p_parent_structure_ver_id => cur_affected_tasks_rec.parent_structure_version_id
5123: ,p_task_id => cur_affected_tasks_rec.element_version_id
5174:
5175: --update wbs number for actual tasks
5176: -- Insert
5177: --update WBS NUMBER properly now
5178: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
5179: ( p_commit => p_commit
5180: ,p_debug_mode => p_debug_mode
5181: ,p_parent_structure_ver_id => cur_actual_tasks_rec.parent_structure_version_id
5182: ,p_task_id => cur_actual_tasks_rec.element_version_id
5221: -- dbms_output.put_line( 'cur_affected_tasks_rec.display_sequence '|| cur_affected_tasks_rec.display_sequence );
5222: --update wbs number for affected tasks
5223: -- Insert
5224: --update WBS NUMBER properly now for the affected rows.
5225: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
5226: ( p_commit => p_commit
5227: ,p_debug_mode => p_debug_mode
5228: ,p_parent_structure_ver_id => cur_affected_tasks_rec.parent_structure_version_id
5229: ,p_task_id => cur_affected_tasks_rec.element_version_id
5244: l_start_display_seq := nvl(l_ref_task_last_child_seq_num, l_ref_task_seq_num);
5245: l_end_display_seq := nvl(l_task_last_child_seq_num, l_task_seq_num);
5246: END IF;
5247: FOR cur_affected_tasks_rec IN c1(l_start_display_seq, l_end_display_seq) LOOP
5248: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS
5249: ( p_commit => p_commit
5250: ,p_debug_mode => p_debug_mode
5251: ,p_parent_structure_ver_id => cur_affected_tasks_rec.parent_structure_version_id
5252: ,p_task_id => cur_affected_tasks_rec.element_version_id
5355: START WITH object_id_from1 = p_task_version_id
5356: CONNECT BY object_id_from1 = PRIOR object_id_to1
5357: AND relationship_type = prior relationship_type -- bug 3919266
5358: AND relationship_type = 'S' ) A, pa_proj_element_versions b
5359: ,pa_proj_elements c --bug 4573340
5360: WHERE a.object_id_to1 = b.element_version_id
5361: --bug 4573340
5362: and b.proj_element_id = c.proj_element_id
5363: and b.project_id = c.project_id
5410:
5411: CURSOR cur_proj_elems( x_proj_element_id NUMBER )
5412: IS
5413: SELECT rowid
5414: FROM pa_proj_elements
5415: WHERE proj_element_id = x_proj_element_id;
5416:
5417:
5418: --Ansari
5432: select b.object_id_to1 object_id_to1
5433: from pa_object_relationships a,
5434: pa_object_relationships b,
5435: pa_proj_element_versions c,
5436: pa_proj_elements d
5437: where a.object_id_to1 = p_task_version_id
5438: and a.object_type_to = 'PA_TASKS'
5439: and a.object_id_from1 = b.object_id_from1
5440: and a.object_type_from = b.object_type_from
5514:
5515: --3035902: process update flag changes
5516: cursor get_task_type_id(c_proj_element_id NUMBER) IS
5517: select type_id
5518: from pa_proj_elements
5519: where proj_element_id = c_proj_element_id;
5520: l_task_type_id NUMBER;
5521: l_progress_flag VARCHAR2(1);
5522: l_Project_ID number;
5689: --added on 08-JAN-2002
5690: --check if task is linked task
5691: IF (p_structure_version_id IS NOT NULL) AND
5692: (p_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
5693: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
5694: p_structure_version_id,
5695: p_task_version_id)) THEN
5696: --deleting linked task. Error
5697: x_return_status := FND_API.G_RET_STS_ERROR;
5800: END IF;
5801: END IF ; -- Bug#3834117
5802: END IF;
5803:
5804: IF l_delete_flag = 'Y' AND PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_task_id )= 'Y'
5805: -- Added for FP_M changes Bug 3305199 Bhumesh
5806: THEN
5807:
5808: -- Added for FP_M changes
5905: --check_delete_task ok
5906:
5907: --dbms_output.put_line( 'before chk_delete ' );
5908:
5909: --The following code is reqd. to pass calling mode to check api bcoz PA_PROJ_ELEMENTS_UTILS.check_delete_task_ver_ok again calls
5910: --PA_TASK_UTILS.check_delete_task_ok api
5911: --bug 2947492
5912: --commenting out the 'R'estricted mode logic for bug 3010538
5913: -- IF p_calling_module = 'AMG'
5920:
5921: /* bug 4006401--removed since it is called in PUB.
5922: IF p_called_from_api <> 'MOVE_TASK_VERSION'
5923: THEN
5924: PA_PROJ_ELEMENTS_UTILS.check_delete_task_ver_ok(
5925: p_project_id => x_project_id
5926: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
5927: ,p_parent_structure_ver_id => x_parent_struc_ver_id
5928: --bug 3010538 ,p_validation_mode => l_validation_mode --bug 2947492
5943:
5944: --deleting schedule version if its a workplan
5945: --IF workplan_structure THEN
5946: IF p_called_from_api <> 'MOVE_TASK_VERSION' THEN
5947: IF PA_PROJ_ELEMENTS_UTILS.structure_type(
5948: p_structure_version_id => null
5949: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
5950: ,p_structure_type => 'WORKPLAN' ) = 'Y' THEN
5951:
6093: */
6094: -- 4201927 end
6095:
6096: /*
6097: IF l_delete_flag = 'Y' AND PA_PROJ_ELEMENTS_UTILS.CHECK_IS_FINANCIAL_TASK(l_proj_element_id )= 'Y'
6098: -- Added for FP_M changes Bug 3305199 Bhumesh
6099: THEN
6100:
6101: -- Added for FP_M changes
6325: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' THEN
6326:
6327: --Ansari
6328: --Call update wbs number
6329: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
6330: p_commit => p_commit
6331: ,p_debug_mode => p_debug_mode
6332: ,p_parent_structure_ver_id => x_parent_struc_ver_id
6333: ,p_task_id => null
6455:
6456:
6457: -- 4201927 Commented below code
6458: /*
6459: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
6460: */
6461:
6462: -- USING direct delete statement on table
6463: DELETE FROM PA_PROJ_ELEMENTS WHERE PROJ_ELEMENT_ID = l_proj_element_id;
6459: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
6460: */
6461:
6462: -- USING direct delete statement on table
6463: DELETE FROM PA_PROJ_ELEMENTS WHERE PROJ_ELEMENT_ID = l_proj_element_id;
6464:
6465: -- 4201927 end
6466: -- anlee
6467: -- Ext Attribute changes
6615: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
6616: -- record_version_number = record_version_number + 1
6617: WHERE parent_structure_version_id = x_parent_struc_ver_id
6618: AND (display_sequence > l_selected_seq_num)
6619: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
6620: EXCEPTION
6621: WHEN OTHERS THEN
6622: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6623: raise FND_API.G_EXC_ERROR;
7002:
7003:
7004: cursor get_task_type_id(c_proj_element_id NUMBER) IS
7005: select type_id
7006: from pa_proj_elements
7007: where proj_element_id = c_proj_element_id;
7008:
7009: l_task_type_id NUMBER;
7010: l_project_id NUMBER;
7332: END IF;
7333: -- end xxlu changes.
7334:
7335:
7336: PA_PROJ_ELEMENTS_UTILS.Check_Date_range(
7337: p_scheduled_start_date => l_scheduled_start_date
7338: ,p_scheduled_end_date => l_scheduled_end_date
7339: ,p_obligation_start_date => l_obligation_start_date
7340: ,p_obligation_end_date => l_obligation_end_date
7862:
7863: --hsiu added for bug 2634195
7864: cursor get_task_type_id(c_proj_element_id NUMBER) IS
7865: select type_id
7866: from pa_proj_elements
7867: where proj_element_id = c_proj_element_id;
7868: l_task_type_id NUMBER;
7869: --end bug 2634195
7870:
8475: l_level_assignments_flag := p_level_assignments_flag;
8476: END IF;
8477: --end bug 3305199
8478:
8479: PA_PROJ_ELEMENTS_UTILS.Check_Date_range(
8480: p_scheduled_start_date => l_scheduled_start_date
8481: ,p_scheduled_end_date => l_scheduled_end_date
8482: ,p_obligation_start_date => l_obligation_start_date
8483: ,p_obligation_end_date => l_obligation_end_date
9002:
9003: END IF;
9004:
9005: --bug 3301192 fp changes
9006: IF PA_PROJ_ELEMENTS_UTILS.IS_LOWEST_TASK(p_task_version_id => cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID ) = 'Y'
9007: THEN
9008:
9009: open get_parent_struc_ver_id(cur_proj_elem_ver_sch_rec.ELEMENT_VERSION_ID);
9010: fetch get_parent_struc_ver_id INTO l_parent_struc_ver_id;
9117: select c.TYPE_ID , c.WQ_ITEM_CODE, c.WQ_UOM_CODE, c.WQ_ACTUAL_ENTRY_CODE,
9118: c.TASK_PROGRESS_ENTRY_PAGE_ID
9119: from pa_proj_element_versions a,
9120: pa_object_relationships b,
9121: pa_proj_elements c
9122: where b.object_id_to1 = p_task_version_id
9123: and b.object_type_to = 'PA_TASKS'
9124: and b.relationship_type = 'S'
9125: and b.object_type_from = 'PA_TASKS'
9130:
9131: CURSOR get_current_task_type_attr IS
9132: select c.TYPE_ID , c.WQ_ITEM_CODE, c.WQ_UOM_CODE, c.WQ_ACTUAL_ENTRY_CODE,
9133: c.TASK_PROGRESS_ENTRY_PAGE_ID
9134: from pa_proj_elements c
9135: where c.proj_element_id = p_task_id;
9136: l_type_attr_rec get_current_task_type_attr%ROWTYPE;
9137: BEGIN
9138: x_return_status := FND_API.G_RET_STS_SUCCESS;
9150: CLOSE get_current_task_type_attr;
9151:
9152: IF (l_parent_type_attr_rec.TYPE_ID = l_type_attr_rec.TYPE_ID ) THEN
9153: --same type as parent at creation time. inherit
9154: UPDATE pa_proj_elements set
9155: -- task_weighting_deriv_code = l_parent_type_attr_rec.TASK_WEIGHTING_DERIV_CODE
9156: WQ_ITEM_CODE = l_parent_type_attr_rec.WQ_ITEM_CODE
9157: ,WQ_UOM_CODE = l_parent_type_attr_rec.WQ_UOM_CODE
9158: ,WQ_ACTUAL_ENTRY_CODE = l_parent_type_attr_rec.WQ_ACTUAL_ENTRY_CODE
9350: IS
9351: SELECT ptt.prog_entry_enable_flag
9352: FROM pa_task_types ptt,
9353: pa_proj_element_versions ppev,
9354: pa_proj_elements ppe
9355: WHERE ppev.element_version_id = c_element_version_id
9356: AND ppev.proj_element_id = ppe.proj_element_id
9357: AND ppe.TYPE_ID = ptt.task_type_id;
9358:
9591: START WITH object_id_from1 = p_task_version_id
9592: CONNECT BY object_id_from1 = PRIOR object_id_to1
9593: AND relationship_type = PRIOR relationship_type --bug 3919266
9594: AND relationship_type = 'S' ) A, pa_proj_element_versions b
9595: ,pa_proj_elements c --bug 4573340
9596: WHERE a.object_id_to1 = b.element_version_id
9597: --bug 4573340
9598: and b.proj_element_id = c.proj_element_id
9599: and b.project_id = c.project_id
9646:
9647: CURSOR cur_proj_elems( x_proj_element_id NUMBER )
9648: IS
9649: SELECT rowid
9650: FROM pa_proj_elements
9651: WHERE proj_element_id = x_proj_element_id;
9652:
9653:
9654: --Ansari
9721:
9722: --3035902: process update flag changes
9723: cursor get_task_type_id(c_proj_element_id NUMBER) IS
9724: select type_id
9725: from pa_proj_elements
9726: where proj_element_id = c_proj_element_id;
9727: l_task_type_id NUMBER;
9728: l_progress_flag VARCHAR2(1);
9729: l_wp_type VARCHAR2(1);
9819:
9820: --deleting schedule version if its a workplan
9821: --IF workplan_structure THEN
9822: --IF p_called_from_api <> 'MOVE_TASK_VERSION' THEN
9823: IF PA_PROJ_ELEMENTS_UTILS.structure_type(
9824: p_structure_version_id => null
9825: ,p_task_version_id => cur_child_tasks_rec.object_id_to1
9826: ,p_structure_type => 'WORKPLAN' ) = 'Y' THEN
9827:
10104: --Ansari
10105: --Call update wbs number
10106: --hsiu: bug 2800553: performance changes: not called when deleting structure
10107: IF (p_calling_module <> 'DEL_STRUCT') THEN
10108: PA_PROJ_ELEMENTS_UTILS.UPDATE_WBS_NUMBERS (
10109: p_commit => p_commit
10110: ,p_debug_mode => p_debug_mode
10111: ,p_parent_structure_ver_id => x_parent_struc_ver_id
10112: ,p_task_id => null
10165: IF x_return_status = FND_API.G_RET_STS_ERROR then
10166: RAISE FND_API.G_EXC_ERROR;
10167: End If;
10168:
10169: PA_PROJ_ELEMENTS_PKG.delete_row( x_row_id_elem );
10170:
10171: -- anlee
10172: -- Ext Attribute changes
10173: -- Bug 2904327
10270: SET display_sequence = PA_TASKS_MAINT_UTILS.REARRANGE_DISPLAY_SEQ(display_sequence, 0, l_task_cnt, 'DELETE', 'DOWN')
10271: -- record_version_number = record_version_number + 1
10272: WHERE parent_structure_version_id = x_parent_struc_ver_id
10273: AND (display_sequence > l_selected_seq_num)
10274: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
10275: EXCEPTION
10276: WHEN OTHERS THEN
10277: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
10278: raise FND_API.G_EXC_ERROR;
10468: l_working_parent_id NUMBER;
10469:
10470: CURSOR get_proj_info IS -- Bug 3083997. Modified the cursor to obtain
10471: select proj.project_id,proj.template_flag -- the project template flag also.
10472: from pa_proj_elements ele, pa_projects_all proj
10473: where ele.proj_element_id = p_task_id
10474: and ele.project_id = proj.project_id;
10475: l_project_id NUMBER;
10476: l_opt NUMBER;
10601: BEGIN
10602: IF PA_PROGRESS_UTILS.get_system_task_status( p_task_status ) = 'CANCELLED'
10603: THEN
10604: l_versioning_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( p_project_id );
10605: l_parent_struc_ver_id := PA_PROJ_ELEMENTS_UTILS.latest_published_ver_id( p_project_id, 'WORKPLAN' );
10606:
10607: --Store the whole branch of published version under p_task_id in pl/sql table.
10608: FOR cur_task_hier_rec IN cur_task_hier(l_parent_struc_ver_id) LOOP
10609: i := i + 1;
11031: ppev.object_type
11032: FROM pa_proj_element_versions ppev,
11033: pa_object_relationships por,
11034: pa_proj_elem_ver_schedule ppevs,
11035: pa_proj_elements ppe,
11036: pa_task_types ptt
11037: WHERE ppev.parent_structure_version_id = c_parent_struc_ver_id -- 377522
11038: AND por.object_type_to = 'PA_TASKS'
11039: AND por.relationship_type = 'S'