[Home] [Help]
12: default task elements based on the automatic resource selection parameter and resource planning
13: level for automatic resource selection. Currently only the defaul task elements are created based
14: on the input planning level and resource list id.
15: ==================================================================================================*/
16: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
17:
18: PROCEDURE Refresh_FP_Elements (
19: p_proj_fp_options_id IN NUMBER
20: ,p_cost_planning_level IN VARCHAR2
44:
45: BEGIN
46:
47: FND_MSG_PUB.initialize;
48: IF P_PA_DEBUG_MODE = 'Y' THEN
49: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Refresh_FP_Elements');
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
45: BEGIN
46:
47: FND_MSG_PUB.initialize;
48: IF P_PA_DEBUG_MODE = 'Y' THEN
49: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Refresh_FP_Elements');
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
53: IF P_PA_DEBUG_MODE = 'Y' THEN
47: FND_MSG_PUB.initialize;
48: IF P_PA_DEBUG_MODE = 'Y' THEN
49: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Refresh_FP_Elements');
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
53: IF P_PA_DEBUG_MODE = 'Y' THEN
54: pa_debug.set_process('Refresh_FP_Elements: ' || 'PLSQL','LOG',l_debug_mode);
55: END IF;
49: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Refresh_FP_Elements');
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
53: IF P_PA_DEBUG_MODE = 'Y' THEN
54: pa_debug.set_process('Refresh_FP_Elements: ' || 'PLSQL','LOG',l_debug_mode);
55: END IF;
56: x_msg_count := 0;
57:
50: END IF;
51: fnd_profile.get('pa_debug_MODE',l_debug_mode);
52: l_debug_mode := NVL(l_debug_mode, 'Y');
53: IF P_PA_DEBUG_MODE = 'Y' THEN
54: pa_debug.set_process('Refresh_FP_Elements: ' || 'PLSQL','LOG',l_debug_mode);
55: END IF;
56: x_msg_count := 0;
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60: IF (p_proj_fp_options_id IS NULL) THEN
61: pa_debug.g_err_stage := 'Err- Proj FP Options ID cannot be NULL.';
62: IF P_PA_DEBUG_MODE = 'Y' THEN
63: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
64: END IF;
65: x_return_status := FND_API.G_RET_STS_ERROR;
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60: IF (p_proj_fp_options_id IS NULL) THEN
61: pa_debug.g_err_stage := 'Err- Proj FP Options ID cannot be NULL.';
62: IF P_PA_DEBUG_MODE = 'Y' THEN
63: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
64: END IF;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
59:
60: IF (p_proj_fp_options_id IS NULL) THEN
61: pa_debug.g_err_stage := 'Err- Proj FP Options ID cannot be NULL.';
62: IF P_PA_DEBUG_MODE = 'Y' THEN
63: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
64: END IF;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
67: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
71: /* Depending on the Planning Level, i.e 'COST', PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE or PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, delete the
72: fp_elements for the Proj_FP_Options_ID and then call the Insert_Default procedure
73: to insert into fp_elements. */
74:
75: pa_debug.g_err_stage := 'Deleting records from pa_fp_elements and calling insert_Default';
76: IF P_PA_DEBUG_MODE = 'Y' THEN
77: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
78: END IF;
79:
72: fp_elements for the Proj_FP_Options_ID and then call the Insert_Default procedure
73: to insert into fp_elements. */
74:
75: pa_debug.g_err_stage := 'Deleting records from pa_fp_elements and calling insert_Default';
76: IF P_PA_DEBUG_MODE = 'Y' THEN
77: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
78: END IF;
79:
80: IF (p_cost_planning_level IS NOT NULL) THEN
73: to insert into fp_elements. */
74:
75: pa_debug.g_err_stage := 'Deleting records from pa_fp_elements and calling insert_Default';
76: IF P_PA_DEBUG_MODE = 'Y' THEN
77: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
78: END IF;
79:
80: IF (p_cost_planning_level IS NOT NULL) THEN
81: pa_debug.g_err_stage := 'Deleting and inserting for Cost Planning Level';
77: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
78: END IF;
79:
80: IF (p_cost_planning_level IS NOT NULL) THEN
81: pa_debug.g_err_stage := 'Deleting and inserting for Cost Planning Level';
82: IF P_PA_DEBUG_MODE = 'Y' THEN
83: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
84: END IF;
85: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
78: END IF;
79:
80: IF (p_cost_planning_level IS NOT NULL) THEN
81: pa_debug.g_err_stage := 'Deleting and inserting for Cost Planning Level';
82: IF P_PA_DEBUG_MODE = 'Y' THEN
83: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
84: END IF;
85: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
86: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
79:
80: IF (p_cost_planning_level IS NOT NULL) THEN
81: pa_debug.g_err_stage := 'Deleting and inserting for Cost Planning Level';
82: IF P_PA_DEBUG_MODE = 'Y' THEN
83: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
84: END IF;
85: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
86: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
87: ,p_element_level => PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK
100: ,x_msg_data => x_msg_data);
101: END IF;
102:
103: IF (p_revenue_planning_level IS NOT NULL) THEN
104: pa_debug.g_err_stage := 'Deleting and inserting for Revenue Planning Level';
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
107: END IF;
108: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
101: END IF;
102:
103: IF (p_revenue_planning_level IS NOT NULL) THEN
104: pa_debug.g_err_stage := 'Deleting and inserting for Revenue Planning Level';
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
107: END IF;
108: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
109: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
102:
103: IF (p_revenue_planning_level IS NOT NULL) THEN
104: pa_debug.g_err_stage := 'Deleting and inserting for Revenue Planning Level';
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
107: END IF;
108: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
109: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
110: ,p_element_level => PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK
123: ,x_msg_data => x_msg_data);
124: END IF;
125:
126: IF (p_all_planning_level IS NOT NULL) THEN
127: pa_debug.g_err_stage := 'Deleting and inserting for All Planning Level';
128: IF P_PA_DEBUG_MODE = 'Y' THEN
129: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
130: END IF;
131: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
124: END IF;
125:
126: IF (p_all_planning_level IS NOT NULL) THEN
127: pa_debug.g_err_stage := 'Deleting and inserting for All Planning Level';
128: IF P_PA_DEBUG_MODE = 'Y' THEN
129: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
130: END IF;
131: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
132: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL
125:
126: IF (p_all_planning_level IS NOT NULL) THEN
127: pa_debug.g_err_stage := 'Deleting and inserting for All Planning Level';
128: IF P_PA_DEBUG_MODE = 'Y' THEN
129: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
130: END IF;
131: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
132: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL
133: ,p_element_level => PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK
145: ,x_msg_count => x_msg_count
146: ,x_msg_data => x_msg_data);
147: END IF;
148:
149: pa_debug.g_err_stage := 'End of Refresh_FP_Elements';
150: IF P_PA_DEBUG_MODE = 'Y' THEN
151: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
152: END IF;
153: pa_debug.reset_err_stack;
146: ,x_msg_data => x_msg_data);
147: END IF;
148:
149: pa_debug.g_err_stage := 'End of Refresh_FP_Elements';
150: IF P_PA_DEBUG_MODE = 'Y' THEN
151: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
152: END IF;
153: pa_debug.reset_err_stack;
154:
147: END IF;
148:
149: pa_debug.g_err_stage := 'End of Refresh_FP_Elements';
150: IF P_PA_DEBUG_MODE = 'Y' THEN
151: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
152: END IF;
153: pa_debug.reset_err_stack;
154:
155: EXCEPTION
149: pa_debug.g_err_stage := 'End of Refresh_FP_Elements';
150: IF P_PA_DEBUG_MODE = 'Y' THEN
151: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
152: END IF;
153: pa_debug.reset_err_stack;
154:
155: EXCEPTION
156: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
157: l_msg_count := FND_MSG_PUB.count_msg;
167: x_msg_count := l_msg_count;
168: ELSE
169: x_msg_count := l_msg_count;
170: END IF;
171: pa_debug.reset_err_stack;
172: RAISE;
173: WHEN OTHERS THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: x_msg_count := 1;
175: x_msg_count := 1;
176: x_msg_data := SQLERRM;
177: FND_MSG_PUB.add_exc_msg
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
179: ,p_procedure_name => pa_debug.G_Err_Stack );
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
176: x_msg_data := SQLERRM;
177: FND_MSG_PUB.add_exc_msg
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
179: ,p_procedure_name => pa_debug.G_Err_Stack );
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
184: pa_debug.reset_err_stack;
177: FND_MSG_PUB.add_exc_msg
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
179: ,p_procedure_name => pa_debug.G_Err_Stack );
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
184: pa_debug.reset_err_stack;
185:
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
179: ,p_procedure_name => pa_debug.G_Err_Stack );
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
184: pa_debug.reset_err_stack;
185:
186: raise FND_API.G_EXC_UNEXPECTED_ERROR;
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,SQLERRM,4);
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
184: pa_debug.reset_err_stack;
185:
186: raise FND_API.G_EXC_UNEXPECTED_ERROR;
187: END Refresh_FP_Elements;
188:
259:
260: BEGIN
261:
262: FND_MSG_PUB.initialize;
263: IF P_PA_DEBUG_MODE = 'Y' THEN
264: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Copy_Elements');
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
260: BEGIN
261:
262: FND_MSG_PUB.initialize;
263: IF P_PA_DEBUG_MODE = 'Y' THEN
264: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Copy_Elements');
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
268: IF P_PA_DEBUG_MODE = 'Y' THEN
262: FND_MSG_PUB.initialize;
263: IF P_PA_DEBUG_MODE = 'Y' THEN
264: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Copy_Elements');
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
268: IF P_PA_DEBUG_MODE = 'Y' THEN
269: pa_debug.set_process('Copy_Elements: ' || 'PLSQL','LOG',l_debug_mode);
270: END IF;
264: pa_debug.init_err_stack('PA_FP_ELEMENTS_PUB.Copy_Elements');
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
268: IF P_PA_DEBUG_MODE = 'Y' THEN
269: pa_debug.set_process('Copy_Elements: ' || 'PLSQL','LOG',l_debug_mode);
270: END IF;
271: x_msg_count := 0;
272:
265: END IF;
266: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
267: l_debug_mode := NVL(l_debug_mode, 'Y');
268: IF P_PA_DEBUG_MODE = 'Y' THEN
269: pa_debug.set_process('Copy_Elements: ' || 'PLSQL','LOG',l_debug_mode);
270: END IF;
271: x_msg_count := 0;
272:
273: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: x_return_status := FND_API.G_RET_STS_SUCCESS;
274:
275: IF (p_to_proj_fp_options_id IS NULL) THEN
276: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Proj FP Options ID is NULL.';
277: IF P_PA_DEBUG_MODE = 'Y' THEN
278: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
279: END IF;
280:
273: x_return_status := FND_API.G_RET_STS_SUCCESS;
274:
275: IF (p_to_proj_fp_options_id IS NULL) THEN
276: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Proj FP Options ID is NULL.';
277: IF P_PA_DEBUG_MODE = 'Y' THEN
278: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
279: END IF;
280:
281: x_return_status := FND_API.G_RET_STS_ERROR;
274:
275: IF (p_to_proj_fp_options_id IS NULL) THEN
276: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Proj FP Options ID is NULL.';
277: IF P_PA_DEBUG_MODE = 'Y' THEN
278: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
279: END IF;
280:
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
284: END IF;
285:
286: IF (p_to_element_type IS NULL) THEN
287:
288: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Element Type is NULL.';
289: IF P_PA_DEBUG_MODE = 'Y' THEN
290: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
291: END IF;
292: x_return_status := FND_API.G_RET_STS_ERROR;
285:
286: IF (p_to_element_type IS NULL) THEN
287:
288: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Element Type is NULL.';
289: IF P_PA_DEBUG_MODE = 'Y' THEN
290: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
291: END IF;
292: x_return_status := FND_API.G_RET_STS_ERROR;
293: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
286: IF (p_to_element_type IS NULL) THEN
287:
288: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Element Type is NULL.';
289: IF P_PA_DEBUG_MODE = 'Y' THEN
290: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
291: END IF;
292: x_return_status := FND_API.G_RET_STS_ERROR;
293: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
294: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
295: END IF;
296:
297: IF (p_from_proj_fp_options_id IS NOT NULL AND p_from_element_type IS NULL) THEN
298:
299: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Source Element Type is NULL.';
300: IF P_PA_DEBUG_MODE = 'Y' THEN
301: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
302: END IF;
303: x_return_status := FND_API.G_RET_STS_ERROR;
296:
297: IF (p_from_proj_fp_options_id IS NOT NULL AND p_from_element_type IS NULL) THEN
298:
299: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Source Element Type is NULL.';
300: IF P_PA_DEBUG_MODE = 'Y' THEN
301: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
302: END IF;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
297: IF (p_from_proj_fp_options_id IS NOT NULL AND p_from_element_type IS NULL) THEN
298:
299: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Source Element Type is NULL.';
300: IF P_PA_DEBUG_MODE = 'Y' THEN
301: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
302: END IF;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
305: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
313: l_stage := 200;
314: IF (p_from_proj_fp_options_id IS NOT NULL) THEN
315: /* If the Source Proj FP Option is passed, then the records have to be copied
316: from pa_fp_elements for the Source FP Option and the Source Element Type. */
317: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Source Proj FP Option is passed.';
318: IF P_PA_DEBUG_MODE = 'Y' THEN
319: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
320: END IF;
321:
314: IF (p_from_proj_fp_options_id IS NOT NULL) THEN
315: /* If the Source Proj FP Option is passed, then the records have to be copied
316: from pa_fp_elements for the Source FP Option and the Source Element Type. */
317: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Source Proj FP Option is passed.';
318: IF P_PA_DEBUG_MODE = 'Y' THEN
319: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
320: END IF;
321:
322: l_from_proj_fp_option_id := p_from_proj_fp_options_id;
315: /* If the Source Proj FP Option is passed, then the records have to be copied
316: from pa_fp_elements for the Source FP Option and the Source Element Type. */
317: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Source Proj FP Option is passed.';
318: IF P_PA_DEBUG_MODE = 'Y' THEN
319: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
320: END IF;
321:
322: l_from_proj_fp_option_id := p_from_proj_fp_options_id;
323: l_from_element_type := p_from_element_type;
330:
331: IF (l_par_fp_option_id IS NOT NULL) THEN
332: /* Since Parent FP Option is found, records have to be copied from pa_fp_elements
333: for the Parent FP Option and the Target Element Type. */
334: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is not null.';
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
337: END IF;
338:
331: IF (l_par_fp_option_id IS NOT NULL) THEN
332: /* Since Parent FP Option is found, records have to be copied from pa_fp_elements
333: for the Parent FP Option and the Target Element Type. */
334: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is not null.';
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
337: END IF;
338:
339: l_from_proj_fp_option_id := l_par_fp_option_id ;
332: /* Since Parent FP Option is found, records have to be copied from pa_fp_elements
333: for the Parent FP Option and the Target Element Type. */
334: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is not null.';
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
337: END IF;
338:
339: l_from_proj_fp_option_id := l_par_fp_option_id ;
340: -- l_from_element_type := p_to_element_type; /* M20-08: commented this */
338:
339: l_from_proj_fp_option_id := l_par_fp_option_id ;
340: -- l_from_element_type := p_to_element_type; /* M20-08: commented this */
341:
342: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Got parent. l_from_proj_fp_option_id = '|| l_from_proj_fp_option_id ;
343: IF P_PA_DEBUG_MODE = 'Y' THEN
344: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
345: END IF;
346:
339: l_from_proj_fp_option_id := l_par_fp_option_id ;
340: -- l_from_element_type := p_to_element_type; /* M20-08: commented this */
341:
342: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Got parent. l_from_proj_fp_option_id = '|| l_from_proj_fp_option_id ;
343: IF P_PA_DEBUG_MODE = 'Y' THEN
344: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
345: END IF;
346:
347:
340: -- l_from_element_type := p_to_element_type; /* M20-08: commented this */
341:
342: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Got parent. l_from_proj_fp_option_id = '|| l_from_proj_fp_option_id ;
343: IF P_PA_DEBUG_MODE = 'Y' THEN
344: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
345: END IF;
346:
347:
348: /* M20-AUG changes start from here */
382: l_from_element_type := p_to_element_type;
383:
384: END IF;
385:
386: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': from element type set = '|| l_from_element_type ;
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
383:
384: END IF;
385:
386: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': from element type set = '|| l_from_element_type ;
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
391:
384: END IF;
385:
386: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': from element type set = '|| l_from_element_type ;
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
391:
392: ELSE
393: /* Parent Proj Option ID not found, so Insert Default */
394: /* First delete the records from pa_fp_elements and then insert the Default
395: Values into PA_FP_Elements table. */
396:
397: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is null, hence insert_default.';
398: IF P_PA_DEBUG_MODE = 'Y' THEN
399: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
400: END IF;
401:
394: /* First delete the records from pa_fp_elements and then insert the Default
395: Values into PA_FP_Elements table. */
396:
397: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is null, hence insert_default.';
398: IF P_PA_DEBUG_MODE = 'Y' THEN
399: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
400: END IF;
401:
402: Delete_Elements(p_proj_fp_options_id => p_to_proj_fp_options_id
395: Values into PA_FP_Elements table. */
396:
397: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Parent FP Option is null, hence insert_default.';
398: IF P_PA_DEBUG_MODE = 'Y' THEN
399: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
400: END IF;
401:
402: Delete_Elements(p_proj_fp_options_id => p_to_proj_fp_options_id
403: ,p_element_type => p_to_element_type
408:
409: /* Insert Default values for the proj_fp_option_id, element_type and planning_level. */
410: IF (p_to_element_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
411: l_stage := 400;
412: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for Both - COST
413: and REVENUE.';
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
416: END IF;
410: IF (p_to_element_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
411: l_stage := 400;
412: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for Both - COST
413: and REVENUE.';
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
416: END IF;
417:
418: /* Get the value of the Cost and Revenue Planning Level for the proj_fp_options_id
411: l_stage := 400;
412: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for Both - COST
413: and REVENUE.';
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
416: END IF;
417:
418: /* Get the value of the Cost and Revenue Planning Level for the proj_fp_options_id
419: depending on the p_element_type value. */
417:
418: /* Get the value of the Cost and Revenue Planning Level for the proj_fp_options_id
419: depending on the p_element_type value. */
420:
421: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting planning level.';
422: IF P_PA_DEBUG_MODE = 'Y' THEN
423: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
424: END IF;
425:
418: /* Get the value of the Cost and Revenue Planning Level for the proj_fp_options_id
419: depending on the p_element_type value. */
420:
421: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting planning level.';
422: IF P_PA_DEBUG_MODE = 'Y' THEN
423: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
424: END IF;
425:
426: SELECT cost_fin_plan_level_code
419: depending on the p_element_type value. */
420:
421: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting planning level.';
422: IF P_PA_DEBUG_MODE = 'Y' THEN
423: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
424: END IF;
425:
426: SELECT cost_fin_plan_level_code
427: ,revenue_fin_plan_level_code
439: WHERE proj_fp_options_id = p_to_proj_fp_options_id;
440:
441: /* Call Insert_Default twice, once with Element_Type as 'COST' and then as PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
442: as the case of element_type being 'BOTH' is not handled in Insert_Default. */
443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for cost.';
444: IF P_PA_DEBUG_MODE = 'Y' THEN
445: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
446: END IF;
447: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
440:
441: /* Call Insert_Default twice, once with Element_Type as 'COST' and then as PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
442: as the case of element_type being 'BOTH' is not handled in Insert_Default. */
443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for cost.';
444: IF P_PA_DEBUG_MODE = 'Y' THEN
445: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
446: END IF;
447: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
448: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
441: /* Call Insert_Default twice, once with Element_Type as 'COST' and then as PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
442: as the case of element_type being 'BOTH' is not handled in Insert_Default. */
443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for cost.';
444: IF P_PA_DEBUG_MODE = 'Y' THEN
445: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
446: END IF;
447: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
448: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
449: ,p_planning_level => l_cost_planning_level
453: ,x_return_status => x_return_status
454: ,x_msg_count => x_msg_count
455: ,x_msg_data => x_msg_data);
456:
457: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for revenue.';
458: IF P_PA_DEBUG_MODE = 'Y' THEN
459: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
460: END IF;
461:
454: ,x_msg_count => x_msg_count
455: ,x_msg_data => x_msg_data);
456:
457: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for revenue.';
458: IF P_PA_DEBUG_MODE = 'Y' THEN
459: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
460: END IF;
461:
462: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
455: ,x_msg_data => x_msg_data);
456:
457: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for revenue.';
458: IF P_PA_DEBUG_MODE = 'Y' THEN
459: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
460: END IF;
461:
462: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
463: ,p_element_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
472: l_stage := 500;
473: /* Get the value of the Planning Level for the proj_fp_options_id depending on the
474: p_element_type value. */
475:
476: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for either COST
477: OR REVENUE.';
478: IF P_PA_DEBUG_MODE = 'Y' THEN
479: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
480: END IF;
474: p_element_type value. */
475:
476: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for either COST
477: OR REVENUE.';
478: IF P_PA_DEBUG_MODE = 'Y' THEN
479: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
480: END IF;
481:
482: /* M20-AUG: replaced select with call to fin plan utils */
475:
476: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting Default Values for either COST
477: OR REVENUE.';
478: IF P_PA_DEBUG_MODE = 'Y' THEN
479: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
480: END IF;
481:
482: /* M20-AUG: replaced select with call to fin plan utils */
483:
482: /* M20-AUG: replaced select with call to fin plan utils */
483:
484: l_planning_level := PA_FIN_PLAN_UTILS.get_option_planning_level(p_to_proj_fp_options_id ,l_planning_level);
485:
486: IF P_PA_DEBUG_MODE = 'Y' THEN
487: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetching auto res addition params from option.';
488: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
489: END IF;
490:
483:
484: l_planning_level := PA_FIN_PLAN_UTILS.get_option_planning_level(p_to_proj_fp_options_id ,l_planning_level);
485:
486: IF P_PA_DEBUG_MODE = 'Y' THEN
487: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetching auto res addition params from option.';
488: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
489: END IF;
490:
491: /* Bug 2920954 start of changes */
484: l_planning_level := PA_FIN_PLAN_UTILS.get_option_planning_level(p_to_proj_fp_options_id ,l_planning_level);
485:
486: IF P_PA_DEBUG_MODE = 'Y' THEN
487: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetching auto res addition params from option.';
488: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
489: END IF;
490:
491: /* Bug 2920954 start of changes */
492:
504: WHERE proj_fp_options_id = p_to_proj_fp_options_id;
505:
506: /* Bug 2920954 end of changes */
507:
508: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for element type.';
509: IF P_PA_DEBUG_MODE = 'Y' THEN
510: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
511: END IF;
512:
505:
506: /* Bug 2920954 end of changes */
507:
508: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for element type.';
509: IF P_PA_DEBUG_MODE = 'Y' THEN
510: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
511: END IF;
512:
513: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
506: /* Bug 2920954 end of changes */
507:
508: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': calling insert default for element type.';
509: IF P_PA_DEBUG_MODE = 'Y' THEN
510: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
511: END IF;
512:
513: Insert_Default(p_proj_fp_options_id => p_to_proj_fp_options_id
514: ,p_element_type => p_to_element_type
528:
529: /* Get the values of the Plan_Type_ID and Plan_Version_ID of the Target
530: FP Option to be used while inserting records into pa_fp_elements. */
531:
532: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting info from to option id.';
533: IF P_PA_DEBUG_MODE = 'Y' THEN
534: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
535: END IF;
536:
529: /* Get the values of the Plan_Type_ID and Plan_Version_ID of the Target
530: FP Option to be used while inserting records into pa_fp_elements. */
531:
532: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting info from to option id.';
533: IF P_PA_DEBUG_MODE = 'Y' THEN
534: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
535: END IF;
536:
537: SELECT fin_plan_type_id, fin_plan_version_id,project_id,
530: FP Option to be used while inserting records into pa_fp_elements. */
531:
532: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting info from to option id.';
533: IF P_PA_DEBUG_MODE = 'Y' THEN
534: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
535: END IF;
536:
537: SELECT fin_plan_type_id, fin_plan_version_id,project_id,
538: DECODE(fin_plan_preference_code,
549: WHERE proj_fp_options_id = p_to_proj_fp_options_id;
550:
551:
552: /*Get the project id of source fp options id */
553: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project of source.';
554: IF P_PA_DEBUG_MODE = 'Y' THEN
555: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
556: END IF;
557:
550:
551:
552: /*Get the project id of source fp options id */
553: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project of source.';
554: IF P_PA_DEBUG_MODE = 'Y' THEN
555: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
556: END IF;
557:
558: SELECT project_id,
551:
552: /*Get the project id of source fp options id */
553: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project of source.';
554: IF P_PA_DEBUG_MODE = 'Y' THEN
555: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
556: END IF;
557:
558: SELECT project_id,
559: DECODE(l_from_element_type,
574:
575: IF (l_from_planning_level <> l_to_planning_level OR
576: l_from_resource_list_id <> l_to_resource_list_id) THEN
577:
578: pa_debug.g_err_stage := 'Bug# 2684787: PA_FP_ELEMENTS_PUB.COPY_ELEMENTS being called with ' ||
579: 'incompatible planning levels/resource list ids..';
580: IF P_PA_DEBUG_MODE = 'Y' THEN
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
576: l_from_resource_list_id <> l_to_resource_list_id) THEN
577:
578: pa_debug.g_err_stage := 'Bug# 2684787: PA_FP_ELEMENTS_PUB.COPY_ELEMENTS being called with ' ||
579: 'incompatible planning levels/resource list ids..';
580: IF P_PA_DEBUG_MODE = 'Y' THEN
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
583: pa_debug.g_err_stage := l_from_planning_level || ':' || l_to_planning_level || ':' ||
584: to_char(l_from_resource_list_id) || ':' || to_char(l_to_resource_list_id);
577:
578: pa_debug.g_err_stage := 'Bug# 2684787: PA_FP_ELEMENTS_PUB.COPY_ELEMENTS being called with ' ||
579: 'incompatible planning levels/resource list ids..';
580: IF P_PA_DEBUG_MODE = 'Y' THEN
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
583: pa_debug.g_err_stage := l_from_planning_level || ':' || l_to_planning_level || ':' ||
584: to_char(l_from_resource_list_id) || ':' || to_char(l_to_resource_list_id);
585: IF P_PA_DEBUG_MODE = 'Y' THEN
579: 'incompatible planning levels/resource list ids..';
580: IF P_PA_DEBUG_MODE = 'Y' THEN
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
583: pa_debug.g_err_stage := l_from_planning_level || ':' || l_to_planning_level || ':' ||
584: to_char(l_from_resource_list_id) || ':' || to_char(l_to_resource_list_id);
585: IF P_PA_DEBUG_MODE = 'Y' THEN
586: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
587: END IF;
581: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
582: END IF;
583: pa_debug.g_err_stage := l_from_planning_level || ':' || l_to_planning_level || ':' ||
584: to_char(l_from_resource_list_id) || ':' || to_char(l_to_resource_list_id);
585: IF P_PA_DEBUG_MODE = 'Y' THEN
586: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
587: END IF;
588: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
589: END IF;
582: END IF;
583: pa_debug.g_err_stage := l_from_planning_level || ':' || l_to_planning_level || ':' ||
584: to_char(l_from_resource_list_id) || ':' || to_char(l_to_resource_list_id);
585: IF P_PA_DEBUG_MODE = 'Y' THEN
586: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,4);
587: END IF;
588: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
589: END IF;
590:
590:
591:
592: /* Delete the records from pa_fp_elements for the Target Proj FP Option and Target Element Type
593: before inserting records into pa_fp_elements. */
594: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Deleting the Elements from FP Elements';
595: IF P_PA_DEBUG_MODE = 'Y' THEN
596: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
597: END IF;
598: Delete_Elements(p_proj_fp_options_id => p_to_proj_fp_options_id
591:
592: /* Delete the records from pa_fp_elements for the Target Proj FP Option and Target Element Type
593: before inserting records into pa_fp_elements. */
594: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Deleting the Elements from FP Elements';
595: IF P_PA_DEBUG_MODE = 'Y' THEN
596: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
597: END IF;
598: Delete_Elements(p_proj_fp_options_id => p_to_proj_fp_options_id
599: ,p_element_type => p_to_element_type
592: /* Delete the records from pa_fp_elements for the Target Proj FP Option and Target Element Type
593: before inserting records into pa_fp_elements. */
594: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Deleting the Elements from FP Elements';
595: IF P_PA_DEBUG_MODE = 'Y' THEN
596: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
597: END IF;
598: Delete_Elements(p_proj_fp_options_id => p_to_proj_fp_options_id
599: ,p_element_type => p_to_element_type
600: ,p_element_level => PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK -- 'TASK'
605: /* Get the records from pa_fp_elements for the Proj FP Option and the Element Type
606: and insert into PA_FP_ELEMENTS. */
607: l_stage :=700;
608:
609: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records into PA_FP_ELEMENTS';
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
612: END IF;
613:
606: and insert into PA_FP_ELEMENTS. */
607: l_stage :=700;
608:
609: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records into PA_FP_ELEMENTS';
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
612: END IF;
613:
614: -- IF source and target projects are same
607: l_stage :=700;
608:
609: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records into PA_FP_ELEMENTS';
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
612: END IF;
613:
614: -- IF source and target projects are same
615:
668: /* Bug 2966275 null handling is necessary for plan_amount_exists_flag as in someplaces its being populated as null */
669:
670: ELSE --if projects are different then
671:
672: IF P_PA_DEBUG_MODE = 'Y' THEN
673: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': projects are different.';
674: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
675: END IF;
676:
669:
670: ELSE --if projects are different then
671:
672: IF P_PA_DEBUG_MODE = 'Y' THEN
673: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': projects are different.';
674: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
675: END IF;
676:
677: INSERT INTO pa_fp_elements
670: ELSE --if projects are different then
671:
672: IF P_PA_DEBUG_MODE = 'Y' THEN
673: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': projects are different.';
674: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
675: END IF;
676:
677: INSERT INTO pa_fp_elements
678: (PROJ_FP_ELEMENTS_ID
746: WHERE proj_fp_options_id = l_from_proj_fp_option_id;
747:
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF P_PA_DEBUG_MODE = 'Y' THEN
751: pa_debug.g_err_stage := 'Error while fetching the fp option record of '||l_from_proj_fp_option_id;
752: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
753: END IF;
754: RAISE;
747:
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF P_PA_DEBUG_MODE = 'Y' THEN
751: pa_debug.g_err_stage := 'Error while fetching the fp option record of '||l_from_proj_fp_option_id;
752: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
753: END IF;
754: RAISE;
755: END;
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF P_PA_DEBUG_MODE = 'Y' THEN
751: pa_debug.g_err_stage := 'Error while fetching the fp option record of '||l_from_proj_fp_option_id;
752: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
753: END IF;
754: RAISE;
755: END;
756:
826: IF nvl(p_copy_mode ,'-99') <> PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED AND
827: l_from_proj_fp_option_id IS NOT NULL AND
828: l_from_element_type IS NOT NULL THEN
829:
830: pa_debug.g_err_stage := TO_CHAR(l_stage)||': About to call Copy_Excluded_Elements';
831: IF P_PA_DEBUG_MODE = 'Y' THEN
832: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
833: END IF;
834:
827: l_from_proj_fp_option_id IS NOT NULL AND
828: l_from_element_type IS NOT NULL THEN
829:
830: pa_debug.g_err_stage := TO_CHAR(l_stage)||': About to call Copy_Excluded_Elements';
831: IF P_PA_DEBUG_MODE = 'Y' THEN
832: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
833: END IF;
834:
835: PA_FP_EXCLUDED_ELEMENTS_PUB.Copy_Excluded_Elements
828: l_from_element_type IS NOT NULL THEN
829:
830: pa_debug.g_err_stage := TO_CHAR(l_stage)||': About to call Copy_Excluded_Elements';
831: IF P_PA_DEBUG_MODE = 'Y' THEN
832: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
833: END IF;
834:
835: PA_FP_EXCLUDED_ELEMENTS_PUB.Copy_Excluded_Elements
836: ( p_from_proj_fp_options_id => l_from_proj_fp_option_id
841: ,x_msg_count => x_msg_count
842: ,x_msg_data => x_msg_data);
843:
844: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
845: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Copy_Excluded_Elements errored out '||x_msg_data;
846: IF P_PA_DEBUG_MODE = 'Y' THEN
847: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
848: END IF;
849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
842: ,x_msg_data => x_msg_data);
843:
844: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
845: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Copy_Excluded_Elements errored out '||x_msg_data;
846: IF P_PA_DEBUG_MODE = 'Y' THEN
847: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
848: END IF;
849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
850: END IF;
843:
844: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
845: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Copy_Excluded_Elements errored out '||x_msg_data;
846: IF P_PA_DEBUG_MODE = 'Y' THEN
847: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
848: END IF;
849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
850: END IF;
851: END IF;
849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
850: END IF;
851: END IF;
852:
853: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Copy_Elements';
854: IF P_PA_DEBUG_MODE = 'Y' THEN
855: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
856: END IF;
857: pa_debug.reset_err_stack;
850: END IF;
851: END IF;
852:
853: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Copy_Elements';
854: IF P_PA_DEBUG_MODE = 'Y' THEN
855: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
856: END IF;
857: pa_debug.reset_err_stack;
858:
851: END IF;
852:
853: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Copy_Elements';
854: IF P_PA_DEBUG_MODE = 'Y' THEN
855: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
856: END IF;
857: pa_debug.reset_err_stack;
858:
859: EXCEPTION
853: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Copy_Elements';
854: IF P_PA_DEBUG_MODE = 'Y' THEN
855: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
856: END IF;
857: pa_debug.reset_err_stack;
858:
859: EXCEPTION
860: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
861: l_msg_count := FND_MSG_PUB.count_msg;
871: x_msg_count := l_msg_count;
872: ELSE
873: x_msg_count := l_msg_count;
874: END IF;
875: pa_debug.reset_err_stack;
876: RAISE;
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: x_msg_count := 1;
879: x_msg_count := 1;
880: x_msg_data := SQLERRM;
881: FND_MSG_PUB.add_exc_msg
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
883: ,p_procedure_name => pa_debug.G_Err_Stack );
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
880: x_msg_data := SQLERRM;
881: FND_MSG_PUB.add_exc_msg
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
883: ,p_procedure_name => pa_debug.G_Err_Stack );
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
888: pa_debug.reset_err_stack;
881: FND_MSG_PUB.add_exc_msg
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
883: ,p_procedure_name => pa_debug.G_Err_Stack );
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
888: pa_debug.reset_err_stack;
889:
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
883: ,p_procedure_name => pa_debug.G_Err_Stack );
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
888: pa_debug.reset_err_stack;
889:
890: raise FND_API.G_EXC_UNEXPECTED_ERROR;
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.write('Copy_Elements: ' || l_module_name,SQLERRM,4);
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
888: pa_debug.reset_err_stack;
889:
890: raise FND_API.G_EXC_UNEXPECTED_ERROR;
891: END Copy_Elements;
892:
1014: AND task_id = top_task_id;
1015:
1016: BEGIN
1017:
1018: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Insert_Default');
1019: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1020: l_debug_mode := NVL(l_debug_mode, 'Y');
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1015:
1016: BEGIN
1017:
1018: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Insert_Default');
1019: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1020: l_debug_mode := NVL(l_debug_mode, 'Y');
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1023: END IF;
1017:
1018: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Insert_Default');
1019: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1020: l_debug_mode := NVL(l_debug_mode, 'Y');
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1023: END IF;
1024:
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Insert_Default');
1019: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1020: l_debug_mode := NVL(l_debug_mode, 'Y');
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1023: END IF;
1024:
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026:
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026:
1027: /* Check for the input parameters not being NULL. */
1028: IF (p_proj_fp_options_id IS NULL) THEN
1029: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Option ID cannot be NULL.';
1030: IF P_PA_DEBUG_MODE = 'Y' THEN
1031: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1026:
1027: /* Check for the input parameters not being NULL. */
1028: IF (p_proj_fp_options_id IS NULL) THEN
1029: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Option ID cannot be NULL.';
1030: IF P_PA_DEBUG_MODE = 'Y' THEN
1031: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1034: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Element Type cannot be NULL.';
1027: /* Check for the input parameters not being NULL. */
1028: IF (p_proj_fp_options_id IS NULL) THEN
1029: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Option ID cannot be NULL.';
1030: IF P_PA_DEBUG_MODE = 'Y' THEN
1031: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1034: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Element Type cannot be NULL.';
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1030: IF P_PA_DEBUG_MODE = 'Y' THEN
1031: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1034: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Element Type cannot be NULL.';
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1037: END IF;
1038: END IF;
1031: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1034: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Element Type cannot be NULL.';
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1037: END IF;
1038: END IF;
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1032: END IF;
1033: IF (p_element_type IS NULL) THEN
1034: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Element Type cannot be NULL.';
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1037: END IF;
1038: END IF;
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1045: l_stage :=200;
1046: /* If the Planning Level parameter is not passed, get the value of the planning level
1047: from the table pa_proj_fp_options depending on the Element_Type. */
1048:
1049: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Getting the value of Planning Level.';
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1052: END IF;
1053:
1046: /* If the Planning Level parameter is not passed, get the value of the planning level
1047: from the table pa_proj_fp_options depending on the Element_Type. */
1048:
1049: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Getting the value of Planning Level.';
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1052: END IF;
1053:
1054: IF (p_planning_level IS NOT NULL) THEN
1047: from the table pa_proj_fp_options depending on the Element_Type. */
1048:
1049: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Getting the value of Planning Level.';
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1052: END IF;
1053:
1054: IF (p_planning_level IS NOT NULL) THEN
1055: /* Planning Level is passed to the procedure, if Proj FP Option records
1076: /* Resource List ID is passed to the procedure, if Proj FP Option records
1077: have not been saved to the Database. */
1078: l_resource_list_id := p_resource_list_id;
1079: ELSE
1080: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Resource List ID not passed getting from option.';
1081: IF P_PA_DEBUG_MODE = 'Y' THEN
1082: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1083: END IF;
1084:
1077: have not been saved to the Database. */
1078: l_resource_list_id := p_resource_list_id;
1079: ELSE
1080: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Resource List ID not passed getting from option.';
1081: IF P_PA_DEBUG_MODE = 'Y' THEN
1082: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1083: END IF;
1084:
1085: SELECT decode(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_resource_list_id
1078: l_resource_list_id := p_resource_list_id;
1079: ELSE
1080: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Resource List ID not passed getting from option.';
1081: IF P_PA_DEBUG_MODE = 'Y' THEN
1082: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1083: END IF;
1084:
1085: SELECT decode(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_resource_list_id
1086: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,revenue_resource_list_id,
1095:
1096: IF (p_select_res_auto_flag IS NULL) AND (p_res_planning_level IS NULL)
1097: THEN
1098:
1099: IF P_PA_DEBUG_MODE = 'Y' THEN
1100: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Auto res addition params not passed getting from option.';
1101: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1102: END IF;
1103:
1096: IF (p_select_res_auto_flag IS NULL) AND (p_res_planning_level IS NULL)
1097: THEN
1098:
1099: IF P_PA_DEBUG_MODE = 'Y' THEN
1100: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Auto res addition params not passed getting from option.';
1101: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1102: END IF;
1103:
1104: SELECT decode(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, select_cost_res_auto_flag
1097: THEN
1098:
1099: IF P_PA_DEBUG_MODE = 'Y' THEN
1100: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Auto res addition params not passed getting from option.';
1101: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1102: END IF;
1103:
1104: SELECT decode(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, select_cost_res_auto_flag
1105: ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,select_rev_res_auto_flag
1122: l_select_res_auto_flag := p_select_res_auto_flag;
1123: l_res_planning_level := p_res_planning_level ;
1124: END IF;
1125:
1126: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project id plan type id and plan version id from option.';
1127: IF P_PA_DEBUG_MODE = 'Y' THEN
1128: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1129: END IF;
1130:
1123: l_res_planning_level := p_res_planning_level ;
1124: END IF;
1125:
1126: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project id plan type id and plan version id from option.';
1127: IF P_PA_DEBUG_MODE = 'Y' THEN
1128: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1129: END IF;
1130:
1131: SELECT project_id, fin_plan_type_id, fin_plan_version_id
1124: END IF;
1125:
1126: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project id plan type id and plan version id from option.';
1127: IF P_PA_DEBUG_MODE = 'Y' THEN
1128: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1129: END IF;
1130:
1131: SELECT project_id, fin_plan_type_id, fin_plan_version_id
1132: INTO l_project_id, l_fin_plan_type_id, l_fin_plan_version_id
1134: WHERE proj_fp_options_id = p_proj_fp_options_id;
1135:
1136: /* Get the value of the Resource Planning Level. The value is NULL if the resource_list_id of the
1137: element_type is Uncategorised, else it is "RESOURCE". */
1138: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting resource planning level from resource list.';
1139: IF P_PA_DEBUG_MODE = 'Y' THEN
1140: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1141: END IF;
1142:
1135:
1136: /* Get the value of the Resource Planning Level. The value is NULL if the resource_list_id of the
1137: element_type is Uncategorised, else it is "RESOURCE". */
1138: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting resource planning level from resource list.';
1139: IF P_PA_DEBUG_MODE = 'Y' THEN
1140: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1141: END IF;
1142:
1143: /* SELECT decode(uncategorized_flag,'Y',NULL,PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_R)
1136: /* Get the value of the Resource Planning Level. The value is NULL if the resource_list_id of the
1137: element_type is Uncategorised, else it is "RESOURCE". */
1138: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting resource planning level from resource list.';
1139: IF P_PA_DEBUG_MODE = 'Y' THEN
1140: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1141: END IF;
1142:
1143: /* SELECT decode(uncategorized_flag,'Y',NULL,PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_R)
1144: INTO l_res_planning_level
1187: -- References to PA_FP_ELEMENTS table have been commented as records are no longer inserted in it
1188: --Comment START.
1189:
1190: /*
1191: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Bulk Inserting records into PA_FP_Elements';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1194: END IF;
1195: IF l_planning_level IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M)
1188: --Comment START.
1189:
1190: /*
1191: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Bulk Inserting records into PA_FP_Elements';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1194: END IF;
1195: IF l_planning_level IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M)
1196: THEN --Planning Level is Top and Lowest Task (OR) Lowest Task
1189:
1190: /*
1191: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Bulk Inserting records into PA_FP_Elements';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1194: END IF;
1195: IF l_planning_level IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M)
1196: THEN --Planning Level is Top and Lowest Task (OR) Lowest Task
1197: l_stage := 500;
1194: END IF;
1195: IF l_planning_level IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M)
1196: THEN --Planning Level is Top and Lowest Task (OR) Lowest Task
1197: l_stage := 500;
1198: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top and Lowest Tasks.';
1199: IF P_PA_DEBUG_MODE = 'Y' THEN
1200: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1201: END IF;
1202:
1195: IF l_planning_level IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M)
1196: THEN --Planning Level is Top and Lowest Task (OR) Lowest Task
1197: l_stage := 500;
1198: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top and Lowest Tasks.';
1199: IF P_PA_DEBUG_MODE = 'Y' THEN
1200: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1201: END IF;
1202:
1203: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': opening top and lowest task cur';
1196: THEN --Planning Level is Top and Lowest Task (OR) Lowest Task
1197: l_stage := 500;
1198: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top and Lowest Tasks.';
1199: IF P_PA_DEBUG_MODE = 'Y' THEN
1200: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1201: END IF;
1202:
1203: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': opening top and lowest task cur';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1199: IF P_PA_DEBUG_MODE = 'Y' THEN
1200: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1201: END IF;
1202:
1203: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': opening top and lowest task cur';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1206: END IF;
1207:
1200: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1201: END IF;
1202:
1203: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': opening top and lowest task cur';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1206: END IF;
1207:
1208: OPEN top_low_tasks_cur(l_project_id);
1201: END IF;
1202:
1203: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': opening top and lowest task cur';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1206: END IF;
1207:
1208: OPEN top_low_tasks_cur(l_project_id);
1209: LOOP
1213: ,l_top_plan_level_tbl
1214: ,l_plannable_flag_tbl
1215: LIMIT l_plsql_max_array_size;
1216:
1217: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetched ' || sql%rowcount || ' records';
1218: IF P_PA_DEBUG_MODE = 'Y' THEN
1219: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1220: END IF;
1221:
1214: ,l_plannable_flag_tbl
1215: LIMIT l_plsql_max_array_size;
1216:
1217: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetched ' || sql%rowcount || ' records';
1218: IF P_PA_DEBUG_MODE = 'Y' THEN
1219: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1220: END IF;
1221:
1222: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1215: LIMIT l_plsql_max_array_size;
1216:
1217: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': fetched ' || sql%rowcount || ' records';
1218: IF P_PA_DEBUG_MODE = 'Y' THEN
1219: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1220: END IF;
1221:
1222: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1223:
1220: END IF;
1221:
1222: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1223:
1224: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top and Lowest Tasks.';
1225: IF P_PA_DEBUG_MODE = 'Y' THEN
1226: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1227: END IF;
1228:
1221:
1222: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1223:
1224: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top and Lowest Tasks.';
1225: IF P_PA_DEBUG_MODE = 'Y' THEN
1226: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1227: END IF;
1228:
1229: FORALL i in l_task_id_tbl.first..l_task_id_tbl.last
1222: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1223:
1224: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top and Lowest Tasks.';
1225: IF P_PA_DEBUG_MODE = 'Y' THEN
1226: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1227: END IF;
1228:
1229: FORALL i in l_task_id_tbl.first..l_task_id_tbl.last
1230: -- Bulk Insert records into PA_FP_ELEMENTS table for the details fetched
1275: ,sysdate
1276: ,fnd_global.user_id
1277: ,fnd_global.login_id);
1278:
1279: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': inserted ' || sql%rowcount || ' records';
1280: IF P_PA_DEBUG_MODE = 'Y' THEN
1281: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1282: END IF;
1283:
1276: ,fnd_global.user_id
1277: ,fnd_global.login_id);
1278:
1279: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': inserted ' || sql%rowcount || ' records';
1280: IF P_PA_DEBUG_MODE = 'Y' THEN
1281: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1282: END IF;
1283:
1284:
1277: ,fnd_global.login_id);
1278:
1279: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': inserted ' || sql%rowcount || ' records';
1280: IF P_PA_DEBUG_MODE = 'Y' THEN
1281: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1282: END IF;
1283:
1284:
1285: END IF;
1290: CLOSE top_low_tasks_cur;
1291:
1292: ELSIF l_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN -- Planning Level is Top Task
1293: l_stage := 600;
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top Tasks only.';
1295: IF P_PA_DEBUG_MODE = 'Y' THEN
1296: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1297: END IF;
1298:
1291:
1292: ELSIF l_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN -- Planning Level is Top Task
1293: l_stage := 600;
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top Tasks only.';
1295: IF P_PA_DEBUG_MODE = 'Y' THEN
1296: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1297: END IF;
1298:
1299: OPEN top_tasks_cur(l_project_id);
1292: ELSIF l_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN -- Planning Level is Top Task
1293: l_stage := 600;
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Fetching records for Top Tasks only.';
1295: IF P_PA_DEBUG_MODE = 'Y' THEN
1296: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1297: END IF;
1298:
1299: OPEN top_tasks_cur(l_project_id);
1300: LOOP
1305: ,l_plannable_flag_tbl
1306: LIMIT l_plsql_max_array_size;
1307:
1308: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top Tasks only.';
1310: IF P_PA_DEBUG_MODE = 'Y' THEN
1311: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1312: END IF;
1313:
1306: LIMIT l_plsql_max_array_size;
1307:
1308: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top Tasks only.';
1310: IF P_PA_DEBUG_MODE = 'Y' THEN
1311: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1312: END IF;
1313:
1314: FORALL i in l_task_id_tbl.first..l_task_id_tbl.last
1307:
1308: IF nvl(l_task_id_tbl.last,0) >= 1 THEN -- only if something is fetched
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Inserting records for Top Tasks only.';
1310: IF P_PA_DEBUG_MODE = 'Y' THEN
1311: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,3);
1312: END IF;
1313:
1314: FORALL i in l_task_id_tbl.first..l_task_id_tbl.last
1315: -- Bulk Insert records into PA_FP_ELEMENTS table for the details fetched
1373: l_stage := 700;
1374:
1375: -- No records will be inserted into pa_fp_elements if the Planning Level is 'Project'
1376:
1377: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Nothing to be done for Planning Level at PROJECT';
1378: IF P_PA_DEBUG_MODE = 'Y' THEN
1379: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1380: END IF;
1381: NULL;
1374:
1375: -- No records will be inserted into pa_fp_elements if the Planning Level is 'Project'
1376:
1377: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Nothing to be done for Planning Level at PROJECT';
1378: IF P_PA_DEBUG_MODE = 'Y' THEN
1379: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1380: END IF;
1381: NULL;
1382:
1375: -- No records will be inserted into pa_fp_elements if the Planning Level is 'Project'
1376:
1377: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Nothing to be done for Planning Level at PROJECT';
1378: IF P_PA_DEBUG_MODE = 'Y' THEN
1379: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1380: END IF;
1381: NULL;
1382:
1383: END IF; -- End of check for l_planning_level
1393:
1394: IF l_select_res_auto_flag = 'Y'
1395: THEN
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling add_resources_automatically';
1399: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1400: END IF;
1401:
1394: IF l_select_res_auto_flag = 'Y'
1395: THEN
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling add_resources_automatically';
1399: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1400: END IF;
1401:
1402: PA_FP_ELEMENTS_PUB.Add_resources_automatically
1395: THEN
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling add_resources_automatically';
1399: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1400: END IF;
1401:
1402: PA_FP_ELEMENTS_PUB.Add_resources_automatically
1403: ( p_proj_fp_options_id => p_proj_fp_options_id
1412: ,x_msg_data => x_msg_data
1413: );
1414: END IF;
1415:
1416: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Insert_Default';
1417: IF P_PA_DEBUG_MODE = 'Y' THEN
1418: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1419: END IF;
1420: pa_debug.reset_err_stack;
1413: );
1414: END IF;
1415:
1416: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Insert_Default';
1417: IF P_PA_DEBUG_MODE = 'Y' THEN
1418: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1419: END IF;
1420: pa_debug.reset_err_stack;
1421:
1414: END IF;
1415:
1416: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Insert_Default';
1417: IF P_PA_DEBUG_MODE = 'Y' THEN
1418: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1419: END IF;
1420: pa_debug.reset_err_stack;
1421:
1422: EXCEPTION
1416: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Insert_Default';
1417: IF P_PA_DEBUG_MODE = 'Y' THEN
1418: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,1);
1419: END IF;
1420: pa_debug.reset_err_stack;
1421:
1422: EXCEPTION
1423: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1424: l_msg_count := FND_MSG_PUB.count_msg;
1434: x_msg_count := l_msg_count;
1435: ELSE
1436: x_msg_count := l_msg_count;
1437: END IF;
1438: pa_debug.reset_err_stack;
1439: RAISE;
1440: WHEN OTHERS THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := 1;
1442: x_msg_count := 1;
1443: x_msg_data := SQLERRM;
1444: FND_MSG_PUB.add_exc_msg
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1446: ,p_procedure_name => pa_debug.G_Err_Stack );
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1443: x_msg_data := SQLERRM;
1444: FND_MSG_PUB.add_exc_msg
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1446: ,p_procedure_name => pa_debug.G_Err_Stack );
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1451: pa_debug.reset_err_stack;
1444: FND_MSG_PUB.add_exc_msg
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1446: ,p_procedure_name => pa_debug.G_Err_Stack );
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1451: pa_debug.reset_err_stack;
1452:
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1446: ,p_procedure_name => pa_debug.G_Err_Stack );
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1451: pa_debug.reset_err_stack;
1452:
1453: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1447: IF P_PA_DEBUG_MODE = 'Y' THEN
1448: pa_debug.write('Insert_Default: ' || l_module_name,SQLERRM,4);
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1451: pa_debug.reset_err_stack;
1452:
1453: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END Insert_Default;
1455:
1479: l_debug_mode VARCHAR2(30);
1480:
1481: BEGIN
1482:
1483: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Elements');
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1480:
1481: BEGIN
1482:
1483: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Elements');
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1488: END IF;
1482:
1483: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Elements');
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1488: END IF;
1489:
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1483: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Elements');
1484: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1485: l_debug_mode := NVL(l_debug_mode, 'Y');
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1488: END IF;
1489:
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491:
1492: /* Delete the records from the table PA_FP_Elements based on the Element_Type and
1493: the Element_Level. If the Element_Type is 'BOTH' then both the COST and
1494: REVENUE Planning Elements have to be deleted. */
1495:
1496: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
1497: IF P_PA_DEBUG_MODE = 'Y' THEN
1498: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1499: END IF;
1500:
1493: the Element_Level. If the Element_Type is 'BOTH' then both the COST and
1494: REVENUE Planning Elements have to be deleted. */
1495:
1496: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
1497: IF P_PA_DEBUG_MODE = 'Y' THEN
1498: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1499: END IF;
1500:
1501: IF (p_element_level = PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK) THEN
1494: REVENUE Planning Elements have to be deleted. */
1495:
1496: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
1497: IF P_PA_DEBUG_MODE = 'Y' THEN
1498: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1499: END IF;
1500:
1501: IF (p_element_level = PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK) THEN
1502:
1501: IF (p_element_level = PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_TASK) THEN
1502:
1503: /* If Element Level is 'TASK', then delete FP Elements with Level as 'TASK' */
1504:
1505: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as TASK';
1506: IF P_PA_DEBUG_MODE = 'Y' THEN
1507: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1508: END IF;
1509:
1502:
1503: /* If Element Level is 'TASK', then delete FP Elements with Level as 'TASK' */
1504:
1505: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as TASK';
1506: IF P_PA_DEBUG_MODE = 'Y' THEN
1507: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1508: END IF;
1509:
1510: DELETE FROM pa_fp_elements
1503: /* If Element Level is 'TASK', then delete FP Elements with Level as 'TASK' */
1504:
1505: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as TASK';
1506: IF P_PA_DEBUG_MODE = 'Y' THEN
1507: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1508: END IF;
1509:
1510: DELETE FROM pa_fp_elements
1511: WHERE proj_fp_options_id = p_proj_fp_options_id
1523:
1524: /* If Element Level is 'RESOURCE', then delete FP Elements with Level as
1525: 'RESOURCE' and where the resource_list_memeber_id is not 0 */
1526:
1527: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as RESOURCE';
1528: IF P_PA_DEBUG_MODE = 'Y' THEN
1529: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1530: END IF;
1531:
1524: /* If Element Level is 'RESOURCE', then delete FP Elements with Level as
1525: 'RESOURCE' and where the resource_list_memeber_id is not 0 */
1526:
1527: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as RESOURCE';
1528: IF P_PA_DEBUG_MODE = 'Y' THEN
1529: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1530: END IF;
1531:
1532: DELETE FROM pa_fp_elements
1525: 'RESOURCE' and where the resource_list_memeber_id is not 0 */
1526:
1527: pa_debug.g_err_stage := 'Deleting Elements for the Element Level as RESOURCE';
1528: IF P_PA_DEBUG_MODE = 'Y' THEN
1529: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1530: END IF;
1531:
1532: DELETE FROM pa_fp_elements
1533: WHERE proj_fp_options_id = p_proj_fp_options_id
1535: AND p_element_level = PA_FP_CONSTANTS_PKG.G_ELEMENT_LEVEL_RESOURCE
1536: AND resource_list_member_id <> 0;
1537: END IF;
1538:
1539: pa_debug.g_err_stage := 'End of Delete_Elements';
1540: IF P_PA_DEBUG_MODE = 'Y' THEN
1541: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1542: END IF;
1543: pa_debug.reset_err_stack;
1536: AND resource_list_member_id <> 0;
1537: END IF;
1538:
1539: pa_debug.g_err_stage := 'End of Delete_Elements';
1540: IF P_PA_DEBUG_MODE = 'Y' THEN
1541: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1542: END IF;
1543: pa_debug.reset_err_stack;
1544:
1537: END IF;
1538:
1539: pa_debug.g_err_stage := 'End of Delete_Elements';
1540: IF P_PA_DEBUG_MODE = 'Y' THEN
1541: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1542: END IF;
1543: pa_debug.reset_err_stack;
1544:
1545: EXCEPTION
1539: pa_debug.g_err_stage := 'End of Delete_Elements';
1540: IF P_PA_DEBUG_MODE = 'Y' THEN
1541: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.g_err_stage,1);
1542: END IF;
1543: pa_debug.reset_err_stack;
1544:
1545: EXCEPTION
1546: WHEN OTHERS THEN
1547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1548: x_msg_count := 1;
1549: x_msg_data := SQLERRM;
1550: FND_MSG_PUB.add_exc_msg
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1552: ,p_procedure_name => pa_debug.G_Err_Stack );
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1549: x_msg_data := SQLERRM;
1550: FND_MSG_PUB.add_exc_msg
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1552: ,p_procedure_name => pa_debug.G_Err_Stack );
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1557: pa_debug.reset_err_stack;
1550: FND_MSG_PUB.add_exc_msg
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1552: ,p_procedure_name => pa_debug.G_Err_Stack );
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558:
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1552: ,p_procedure_name => pa_debug.G_Err_Stack );
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558:
1559: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1553: IF P_PA_DEBUG_MODE = 'Y' THEN
1554: pa_debug.write('Delete_Elements: ' || l_module_name,SQLERRM,4);
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558:
1559: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END Delete_Elements;
1561:
1598: l_row_update_count NUMBER;
1599:
1600: BEGIN
1601:
1602: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Element');
1603: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1604: l_debug_mode := NVL(l_debug_mode, 'Y');
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1599:
1600: BEGIN
1601:
1602: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Element');
1603: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1604: l_debug_mode := NVL(l_debug_mode, 'Y');
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1607: END IF;
1601:
1602: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Element');
1603: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1604: l_debug_mode := NVL(l_debug_mode, 'Y');
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1607: END IF;
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1602: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Delete_Element');
1603: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1604: l_debug_mode := NVL(l_debug_mode, 'Y');
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1607: END IF;
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1607: END IF;
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: pa_debug.g_err_stage := 'calling pa_get_resource.get_uncateg_resource_info';
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1614: END IF;
1615:
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: pa_debug.g_err_stage := 'calling pa_get_resource.get_uncateg_resource_info';
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1614: END IF;
1615:
1616: pa_get_resource.get_uncateg_resource_info(p_resource_list_id => l_uncat_res_list_id
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: pa_debug.g_err_stage := 'calling pa_get_resource.get_uncateg_resource_info';
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1614: END IF;
1615:
1616: pa_get_resource.get_uncateg_resource_info(p_resource_list_id => l_uncat_res_list_id
1617: ,p_resource_list_member_id => l_uncat_res_list_mem_id
1633:
1634: /* If its an uncategorized resource then task level record needs to be deleted.
1635: task level records in pa_fp_elements always have resource list member id as zero. */
1636:
1637: pa_debug.g_err_stage := 'Deleting Elements for the task';
1638: IF P_PA_DEBUG_MODE = 'Y' THEN
1639: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1640: END IF;
1641:
1634: /* If its an uncategorized resource then task level record needs to be deleted.
1635: task level records in pa_fp_elements always have resource list member id as zero. */
1636:
1637: pa_debug.g_err_stage := 'Deleting Elements for the task';
1638: IF P_PA_DEBUG_MODE = 'Y' THEN
1639: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1640: END IF;
1641:
1642: DELETE FROM pa_fp_elements
1635: task level records in pa_fp_elements always have resource list member id as zero. */
1636:
1637: pa_debug.g_err_stage := 'Deleting Elements for the task';
1638: IF P_PA_DEBUG_MODE = 'Y' THEN
1639: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1640: END IF;
1641:
1642: DELETE FROM pa_fp_elements
1643: WHERE proj_fp_options_id = l_proj_fp_options_id
1668: and proj_fp_options_id = l_proj_fp_options_id
1669: and nvl(plan_amount_exists_flag,'N') = 'Y'
1670: );
1671:
1672: IF P_PA_DEBUG_MODE = 'Y' THEN
1673: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1674: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1675: END IF;
1676: END IF;
1669: and nvl(plan_amount_exists_flag,'N') = 'Y'
1670: );
1671:
1672: IF P_PA_DEBUG_MODE = 'Y' THEN
1673: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1674: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1675: END IF;
1676: END IF;
1677:
1670: );
1671:
1672: IF P_PA_DEBUG_MODE = 'Y' THEN
1673: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1674: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1675: END IF;
1676: END IF;
1677:
1678: ELSE
1679:
1680: /* If its a normal resource from a resource list then we need to delete the resource
1681: level element from fp elements. */
1682:
1683: pa_debug.g_err_stage := 'Deleting Elements for the RESOURCE';
1684: IF P_PA_DEBUG_MODE = 'Y' THEN
1685: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1686: END IF;
1687:
1680: /* If its a normal resource from a resource list then we need to delete the resource
1681: level element from fp elements. */
1682:
1683: pa_debug.g_err_stage := 'Deleting Elements for the RESOURCE';
1684: IF P_PA_DEBUG_MODE = 'Y' THEN
1685: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1686: END IF;
1687:
1688: DELETE FROM pa_fp_elements
1681: level element from fp elements. */
1682:
1683: pa_debug.g_err_stage := 'Deleting Elements for the RESOURCE';
1684: IF P_PA_DEBUG_MODE = 'Y' THEN
1685: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1686: END IF;
1687:
1688: DELETE FROM pa_fp_elements
1689: WHERE proj_fp_options_id = l_proj_fp_options_id -- included for Bug 3062798
1716: and nvl(plan_amount_exists_flag,'N') = 'Y'
1717: );
1718:
1719: l_row_update_count := sql%rowcount;
1720: IF P_PA_DEBUG_MODE = 'Y' THEN
1721: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '|| l_row_update_count;
1722: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1723: END IF;
1724:
1717: );
1718:
1719: l_row_update_count := sql%rowcount;
1720: IF P_PA_DEBUG_MODE = 'Y' THEN
1721: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '|| l_row_update_count;
1722: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1723: END IF;
1724:
1725:
1718:
1719: l_row_update_count := sql%rowcount;
1720: IF P_PA_DEBUG_MODE = 'Y' THEN
1721: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '|| l_row_update_count;
1722: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1723: END IF;
1724:
1725:
1726: IF p_task_id <> l_top_task_id and l_row_update_count > 0 then
1743: and resource_list_member_id <> 0
1744: and nvl(plan_amount_exists_flag,'N') = 'Y'
1745: );
1746:
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1749: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1750: END IF;
1751:
1744: and nvl(plan_amount_exists_flag,'N') = 'Y'
1745: );
1746:
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1749: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1750: END IF;
1751:
1752: END IF;
1745: );
1746:
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.g_err_stage := 'Number of rows updated for plan amount exists flag : '||sql%rowcount;
1749: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,3);
1750: END IF;
1751:
1752: END IF;
1753:
1755: /* now need to set the resources_planned_for_task flag. In case the task has no more resources
1756: defined under it then set this to 'N'
1757: */
1758:
1759: pa_debug.g_err_stage := 'Checking for more resources under the task';
1760: IF P_PA_DEBUG_MODE = 'Y' THEN
1761: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1762: END IF;
1763:
1756: defined under it then set this to 'N'
1757: */
1758:
1759: pa_debug.g_err_stage := 'Checking for more resources under the task';
1760: IF P_PA_DEBUG_MODE = 'Y' THEN
1761: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1762: END IF;
1763:
1764: l_resource_exists_flag := 'N';
1757: */
1758:
1759: pa_debug.g_err_stage := 'Checking for more resources under the task';
1760: IF P_PA_DEBUG_MODE = 'Y' THEN
1761: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1762: END IF;
1763:
1764: l_resource_exists_flag := 'N';
1765: BEGIN
1777: END;
1778:
1779: IF l_resource_exists_flag = 'N' THEN
1780:
1781: pa_debug.g_err_stage := 'setting resource planning level to N';
1782: IF P_PA_DEBUG_MODE = 'Y' THEN
1783: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1784: END IF;
1785:
1778:
1779: IF l_resource_exists_flag = 'N' THEN
1780:
1781: pa_debug.g_err_stage := 'setting resource planning level to N';
1782: IF P_PA_DEBUG_MODE = 'Y' THEN
1783: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1784: END IF;
1785:
1786: UPDATE pa_fp_elements
1779: IF l_resource_exists_flag = 'N' THEN
1780:
1781: pa_debug.g_err_stage := 'setting resource planning level to N';
1782: IF P_PA_DEBUG_MODE = 'Y' THEN
1783: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1784: END IF;
1785:
1786: UPDATE pa_fp_elements
1787: SET resources_planned_for_task = 'N',
1795: END IF;
1796:
1797: END IF;
1798:
1799: pa_debug.g_err_stage := 'End of Delete_Elements';
1800: IF P_PA_DEBUG_MODE = 'Y' THEN
1801: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1802: END IF;
1803: pa_debug.reset_err_stack;
1796:
1797: END IF;
1798:
1799: pa_debug.g_err_stage := 'End of Delete_Elements';
1800: IF P_PA_DEBUG_MODE = 'Y' THEN
1801: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1802: END IF;
1803: pa_debug.reset_err_stack;
1804:
1797: END IF;
1798:
1799: pa_debug.g_err_stage := 'End of Delete_Elements';
1800: IF P_PA_DEBUG_MODE = 'Y' THEN
1801: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1802: END IF;
1803: pa_debug.reset_err_stack;
1804:
1805: EXCEPTION
1799: pa_debug.g_err_stage := 'End of Delete_Elements';
1800: IF P_PA_DEBUG_MODE = 'Y' THEN
1801: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1802: END IF;
1803: pa_debug.reset_err_stack;
1804:
1805: EXCEPTION
1806: WHEN OTHERS THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: x_msg_count := 1;
1809: x_msg_data := SQLERRM;
1810: FND_MSG_PUB.add_exc_msg
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1812: ,p_procedure_name => pa_debug.G_Err_Stack );
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1809: x_msg_data := SQLERRM;
1810: FND_MSG_PUB.add_exc_msg
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1812: ,p_procedure_name => pa_debug.G_Err_Stack );
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1817: pa_debug.reset_err_stack;
1810: FND_MSG_PUB.add_exc_msg
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1812: ,p_procedure_name => pa_debug.G_Err_Stack );
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1817: pa_debug.reset_err_stack;
1818:
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1812: ,p_procedure_name => pa_debug.G_Err_Stack );
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1817: pa_debug.reset_err_stack;
1818:
1819: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1813: IF P_PA_DEBUG_MODE = 'Y' THEN
1814: pa_debug.write('Delete_Element: ' || l_module_name,SQLERRM,4);
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1817: pa_debug.reset_err_stack;
1818:
1819: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1820:
1821: END Delete_Element;
1850:
1851: BEGIN
1852:
1853: -- Set the error stack.
1854: pa_debug.set_err_stack('PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows');
1855:
1856: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1857: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1858: l_debug_mode := NVL(l_debug_mode, 'Y');
1853: -- Set the error stack.
1854: pa_debug.set_err_stack('PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows');
1855:
1856: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1857: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1858: l_debug_mode := NVL(l_debug_mode, 'Y');
1859:
1860: -- Initialize the return status to success
1861: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: -- Initialize the return status to success
1861: x_return_status := FND_API.G_RET_STS_SUCCESS;
1862:
1863: IF P_PA_DEBUG_MODE = 'Y' THEN
1864: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1865: END IF;
1866:
1867: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows ';
1860: -- Initialize the return status to success
1861: x_return_status := FND_API.G_RET_STS_SUCCESS;
1862:
1863: IF P_PA_DEBUG_MODE = 'Y' THEN
1864: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1865: END IF;
1866:
1867: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows ';
1868: IF P_PA_DEBUG_MODE = 'Y' THEN
1863: IF P_PA_DEBUG_MODE = 'Y' THEN
1864: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1865: END IF;
1866:
1867: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows ';
1868: IF P_PA_DEBUG_MODE = 'Y' THEN
1869: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1870: END IF;
1871:
1864: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1865: END IF;
1866:
1867: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows ';
1868: IF P_PA_DEBUG_MODE = 'Y' THEN
1869: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1870: END IF;
1871:
1872: /*
1865: END IF;
1866:
1867: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows ';
1868: IF P_PA_DEBUG_MODE = 'Y' THEN
1869: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1870: END IF;
1871:
1872: /*
1873: * Bulk Insert records into PA_FP_ELEMENTS table for the records fetched
1872: /*
1873: * Bulk Insert records into PA_FP_ELEMENTS table for the records fetched
1874: * from cursor top_task_cur.
1875: */
1876: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows';
1877: IF P_PA_DEBUG_MODE = 'Y' THEN
1878: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1879: END IF;
1880:
1873: * Bulk Insert records into PA_FP_ELEMENTS table for the records fetched
1874: * from cursor top_task_cur.
1875: */
1876: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows';
1877: IF P_PA_DEBUG_MODE = 'Y' THEN
1878: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1879: END IF;
1880:
1881: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_FP_ELEMENTS';
1874: * from cursor top_task_cur.
1875: */
1876: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows';
1877: IF P_PA_DEBUG_MODE = 'Y' THEN
1878: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1879: END IF;
1880:
1881: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_FP_ELEMENTS';
1882: IF P_PA_DEBUG_MODE = 'Y' THEN
1877: IF P_PA_DEBUG_MODE = 'Y' THEN
1878: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1879: END IF;
1880:
1881: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_FP_ELEMENTS';
1882: IF P_PA_DEBUG_MODE = 'Y' THEN
1883: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1884: END IF;
1885:
1878: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1879: END IF;
1880:
1881: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_FP_ELEMENTS';
1882: IF P_PA_DEBUG_MODE = 'Y' THEN
1883: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1884: END IF;
1885:
1886: FORALL i in p_top_task_id_tbl.first..p_top_task_id_tbl.last
1879: END IF;
1880:
1881: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_FP_ELEMENTS';
1882: IF P_PA_DEBUG_MODE = 'Y' THEN
1883: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1884: END IF;
1885:
1886: FORALL i in p_top_task_id_tbl.first..p_top_task_id_tbl.last
1887:
1931: ,sysdate
1932: ,fnd_global.user_id
1933: ,fnd_global.login_id);
1934:
1935: pa_debug.reset_err_stack;
1936: EXCEPTION
1937: WHEN OTHERS THEN
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1939: x_msg_count := 1;
1939: x_msg_count := 1;
1940: x_msg_data := SQLERRM;
1941: FND_MSG_PUB.add_exc_msg
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1943: ,p_procedure_name => pa_debug.G_Err_Stack );
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1940: x_msg_data := SQLERRM;
1941: FND_MSG_PUB.add_exc_msg
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1943: ,p_procedure_name => pa_debug.G_Err_Stack );
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1948: pa_debug.reset_err_stack;
1941: FND_MSG_PUB.add_exc_msg
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1943: ,p_procedure_name => pa_debug.G_Err_Stack );
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1948: pa_debug.reset_err_stack;
1949:
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1943: ,p_procedure_name => pa_debug.G_Err_Stack );
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1948: pa_debug.reset_err_stack;
1949:
1950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1944: IF P_PA_DEBUG_MODE = 'Y' THEN
1945: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1948: pa_debug.reset_err_stack;
1949:
1950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1951:
1952: END Insert_Bulk_Rows;
1971:
1972: BEGIN
1973:
1974: -- Set the error stack.
1975: pa_debug.set_err_stack('PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res');
1976:
1977: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1978: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1979: l_debug_mode := NVL(l_debug_mode, 'Y');
1974: -- Set the error stack.
1975: pa_debug.set_err_stack('PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res');
1976:
1977: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1978: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1979: l_debug_mode := NVL(l_debug_mode, 'Y');
1980:
1981: -- Initialize the return status to success
1982: x_return_status := FND_API.G_RET_STS_SUCCESS;
1980:
1981: -- Initialize the return status to success
1982: x_return_status := FND_API.G_RET_STS_SUCCESS;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1986: END IF;
1987:
1988: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res ';
1981: -- Initialize the return status to success
1982: x_return_status := FND_API.G_RET_STS_SUCCESS;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1986: END IF;
1987:
1988: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res ';
1989: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1986: END IF;
1987:
1988: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res ';
1989: IF P_PA_DEBUG_MODE = 'Y' THEN
1990: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1991: END IF;
1992:
1985: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1986: END IF;
1987:
1988: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res ';
1989: IF P_PA_DEBUG_MODE = 'Y' THEN
1990: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1991: END IF;
1992:
1993:
1986: END IF;
1987:
1988: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_ELELEMNTS_PUB.Insert_Bulk_Rows_Res ';
1989: IF P_PA_DEBUG_MODE = 'Y' THEN
1990: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
1991: END IF;
1992:
1993:
1994: /*
1994: /*
1995: * Bulk Insert records into PA_FP_ELEMENTS table for the records fetched
1996: * from cursor top_task_cur.
1997: */
1998: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows_Res';
1999: IF P_PA_DEBUG_MODE = 'Y' THEN
2000: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2001: END IF;
2002:
1995: * Bulk Insert records into PA_FP_ELEMENTS table for the records fetched
1996: * from cursor top_task_cur.
1997: */
1998: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows_Res';
1999: IF P_PA_DEBUG_MODE = 'Y' THEN
2000: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2001: END IF;
2002:
2003: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_RESOURCE_ASSIGNMENTS';
1996: * from cursor top_task_cur.
1997: */
1998: pa_debug.g_err_stage := TO_CHAR(l_stage)||': In Insert_Bulk_Rows_Res';
1999: IF P_PA_DEBUG_MODE = 'Y' THEN
2000: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2001: END IF;
2002:
2003: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_RESOURCE_ASSIGNMENTS';
2004: IF P_PA_DEBUG_MODE = 'Y' THEN
1999: IF P_PA_DEBUG_MODE = 'Y' THEN
2000: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2001: END IF;
2002:
2003: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_RESOURCE_ASSIGNMENTS';
2004: IF P_PA_DEBUG_MODE = 'Y' THEN
2005: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2006: END IF;
2007:
2000: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2001: END IF;
2002:
2003: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_RESOURCE_ASSIGNMENTS';
2004: IF P_PA_DEBUG_MODE = 'Y' THEN
2005: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2006: END IF;
2007:
2008: FORALL i in p_task_id_tbl.first..p_task_id_tbl.last
2001: END IF;
2002:
2003: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Bulk inserting into PA_RESOURCE_ASSIGNMENTS';
2004: IF P_PA_DEBUG_MODE = 'Y' THEN
2005: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.g_err_stage,2);
2006: END IF;
2007:
2008: FORALL i in p_task_id_tbl.first..p_task_id_tbl.last
2009:
2037: ,p_track_as_labor_flag_tbl(i) -- TRACK_AS_LABOR_FLAG
2038: ,-1 -- PROJECT_ASSIGNMENT_ID
2039: ,PA_FP_CONSTANTS_PKG.G_USER_ENTERED) ; -- RESOURCE_ASSIGNMENT_TYPE
2040:
2041: pa_debug.reset_err_stack;
2042:
2043: EXCEPTION
2044: WHEN OTHERS THEN
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2046: x_msg_count := 1;
2047: x_msg_data := SQLERRM;
2048: FND_MSG_PUB.add_exc_msg
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2050: ,p_procedure_name => pa_debug.G_Err_Stack );
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2047: x_msg_data := SQLERRM;
2048: FND_MSG_PUB.add_exc_msg
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2050: ,p_procedure_name => pa_debug.G_Err_Stack );
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2055: pa_debug.reset_err_stack;
2048: FND_MSG_PUB.add_exc_msg
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2050: ,p_procedure_name => pa_debug.G_Err_Stack );
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2055: pa_debug.reset_err_stack;
2056:
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2050: ,p_procedure_name => pa_debug.G_Err_Stack );
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2055: pa_debug.reset_err_stack;
2056:
2057: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2051: IF P_PA_DEBUG_MODE = 'Y' THEN
2052: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,SQLERRM,4);
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2055: pa_debug.reset_err_stack;
2056:
2057: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2058:
2059: END Insert_Bulk_Rows_Res;
2180: BEGIN
2181:
2182: x_msg_count := 0;
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2188: pa_debug.set_process('create_enterable_resources: ' || 'PLSQL','LOG',l_debug_mode);
2181:
2182: x_msg_count := 0;
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2188: pa_debug.set_process('create_enterable_resources: ' || 'PLSQL','LOG',l_debug_mode);
2189: END IF;
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2188: pa_debug.set_process('create_enterable_resources: ' || 'PLSQL','LOG',l_debug_mode);
2189: END IF;
2190:
2191:
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2188: pa_debug.set_process('create_enterable_resources: ' || 'PLSQL','LOG',l_debug_mode);
2189: END IF;
2190:
2191:
2192: -- Check for business rules violations
2190:
2191:
2192: -- Check for business rules violations
2193:
2194: pa_debug.g_err_stage:= 'validating input parameters';
2195: IF P_PA_DEBUG_MODE = 'Y' THEN
2196: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2197: END IF;
2198:
2191:
2192: -- Check for business rules violations
2193:
2194: pa_debug.g_err_stage:= 'validating input parameters';
2195: IF P_PA_DEBUG_MODE = 'Y' THEN
2196: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2197: END IF;
2198:
2199: --Check if plan version id is null
2192: -- Check for business rules violations
2193:
2194: pa_debug.g_err_stage:= 'validating input parameters';
2195: IF P_PA_DEBUG_MODE = 'Y' THEN
2196: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2197: END IF;
2198:
2199: --Check if plan version id is null
2200:
2199: --Check if plan version id is null
2200:
2201: IF p_plan_version_id is NULL THEN
2202:
2203: pa_debug.g_err_stage:= 'plan version id is null';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2206: END IF;
2207:
2200:
2201: IF p_plan_version_id is NULL THEN
2202:
2203: pa_debug.g_err_stage:= 'plan version id is null';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2206: END IF;
2207:
2208: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2201: IF p_plan_version_id is NULL THEN
2202:
2203: pa_debug.g_err_stage:= 'plan version id is null';
2204: IF P_PA_DEBUG_MODE = 'Y' THEN
2205: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2206: END IF;
2207:
2208: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2209: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2211: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2212:
2213: END IF;
2214:
2215: pa_debug.g_err_stage:='fetching resource_list_id, project_id';
2216: IF P_PA_DEBUG_MODE = 'Y' THEN
2217: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2218: END IF;
2219:
2212:
2213: END IF;
2214:
2215: pa_debug.g_err_stage:='fetching resource_list_id, project_id';
2216: IF P_PA_DEBUG_MODE = 'Y' THEN
2217: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2218: END IF;
2219:
2220: SELECT resource_list_id
2213: END IF;
2214:
2215: pa_debug.g_err_stage:='fetching resource_list_id, project_id';
2216: IF P_PA_DEBUG_MODE = 'Y' THEN
2217: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2218: END IF;
2219:
2220: SELECT resource_list_id
2221: ,project_id
2231: INTO l_proj_fp_options_id
2232: FROM pa_proj_fp_options
2233: WHERE fin_plan_version_id = p_plan_version_id;
2234:
2235: pa_debug.g_err_stage:='checking if resource list is uncategorised';
2236: IF P_PA_DEBUG_MODE = 'Y' THEN
2237: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2238: END IF;
2239:
2232: FROM pa_proj_fp_options
2233: WHERE fin_plan_version_id = p_plan_version_id;
2234:
2235: pa_debug.g_err_stage:='checking if resource list is uncategorised';
2236: IF P_PA_DEBUG_MODE = 'Y' THEN
2237: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2238: END IF;
2239:
2240: SELECT NVL(uncategorized_flag,'N')
2233: WHERE fin_plan_version_id = p_plan_version_id;
2234:
2235: pa_debug.g_err_stage:='checking if resource list is uncategorised';
2236: IF P_PA_DEBUG_MODE = 'Y' THEN
2237: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2238: END IF;
2239:
2240: SELECT NVL(uncategorized_flag,'N')
2241: INTO l_uncat_flag
2250: IF l_uncat_flag = 'Y' THEN
2251:
2252: -- Fetch resource_list_member_id and track_as_labor_flag and unit of measure
2253:
2254: pa_debug.g_err_stage:='resource_list is uncategorised ';
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2251:
2252: -- Fetch resource_list_member_id and track_as_labor_flag and unit of measure
2253:
2254: pa_debug.g_err_stage:='resource_list is uncategorised ';
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: pa_debug.g_err_stage:=' fetching resource_list_member_id,track_as_labor_flag';
2252: -- Fetch resource_list_member_id and track_as_labor_flag and unit of measure
2253:
2254: pa_debug.g_err_stage:='resource_list is uncategorised ';
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: pa_debug.g_err_stage:=' fetching resource_list_member_id,track_as_labor_flag';
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2255: IF P_PA_DEBUG_MODE = 'Y' THEN
2256: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: pa_debug.g_err_stage:=' fetching resource_list_member_id,track_as_labor_flag';
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2262: END IF;
2263:
2256: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: pa_debug.g_err_stage:=' fetching resource_list_member_id,track_as_labor_flag';
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2262: END IF;
2263:
2264: DECLARE
2257: END IF;
2258:
2259: pa_debug.g_err_stage:=' fetching resource_list_member_id,track_as_labor_flag';
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2262: END IF;
2263:
2264: DECLARE
2265: l_dummy_res_list_id PA_RESOURCE_LISTS_ALL_BG.resource_list_id%TYPE;
2274: ,x_msg_count => x_msg_count
2275: ,x_msg_data => x_msg_data);
2276:
2277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2278: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2279: IF P_PA_DEBUG_MODE = 'Y' THEN
2280: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2281: END IF;
2282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2275: ,x_msg_data => x_msg_data);
2276:
2277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2278: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2279: IF P_PA_DEBUG_MODE = 'Y' THEN
2280: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2281: END IF;
2282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2283: END IF;
2276:
2277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2278: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2279: IF P_PA_DEBUG_MODE = 'Y' THEN
2280: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2281: END IF;
2282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2283: END IF;
2284:
2286:
2287: END IF;
2288:
2289:
2290: pa_debug.g_err_stage:= 'parameter validation complete';
2291: IF P_PA_DEBUG_MODE = 'Y' THEN
2292: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2287: END IF;
2288:
2289:
2290: pa_debug.g_err_stage:= 'parameter validation complete';
2291: IF P_PA_DEBUG_MODE = 'Y' THEN
2292: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2295: --Fetching the finplan planning level
2288:
2289:
2290: pa_debug.g_err_stage:= 'parameter validation complete';
2291: IF P_PA_DEBUG_MODE = 'Y' THEN
2292: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2295: --Fetching the finplan planning level
2296:
2322:
2323: IF (l_fp_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT AND
2324: l_uncat_flag = 'Y' ) THEN
2325:
2326: pa_debug.g_err_stage:= 'Deleting resource assignments';
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2323: IF (l_fp_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT AND
2324: l_uncat_flag = 'Y' ) THEN
2325:
2326: pa_debug.g_err_stage:= 'Deleting resource assignments';
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2331: DELETE FROM pa_resource_assignments
2324: l_uncat_flag = 'Y' ) THEN
2325:
2326: pa_debug.g_err_stage:= 'Deleting resource assignments';
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2331: DELETE FROM pa_resource_assignments
2332: WHERE budget_version_id = p_plan_version_id
2336:
2337: /* In all other cases, records have to be deleted from pa_resource_assignments
2338: which do not exist in pa_fp_elements. */
2339:
2340: pa_debug.g_err_stage:= 'fetching resource assignments that should be deleted';
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2343: END IF;
2344:
2337: /* In all other cases, records have to be deleted from pa_resource_assignments
2338: which do not exist in pa_fp_elements. */
2339:
2340: pa_debug.g_err_stage:= 'fetching resource assignments that should be deleted';
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2343: END IF;
2344:
2345: OPEN l_cur_for_res_del;
2338: which do not exist in pa_fp_elements. */
2339:
2340: pa_debug.g_err_stage:= 'fetching resource assignments that should be deleted';
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2343: END IF;
2344:
2345: OPEN l_cur_for_res_del;
2346: pa_debug.g_err_stage:= 'Deleting records from Resource Assignments.';
2342: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2343: END IF;
2344:
2345: OPEN l_cur_for_res_del;
2346: pa_debug.g_err_stage:= 'Deleting records from Resource Assignments.';
2347: IF P_PA_DEBUG_MODE = 'Y' THEN
2348: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2349: END IF;
2350:
2343: END IF;
2344:
2345: OPEN l_cur_for_res_del;
2346: pa_debug.g_err_stage:= 'Deleting records from Resource Assignments.';
2347: IF P_PA_DEBUG_MODE = 'Y' THEN
2348: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2349: END IF;
2350:
2351: FETCH l_cur_for_res_del BULK COLLECT INTO
2344:
2345: OPEN l_cur_for_res_del;
2346: pa_debug.g_err_stage:= 'Deleting records from Resource Assignments.';
2347: IF P_PA_DEBUG_MODE = 'Y' THEN
2348: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2349: END IF;
2350:
2351: FETCH l_cur_for_res_del BULK COLLECT INTO
2352: l_ra_id_tbl;
2350:
2351: FETCH l_cur_for_res_del BULK COLLECT INTO
2352: l_ra_id_tbl;
2353:
2354: pa_debug.g_err_stage := 'Fetched ' || sql%rowcount || ' records';
2355: IF P_PA_DEBUG_MODE = 'Y' THEN
2356: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2357: END IF;
2358:
2351: FETCH l_cur_for_res_del BULK COLLECT INTO
2352: l_ra_id_tbl;
2353:
2354: pa_debug.g_err_stage := 'Fetched ' || sql%rowcount || ' records';
2355: IF P_PA_DEBUG_MODE = 'Y' THEN
2356: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2357: END IF;
2358:
2359: IF (nvl(l_ra_id_tbl.last,0) > 0) THEN
2352: l_ra_id_tbl;
2353:
2354: pa_debug.g_err_stage := 'Fetched ' || sql%rowcount || ' records';
2355: IF P_PA_DEBUG_MODE = 'Y' THEN
2356: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2357: END IF;
2358:
2359: IF (nvl(l_ra_id_tbl.last,0) > 0) THEN
2360:
2362:
2363: DELETE FROM pa_resource_assignments
2364: WHERE resource_assignment_id = l_ra_id_tbl(i);
2365:
2366: pa_debug.g_err_stage := 'Deleted ' || sql%rowcount || ' records';
2367: IF P_PA_DEBUG_MODE = 'Y' THEN
2368: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2369: END IF;
2370: END IF;
2363: DELETE FROM pa_resource_assignments
2364: WHERE resource_assignment_id = l_ra_id_tbl(i);
2365:
2366: pa_debug.g_err_stage := 'Deleted ' || sql%rowcount || ' records';
2367: IF P_PA_DEBUG_MODE = 'Y' THEN
2368: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2369: END IF;
2370: END IF;
2371: CLOSE l_cur_for_res_del;
2364: WHERE resource_assignment_id = l_ra_id_tbl(i);
2365:
2366: pa_debug.g_err_stage := 'Deleted ' || sql%rowcount || ' records';
2367: IF P_PA_DEBUG_MODE = 'Y' THEN
2368: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2369: END IF;
2370: END IF;
2371: CLOSE l_cur_for_res_del;
2372:
2379: IF l_fp_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
2380:
2381: -- CASE:planning level 'project' and 'uncategorised resource_list'
2382:
2383: pa_debug.g_err_stage:='project level planning and resource_list uncategorised';
2384: IF P_PA_DEBUG_MODE = 'Y' THEN
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2380:
2381: -- CASE:planning level 'project' and 'uncategorised resource_list'
2382:
2383: pa_debug.g_err_stage:='project level planning and resource_list uncategorised';
2384: IF P_PA_DEBUG_MODE = 'Y' THEN
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2388: IF P_PA_DEBUG_MODE = 'Y' THEN
2381: -- CASE:planning level 'project' and 'uncategorised resource_list'
2382:
2383: pa_debug.g_err_stage:='project level planning and resource_list uncategorised';
2384: IF P_PA_DEBUG_MODE = 'Y' THEN
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2388: IF P_PA_DEBUG_MODE = 'Y' THEN
2389: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2383: pa_debug.g_err_stage:='project level planning and resource_list uncategorised';
2384: IF P_PA_DEBUG_MODE = 'Y' THEN
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2388: IF P_PA_DEBUG_MODE = 'Y' THEN
2389: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2390: END IF;
2391:
2384: IF P_PA_DEBUG_MODE = 'Y' THEN
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2388: IF P_PA_DEBUG_MODE = 'Y' THEN
2389: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2390: END IF;
2391:
2392: OPEN l_cur_for_uncat_project_level;
2385: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387: pa_debug.g_err_stage:='opening l_cur_for_uncat_project_level';
2388: IF P_PA_DEBUG_MODE = 'Y' THEN
2389: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2390: END IF;
2391:
2392: OPEN l_cur_for_uncat_project_level;
2393:
2390: END IF;
2391:
2392: OPEN l_cur_for_uncat_project_level;
2393:
2394: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2395: IF P_PA_DEBUG_MODE = 'Y' THEN
2396: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2397: END IF;
2398:
2391:
2392: OPEN l_cur_for_uncat_project_level;
2393:
2394: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2395: IF P_PA_DEBUG_MODE = 'Y' THEN
2396: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2397: END IF;
2398:
2399: LOOP
2392: OPEN l_cur_for_uncat_project_level;
2393:
2394: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2395: IF P_PA_DEBUG_MODE = 'Y' THEN
2396: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2397: END IF;
2398:
2399: LOOP
2400:
2432: ELSIF l_fp_level_code <> PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
2433:
2434: -- CASE: planning level 'task' and uncategorised resource_list
2435:
2436: pa_debug.g_err_stage:='task level planning and Uncategorised resource_list';
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2439: END IF;
2440:
2433:
2434: -- CASE: planning level 'task' and uncategorised resource_list
2435:
2436: pa_debug.g_err_stage:='task level planning and Uncategorised resource_list';
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2439: END IF;
2440:
2441: pa_debug.g_err_stage:='opening l_elements_cur';
2434: -- CASE: planning level 'task' and uncategorised resource_list
2435:
2436: pa_debug.g_err_stage:='task level planning and Uncategorised resource_list';
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2439: END IF;
2440:
2441: pa_debug.g_err_stage:='opening l_elements_cur';
2442: IF P_PA_DEBUG_MODE = 'Y' THEN
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2439: END IF;
2440:
2441: pa_debug.g_err_stage:='opening l_elements_cur';
2442: IF P_PA_DEBUG_MODE = 'Y' THEN
2443: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2438: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2439: END IF;
2440:
2441: pa_debug.g_err_stage:='opening l_elements_cur';
2442: IF P_PA_DEBUG_MODE = 'Y' THEN
2443: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2446: OPEN l_cur_for_uncat_task_level;
2439: END IF;
2440:
2441: pa_debug.g_err_stage:='opening l_elements_cur';
2442: IF P_PA_DEBUG_MODE = 'Y' THEN
2443: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2444: END IF;
2445:
2446: OPEN l_cur_for_uncat_task_level;
2447:
2444: END IF;
2445:
2446: OPEN l_cur_for_uncat_task_level;
2447:
2448: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2449: IF P_PA_DEBUG_MODE = 'Y' THEN
2450: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2451: END IF;
2452:
2445:
2446: OPEN l_cur_for_uncat_task_level;
2447:
2448: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2449: IF P_PA_DEBUG_MODE = 'Y' THEN
2450: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2451: END IF;
2452:
2453: LOOP
2446: OPEN l_cur_for_uncat_task_level;
2447:
2448: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2449: IF P_PA_DEBUG_MODE = 'Y' THEN
2450: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2451: END IF;
2452:
2453: LOOP
2454:
2487: ELSIF l_uncat_flag = 'N' THEN
2488:
2489: -- CASE: resource_list is categorised
2490:
2491: pa_debug.g_err_stage:='Categorised resource_list';
2492: IF P_PA_DEBUG_MODE = 'Y' THEN
2493: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2494: END IF;
2495:
2488:
2489: -- CASE: resource_list is categorised
2490:
2491: pa_debug.g_err_stage:='Categorised resource_list';
2492: IF P_PA_DEBUG_MODE = 'Y' THEN
2493: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2494: END IF;
2495:
2496: pa_debug.g_err_stage:='opening l_cur_for_cat_res_list';
2489: -- CASE: resource_list is categorised
2490:
2491: pa_debug.g_err_stage:='Categorised resource_list';
2492: IF P_PA_DEBUG_MODE = 'Y' THEN
2493: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2494: END IF;
2495:
2496: pa_debug.g_err_stage:='opening l_cur_for_cat_res_list';
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2492: IF P_PA_DEBUG_MODE = 'Y' THEN
2493: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2494: END IF;
2495:
2496: pa_debug.g_err_stage:='opening l_cur_for_cat_res_list';
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2499: END IF;
2500:
2493: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2494: END IF;
2495:
2496: pa_debug.g_err_stage:='opening l_cur_for_cat_res_list';
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2499: END IF;
2500:
2501: OPEN l_cur_for_cat_res_list;
2494: END IF;
2495:
2496: pa_debug.g_err_stage:='opening l_cur_for_cat_res_list';
2497: IF P_PA_DEBUG_MODE = 'Y' THEN
2498: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2499: END IF;
2500:
2501: OPEN l_cur_for_cat_res_list;
2502:
2499: END IF;
2500:
2501: OPEN l_cur_for_cat_res_list;
2502:
2503: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2504: IF P_PA_DEBUG_MODE = 'Y' THEN
2505: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2506: END IF;
2507:
2500:
2501: OPEN l_cur_for_cat_res_list;
2502:
2503: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2504: IF P_PA_DEBUG_MODE = 'Y' THEN
2505: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2506: END IF;
2507:
2508: LOOP
2501: OPEN l_cur_for_cat_res_list;
2502:
2503: pa_debug.g_err_stage:= 'fetching cursor values and doing bulk insert';
2504: IF P_PA_DEBUG_MODE = 'Y' THEN
2505: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2506: END IF;
2507:
2508: LOOP
2509:
2538: CLOSE l_cur_for_cat_res_list;
2539:
2540: END IF; --l_uncat_flag
2541:
2542: pa_debug.g_err_stage:= 'Exiting Create_Enterable_Resources';
2543: IF P_PA_DEBUG_MODE = 'Y' THEN
2544: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2545: END IF;
2546:
2539:
2540: END IF; --l_uncat_flag
2541:
2542: pa_debug.g_err_stage:= 'Exiting Create_Enterable_Resources';
2543: IF P_PA_DEBUG_MODE = 'Y' THEN
2544: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2545: END IF;
2546:
2547: pa_debug.reset_err_stack;
2540: END IF; --l_uncat_flag
2541:
2542: pa_debug.g_err_stage:= 'Exiting Create_Enterable_Resources';
2543: IF P_PA_DEBUG_MODE = 'Y' THEN
2544: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2545: END IF;
2546:
2547: pa_debug.reset_err_stack;
2548:
2543: IF P_PA_DEBUG_MODE = 'Y' THEN
2544: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,3);
2545: END IF;
2546:
2547: pa_debug.reset_err_stack;
2548:
2549: EXCEPTION
2550:
2551: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2564: ELSE
2565: x_msg_count := l_msg_count;
2566: END IF;
2567:
2568: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2569: IF P_PA_DEBUG_MODE = 'Y' THEN
2570: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2571: END IF;
2572:
2565: x_msg_count := l_msg_count;
2566: END IF;
2567:
2568: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2569: IF P_PA_DEBUG_MODE = 'Y' THEN
2570: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2566: END IF;
2567:
2568: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2569: IF P_PA_DEBUG_MODE = 'Y' THEN
2570: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: pa_debug.reset_err_stack;
2570: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: pa_debug.reset_err_stack;
2575: RAISE;
2576:
2577: WHEN others THEN
2578:
2580: x_msg_count := 1;
2581: x_msg_data := SQLERRM;
2582: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
2583: ,p_procedure_name => 'CREATE_ENTERABLE_RESOURCES');
2584: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2587: END IF;
2588: pa_debug.reset_err_stack;
2581: x_msg_data := SQLERRM;
2582: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
2583: ,p_procedure_name => 'CREATE_ENTERABLE_RESOURCES');
2584: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2587: END IF;
2588: pa_debug.reset_err_stack;
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2582: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
2583: ,p_procedure_name => 'CREATE_ENTERABLE_RESOURCES');
2584: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2587: END IF;
2588: pa_debug.reset_err_stack;
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2590:
2584: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2587: END IF;
2588: pa_debug.reset_err_stack;
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2590:
2591: END create_enterable_resources;
2592:
2984:
2985: x_msg_count := 0;
2986: x_return_status := FND_API.G_RET_STS_SUCCESS;
2987:
2988: pa_debug.set_err_stack('Create_elements_from_version');
2989: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2985: x_msg_count := 0;
2986: x_return_status := FND_API.G_RET_STS_SUCCESS;
2987:
2988: pa_debug.set_err_stack('Create_elements_from_version');
2989: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2993: IF p_pa_debug_mode = 'Y' THEN
2987:
2988: pa_debug.set_err_stack('Create_elements_from_version');
2989: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2993: IF p_pa_debug_mode = 'Y' THEN
2994: pa_debug.g_err_stage := 'Entered Create_elements_from_version';
2995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2989: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2993: IF p_pa_debug_mode = 'Y' THEN
2994: pa_debug.g_err_stage := 'Entered Create_elements_from_version';
2995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2996: END IF;
2997:
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2993: IF p_pa_debug_mode = 'Y' THEN
2994: pa_debug.g_err_stage := 'Entered Create_elements_from_version';
2995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2996: END IF;
2997:
2998: -- Check for not null parameters
2991: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2992:
2993: IF p_pa_debug_mode = 'Y' THEN
2994: pa_debug.g_err_stage := 'Entered Create_elements_from_version';
2995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2996: END IF;
2997:
2998: -- Check for not null parameters
2999:
2996: END IF;
2997:
2998: -- Check for not null parameters
2999:
3000: IF p_pa_debug_mode = 'Y' THEN
3001: pa_debug.g_err_stage := 'Checking for valid parameters:';
3002: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3003: END IF;
3004:
2997:
2998: -- Check for not null parameters
2999:
3000: IF p_pa_debug_mode = 'Y' THEN
3001: pa_debug.g_err_stage := 'Checking for valid parameters:';
3002: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3003: END IF;
3004:
3005: IF (p_proj_fp_options_id IS NULL) OR
2998: -- Check for not null parameters
2999:
3000: IF p_pa_debug_mode = 'Y' THEN
3001: pa_debug.g_err_stage := 'Checking for valid parameters:';
3002: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3003: END IF;
3004:
3005: IF (p_proj_fp_options_id IS NULL) OR
3006: (p_element_type IS NULL) OR
3006: (p_element_type IS NULL) OR
3007: (p_from_version_id IS NULL) OR
3008: (p_resource_list_id IS NULL)
3009: THEN
3010: IF p_pa_debug_mode = 'Y' THEN
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3007: (p_from_version_id IS NULL) OR
3008: (p_resource_list_id IS NULL)
3009: THEN
3010: IF p_pa_debug_mode = 'Y' THEN
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3008: (p_resource_list_id IS NULL)
3009: THEN
3010: IF p_pa_debug_mode = 'Y' THEN
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3009: THEN
3010: IF p_pa_debug_mode = 'Y' THEN
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3010: IF p_pa_debug_mode = 'Y' THEN
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3018: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3011: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3018: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3019: END IF;
3012: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3018: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3019: END IF;
3020: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3013: pa_debug.g_err_stage := 'p_element_type = '||p_element_type;
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3018: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3019: END IF;
3020: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3021: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3014: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3015: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3016: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3017: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3018: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3019: END IF;
3020: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3021: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3022:
3023: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3024:
3025: END IF;
3026:
3027: IF p_pa_debug_mode = 'Y' THEN
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3024:
3025: END IF;
3026:
3027: IF p_pa_debug_mode = 'Y' THEN
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3025: END IF;
3026:
3027: IF p_pa_debug_mode = 'Y' THEN
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3026:
3027: IF p_pa_debug_mode = 'Y' THEN
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3027: IF p_pa_debug_mode = 'Y' THEN
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3028: pa_debug.g_err_stage := 'Parameter validation complete';
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3036: END IF;
3029: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3036: END IF;
3037:
3030: pa_debug.g_err_stage := 'p_proj_fp_options_id = '||p_proj_fp_options_id;
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3036: END IF;
3037:
3038: --Get the required fp options info using p_proj_fp_options_id
3031: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3032: pa_debug.g_err_stage := 'p_from_version_id = '||p_from_version_id;
3033: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3034: pa_debug.g_err_stage := 'p_resource_list_id = '||p_resource_list_id;
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3036: END IF;
3037:
3038: --Get the required fp options info using p_proj_fp_options_id
3039:
3068: -- Case:- project level planning and categorised resource list
3069:
3070: --Fetch and insert resource level records into pa_fp_elements.
3071:
3072: IF p_pa_debug_mode = 'Y' THEN
3073: pa_debug.g_err_stage := 'Opening resources_for_proj_level_cur';
3074: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3075: END IF;
3076:
3069:
3070: --Fetch and insert resource level records into pa_fp_elements.
3071:
3072: IF p_pa_debug_mode = 'Y' THEN
3073: pa_debug.g_err_stage := 'Opening resources_for_proj_level_cur';
3074: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3075: END IF;
3076:
3077: OPEN resources_for_proj_level_cur(p_from_version_id);
3070: --Fetch and insert resource level records into pa_fp_elements.
3071:
3072: IF p_pa_debug_mode = 'Y' THEN
3073: pa_debug.g_err_stage := 'Opening resources_for_proj_level_cur';
3074: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3075: END IF;
3076:
3077: OPEN resources_for_proj_level_cur(p_from_version_id);
3078: LOOP
3111: END IF;
3112: -- If there are no mixed resoruce planning level records insert elements
3113:
3114: IF NVL(l_task_id_tbl.last,0) >= 1 THEN
3115: pa_debug.g_err_stage := 'Calling call_insert_bulk_rows_elements';
3116: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3117: Call_Insert_Bulk_Rows_Elements;
3118: END IF;
3119:
3112: -- If there are no mixed resoruce planning level records insert elements
3113:
3114: IF NVL(l_task_id_tbl.last,0) >= 1 THEN
3115: pa_debug.g_err_stage := 'Calling call_insert_bulk_rows_elements';
3116: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3117: Call_Insert_Bulk_Rows_Elements;
3118: END IF;
3119:
3120: EXIT WHEN NVL(l_task_id_tbl.last,0) < l_plsql_max_array_size;
3120: EXIT WHEN NVL(l_task_id_tbl.last,0) < l_plsql_max_array_size;
3121: END LOOP;
3122: CLOSE resources_for_proj_level_cur;
3123:
3124: IF p_pa_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage := 'Closed resources_for_proj_level_cur';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3127: END IF;
3128:
3121: END LOOP;
3122: CLOSE resources_for_proj_level_cur;
3123:
3124: IF p_pa_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage := 'Closed resources_for_proj_level_cur';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3127: END IF;
3128:
3129: END IF;
3122: CLOSE resources_for_proj_level_cur;
3123:
3124: IF p_pa_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage := 'Closed resources_for_proj_level_cur';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3127: END IF;
3128:
3129: END IF;
3130:
3134:
3135: --CASE :- task level planning and categorised resource list
3136: --Fetch and insert resource level records into pa_fp_elements.
3137:
3138: IF p_pa_debug_mode = 'Y' THEN
3139: pa_debug.g_err_stage := 'Opening resources_for_task_level_cur';
3140: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3141: END IF;
3142:
3135: --CASE :- task level planning and categorised resource list
3136: --Fetch and insert resource level records into pa_fp_elements.
3137:
3138: IF p_pa_debug_mode = 'Y' THEN
3139: pa_debug.g_err_stage := 'Opening resources_for_task_level_cur';
3140: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3141: END IF;
3142:
3143: OPEN resources_for_task_level_cur(p_from_version_id);
3136: --Fetch and insert resource level records into pa_fp_elements.
3137:
3138: IF p_pa_debug_mode = 'Y' THEN
3139: pa_debug.g_err_stage := 'Opening resources_for_task_level_cur';
3140: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3141: END IF;
3142:
3143: OPEN resources_for_task_level_cur(p_from_version_id);
3144: LOOP
3163: l_prev_task_id IS NULL OR
3164: l_prev_task_id <> l_task_id_tbl(i)
3165: THEN
3166:
3167: IF p_pa_debug_mode = 'Y' THEN
3168: pa_debug.g_err_stage := 'previous task = '||l_prev_task_id;
3169: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3170: END IF;
3171:
3164: l_prev_task_id <> l_task_id_tbl(i)
3165: THEN
3166:
3167: IF p_pa_debug_mode = 'Y' THEN
3168: pa_debug.g_err_stage := 'previous task = '||l_prev_task_id;
3169: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3170: END IF;
3171:
3172: -- we are at the first record fetched or the task has changed
3165: THEN
3166:
3167: IF p_pa_debug_mode = 'Y' THEN
3168: pa_debug.g_err_stage := 'previous task = '||l_prev_task_id;
3169: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3170: END IF;
3171:
3172: -- we are at the first record fetched or the task has changed
3173: -- So initialise l_prev_res_level, l_prev_task_id with the
3194: EXIT WHEN NVL(l_task_id_tbl.last,0) < l_plsql_max_array_size;
3195: END LOOP;
3196: CLOSE resources_for_task_level_cur;
3197:
3198: IF p_pa_debug_mode = 'Y' THEN
3199: pa_debug.g_err_stage := 'Closed resources_for_task_level_cur';
3200: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3201: END IF;
3202: END IF;
3195: END LOOP;
3196: CLOSE resources_for_task_level_cur;
3197:
3198: IF p_pa_debug_mode = 'Y' THEN
3199: pa_debug.g_err_stage := 'Closed resources_for_task_level_cur';
3200: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3201: END IF;
3202: END IF;
3203:
3196: CLOSE resources_for_task_level_cur;
3197:
3198: IF p_pa_debug_mode = 'Y' THEN
3199: pa_debug.g_err_stage := 'Closed resources_for_task_level_cur';
3200: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3201: END IF;
3202: END IF;
3203:
3204: --Fetch and insert task level records into pa_fp_elements
3202: END IF;
3203:
3204: --Fetch and insert task level records into pa_fp_elements
3205:
3206: IF p_pa_debug_mode = 'Y' THEN
3207: pa_debug.g_err_stage := 'Opening task_level_elements_cur';
3208: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3209: END IF;
3210:
3203:
3204: --Fetch and insert task level records into pa_fp_elements
3205:
3206: IF p_pa_debug_mode = 'Y' THEN
3207: pa_debug.g_err_stage := 'Opening task_level_elements_cur';
3208: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3209: END IF;
3210:
3211: OPEN task_level_elements_cur(p_from_version_id);
3204: --Fetch and insert task level records into pa_fp_elements
3205:
3206: IF p_pa_debug_mode = 'Y' THEN
3207: pa_debug.g_err_stage := 'Opening task_level_elements_cur';
3208: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3209: END IF;
3210:
3211: OPEN task_level_elements_cur(p_from_version_id);
3212: LOOP
3230: CLOSE task_level_elements_cur;
3231:
3232: --Fetch and insert top task level records if they aren't already inserted.
3233:
3234: IF p_pa_debug_mode = 'Y' THEN
3235: pa_debug.g_err_stage := 'Closed task_level_elements_cur';
3236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3237: pa_debug.g_err_stage := 'Opening top_task_level_elements_cur';
3238: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3231:
3232: --Fetch and insert top task level records if they aren't already inserted.
3233:
3234: IF p_pa_debug_mode = 'Y' THEN
3235: pa_debug.g_err_stage := 'Closed task_level_elements_cur';
3236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3237: pa_debug.g_err_stage := 'Opening top_task_level_elements_cur';
3238: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3239: END IF;
3232: --Fetch and insert top task level records if they aren't already inserted.
3233:
3234: IF p_pa_debug_mode = 'Y' THEN
3235: pa_debug.g_err_stage := 'Closed task_level_elements_cur';
3236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3237: pa_debug.g_err_stage := 'Opening top_task_level_elements_cur';
3238: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3239: END IF;
3240:
3233:
3234: IF p_pa_debug_mode = 'Y' THEN
3235: pa_debug.g_err_stage := 'Closed task_level_elements_cur';
3236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3237: pa_debug.g_err_stage := 'Opening top_task_level_elements_cur';
3238: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3239: END IF;
3240:
3241: OPEN top_task_level_elements_cur(p_proj_fp_options_id);
3234: IF p_pa_debug_mode = 'Y' THEN
3235: pa_debug.g_err_stage := 'Closed task_level_elements_cur';
3236: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3237: pa_debug.g_err_stage := 'Opening top_task_level_elements_cur';
3238: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3239: END IF;
3240:
3241: OPEN top_task_level_elements_cur(p_proj_fp_options_id);
3242: LOOP
3258: EXIT WHEN NVL(l_task_id_tbl.last,0) < l_plsql_max_array_size;
3259: END LOOP;
3260: CLOSE top_task_level_elements_cur;
3261:
3262: IF p_pa_debug_mode = 'Y' THEN
3263: pa_debug.g_err_stage := 'Closed top_task_level_elements_cur';
3264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3265: END IF;
3266: END IF;
3259: END LOOP;
3260: CLOSE top_task_level_elements_cur;
3261:
3262: IF p_pa_debug_mode = 'Y' THEN
3263: pa_debug.g_err_stage := 'Closed top_task_level_elements_cur';
3264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3265: END IF;
3266: END IF;
3267: IF p_pa_debug_mode = 'Y' THEN
3260: CLOSE top_task_level_elements_cur;
3261:
3262: IF p_pa_debug_mode = 'Y' THEN
3263: pa_debug.g_err_stage := 'Closed top_task_level_elements_cur';
3264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3265: END IF;
3266: END IF;
3267: IF p_pa_debug_mode = 'Y' THEN
3268: pa_debug.g_err_stage := 'Exiting Create_elements_from_version';
3263: pa_debug.g_err_stage := 'Closed top_task_level_elements_cur';
3264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3265: END IF;
3266: END IF;
3267: IF p_pa_debug_mode = 'Y' THEN
3268: pa_debug.g_err_stage := 'Exiting Create_elements_from_version';
3269: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3270: END IF;
3271: pa_debug.reset_err_stack;
3264: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3265: END IF;
3266: END IF;
3267: IF p_pa_debug_mode = 'Y' THEN
3268: pa_debug.g_err_stage := 'Exiting Create_elements_from_version';
3269: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3270: END IF;
3271: pa_debug.reset_err_stack;
3272: EXCEPTION
3265: END IF;
3266: END IF;
3267: IF p_pa_debug_mode = 'Y' THEN
3268: pa_debug.g_err_stage := 'Exiting Create_elements_from_version';
3269: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3270: END IF;
3271: pa_debug.reset_err_stack;
3272: EXCEPTION
3273:
3267: IF p_pa_debug_mode = 'Y' THEN
3268: pa_debug.g_err_stage := 'Exiting Create_elements_from_version';
3269: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
3270: END IF;
3271: pa_debug.reset_err_stack;
3272: EXCEPTION
3273:
3274: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3275:
3286: x_msg_count := l_msg_count;
3287: ELSE
3288: x_msg_count := l_msg_count;
3289: END IF;
3290: IF p_pa_debug_mode = 'Y' THEN
3291: pa_debug.g_err_stage:='Invalid Arguments Passed';
3292: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3293: END IF;
3294: x_return_status:= FND_API.G_RET_STS_ERROR;
3287: ELSE
3288: x_msg_count := l_msg_count;
3289: END IF;
3290: IF p_pa_debug_mode = 'Y' THEN
3291: pa_debug.g_err_stage:='Invalid Arguments Passed';
3292: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3293: END IF;
3294: x_return_status:= FND_API.G_RET_STS_ERROR;
3295: pa_debug.reset_err_stack;
3288: x_msg_count := l_msg_count;
3289: END IF;
3290: IF p_pa_debug_mode = 'Y' THEN
3291: pa_debug.g_err_stage:='Invalid Arguments Passed';
3292: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3293: END IF;
3294: x_return_status:= FND_API.G_RET_STS_ERROR;
3295: pa_debug.reset_err_stack;
3296: RAISE;
3291: pa_debug.g_err_stage:='Invalid Arguments Passed';
3292: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3293: END IF;
3294: x_return_status:= FND_API.G_RET_STS_ERROR;
3295: pa_debug.reset_err_stack;
3296: RAISE;
3297:
3298: WHEN Mixed_Res_Plan_Level_Exc THEN
3299:
3305: END IF;
3306:
3307: x_mixed_resource_planned_flag := 'Y';
3308: x_return_status:= FND_API.G_RET_STS_ERROR;
3309: IF p_pa_debug_mode = 'Y' THEN
3310: pa_debug.g_err_stage:='Budget_Version '||p_from_version_id ||' has mixed planning level';
3311: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3312: END IF;
3313: pa_debug.reset_err_stack;
3306:
3307: x_mixed_resource_planned_flag := 'Y';
3308: x_return_status:= FND_API.G_RET_STS_ERROR;
3309: IF p_pa_debug_mode = 'Y' THEN
3310: pa_debug.g_err_stage:='Budget_Version '||p_from_version_id ||' has mixed planning level';
3311: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3312: END IF;
3313: pa_debug.reset_err_stack;
3314: RETURN;
3307: x_mixed_resource_planned_flag := 'Y';
3308: x_return_status:= FND_API.G_RET_STS_ERROR;
3309: IF p_pa_debug_mode = 'Y' THEN
3310: pa_debug.g_err_stage:='Budget_Version '||p_from_version_id ||' has mixed planning level';
3311: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3312: END IF;
3313: pa_debug.reset_err_stack;
3314: RETURN;
3315:
3309: IF p_pa_debug_mode = 'Y' THEN
3310: pa_debug.g_err_stage:='Budget_Version '||p_from_version_id ||' has mixed planning level';
3311: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3312: END IF;
3313: pa_debug.reset_err_stack;
3314: RETURN;
3315:
3316: WHEN Others THEN
3317:
3332: x_msg_count := 1;
3333: x_msg_data := SQLERRM;
3334: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
3335: ,p_procedure_name => 'Create_elements_from_version');
3336: IF p_pa_debug_mode = 'Y' THEN
3337: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3338: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3339: END IF;
3340: pa_debug.reset_err_stack;
3333: x_msg_data := SQLERRM;
3334: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
3335: ,p_procedure_name => 'Create_elements_from_version');
3336: IF p_pa_debug_mode = 'Y' THEN
3337: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3338: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3339: END IF;
3340: pa_debug.reset_err_stack;
3341: RAISE;
3334: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
3335: ,p_procedure_name => 'Create_elements_from_version');
3336: IF p_pa_debug_mode = 'Y' THEN
3337: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3338: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3339: END IF;
3340: pa_debug.reset_err_stack;
3341: RAISE;
3342: END Create_elements_from_version;
3336: IF p_pa_debug_mode = 'Y' THEN
3337: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3338: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3339: END IF;
3340: pa_debug.reset_err_stack;
3341: RAISE;
3342: END Create_elements_from_version;
3343:
3344: /*==================================================================================================
3386: l_dummy_task_id_tbl pa_fp_elements_pub.l_task_id_tbl_typ;
3387:
3388: BEGIN
3389:
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3392: l_debug_mode := NVL(l_debug_mode, 'Y');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3387:
3388: BEGIN
3389:
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3392: l_debug_mode := NVL(l_debug_mode, 'Y');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3395: END IF;
3389:
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3392: l_debug_mode := NVL(l_debug_mode, 'Y');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3395: END IF;
3396:
3397: x_return_status := FND_API.G_RET_STS_SUCCESS;
3390: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.refresh_res_list_changes');
3391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3392: l_debug_mode := NVL(l_debug_mode, 'Y');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3395: END IF;
3396:
3397: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398:
3397: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398:
3399: IF (p_proj_fp_options_id IS NULL) or (p_element_type IS NULL) THEN
3400:
3401: IF P_PA_DEBUG_MODE = 'Y' THEN
3402: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Options ID is .'
3403: || p_proj_fp_options_id ||': Err- Element Type is .' || p_element_type;
3404: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3405: END IF;
3398:
3399: IF (p_proj_fp_options_id IS NULL) or (p_element_type IS NULL) THEN
3400:
3401: IF P_PA_DEBUG_MODE = 'Y' THEN
3402: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Options ID is .'
3403: || p_proj_fp_options_id ||': Err- Element Type is .' || p_element_type;
3404: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3405: END IF;
3406:
3400:
3401: IF P_PA_DEBUG_MODE = 'Y' THEN
3402: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Options ID is .'
3403: || p_proj_fp_options_id ||': Err- Element Type is .' || p_element_type;
3404: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3405: END IF;
3406:
3407: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3408: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3408: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3409: x_return_status := FND_API.G_RET_STS_ERROR;
3410: ELSE
3411:
3412: IF P_PA_DEBUG_MODE = 'Y' THEN
3413: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Input parameters are valid ';
3414: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3415: END IF;
3416:
3409: x_return_status := FND_API.G_RET_STS_ERROR;
3410: ELSE
3411:
3412: IF P_PA_DEBUG_MODE = 'Y' THEN
3413: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Input parameters are valid ';
3414: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3415: END IF;
3416:
3417: END IF;
3410: ELSE
3411:
3412: IF P_PA_DEBUG_MODE = 'Y' THEN
3413: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Input parameters are valid ';
3414: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3415: END IF;
3416:
3417: END IF;
3418:
3425:
3426: /* Delete the records from the table PA_FP_Elements based on the Element_Type and
3427: for Element level RESOURCE. */
3428:
3429: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
3430: IF P_PA_DEBUG_MODE = 'Y' THEN
3431: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3432: END IF;
3433:
3426: /* Delete the records from the table PA_FP_Elements based on the Element_Type and
3427: for Element level RESOURCE. */
3428:
3429: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
3430: IF P_PA_DEBUG_MODE = 'Y' THEN
3431: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3432: END IF;
3433:
3434: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
3427: for Element level RESOURCE. */
3428:
3429: pa_debug.g_err_stage := 'Deleting Elements from PA_FP_Elements';
3430: IF P_PA_DEBUG_MODE = 'Y' THEN
3431: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3432: END IF;
3433:
3434: delete_elements(p_proj_fp_options_id => p_proj_fp_options_id
3435: ,p_element_type => p_element_type
3446: p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
3447:
3448:
3449: IF (p_cost_resource_list_id IS NULL) THEN
3450: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Resource List Id is NULL.';
3451: IF P_PA_DEBUG_MODE = 'Y' THEN
3452: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3453: END IF;
3454:
3447:
3448:
3449: IF (p_cost_resource_list_id IS NULL) THEN
3450: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Resource List Id is NULL.';
3451: IF P_PA_DEBUG_MODE = 'Y' THEN
3452: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3453: END IF;
3454:
3455: x_return_status := FND_API.G_RET_STS_ERROR;
3448:
3449: IF (p_cost_resource_list_id IS NULL) THEN
3450: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Resource List Id is NULL.';
3451: IF P_PA_DEBUG_MODE = 'Y' THEN
3452: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3453: END IF;
3454:
3455: x_return_status := FND_API.G_RET_STS_ERROR;
3456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3457: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3459: END IF;
3460:
3461: IF P_PA_DEBUG_MODE = 'Y' THEN
3462: pa_debug.g_err_stage := 'Element Type is Cost ';
3463: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3464: END IF;
3465:
3458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3459: END IF;
3460:
3461: IF P_PA_DEBUG_MODE = 'Y' THEN
3462: pa_debug.g_err_stage := 'Element Type is Cost ';
3463: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3464: END IF;
3465:
3466: IF p_select_cost_res_auto_flag = 'Y'
3459: END IF;
3460:
3461: IF P_PA_DEBUG_MODE = 'Y' THEN
3462: pa_debug.g_err_stage := 'Element Type is Cost ';
3463: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3464: END IF;
3465:
3466: IF p_select_cost_res_auto_flag = 'Y'
3467: THEN /* Bug 2920954 */
3468: /* p_cost_res_planning_level should be either 'R'/'G' */
3469:
3470: IF p_cost_res_planning_level NOT IN ('R','G')
3471: THEN
3472: IF P_PA_DEBUG_MODE = 'Y' THEN
3473: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Auto Res Plan Level is Invalid';
3474: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3475: END IF;
3476:
3469:
3470: IF p_cost_res_planning_level NOT IN ('R','G')
3471: THEN
3472: IF P_PA_DEBUG_MODE = 'Y' THEN
3473: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Auto Res Plan Level is Invalid';
3474: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3475: END IF;
3476:
3477: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3470: IF p_cost_res_planning_level NOT IN ('R','G')
3471: THEN
3472: IF P_PA_DEBUG_MODE = 'Y' THEN
3473: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Cost Auto Res Plan Level is Invalid';
3474: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3475: END IF;
3476:
3477: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3478: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3514: l_res_planning_level := NULL;
3515: END IF;
3516:
3517:
3518: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3521: END IF;
3522:
3515: END IF;
3516:
3517:
3518: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3521: END IF;
3522:
3523: /*Added the condition resources_planned_for_task = 'N' for bug 2676456 so that
3516:
3517:
3518: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3521: END IF;
3522:
3523: /*Added the condition resources_planned_for_task = 'N' for bug 2676456 so that
3524: the resource plannned for task column in planning elements page shows correct value
3539: IF (p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE OR
3540: p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
3541:
3542: IF (p_rev_resource_list_id IS NULL) THEN
3543: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Resource List Id is NULL.';
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3546: END IF;
3547:
3540: p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
3541:
3542: IF (p_rev_resource_list_id IS NULL) THEN
3543: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Resource List Id is NULL.';
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3546: END IF;
3547:
3548: x_return_status := FND_API.G_RET_STS_ERROR;
3541:
3542: IF (p_rev_resource_list_id IS NULL) THEN
3543: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Resource List Id is NULL.';
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3546: END IF;
3547:
3548: x_return_status := FND_API.G_RET_STS_ERROR;
3549: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3550: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3551: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3552: END IF;
3553:
3554: pa_debug.g_err_stage := 'Element Type is REVENUE ';
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3557: END IF;
3558:
3551: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3552: END IF;
3553:
3554: pa_debug.g_err_stage := 'Element Type is REVENUE ';
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3557: END IF;
3558:
3559: IF p_select_rev_res_auto_flag = 'Y'
3552: END IF;
3553:
3554: pa_debug.g_err_stage := 'Element Type is REVENUE ';
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3557: END IF;
3558:
3559: IF p_select_rev_res_auto_flag = 'Y'
3560: THEN /* Bug 2920954 */
3561: /* p_revenue_res_planning_level should be either 'R'/'G' */
3562:
3563: IF p_revenue_res_planning_level NOT IN ('R','G')
3564: THEN
3565: IF P_PA_DEBUG_MODE = 'Y' THEN
3566: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Auto Res Plan Level is Invalid';
3567: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3568: END IF;
3569:
3562:
3563: IF p_revenue_res_planning_level NOT IN ('R','G')
3564: THEN
3565: IF P_PA_DEBUG_MODE = 'Y' THEN
3566: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Auto Res Plan Level is Invalid';
3567: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3568: END IF;
3569:
3570: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3563: IF p_revenue_res_planning_level NOT IN ('R','G')
3564: THEN
3565: IF P_PA_DEBUG_MODE = 'Y' THEN
3566: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Revenue Auto Res Plan Level is Invalid';
3567: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3568: END IF;
3569:
3570: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3571: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3605: ELSE
3606: l_res_planning_level := NULL;
3607: END IF;
3608:
3609: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3610: IF P_PA_DEBUG_MODE = 'Y' THEN
3611: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3612: END IF;
3613:
3606: l_res_planning_level := NULL;
3607: END IF;
3608:
3609: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3610: IF P_PA_DEBUG_MODE = 'Y' THEN
3611: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3612: END IF;
3613:
3614: UPDATE pa_fp_elements
3607: END IF;
3608:
3609: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3610: IF P_PA_DEBUG_MODE = 'Y' THEN
3611: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3612: END IF;
3613:
3614: UPDATE pa_fp_elements
3615: SET resource_planning_level = l_res_planning_level
3626:
3627: IF (p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL ) THEN
3628:
3629: IF (p_all_resource_list_id IS NULL) THEN
3630: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Resource List Id is NULL.';
3631: IF P_PA_DEBUG_MODE = 'Y' THEN
3632: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3633: END IF;
3634:
3627: IF (p_element_type =PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL ) THEN
3628:
3629: IF (p_all_resource_list_id IS NULL) THEN
3630: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Resource List Id is NULL.';
3631: IF P_PA_DEBUG_MODE = 'Y' THEN
3632: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3633: END IF;
3634:
3635: x_return_status := FND_API.G_RET_STS_ERROR;
3628:
3629: IF (p_all_resource_list_id IS NULL) THEN
3630: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Resource List Id is NULL.';
3631: IF P_PA_DEBUG_MODE = 'Y' THEN
3632: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3633: END IF;
3634:
3635: x_return_status := FND_API.G_RET_STS_ERROR;
3636: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3637: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3639: END IF;
3640:
3641: pa_debug.g_err_stage := 'Element Type is ALL ';
3642: IF P_PA_DEBUG_MODE = 'Y' THEN
3643: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3644: END IF;
3645:
3638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3639: END IF;
3640:
3641: pa_debug.g_err_stage := 'Element Type is ALL ';
3642: IF P_PA_DEBUG_MODE = 'Y' THEN
3643: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3644: END IF;
3645:
3646: IF p_select_all_res_auto_flag = 'Y'
3639: END IF;
3640:
3641: pa_debug.g_err_stage := 'Element Type is ALL ';
3642: IF P_PA_DEBUG_MODE = 'Y' THEN
3643: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3644: END IF;
3645:
3646: IF p_select_all_res_auto_flag = 'Y'
3647: THEN /* Bug 2920954 */
3648: /* p_all_res_planning_level should be either 'R'/'G' */
3649:
3650: IF p_all_res_planning_level NOT IN ('R','G')
3651: THEN
3652: IF P_PA_DEBUG_MODE = 'Y' THEN
3653: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Auto Res Plan Level is Invalid';
3654: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3655: END IF;
3656:
3649:
3650: IF p_all_res_planning_level NOT IN ('R','G')
3651: THEN
3652: IF P_PA_DEBUG_MODE = 'Y' THEN
3653: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Auto Res Plan Level is Invalid';
3654: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3655: END IF;
3656:
3657: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3650: IF p_all_res_planning_level NOT IN ('R','G')
3651: THEN
3652: IF P_PA_DEBUG_MODE = 'Y' THEN
3653: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- All Auto Res Plan Level is Invalid';
3654: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3655: END IF;
3656:
3657: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3658: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3692: ELSE
3693: l_res_planning_level := NULL;
3694: END IF;
3695:
3696: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3697: IF P_PA_DEBUG_MODE = 'Y' THEN
3698: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3699: END IF;
3700:
3693: l_res_planning_level := NULL;
3694: END IF;
3695:
3696: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3697: IF P_PA_DEBUG_MODE = 'Y' THEN
3698: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3699: END IF;
3700:
3701: UPDATE pa_fp_elements
3694: END IF;
3695:
3696: pa_debug.g_err_stage := 'Resource Planning Level is '||l_res_planning_level;
3697: IF P_PA_DEBUG_MODE = 'Y' THEN
3698: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,3);
3699: END IF;
3700:
3701: UPDATE pa_fp_elements
3702: SET resource_planning_level = l_res_planning_level
3709: AND element_type = p_element_type;
3710: END IF; /* Bug 2920954 */
3711:
3712: END IF;
3713: pa_debug.reset_err_stack;
3714:
3715: EXCEPTION
3716: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3717: l_msg_count := FND_MSG_PUB.count_msg;
3727: x_msg_count := l_msg_count;
3728: ELSE
3729: x_msg_count := l_msg_count;
3730: END IF;
3731: pa_debug.reset_err_stack;
3732: RETURN;
3733:
3734: WHEN OTHERS THEN
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: x_msg_count := 1;
3737: x_msg_data := SQLERRM;
3738: FND_MSG_PUB.add_exc_msg
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3740: ,p_procedure_name => pa_debug.G_Err_Stack );
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3737: x_msg_data := SQLERRM;
3738: FND_MSG_PUB.add_exc_msg
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3740: ,p_procedure_name => pa_debug.G_Err_Stack );
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3745: pa_debug.reset_err_stack;
3738: FND_MSG_PUB.add_exc_msg
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3740: ,p_procedure_name => pa_debug.G_Err_Stack );
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3745: pa_debug.reset_err_stack;
3746:
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3740: ,p_procedure_name => pa_debug.G_Err_Stack );
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3745: pa_debug.reset_err_stack;
3746:
3747: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3741: IF P_PA_DEBUG_MODE = 'Y' THEN
3742: pa_debug.write('refresh_res_list_changes: ' || l_module_name,SQLERRM,4);
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3745: pa_debug.reset_err_stack;
3746:
3747: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3748: END refresh_res_list_changes;
3749:
3854: BEGIN
3855:
3856: x_msg_count := 0;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
3855:
3856: x_msg_count := 0;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
3863: END IF;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
3863: END IF;
3864:
3865: -- Check for business rules violations
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.set_process('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || 'PLSQL','LOG',l_debug_mode);
3863: END IF;
3864:
3865: -- Check for business rules violations
3866:
3863: END IF;
3864:
3865: -- Check for business rules violations
3866:
3867: pa_debug.g_err_stage:= 'Validating input parameters';
3868: IF P_PA_DEBUG_MODE = 'Y' THEN
3869: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3870: END IF;
3871:
3864:
3865: -- Check for business rules violations
3866:
3867: pa_debug.g_err_stage:= 'Validating input parameters';
3868: IF P_PA_DEBUG_MODE = 'Y' THEN
3869: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3870: END IF;
3871:
3872: --Validate plan version id
3865: -- Check for business rules violations
3866:
3867: pa_debug.g_err_stage:= 'Validating input parameters';
3868: IF P_PA_DEBUG_MODE = 'Y' THEN
3869: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3870: END IF;
3871:
3872: --Validate plan version id
3873:
3873:
3874: IF (p_fin_plan_version_id IS NULL)
3875: THEN
3876:
3877: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3878: IF P_PA_DEBUG_MODE = 'Y' THEN
3879: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3880: END IF;
3881:
3874: IF (p_fin_plan_version_id IS NULL)
3875: THEN
3876:
3877: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3878: IF P_PA_DEBUG_MODE = 'Y' THEN
3879: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3880: END IF;
3881:
3882: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3875: THEN
3876:
3877: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3878: IF P_PA_DEBUG_MODE = 'Y' THEN
3879: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3880: END IF;
3881:
3882: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3883: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3884:
3885: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3886: END IF;
3887:
3888: pa_debug.g_err_stage:= 'Obtain the relevant parameters for the version';
3889: IF P_PA_DEBUG_MODE = 'Y' THEN
3890: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3891: END IF;
3892:
3885: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3886: END IF;
3887:
3888: pa_debug.g_err_stage:= 'Obtain the relevant parameters for the version';
3889: IF P_PA_DEBUG_MODE = 'Y' THEN
3890: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3891: END IF;
3892:
3893: BEGIN
3886: END IF;
3887:
3888: pa_debug.g_err_stage:= 'Obtain the relevant parameters for the version';
3889: IF P_PA_DEBUG_MODE = 'Y' THEN
3890: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3891: END IF;
3892:
3893: BEGIN
3894: select opt.project_id,
3904: where opt.fin_plan_version_id = pbv.budget_version_id
3905: and pbv.budget_version_id = p_fin_plan_version_id;
3906: EXCEPTION
3907: WHEN NO_DATA_FOUND THEN
3908: pa_debug.g_err_stage:= 'Could not get the details of the plan version option';
3909: IF P_PA_DEBUG_MODE = 'Y' THEN
3910: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3911: END IF;
3912: RAISE;
3905: and pbv.budget_version_id = p_fin_plan_version_id;
3906: EXCEPTION
3907: WHEN NO_DATA_FOUND THEN
3908: pa_debug.g_err_stage:= 'Could not get the details of the plan version option';
3909: IF P_PA_DEBUG_MODE = 'Y' THEN
3910: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3911: END IF;
3912: RAISE;
3913: END;
3906: EXCEPTION
3907: WHEN NO_DATA_FOUND THEN
3908: pa_debug.g_err_stage:= 'Could not get the details of the plan version option';
3909: IF P_PA_DEBUG_MODE = 'Y' THEN
3910: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3911: END IF;
3912: RAISE;
3913: END;
3914:
3911: END IF;
3912: RAISE;
3913: END;
3914:
3915: pa_debug.g_err_stage:= 'Create resource assignments - Bulk collect into the plsql tables';
3916: IF P_PA_DEBUG_MODE = 'Y' THEN
3917: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3918: END IF;
3919:
3912: RAISE;
3913: END;
3914:
3915: pa_debug.g_err_stage:= 'Create resource assignments - Bulk collect into the plsql tables';
3916: IF P_PA_DEBUG_MODE = 'Y' THEN
3917: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3918: END IF;
3919:
3920: /*Bug # 3622551 -- Get the value of l_parent_structure_version_id */
3913: END;
3914:
3915: pa_debug.g_err_stage:= 'Create resource assignments - Bulk collect into the plsql tables';
3916: IF P_PA_DEBUG_MODE = 'Y' THEN
3917: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3918: END IF;
3919:
3920: /*Bug # 3622551 -- Get the value of l_parent_structure_version_id */
3921: l_parent_structure_version_id := pa_project_structure_utils.get_fin_struc_ver_id(l_project_id);
3938: -- ,l_projfunc_revenue_tbl
3939: -- ,l_quantity_tbl
3940: LIMIT g_plsql_max_array_size;
3941:
3942: pa_debug.g_err_stage:= 'Create resource assignments - Call the API';
3943: IF P_PA_DEBUG_MODE = 'Y' THEN
3944: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3945: END IF;
3946:
3939: -- ,l_quantity_tbl
3940: LIMIT g_plsql_max_array_size;
3941:
3942: pa_debug.g_err_stage:= 'Create resource assignments - Call the API';
3943: IF P_PA_DEBUG_MODE = 'Y' THEN
3944: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3945: END IF;
3946:
3947: -- getting the context
3940: LIMIT g_plsql_max_array_size;
3941:
3942: pa_debug.g_err_stage:= 'Create resource assignments - Call the API';
3943: IF P_PA_DEBUG_MODE = 'Y' THEN
3944: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3945: END IF;
3946:
3947: -- getting the context
3948: OPEN get_context_csr ;
3987: and ra.resource_list_member_id = rollup.system_reference2
3988: and NVL(ra.cbs_element_id,-1) = NVL(rollup.system_reference3,-1)
3989: and ra.resource_assignment_id IS NOT NULL
3990: );
3991: pa_debug.g_err_stage:= 'No of records updated in rollup tmp-> ' || sql%rowcount;
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3994: END IF;
3995:
3988: and NVL(ra.cbs_element_id,-1) = NVL(rollup.system_reference3,-1)
3989: and ra.resource_assignment_id IS NOT NULL
3990: );
3991: pa_debug.g_err_stage:= 'No of records updated in rollup tmp-> ' || sql%rowcount;
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3994: END IF;
3995:
3996:
3989: and ra.resource_assignment_id IS NOT NULL
3990: );
3991: pa_debug.g_err_stage:= 'No of records updated in rollup tmp-> ' || sql%rowcount;
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3994: END IF;
3995:
3996:
3997: EXCEPTION
4013: ELSE
4014: x_msg_count := l_msg_count;
4015: END IF;
4016:
4017: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4018: IF P_PA_DEBUG_MODE = 'Y' THEN
4019: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4020: END IF;
4021: pa_debug.reset_err_stack;
4014: x_msg_count := l_msg_count;
4015: END IF;
4016:
4017: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4018: IF P_PA_DEBUG_MODE = 'Y' THEN
4019: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4020: END IF;
4021: pa_debug.reset_err_stack;
4022: RAISE;
4015: END IF;
4016:
4017: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4018: IF P_PA_DEBUG_MODE = 'Y' THEN
4019: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4020: END IF;
4021: pa_debug.reset_err_stack;
4022: RAISE;
4023:
4017: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4018: IF P_PA_DEBUG_MODE = 'Y' THEN
4019: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4020: END IF;
4021: pa_debug.reset_err_stack;
4022: RAISE;
4023:
4024: WHEN others THEN
4025:
4027: x_msg_count := 1;
4028: x_msg_data := SQLERRM;
4029: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4030: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4031: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4032: IF P_PA_DEBUG_MODE = 'Y' THEN
4033: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4034: END IF;
4035: pa_debug.reset_err_stack;
4028: x_msg_data := SQLERRM;
4029: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4030: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4031: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4032: IF P_PA_DEBUG_MODE = 'Y' THEN
4033: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4034: END IF;
4035: pa_debug.reset_err_stack;
4036: RAISE;
4029: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4030: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4031: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4032: IF P_PA_DEBUG_MODE = 'Y' THEN
4033: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4034: END IF;
4035: pa_debug.reset_err_stack;
4036: RAISE;
4037:
4031: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4032: IF P_PA_DEBUG_MODE = 'Y' THEN
4033: pa_debug.write('CREATE_ASSGMT_FROM_ROLLUPTMP: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4034: END IF;
4035: pa_debug.reset_err_stack;
4036: RAISE;
4037:
4038: END CREATE_ASSGMT_FROM_ROLLUPTMP;
4039:
4098: ,x_row_id => l_row_id
4099: ,x_return_status => l_return_status);
4100:
4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4102: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
4103: IF P_PA_DEBUG_MODE = 'Y' THEN
4104: pa_debug.write('Insert_Resource_Assignment: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4105: END IF;
4106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4099: ,x_return_status => l_return_status);
4100:
4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4102: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
4103: IF P_PA_DEBUG_MODE = 'Y' THEN
4104: pa_debug.write('Insert_Resource_Assignment: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4105: END IF;
4106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4107: END IF;
4100:
4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4102: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
4103: IF P_PA_DEBUG_MODE = 'Y' THEN
4104: pa_debug.write('Insert_Resource_Assignment: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4105: END IF;
4106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4107: END IF;
4108: END Insert_Resource_Assignment;
4215: BEGIN
4216:
4217: x_msg_count := 0;
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4216:
4217: x_msg_count := 0;
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4224: END IF;
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4224: END IF;
4225:
4226: -- Check for business rules violations
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4223: pa_debug.set_process('Create_CI_Resource_Assignments: ' || 'PLSQL','LOG',l_debug_mode);
4224: END IF;
4225:
4226: -- Check for business rules violations
4227:
4224: END IF;
4225:
4226: -- Check for business rules violations
4227:
4228: IF P_PA_DEBUG_MODE = 'Y' THEN
4229: pa_debug.g_err_stage:= 'Validating input parameters';
4230: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4231: END IF;
4232:
4225:
4226: -- Check for business rules violations
4227:
4228: IF P_PA_DEBUG_MODE = 'Y' THEN
4229: pa_debug.g_err_stage:= 'Validating input parameters';
4230: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4231: END IF;
4232:
4233: --Check if plan version id is null
4226: -- Check for business rules violations
4227:
4228: IF P_PA_DEBUG_MODE = 'Y' THEN
4229: pa_debug.g_err_stage:= 'Validating input parameters';
4230: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4231: END IF;
4232:
4233: --Check if plan version id is null
4234:
4236: (p_budget_version_id IS NULL) OR
4237: (p_impacted_task_id IS NULL) OR
4238: (p_version_type IS NULL)
4239: THEN
4240: IF P_PA_DEBUG_MODE = 'Y' THEN
4241: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
4242: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4237: (p_impacted_task_id IS NULL) OR
4238: (p_version_type IS NULL)
4239: THEN
4240: IF P_PA_DEBUG_MODE = 'Y' THEN
4241: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
4242: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4238: (p_version_type IS NULL)
4239: THEN
4240: IF P_PA_DEBUG_MODE = 'Y' THEN
4241: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
4242: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4246:
4240: IF P_PA_DEBUG_MODE = 'Y' THEN
4241: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
4242: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4246:
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4241: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
4242: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4246:
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4249:
4243:
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4246:
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4249:
4250: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
4251: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4244: pa_debug.g_err_stage:= 'p_budget_version_id = '||p_budget_version_id;
4245: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4246:
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4249:
4250: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
4251: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4252: END IF;
4246:
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4249:
4250: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
4251: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4252: END IF;
4253:
4254: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4247: pa_debug.g_err_stage:= 'p_impacted_task_id = '||p_impacted_task_id;
4248: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4249:
4250: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
4251: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4252: END IF;
4253:
4254: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4255: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4265: FROM pa_budget_versions bv
4266: WHERE budget_version_id = p_budget_version_id;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: pa_debug.g_err_stage:= 'Failed to fetch plan type and resource list for given budget version';
4270: IF P_PA_DEBUG_MODE = 'Y' THEN
4271: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4272: END IF;
4273: RAISE;
4266: WHERE budget_version_id = p_budget_version_id;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: pa_debug.g_err_stage:= 'Failed to fetch plan type and resource list for given budget version';
4270: IF P_PA_DEBUG_MODE = 'Y' THEN
4271: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4272: END IF;
4273: RAISE;
4274: END;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: pa_debug.g_err_stage:= 'Failed to fetch plan type and resource list for given budget version';
4270: IF P_PA_DEBUG_MODE = 'Y' THEN
4271: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4272: END IF;
4273: RAISE;
4274: END;
4275:
4299: */
4300:
4301: IF l_plan_version_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
4302:
4303: pa_debug.g_err_stage := 'Planning level of the plan version is project ..';
4304: IF P_PA_DEBUG_MODE = 'Y' THEN
4305: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4306: END IF;
4307:
4300:
4301: IF l_plan_version_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
4302:
4303: pa_debug.g_err_stage := 'Planning level of the plan version is project ..';
4304: IF P_PA_DEBUG_MODE = 'Y' THEN
4305: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4306: END IF;
4307:
4308: OPEN cur_elements_for_project;
4301: IF l_plan_version_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
4302:
4303: pa_debug.g_err_stage := 'Planning level of the plan version is project ..';
4304: IF P_PA_DEBUG_MODE = 'Y' THEN
4305: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4306: END IF;
4307:
4308: OPEN cur_elements_for_project;
4309: FETCH cur_elements_for_project BULK COLLECT INTO
4319: CLOSE cur_elements_for_project;
4320:
4321: IF l_src_ra_id_tbl.count > 0 THEN
4322:
4323: IF P_PA_DEBUG_MODE = 'Y' THEN
4324: pa_debug.g_err_stage := 'Calling create_res_task_map';
4325: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4326: END IF;
4327:
4320:
4321: IF l_src_ra_id_tbl.count > 0 THEN
4322:
4323: IF P_PA_DEBUG_MODE = 'Y' THEN
4324: pa_debug.g_err_stage := 'Calling create_res_task_map';
4325: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4326: END IF;
4327:
4328: pa_fp_copy_from_pkg.create_res_task_maps(
4321: IF l_src_ra_id_tbl.count > 0 THEN
4322:
4323: IF P_PA_DEBUG_MODE = 'Y' THEN
4324: pa_debug.g_err_stage := 'Calling create_res_task_map';
4325: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4326: END IF;
4327:
4328: pa_fp_copy_from_pkg.create_res_task_maps(
4329: p_context => 'BUDGET'
4340: ,x_msg_count => l_msg_count
4341: ,x_msg_data => l_msg_data );
4342:
4343: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4346: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4347: END IF;
4348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4341: ,x_msg_data => l_msg_data );
4342:
4343: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4346: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4347: END IF;
4348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4349: END IF;
4342:
4343: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4346: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4347: END IF;
4348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4349: END IF;
4350:
4347: END IF;
4348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4349: END IF;
4350:
4351: IF P_PA_DEBUG_MODE = 'Y' THEN
4352: pa_debug.g_err_stage := 'copy_resource_assignments';
4353: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4354: END IF;
4355: pa_fp_copy_from_pkg.copy_resource_assignments(
4348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4349: END IF;
4350:
4351: IF P_PA_DEBUG_MODE = 'Y' THEN
4352: pa_debug.g_err_stage := 'copy_resource_assignments';
4353: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4354: END IF;
4355: pa_fp_copy_from_pkg.copy_resource_assignments(
4356: p_source_plan_version_id => l_ci_apprv_cw_bv_id
4349: END IF;
4350:
4351: IF P_PA_DEBUG_MODE = 'Y' THEN
4352: pa_debug.g_err_stage := 'copy_resource_assignments';
4353: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4354: END IF;
4355: pa_fp_copy_from_pkg.copy_resource_assignments(
4356: p_source_plan_version_id => l_ci_apprv_cw_bv_id
4357: ,p_target_plan_version_id => p_budget_version_id
4362: ,x_msg_count => l_msg_count
4363: ,x_msg_data => l_msg_data );
4364:
4365: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4366: IF P_PA_DEBUG_MODE = 'Y' THEN
4367: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4368: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4369: END IF;
4370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4363: ,x_msg_data => l_msg_data );
4364:
4365: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4366: IF P_PA_DEBUG_MODE = 'Y' THEN
4367: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4368: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4369: END IF;
4370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4371: END IF;
4364:
4365: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4366: IF P_PA_DEBUG_MODE = 'Y' THEN
4367: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4368: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4369: END IF;
4370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4371: END IF;
4372: END IF; /* l_src_ra_id_tbl.count > 0 */
4418: /* No record are there to be inserted. Ideally, control should never come here since
4419: * is_create_ci_version_Allowed should have caught this case and thrown an error! */
4420: null;
4421: ELSE
4422: IF P_PA_DEBUG_MODE = 'Y' THEN
4423: pa_debug.g_err_stage := 'Calling create_res_task_map';
4424: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4425: END IF;
4426:
4419: * is_create_ci_version_Allowed should have caught this case and thrown an error! */
4420: null;
4421: ELSE
4422: IF P_PA_DEBUG_MODE = 'Y' THEN
4423: pa_debug.g_err_stage := 'Calling create_res_task_map';
4424: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4425: END IF;
4426:
4427: pa_fp_copy_from_pkg.create_res_task_maps(
4420: null;
4421: ELSE
4422: IF P_PA_DEBUG_MODE = 'Y' THEN
4423: pa_debug.g_err_stage := 'Calling create_res_task_map';
4424: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4425: END IF;
4426:
4427: pa_fp_copy_from_pkg.create_res_task_maps(
4428: p_context => 'BUDGET'
4439: ,x_msg_count => l_msg_count
4440: ,x_msg_data => l_msg_data );
4441:
4442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4443: IF P_PA_DEBUG_MODE = 'Y' THEN
4444: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4445: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4446: END IF;
4447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4440: ,x_msg_data => l_msg_data );
4441:
4442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4443: IF P_PA_DEBUG_MODE = 'Y' THEN
4444: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4445: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4446: END IF;
4447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4448: END IF;
4441:
4442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4443: IF P_PA_DEBUG_MODE = 'Y' THEN
4444: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4445: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4446: END IF;
4447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4448: END IF;
4449:
4446: END IF;
4447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4448: END IF;
4449:
4450: IF P_PA_DEBUG_MODE = 'Y' THEN
4451: pa_debug.g_err_stage := 'copy_resource_assignments';
4452: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4453: END IF;
4454: pa_fp_copy_from_pkg.copy_resource_assignments(
4447: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4448: END IF;
4449:
4450: IF P_PA_DEBUG_MODE = 'Y' THEN
4451: pa_debug.g_err_stage := 'copy_resource_assignments';
4452: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4453: END IF;
4454: pa_fp_copy_from_pkg.copy_resource_assignments(
4455: p_source_plan_version_id => l_ci_apprv_cw_bv_id
4448: END IF;
4449:
4450: IF P_PA_DEBUG_MODE = 'Y' THEN
4451: pa_debug.g_err_stage := 'copy_resource_assignments';
4452: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4453: END IF;
4454: pa_fp_copy_from_pkg.copy_resource_assignments(
4455: p_source_plan_version_id => l_ci_apprv_cw_bv_id
4456: ,p_target_plan_version_id => p_budget_version_id
4461: ,x_msg_count => l_msg_count
4462: ,x_msg_data => l_msg_data );
4463:
4464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4465: IF P_PA_DEBUG_MODE = 'Y' THEN
4466: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4467: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4468: END IF;
4469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4462: ,x_msg_data => l_msg_data );
4463:
4464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4465: IF P_PA_DEBUG_MODE = 'Y' THEN
4466: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4467: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4468: END IF;
4469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4470: END IF;
4463:
4464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4465: IF P_PA_DEBUG_MODE = 'Y' THEN
4466: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4467: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4468: END IF;
4469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4470: END IF;
4471: END IF; /* l_src_ra_id_tbl.count > 0 */
4471: END IF; /* l_src_ra_id_tbl.count > 0 */
4472:
4473: END IF;
4474:
4475: IF P_PA_DEBUG_MODE = 'Y' THEN
4476: pa_debug.g_err_stage:= 'Exiting Create_CI_Resource_Assignments';
4477: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478: END IF;
4479: pa_debug.reset_err_stack;
4472:
4473: END IF;
4474:
4475: IF P_PA_DEBUG_MODE = 'Y' THEN
4476: pa_debug.g_err_stage:= 'Exiting Create_CI_Resource_Assignments';
4477: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478: END IF;
4479: pa_debug.reset_err_stack;
4480:
4473: END IF;
4474:
4475: IF P_PA_DEBUG_MODE = 'Y' THEN
4476: pa_debug.g_err_stage:= 'Exiting Create_CI_Resource_Assignments';
4477: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478: END IF;
4479: pa_debug.reset_err_stack;
4480:
4481: EXCEPTION
4475: IF P_PA_DEBUG_MODE = 'Y' THEN
4476: pa_debug.g_err_stage:= 'Exiting Create_CI_Resource_Assignments';
4477: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4478: END IF;
4479: pa_debug.reset_err_stack;
4480:
4481: EXCEPTION
4482:
4483: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4497: ELSE
4498: x_msg_count := l_msg_count;
4499: END IF;
4500:
4501: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4502: IF P_PA_DEBUG_MODE = 'Y' THEN
4503: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4504: END IF;
4505: pa_debug.reset_err_stack;
4498: x_msg_count := l_msg_count;
4499: END IF;
4500:
4501: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4502: IF P_PA_DEBUG_MODE = 'Y' THEN
4503: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4504: END IF;
4505: pa_debug.reset_err_stack;
4506: RAISE;
4499: END IF;
4500:
4501: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4502: IF P_PA_DEBUG_MODE = 'Y' THEN
4503: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4504: END IF;
4505: pa_debug.reset_err_stack;
4506: RAISE;
4507:
4501: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4502: IF P_PA_DEBUG_MODE = 'Y' THEN
4503: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4504: END IF;
4505: pa_debug.reset_err_stack;
4506: RAISE;
4507:
4508: WHEN others THEN
4509:
4511: x_msg_count := 1;
4512: x_msg_data := SQLERRM;
4513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4514: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4515: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4516: IF P_PA_DEBUG_MODE = 'Y' THEN
4517: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4518: END IF;
4519: pa_debug.reset_err_stack;
4512: x_msg_data := SQLERRM;
4513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4514: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4515: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4516: IF P_PA_DEBUG_MODE = 'Y' THEN
4517: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4518: END IF;
4519: pa_debug.reset_err_stack;
4520: RAISE;
4513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4514: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4515: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4516: IF P_PA_DEBUG_MODE = 'Y' THEN
4517: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4518: END IF;
4519: pa_debug.reset_err_stack;
4520: RAISE;
4521: END Create_CI_Resource_Assignments;
4515: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4516: IF P_PA_DEBUG_MODE = 'Y' THEN
4517: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4518: END IF;
4519: pa_debug.reset_err_stack;
4520: RAISE;
4521: END Create_CI_Resource_Assignments;
4522:
4523: /*==================================================================
4659:
4660: BEGIN
4661: x_msg_count := 0;
4662: x_return_status := FND_API.G_RET_STS_SUCCESS;
4663: PA_DEBUG.Set_Curr_Function( p_function => 'Add_resources_automatically',
4664: p_debug_mode => p_pa_debug_mode );
4665:
4666: -- Check for NOT NULL parameters
4667: IF (p_proj_fp_options_id IS NULL) OR
4660: BEGIN
4661: x_msg_count := 0;
4662: x_return_status := FND_API.G_RET_STS_SUCCESS;
4663: PA_DEBUG.Set_Curr_Function( p_function => 'Add_resources_automatically',
4664: p_debug_mode => p_pa_debug_mode );
4665:
4666: -- Check for NOT NULL parameters
4667: IF (p_proj_fp_options_id IS NULL) OR
4668: (p_element_type IS NULL) OR
4670: (p_resource_list_id IS NULL) OR
4671: (p_res_planning_level IS NULL) OR
4672: (p_entire_option IS NULL)
4673: THEN
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4671: (p_res_planning_level IS NULL) OR
4672: (p_entire_option IS NULL)
4673: THEN
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4672: (p_entire_option IS NULL)
4673: THEN
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4673: THEN
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4674: IF p_pa_debug_mode = 'Y' THEN
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4675: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4676: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4677: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4678: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4679: pa_debug.g_err_stage:= 'p_fin_plan_level_code = '|| p_fin_plan_level_code;
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4680: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4681: pa_debug.g_err_stage:= 'p_resource_list_id = '|| p_resource_list_id;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4689: END IF;
4682: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4689: END IF;
4690: PA_UTILS.ADD_MESSAGE
4683: pa_debug.g_err_stage:= 'p_res_planning_level = '|| p_res_planning_level;
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4689: END IF;
4690: PA_UTILS.ADD_MESSAGE
4691: (p_app_short_name => 'PA',
4684: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4685: pa_debug.g_err_stage:= 'p_entire_option = '|| p_entire_option;
4686: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4687: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4688: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4689: END IF;
4690: PA_UTILS.ADD_MESSAGE
4691: (p_app_short_name => 'PA',
4692: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4699: FETCH proj_fp_options_info_cur INTO proj_fp_options_info_rec;
4700:
4701: IF proj_fp_options_info_cur%NOTFOUND
4702: THEN
4703: IF p_pa_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:= 'Unexpected error while fetching option_id Info for the option: '
4705: ||p_proj_fp_options_id||'the error message is: '||sqlerrm;
4706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4707: END IF;
4700:
4701: IF proj_fp_options_info_cur%NOTFOUND
4702: THEN
4703: IF p_pa_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:= 'Unexpected error while fetching option_id Info for the option: '
4705: ||p_proj_fp_options_id||'the error message is: '||sqlerrm;
4706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4707: END IF;
4708: PA_UTILS.ADD_MESSAGE
4702: THEN
4703: IF p_pa_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:= 'Unexpected error while fetching option_id Info for the option: '
4705: ||p_proj_fp_options_id||'the error message is: '||sqlerrm;
4706: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4707: END IF;
4708: PA_UTILS.ADD_MESSAGE
4709: (p_app_short_name => 'PA',
4710: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4731: THEN
4732: l_task_id_tbl(1) := 0;
4733: l_top_task_id_tbl(1) := 0;
4734: ELSE
4735: IF p_pa_debug_mode = 'Y' THEN
4736: pa_debug.g_err_stage:= 'Cursor all_plannable_tasks_cur is opened';
4737: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4738: END IF;
4739:
4732: l_task_id_tbl(1) := 0;
4733: l_top_task_id_tbl(1) := 0;
4734: ELSE
4735: IF p_pa_debug_mode = 'Y' THEN
4736: pa_debug.g_err_stage:= 'Cursor all_plannable_tasks_cur is opened';
4737: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4738: END IF;
4739:
4740: OPEN all_plannable_tasks_cur(p_proj_fp_options_id,p_element_type);
4733: l_top_task_id_tbl(1) := 0;
4734: ELSE
4735: IF p_pa_debug_mode = 'Y' THEN
4736: pa_debug.g_err_stage:= 'Cursor all_plannable_tasks_cur is opened';
4737: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4738: END IF;
4739:
4740: OPEN all_plannable_tasks_cur(p_proj_fp_options_id,p_element_type);
4741: FETCH all_plannable_tasks_cur
4752: l_task_id_tbl := p_element_task_id_tbl;
4753:
4754: IF l_task_id_tbl.count = 0
4755: THEN
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage:= 'l_task_id_Tbl is empty. Returning...';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759: END IF;
4760: pa_debug.reset_curr_function;
4753:
4754: IF l_task_id_tbl.count = 0
4755: THEN
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage:= 'l_task_id_Tbl is empty. Returning...';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759: END IF;
4760: pa_debug.reset_curr_function;
4761: RETURN; -- as no tasks are to be processed.
4754: IF l_task_id_tbl.count = 0
4755: THEN
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage:= 'l_task_id_Tbl is empty. Returning...';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759: END IF;
4760: pa_debug.reset_curr_function;
4761: RETURN; -- as no tasks are to be processed.
4762: END IF;
4756: IF p_pa_debug_mode = 'Y' THEN
4757: pa_debug.g_err_stage:= 'l_task_id_Tbl is empty. Returning...';
4758: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4759: END IF;
4760: pa_debug.reset_curr_function;
4761: RETURN; -- as no tasks are to be processed.
4762: END IF;
4763:
4764: /*
4774: l_task_tbl_index := l_task_id_tbl.first;
4775:
4776: IF (l_task_id_tbl.count <> 1) OR (l_task_id_tbl(l_task_tbl_index) <> 0)
4777: THEN
4778: IF p_pa_debug_mode = 'Y' THEN
4779: pa_debug.g_err_stage:= 'Invalid task(s) passed for project plan level case';
4780: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4781: END IF;
4782: PA_UTILS.ADD_MESSAGE
4775:
4776: IF (l_task_id_tbl.count <> 1) OR (l_task_id_tbl(l_task_tbl_index) <> 0)
4777: THEN
4778: IF p_pa_debug_mode = 'Y' THEN
4779: pa_debug.g_err_stage:= 'Invalid task(s) passed for project plan level case';
4780: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4781: END IF;
4782: PA_UTILS.ADD_MESSAGE
4783: (p_app_short_name => 'PA',
4776: IF (l_task_id_tbl.count <> 1) OR (l_task_id_tbl(l_task_tbl_index) <> 0)
4777: THEN
4778: IF p_pa_debug_mode = 'Y' THEN
4779: pa_debug.g_err_stage:= 'Invalid task(s) passed for project plan level case';
4780: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4781: END IF;
4782: PA_UTILS.ADD_MESSAGE
4783: (p_app_short_name => 'PA',
4784: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4791:
4792: FOR l_task_tbl_index IN l_task_id_tbl.first .. l_task_id_tbl.last
4793: LOOP
4794:
4795: IF p_pa_debug_mode = 'Y' THEN
4796: pa_debug.g_err_stage:= 'Fetching top task for each task_id';
4797: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4798: END IF;
4799:
4792: FOR l_task_tbl_index IN l_task_id_tbl.first .. l_task_id_tbl.last
4793: LOOP
4794:
4795: IF p_pa_debug_mode = 'Y' THEN
4796: pa_debug.g_err_stage:= 'Fetching top task for each task_id';
4797: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4798: END IF;
4799:
4800: BEGIN
4793: LOOP
4794:
4795: IF p_pa_debug_mode = 'Y' THEN
4796: pa_debug.g_err_stage:= 'Fetching top task for each task_id';
4797: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4798: END IF;
4799:
4800: BEGIN
4801: SELECT top_task_id
4808: AND plannable_flag = 'Y';
4809: EXCEPTION
4810: WHEN NO_DATA_FOUND THEN
4811:
4812: IF p_pa_debug_mode = 'Y' THEN
4813: pa_debug.g_err_stage:= 'While fetching top_task for the task: '
4814: ||l_task_id_tbl(l_task_tbl_index)|| 'Error is: '||sqlerrm;
4815: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4816: END IF;
4809: EXCEPTION
4810: WHEN NO_DATA_FOUND THEN
4811:
4812: IF p_pa_debug_mode = 'Y' THEN
4813: pa_debug.g_err_stage:= 'While fetching top_task for the task: '
4814: ||l_task_id_tbl(l_task_tbl_index)|| 'Error is: '||sqlerrm;
4815: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4816: END IF;
4817: PA_UTILS.ADD_MESSAGE
4811:
4812: IF p_pa_debug_mode = 'Y' THEN
4813: pa_debug.g_err_stage:= 'While fetching top_task for the task: '
4814: ||l_task_id_tbl(l_task_tbl_index)|| 'Error is: '||sqlerrm;
4815: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4816: END IF;
4817: PA_UTILS.ADD_MESSAGE
4818: (p_app_short_name => 'PA',
4819: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4843:
4844: /* return if resource list is uncategorized as no resources are to be added in this case*/
4845: IF l_res_uncategorized_flag = 'Y'
4846: THEN
4847: IF p_pa_debug_mode = 'Y' THEN
4848: pa_debug.g_err_stage:= 'l_res_uncategorized_flag is Y. Returning...';
4849: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4850: pa_debug.reset_curr_function;
4851: END IF;
4844: /* return if resource list is uncategorized as no resources are to be added in this case*/
4845: IF l_res_uncategorized_flag = 'Y'
4846: THEN
4847: IF p_pa_debug_mode = 'Y' THEN
4848: pa_debug.g_err_stage:= 'l_res_uncategorized_flag is Y. Returning...';
4849: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4850: pa_debug.reset_curr_function;
4851: END IF;
4852: RETURN;
4845: IF l_res_uncategorized_flag = 'Y'
4846: THEN
4847: IF p_pa_debug_mode = 'Y' THEN
4848: pa_debug.g_err_stage:= 'l_res_uncategorized_flag is Y. Returning...';
4849: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4850: pa_debug.reset_curr_function;
4851: END IF;
4852: RETURN;
4853: END IF;
4846: THEN
4847: IF p_pa_debug_mode = 'Y' THEN
4848: pa_debug.g_err_stage:= 'l_res_uncategorized_flag is Y. Returning...';
4849: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4850: pa_debug.reset_curr_function;
4851: END IF;
4852: RETURN;
4853: END IF;
4854:
4861:
4862: IF l_is_resource_list_grouped = 'N'
4863: THEN
4864:
4865: IF p_pa_debug_mode = 'Y' THEN
4866: pa_debug.g_err_stage:= 'ungrouped_res_cur is opened';
4867: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4868: END IF;
4869:
4862: IF l_is_resource_list_grouped = 'N'
4863: THEN
4864:
4865: IF p_pa_debug_mode = 'Y' THEN
4866: pa_debug.g_err_stage:= 'ungrouped_res_cur is opened';
4867: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4868: END IF;
4869:
4870: OPEN ungrouped_res_cur (p_resource_list_id);
4863: THEN
4864:
4865: IF p_pa_debug_mode = 'Y' THEN
4866: pa_debug.g_err_stage:= 'ungrouped_res_cur is opened';
4867: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4868: END IF;
4869:
4870: OPEN ungrouped_res_cur (p_resource_list_id);
4871: FETCH ungrouped_res_cur BULK COLLECT INTO
4874: ELSE
4875: IF p_res_planning_level = PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_R
4876: THEN
4877:
4878: IF p_pa_debug_mode = 'Y' THEN
4879: pa_debug.g_err_stage:= 'grouped_res_level_res_cur is opened';
4880: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4881: END IF;
4882:
4875: IF p_res_planning_level = PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_R
4876: THEN
4877:
4878: IF p_pa_debug_mode = 'Y' THEN
4879: pa_debug.g_err_stage:= 'grouped_res_level_res_cur is opened';
4880: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4881: END IF;
4882:
4883: OPEN grouped_res_level_res_cur(p_resource_list_id);
4876: THEN
4877:
4878: IF p_pa_debug_mode = 'Y' THEN
4879: pa_debug.g_err_stage:= 'grouped_res_level_res_cur is opened';
4880: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4881: END IF;
4882:
4883: OPEN grouped_res_level_res_cur(p_resource_list_id);
4884: FETCH grouped_res_level_res_cur BULK COLLECT INTO
4887:
4888: ELSIF p_res_planning_level = PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_G
4889: THEN
4890:
4891: IF p_pa_debug_mode = 'Y' THEN
4892: pa_debug.g_err_stage:= 'grouped_resgrp_level_res_cur is opened';
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4894: END IF;
4895:
4888: ELSIF p_res_planning_level = PA_FP_CONSTANTS_PKG.G_RESOURCE_PLANNING_LEVEL_G
4889: THEN
4890:
4891: IF p_pa_debug_mode = 'Y' THEN
4892: pa_debug.g_err_stage:= 'grouped_resgrp_level_res_cur is opened';
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4894: END IF;
4895:
4896: OPEN grouped_resgrp_level_res_cur(p_resource_list_id);
4889: THEN
4890:
4891: IF p_pa_debug_mode = 'Y' THEN
4892: pa_debug.g_err_stage:= 'grouped_resgrp_level_res_cur is opened';
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4894: END IF;
4895:
4896: OPEN grouped_resgrp_level_res_cur(p_resource_list_id);
4897: FETCH grouped_resgrp_level_res_cur BULK COLLECT INTO
4904: For each task_id in the task_id table we need to insert
4905: all the resource_list_memebers fetched in pa_fp_elements table.
4906: */
4907:
4908: IF p_pa_debug_mode = 'Y' THEN
4909: pa_debug.g_err_stage:= 'for each task in task_id_tbl inserting all the rlmids fetched';
4910: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4911: END IF;
4912:
4905: all the resource_list_memebers fetched in pa_fp_elements table.
4906: */
4907:
4908: IF p_pa_debug_mode = 'Y' THEN
4909: pa_debug.g_err_stage:= 'for each task in task_id_tbl inserting all the rlmids fetched';
4910: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4911: END IF;
4912:
4913: FOR l_task_tbl_index IN l_task_id_tbl.first .. l_task_id_tbl.last
4906: */
4907:
4908: IF p_pa_debug_mode = 'Y' THEN
4909: pa_debug.g_err_stage:= 'for each task in task_id_tbl inserting all the rlmids fetched';
4910: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4911: END IF;
4912:
4913: FOR l_task_tbl_index IN l_task_id_tbl.first .. l_task_id_tbl.last
4914: LOOP
4965: END LOOP;
4966:
4967: -- Bulk update all the task records to reflect that resources selection is done
4968:
4969: IF p_pa_debug_mode = 'Y' THEN
4970: pa_debug.g_err_stage:= 'Bulk updating all the tasks to reflect resource selection status';
4971: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4972: END IF;
4973:
4966:
4967: -- Bulk update all the task records to reflect that resources selection is done
4968:
4969: IF p_pa_debug_mode = 'Y' THEN
4970: pa_debug.g_err_stage:= 'Bulk updating all the tasks to reflect resource selection status';
4971: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4972: END IF;
4973:
4974: IF l_res_list_mem_id_tbl.count > 0
4967: -- Bulk update all the task records to reflect that resources selection is done
4968:
4969: IF p_pa_debug_mode = 'Y' THEN
4970: pa_debug.g_err_stage:= 'Bulk updating all the tasks to reflect resource selection status';
4971: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4972: END IF;
4973:
4974: IF l_res_list_mem_id_tbl.count > 0
4975: THEN
4986: AND task_id = l_task_id_tbl(l_task_tbl_index)
4987: AND resource_list_member_id = 0;
4988: END IF;
4989:
4990: IF p_pa_debug_mode = 'Y' THEN
4991: pa_debug.g_err_stage:= 'Exiting Add_resources_automatically';
4992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4993: END IF;
4994: pa_debug.reset_curr_function;
4987: AND resource_list_member_id = 0;
4988: END IF;
4989:
4990: IF p_pa_debug_mode = 'Y' THEN
4991: pa_debug.g_err_stage:= 'Exiting Add_resources_automatically';
4992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4993: END IF;
4994: pa_debug.reset_curr_function;
4995: EXCEPTION
4988: END IF;
4989:
4990: IF p_pa_debug_mode = 'Y' THEN
4991: pa_debug.g_err_stage:= 'Exiting Add_resources_automatically';
4992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4993: END IF;
4994: pa_debug.reset_curr_function;
4995: EXCEPTION
4996:
4990: IF p_pa_debug_mode = 'Y' THEN
4991: pa_debug.g_err_stage:= 'Exiting Add_resources_automatically';
4992: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4993: END IF;
4994: pa_debug.reset_curr_function;
4995: EXCEPTION
4996:
4997: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4998:
5010: x_msg_count := l_msg_count;
5011: ELSE
5012: x_msg_count := l_msg_count;
5013: END IF;
5014: pa_debug.reset_curr_function;
5015: RETURN;
5016: WHEN others THEN
5017:
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5021: FND_MSG_PUB.add_exc_msg
5022: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5023: ,p_procedure_name => 'ADD_RESOURCES_AUTOMATICALLY'
5024: ,p_error_text => sqlerrm);
5025: pa_debug.reset_curr_function;
5026: RAISE;
5027: END Add_resources_automatically;
5028:
5029: /* Bug 2920954 - This procedure deletes all the planning elements
5060: BEGIN
5061:
5062: x_msg_count := 0;
5063: x_return_status := FND_API.G_RET_STS_SUCCESS;
5064: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5065:
5066: pa_debug.set_curr_function( p_function => 'delete_task_elements',
5067: p_debug_mode => l_debug_mode );
5068:
5062: x_msg_count := 0;
5063: x_return_status := FND_API.G_RET_STS_SUCCESS;
5064: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5065:
5066: pa_debug.set_curr_function( p_function => 'delete_task_elements',
5067: p_debug_mode => l_debug_mode );
5068:
5069: -- Check for business rules violations
5070:
5068:
5069: -- Check for business rules violations
5070:
5071: IF l_debug_mode = 'Y' THEN
5072: pa_debug.g_err_stage:= 'Validating input parameters';
5073: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5074: L_DEBUG_LEVEL3);
5075: END IF;
5076:
5069: -- Check for business rules violations
5070:
5071: IF l_debug_mode = 'Y' THEN
5072: pa_debug.g_err_stage:= 'Validating input parameters';
5073: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5074: L_DEBUG_LEVEL3);
5075: END IF;
5076:
5077: IF (p_task_id IS NULL)
5076:
5077: IF (p_task_id IS NULL)
5078: THEN
5079: IF l_debug_mode = 'Y' THEN
5080: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5081: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5082: L_DEBUG_LEVEL5);
5083: END IF;
5084: PA_UTILS.ADD_MESSAGE
5077: IF (p_task_id IS NULL)
5078: THEN
5079: IF l_debug_mode = 'Y' THEN
5080: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5081: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5082: L_DEBUG_LEVEL5);
5083: END IF;
5084: PA_UTILS.ADD_MESSAGE
5085: (p_app_short_name => 'PA',
5087: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5088: END IF;
5089:
5090: IF l_debug_mode = 'Y' THEN
5091: pa_debug.g_err_stage:= 'Deleting from pa_resource_assignments for task id ' || to_char(p_task_id);
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5093: L_DEBUG_LEVEL3);
5094: END IF;
5095:
5088: END IF;
5089:
5090: IF l_debug_mode = 'Y' THEN
5091: pa_debug.g_err_stage:= 'Deleting from pa_resource_assignments for task id ' || to_char(p_task_id);
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5093: L_DEBUG_LEVEL3);
5094: END IF;
5095:
5096: DELETE FROM pa_resource_assignments r
5101:
5102: l_records_deleted := sql%rowcount;
5103:
5104: IF l_debug_mode = 'Y' THEN
5105: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
5106: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5107: END IF;
5108:
5109: IF l_debug_mode = 'Y' THEN
5102: l_records_deleted := sql%rowcount;
5103:
5104: IF l_debug_mode = 'Y' THEN
5105: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
5106: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5107: END IF;
5108:
5109: IF l_debug_mode = 'Y' THEN
5110: pa_debug.g_err_stage:= 'Exiting delete_task_elements';
5106: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5107: END IF;
5108:
5109: IF l_debug_mode = 'Y' THEN
5110: pa_debug.g_err_stage:= 'Exiting delete_task_elements';
5111: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5112: END IF;
5113:
5114: pa_debug.reset_curr_function;
5107: END IF;
5108:
5109: IF l_debug_mode = 'Y' THEN
5110: pa_debug.g_err_stage:= 'Exiting delete_task_elements';
5111: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5112: END IF;
5113:
5114: pa_debug.reset_curr_function;
5115:
5110: pa_debug.g_err_stage:= 'Exiting delete_task_elements';
5111: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5112: END IF;
5113:
5114: pa_debug.reset_curr_function;
5115:
5116: EXCEPTION
5117:
5118: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5132: x_msg_count := l_msg_count;
5133: ELSE
5134: x_msg_count := l_msg_count;
5135: END IF;
5136: pa_debug.reset_curr_function;
5137: RETURN;
5138:
5139: WHEN others THEN
5140:
5147: ,p_procedure_name => 'delete_task_elements'
5148: ,p_error_text => x_msg_data);
5149:
5150: IF l_debug_mode = 'Y' THEN
5151: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5152: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5153: END IF;
5154: pa_debug.reset_curr_function;
5155: RAISE;
5148: ,p_error_text => x_msg_data);
5149:
5150: IF l_debug_mode = 'Y' THEN
5151: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5152: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5153: END IF;
5154: pa_debug.reset_curr_function;
5155: RAISE;
5156: END delete_task_elements;
5150: IF l_debug_mode = 'Y' THEN
5151: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5152: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5153: END IF;
5154: pa_debug.reset_curr_function;
5155: RAISE;
5156: END delete_task_elements;
5157: /*
5158: For bug 2976168.
5226:
5227: BEGIN
5228: x_msg_count := 0;
5229: x_return_status := FND_API.G_RET_STS_SUCCESS;
5230: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5231:
5232: IF l_debug_mode = 'Y' THEN
5233: pa_debug.set_curr_function( p_function => 'Get_Task_Element_Attributes',
5234: p_debug_mode => l_debug_mode );
5229: x_return_status := FND_API.G_RET_STS_SUCCESS;
5230: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5231:
5232: IF l_debug_mode = 'Y' THEN
5233: pa_debug.set_curr_function( p_function => 'Get_Task_Element_Attributes',
5234: p_debug_mode => l_debug_mode );
5235: END IF;
5236:
5237: IF l_debug_mode = 'Y' THEN
5234: p_debug_mode => l_debug_mode );
5235: END IF;
5236:
5237: IF l_debug_mode = 'Y' THEN
5238: pa_debug.g_err_stage:= 'Validating input parameters';
5239: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5240: END IF;
5241:
5242: IF p_proj_fp_options_id IS NULL OR
5235: END IF;
5236:
5237: IF l_debug_mode = 'Y' THEN
5238: pa_debug.g_err_stage:= 'Validating input parameters';
5239: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5240: END IF;
5241:
5242: IF p_proj_fp_options_id IS NULL OR
5243: p_element_type IS NULL OR
5247: p_option_plan_level_code IS NULL
5248: THEN
5249:
5250: IF l_debug_mode = 'Y' THEN
5251: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5252: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5253:
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5248: THEN
5249:
5250: IF l_debug_mode = 'Y' THEN
5251: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5252: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5253:
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5256:
5250: IF l_debug_mode = 'Y' THEN
5251: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5252: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5253:
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5256:
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5251: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5252: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5253:
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5256:
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5259:
5253:
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5256:
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5259:
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5254: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5255: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5256:
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5259:
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5262:
5256:
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5259:
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5262:
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5257: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
5258: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5259:
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5262:
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5265:
5259:
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5262:
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5265:
5266: pa_debug.g_err_stage:= 'p_option_plan_level_code = '|| p_option_plan_level_code;
5267: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5260: pa_debug.g_err_stage:= 'p_top_task_id = '|| p_top_task_id;
5261: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5262:
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5265:
5266: pa_debug.g_err_stage:= 'p_option_plan_level_code = '|| p_option_plan_level_code;
5267: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5268:
5262:
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5265:
5266: pa_debug.g_err_stage:= 'p_option_plan_level_code = '|| p_option_plan_level_code;
5267: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5268:
5269: END IF;
5270: PA_UTILS.ADD_MESSAGE
5263: pa_debug.g_err_stage:= 'p_task_level = '|| p_task_level;
5264: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5265:
5266: pa_debug.g_err_stage:= 'p_option_plan_level_code = '|| p_option_plan_level_code;
5267: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5268:
5269: END IF;
5270: PA_UTILS.ADD_MESSAGE
5271: (p_app_short_name => 'PA',
5275: END IF;
5276:
5277: --Check if the task is already included as a plannable element.
5278: IF l_debug_mode = 'Y' THEN
5279: pa_debug.g_err_stage:= 'Check if task is already plannable(existence in pa_fp_elements)';
5280: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5281: END IF;
5282:
5283: -- If p_task_id already exists in pa_fp_elements for the option_id and element_type, no further
5276:
5277: --Check if the task is already included as a plannable element.
5278: IF l_debug_mode = 'Y' THEN
5279: pa_debug.g_err_stage:= 'Check if task is already plannable(existence in pa_fp_elements)';
5280: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5281: END IF;
5282:
5283: -- If p_task_id already exists in pa_fp_elements for the option_id and element_type, no further
5284: -- processing is required.
5287: FETCH task_element_info_cur INTO task_element_info_rec;
5288: IF task_element_info_cur%NOTFOUND THEN
5289: l_continue_processing := 'Y';
5290: IF l_debug_mode = 'Y' THEN
5291: pa_debug.g_err_stage:= 'task doesnt exists in pa_fp_elements. Proceeding further..';
5292: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5293: END IF;
5294: ELSE
5295: l_continue_processing := 'N';
5288: IF task_element_info_cur%NOTFOUND THEN
5289: l_continue_processing := 'Y';
5290: IF l_debug_mode = 'Y' THEN
5291: pa_debug.g_err_stage:= 'task doesnt exists in pa_fp_elements. Proceeding further..';
5292: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5293: END IF;
5294: ELSE
5295: l_continue_processing := 'N';
5296: x_task_inclusion_flag := 'N';
5294: ELSE
5295: l_continue_processing := 'N';
5296: x_task_inclusion_flag := 'N';
5297: IF l_debug_mode = 'Y' THEN
5298: pa_debug.g_err_stage:= 'task is already plannable and exists in pa_fp_elements. No processing required...';
5299: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5300: END IF;
5301: END IF;
5302: CLOSE task_element_info_cur;
5295: l_continue_processing := 'N';
5296: x_task_inclusion_flag := 'N';
5297: IF l_debug_mode = 'Y' THEN
5298: pa_debug.g_err_stage:= 'task is already plannable and exists in pa_fp_elements. No processing required...';
5299: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5300: END IF;
5301: END IF;
5302: CLOSE task_element_info_cur;
5303:
5310: IF excluded_task_cur%FOUND THEN
5311: l_continue_processing := 'N';
5312: x_task_inclusion_flag := 'N';
5313: IF l_debug_mode = 'Y' THEN
5314: pa_debug.g_err_stage:= 'Task ' ||p_task_id ||' is not processed as it exists in pa_fp_excluded_elements';
5315: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5316: END IF;
5317: END IF;
5318: CLOSE excluded_task_cur;
5311: l_continue_processing := 'N';
5312: x_task_inclusion_flag := 'N';
5313: IF l_debug_mode = 'Y' THEN
5314: pa_debug.g_err_stage:= 'Task ' ||p_task_id ||' is not processed as it exists in pa_fp_excluded_elements';
5315: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5316: END IF;
5317: END IF;
5318: CLOSE excluded_task_cur;
5319: END IF;
5320:
5321: --Continue processing if the task is not either made plannable or unplannable.
5322: IF l_continue_processing='Y' THEN
5323: IF l_debug_mode = 'Y' THEN
5324: pa_debug.g_err_stage := 'Continuing with the processing of task ' || p_task_id;
5325: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5326: END IF;
5327:
5328: -- Planning level for the options is top task
5321: --Continue processing if the task is not either made plannable or unplannable.
5322: IF l_continue_processing='Y' THEN
5323: IF l_debug_mode = 'Y' THEN
5324: pa_debug.g_err_stage := 'Continuing with the processing of task ' || p_task_id;
5325: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5326: END IF;
5327:
5328: -- Planning level for the options is top task
5329: IF p_option_plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP THEN
5343:
5344: END IF; /* p_task_id = p_top_task_id */
5345:
5346: IF l_debug_mode = 'Y' THEN
5347: pa_debug.g_err_stage:= 'Option planned at Top Task and x_task_inclusion_flag = ' ||
5348: x_task_inclusion_flag || ' x_task_plannable_flag =' || x_task_plannable_flag ||
5349: ' x_top_task_planning_level ' || x_top_task_planning_level;
5350: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5351: END IF;
5346: IF l_debug_mode = 'Y' THEN
5347: pa_debug.g_err_stage:= 'Option planned at Top Task and x_task_inclusion_flag = ' ||
5348: x_task_inclusion_flag || ' x_task_plannable_flag =' || x_task_plannable_flag ||
5349: ' x_top_task_planning_level ' || x_top_task_planning_level;
5350: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5351: END IF;
5352:
5353: --Planning level of the options is either LOWEST or TOP AND LOWEST
5354:
5355: ELSIF p_option_plan_level_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_LOWEST,
5356: PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M) THEN
5357:
5358: IF l_debug_mode = 'Y' THEN
5359: pa_debug.g_err_stage:= 'Option planned at Lowest Task or Top and Lowest Task';
5360: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5361: END IF;
5362:
5363: --The task is a top task
5356: PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_M) THEN
5357:
5358: IF l_debug_mode = 'Y' THEN
5359: pa_debug.g_err_stage:= 'Option planned at Lowest Task or Top and Lowest Task';
5360: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5361: END IF;
5362:
5363: --The task is a top task
5364: IF p_task_level = L_TASK_LEVEL_TOP THEN
5376: x_task_plannable_flag := 'N' ;
5377: x_top_task_planning_level := PA_FP_CONSTANTS_PKG.G_TASK_PLAN_LEVEL_LOWEST;
5378:
5379: IF l_debug_mode = 'Y' THEN
5380: pa_debug.g_err_stage:= 'Task is a TOP TASK and x_task_inclusion_flag = '
5381: || x_task_inclusion_flag || ' x_task_plannable_flag ='
5382: ||x_task_plannable_flag || ' and x_top_task_planning_level =' ||
5383: x_top_task_planning_level;
5384: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5380: pa_debug.g_err_stage:= 'Task is a TOP TASK and x_task_inclusion_flag = '
5381: || x_task_inclusion_flag || ' x_task_plannable_flag ='
5382: ||x_task_plannable_flag || ' and x_top_task_planning_level =' ||
5383: x_top_task_planning_level;
5384: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5385: END IF;
5386:
5387: --The task is both top and lowest
5388: ELSIF l_child_task_exists = 0 THEN
5394: x_task_plannable_flag := 'Y' ;
5395: x_top_task_planning_level := PA_FP_CONSTANTS_PKG.G_TASK_PLAN_LEVEL_LOWEST;
5396:
5397: IF l_debug_mode = 'Y' THEN
5398: pa_debug.g_err_stage:= 'Task is a TOP and LOWEST TASK and x_task_inclusion_flag = '
5399: || x_task_inclusion_flag || ' x_task_plannable_flag ='
5400: ||x_task_plannable_flag || ' and x_top_task_planning_level =' ||
5401: x_top_task_planning_level;
5402:
5399: || x_task_inclusion_flag || ' x_task_plannable_flag ='
5400: ||x_task_plannable_flag || ' and x_top_task_planning_level =' ||
5401: x_top_task_planning_level;
5402:
5403: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5404: END IF;
5405:
5406: ELSE
5407:
5405:
5406: ELSE
5407:
5408: IF l_debug_mode = 'Y' THEN
5409: pa_debug.g_err_stage:= 'Error returned by pa_task_utils.check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
5410: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5411: END IF;
5412:
5413: RAISE FND_API.G_Exc_Unexpected_Error;
5406: ELSE
5407:
5408: IF l_debug_mode = 'Y' THEN
5409: pa_debug.g_err_stage:= 'Error returned by pa_task_utils.check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
5410: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5411: END IF;
5412:
5413: RAISE FND_API.G_Exc_Unexpected_Error;
5414:
5419: /* p_task_id is a sub task.
5420: We need to check if the top task of p_task_id is marked plannable */
5421:
5422: IF l_debug_mode = 'Y' THEN
5423: pa_debug.g_err_stage:= 'Task is a sub task';
5424: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5425: END IF;
5426:
5427: OPEN task_element_info_cur(p_top_task_id);
5420: We need to check if the top task of p_task_id is marked plannable */
5421:
5422: IF l_debug_mode = 'Y' THEN
5423: pa_debug.g_err_stage:= 'Task is a sub task';
5424: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5425: END IF;
5426:
5427: OPEN task_element_info_cur(p_top_task_id);
5428: FETCH task_element_info_cur INTO task_element_info_rec;
5441:
5442: CLOSE task_element_info_cur;
5443:
5444: IF l_debug_mode = 'Y' THEN
5445: pa_debug.g_err_stage:= 'Top Task not found in pa_fp_elements and hence x_task_inclusion_flag ' || x_task_inclusion_flag;
5446: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5447: END IF;
5448:
5449: ELSE
5442: CLOSE task_element_info_cur;
5443:
5444: IF l_debug_mode = 'Y' THEN
5445: pa_debug.g_err_stage:= 'Top Task not found in pa_fp_elements and hence x_task_inclusion_flag ' || x_task_inclusion_flag;
5446: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5447: END IF;
5448:
5449: ELSE
5450:
5458: x_task_plannable_flag := 'Y';
5459:
5460:
5461: IF l_debug_mode = 'Y' THEN
5462: pa_debug.g_err_stage:= 'Top task is planned at lowest task level and x_task_inclusion_flag = ' || x_task_inclusion_flag
5463: ||' x_task_plannable_flag = ' ||x_task_plannable_flag;
5464: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5465: END IF;
5466:
5460:
5461: IF l_debug_mode = 'Y' THEN
5462: pa_debug.g_err_stage:= 'Top task is planned at lowest task level and x_task_inclusion_flag = ' || x_task_inclusion_flag
5463: ||' x_task_plannable_flag = ' ||x_task_plannable_flag;
5464: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5465: END IF;
5466:
5467: ELSE
5468:
5471:
5472: x_task_inclusion_flag := 'N';
5473:
5474: IF l_debug_mode = 'Y' THEN
5475: pa_debug.g_err_stage:= 'Top task is NOT planned at lowest task and so x_task_inclusion_flag = ' || x_task_inclusion_flag;
5476: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5477: END IF;
5478:
5479: END IF; /* task_element_info_rec.top_task_planning_level = 'LOWEST' */
5472: x_task_inclusion_flag := 'N';
5473:
5474: IF l_debug_mode = 'Y' THEN
5475: pa_debug.g_err_stage:= 'Top task is NOT planned at lowest task and so x_task_inclusion_flag = ' || x_task_inclusion_flag;
5476: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5477: END IF;
5478:
5479: END IF; /* task_element_info_rec.top_task_planning_level = 'LOWEST' */
5480:
5486:
5487: END IF;/* If l_continue_processing = 'Y' */
5488:
5489: IF l_debug_mode = 'Y' THEN
5490: pa_debug.g_err_stage:= 'Exiting Get_Task_Element_Attributes';
5491: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5492: pa_debug.reset_curr_function;
5493: END IF;
5494:
5487: END IF;/* If l_continue_processing = 'Y' */
5488:
5489: IF l_debug_mode = 'Y' THEN
5490: pa_debug.g_err_stage:= 'Exiting Get_Task_Element_Attributes';
5491: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5492: pa_debug.reset_curr_function;
5493: END IF;
5494:
5495: EXCEPTION
5488:
5489: IF l_debug_mode = 'Y' THEN
5490: pa_debug.g_err_stage:= 'Exiting Get_Task_Element_Attributes';
5491: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5492: pa_debug.reset_curr_function;
5493: END IF;
5494:
5495: EXCEPTION
5496:
5512: ELSE
5513: x_msg_count := l_msg_count;
5514: END IF;
5515: IF l_debug_mode = 'Y' THEN
5516: pa_debug.reset_curr_function;
5517: END IF;
5518:
5519: RETURN;
5520:
5529: ,p_procedure_name => 'Get_Task_Element_Attributes'
5530: ,p_error_text => x_msg_data);
5531:
5532: IF l_debug_mode = 'Y' THEN
5533: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5534: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5535: pa_debug.reset_curr_function;
5536: END IF;
5537: RAISE;
5530: ,p_error_text => x_msg_data);
5531:
5532: IF l_debug_mode = 'Y' THEN
5533: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5534: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5535: pa_debug.reset_curr_function;
5536: END IF;
5537: RAISE;
5538: END Get_Task_Element_Attributes;
5531:
5532: IF l_debug_mode = 'Y' THEN
5533: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
5534: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5535: pa_debug.reset_curr_function;
5536: END IF;
5537: RAISE;
5538: END Get_Task_Element_Attributes;
5539:
5638:
5639: BEGIN
5640: x_msg_count := 0;
5641: x_return_status := FND_API.G_RET_STS_SUCCESS;
5642: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5643:
5644:
5645: -- Check for business rules violations
5646:
5644:
5645: -- Check for business rules violations
5646:
5647: IF l_debug_mode = 'Y' THEN
5648: pa_debug.set_curr_function( p_function => 'add_task_to_option',
5649: p_debug_mode => l_debug_mode );
5650: pa_debug.g_err_stage:= 'Validating input parameters';
5651: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5652: END IF;
5646:
5647: IF l_debug_mode = 'Y' THEN
5648: pa_debug.set_curr_function( p_function => 'add_task_to_option',
5649: p_debug_mode => l_debug_mode );
5650: pa_debug.g_err_stage:= 'Validating input parameters';
5651: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5652: END IF;
5653:
5654: IF (p_proj_fp_options_id IS NULL) OR
5647: IF l_debug_mode = 'Y' THEN
5648: pa_debug.set_curr_function( p_function => 'add_task_to_option',
5649: p_debug_mode => l_debug_mode );
5650: pa_debug.g_err_stage:= 'Validating input parameters';
5651: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5652: END IF;
5653:
5654: IF (p_proj_fp_options_id IS NULL) OR
5655: (p_element_type IS NULL) THEN
5654: IF (p_proj_fp_options_id IS NULL) OR
5655: (p_element_type IS NULL) THEN
5656:
5657: IF l_debug_mode = 'Y' THEN
5658: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5659: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5660: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5661: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5662: END IF;
5655: (p_element_type IS NULL) THEN
5656:
5657: IF l_debug_mode = 'Y' THEN
5658: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5659: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5660: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5661: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5662: END IF;
5663: PA_UTILS.ADD_MESSAGE
5656:
5657: IF l_debug_mode = 'Y' THEN
5658: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5659: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5660: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5661: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5662: END IF;
5663: PA_UTILS.ADD_MESSAGE
5664: (p_app_short_name => 'PA',
5657: IF l_debug_mode = 'Y' THEN
5658: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
5659: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5660: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
5661: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5662: END IF;
5663: PA_UTILS.ADD_MESSAGE
5664: (p_app_short_name => 'PA',
5665: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5667:
5668: END IF;
5669:
5670: IF l_debug_mode = 'Y' THEN
5671: pa_debug.g_err_stage:= 'Opening proj_fp_options_cur.';
5672: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5673: END IF;
5674:
5675: OPEN proj_fp_options_cur;
5668: END IF;
5669:
5670: IF l_debug_mode = 'Y' THEN
5671: pa_debug.g_err_stage:= 'Opening proj_fp_options_cur.';
5672: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5673: END IF;
5674:
5675: OPEN proj_fp_options_cur;
5676: FETCH proj_fp_options_cur INTO proj_fp_options_rec;
5681: OPEN ci_version_info_cur(proj_fp_options_rec.fin_plan_version_id);
5682: FETCH ci_version_info_cur INTO ci_version_info_rec;
5683: IF ci_version_info_cur%NOTFOUND THEN
5684: IF l_debug_mode = 'Y' THEN
5685: pa_debug.g_err_stage:= 'The Option does not correspond to a CI Version';
5686: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5687: END IF;
5688: ELSE
5689: IF l_debug_mode = 'Y' THEN
5682: FETCH ci_version_info_cur INTO ci_version_info_rec;
5683: IF ci_version_info_cur%NOTFOUND THEN
5684: IF l_debug_mode = 'Y' THEN
5685: pa_debug.g_err_stage:= 'The Option does not correspond to a CI Version';
5686: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5687: END IF;
5688: ELSE
5689: IF l_debug_mode = 'Y' THEN
5690: pa_debug.g_err_stage:= 'The Option corresponds to a CI Version';
5686: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5687: END IF;
5688: ELSE
5689: IF l_debug_mode = 'Y' THEN
5690: pa_debug.g_err_stage:= 'The Option corresponds to a CI Version';
5691: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5692: END IF;
5693:
5694: --Check whether an impacted task id exists or not. If it exists store all the tasks
5687: END IF;
5688: ELSE
5689: IF l_debug_mode = 'Y' THEN
5690: pa_debug.g_err_stage:= 'The Option corresponds to a CI Version';
5691: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5692: END IF;
5693:
5694: --Check whether an impacted task id exists or not. If it exists store all the tasks
5695: --below that task in wbs in a pl/sql table so that only those tasks are processed.
5695: --below that task in wbs in a pl/sql table so that only those tasks are processed.
5696:
5697: IF ci_version_info_rec.impacted_task_id IS NOT NULL THEN
5698: IF l_debug_mode = 'Y' THEN
5699: pa_debug.g_err_stage:= 'The impacted task id is '
5700: ||ci_version_info_rec.impacted_task_id;
5701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5702: END IF;
5703:
5697: IF ci_version_info_rec.impacted_task_id IS NOT NULL THEN
5698: IF l_debug_mode = 'Y' THEN
5699: pa_debug.g_err_stage:= 'The impacted task id is '
5700: ||ci_version_info_rec.impacted_task_id;
5701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5702: END IF;
5703:
5704: FOR ci_impacted_tasks_rec IN ci_impacted_tasks_cur( proj_fp_options_rec.project_id
5705: ,ci_version_info_rec.impacted_task_id) LOOP
5736:
5737: l_continue_processing := 'N';
5738:
5739: IF l_debug_mode = 'Y' THEN
5740: pa_debug.g_err_stage:= 'The task '||p_tasks_tbl(i).task_id
5741: ||' is not under the impacted task '
5742: ||ci_version_info_rec.impacted_task_id;
5743: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5744: END IF;
5739: IF l_debug_mode = 'Y' THEN
5740: pa_debug.g_err_stage:= 'The task '||p_tasks_tbl(i).task_id
5741: ||' is not under the impacted task '
5742: ||ci_version_info_rec.impacted_task_id;
5743: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5744: END IF;
5745:
5746: END IF;
5747:
5771:
5772: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5773:
5774: IF l_debug_mode = 'Y' THEN
5775: pa_debug.g_err_stage := 'Error in Get_Task_Element_Attributes for task'
5776: || p_tasks_tbl(i).task_id ;
5777: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5779:
5773:
5774: IF l_debug_mode = 'Y' THEN
5775: pa_debug.g_err_stage := 'Error in Get_Task_Element_Attributes for task'
5776: || p_tasks_tbl(i).task_id ;
5777: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5778: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5779:
5780: END IF;
5781:
5801: AND pfe.task_id = p_tasks_tbl(i).parent_task_id
5802: AND pfe.resource_list_member_id <> 0;
5803:
5804: IF l_debug_mode = 'Y' THEN
5805: pa_debug.g_err_stage:= to_char(sql%rowcount) || ' records deleted from pa_fp_elements';
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5807: END IF;
5808:
5809: UPDATE pa_fp_elements pfe
5802: AND pfe.resource_list_member_id <> 0;
5803:
5804: IF l_debug_mode = 'Y' THEN
5805: pa_debug.g_err_stage:= to_char(sql%rowcount) || ' records deleted from pa_fp_elements';
5806: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5807: END IF;
5808:
5809: UPDATE pa_fp_elements pfe
5810: SET pfe.plannable_flag = 'N',
5819: AND pfe.task_id = p_tasks_tbl(i).parent_task_id
5820: AND pfe.resource_list_member_id = 0;
5821:
5822: IF l_debug_mode = 'Y' THEN
5823: pa_debug.g_err_stage:= to_char(sql%rowcount) || ' records updated in pa_fp_elements';
5824: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5825: END IF;
5826:
5827: IF proj_fp_options_rec.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
5820: AND pfe.resource_list_member_id = 0;
5821:
5822: IF l_debug_mode = 'Y' THEN
5823: pa_debug.g_err_stage:= to_char(sql%rowcount) || ' records updated in pa_fp_elements';
5824: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5825: END IF;
5826:
5827: IF proj_fp_options_rec.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
5828:
5834: AND pra.task_id = p_tasks_tbl(i).parent_task_id
5835: AND pra.resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED;
5836:
5837: IF l_debug_mode = 'Y' THEN
5838: pa_debug.g_err_stage:= 'PLAN_VERSION option. ' || to_char(sql%rowcount) || ' records deleted from pa_resource_assignments';
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5840: END IF;
5841:
5842: END IF; /* Option is PLAN_VERSION */
5835: AND pra.resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED;
5836:
5837: IF l_debug_mode = 'Y' THEN
5838: pa_debug.g_err_stage:= 'PLAN_VERSION option. ' || to_char(sql%rowcount) || ' records deleted from pa_resource_assignments';
5839: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5840: END IF;
5841:
5842: END IF; /* Option is PLAN_VERSION */
5843:
5908: /* If automatic resource selection is 'Y' for the proj_fp_option/element type,
5909: then resource elements need to be added */
5910:
5911: IF l_debug_mode = 'Y' THEN
5912: pa_debug.g_err_stage:= 'Calling add_resources_automatically...';
5913: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5914: END IF;
5915:
5916: l_task_id_tbl(1) := p_tasks_tbl(i).task_id;
5909: then resource elements need to be added */
5910:
5911: IF l_debug_mode = 'Y' THEN
5912: pa_debug.g_err_stage:= 'Calling add_resources_automatically...';
5913: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5914: END IF;
5915:
5916: l_task_id_tbl(1) := p_tasks_tbl(i).task_id;
5917:
5928: ,x_msg_data => x_msg_data);
5929:
5930: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5931:
5932: pa_debug.g_err_stage := 'Error while adding resoruces to task id ' || p_tasks_tbl(i).task_id ||
5933: 'for ' || p_element_type || ' option id ' || p_proj_fp_options_id;
5934: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5935:
5936: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5930: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5931:
5932: pa_debug.g_err_stage := 'Error while adding resoruces to task id ' || p_tasks_tbl(i).task_id ||
5933: 'for ' || p_element_type || ' option id ' || p_proj_fp_options_id;
5934: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5935:
5936: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5937:
5938: END IF;
5953:
5954: IF proj_fp_options_rec.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
5955:
5956: IF l_debug_mode = 'Y' THEN
5957: pa_debug.g_err_stage:= 'Calling create_enterable_resources...';
5958: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5959: END IF;
5960:
5961: PA_FP_ELEMENTS_PUB.create_enterable_resources
5954: IF proj_fp_options_rec.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
5955:
5956: IF l_debug_mode = 'Y' THEN
5957: pa_debug.g_err_stage:= 'Calling create_enterable_resources...';
5958: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5959: END IF;
5960:
5961: PA_FP_ELEMENTS_PUB.create_enterable_resources
5962: ( p_plan_version_id => proj_fp_options_rec.fin_plan_version_id
5966: ,x_msg_data => x_msg_data);
5967:
5968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5969:
5970: pa_debug.g_err_stage := 'Error calling create enterable resoruces for version id'
5971: || proj_fp_options_rec.fin_plan_version_id;
5972: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5973:
5974: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5969:
5970: pa_debug.g_err_stage := 'Error calling create enterable resoruces for version id'
5971: || proj_fp_options_rec.fin_plan_version_id;
5972: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5973:
5974: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5975: END IF;
5976:
5976:
5977: END IF; /* IF proj_fp_options_rec.fin_plan_option_level_code = PLAN_VERSION */
5978:
5979: IF l_debug_mode = 'Y' THEN
5980: pa_debug.g_err_stage:= 'Exiting add_task_to_option';
5981: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5982: pa_debug.reset_curr_function;
5983: END IF;
5984:
5977: END IF; /* IF proj_fp_options_rec.fin_plan_option_level_code = PLAN_VERSION */
5978:
5979: IF l_debug_mode = 'Y' THEN
5980: pa_debug.g_err_stage:= 'Exiting add_task_to_option';
5981: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5982: pa_debug.reset_curr_function;
5983: END IF;
5984:
5985: EXCEPTION
5978:
5979: IF l_debug_mode = 'Y' THEN
5980: pa_debug.g_err_stage:= 'Exiting add_task_to_option';
5981: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
5982: pa_debug.reset_curr_function;
5983: END IF;
5984:
5985: EXCEPTION
5986:
6002: ELSE
6003: x_msg_count := l_msg_count;
6004: END IF;
6005: IF l_debug_mode = 'Y' THEN
6006: pa_debug.reset_curr_function;
6007: END IF;
6008: RETURN;
6009:
6010: WHEN others THEN
6018: ,p_procedure_name => 'add_task_to_option'
6019: ,p_error_text => x_msg_data);
6020:
6021: IF l_debug_mode = 'Y' THEN
6022: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6023: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6024: pa_debug.reset_curr_function;
6025: END IF;
6026: RAISE;
6019: ,p_error_text => x_msg_data);
6020:
6021: IF l_debug_mode = 'Y' THEN
6022: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6023: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6024: pa_debug.reset_curr_function;
6025: END IF;
6026: RAISE;
6027: END add_tasks_to_option;
6020:
6021: IF l_debug_mode = 'Y' THEN
6022: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6023: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6024: pa_debug.reset_curr_function;
6025: END IF;
6026: RAISE;
6027: END add_tasks_to_option;
6028:
6078: BEGIN
6079:
6080: x_msg_count := 0;
6081: x_return_status := FND_API.G_RET_STS_SUCCESS;
6082: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6083:
6084:
6085: -- Check for business rules violations
6086:
6084:
6085: -- Check for business rules violations
6086:
6087: IF l_debug_mode = 'Y' THEN
6088: pa_debug.set_curr_function( p_function => 'make_new_tasks_plannable',
6089: p_debug_mode => l_debug_mode );
6090: pa_debug.g_err_stage:= 'Validating input parameters';
6091: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6092: END IF;
6086:
6087: IF l_debug_mode = 'Y' THEN
6088: pa_debug.set_curr_function( p_function => 'make_new_tasks_plannable',
6089: p_debug_mode => l_debug_mode );
6090: pa_debug.g_err_stage:= 'Validating input parameters';
6091: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6092: END IF;
6093:
6094: IF (p_project_id IS NULL)
6087: IF l_debug_mode = 'Y' THEN
6088: pa_debug.set_curr_function( p_function => 'make_new_tasks_plannable',
6089: p_debug_mode => l_debug_mode );
6090: pa_debug.g_err_stage:= 'Validating input parameters';
6091: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6092: END IF;
6093:
6094: IF (p_project_id IS NULL)
6095: THEN
6093:
6094: IF (p_project_id IS NULL)
6095: THEN
6096: IF l_debug_mode = 'Y' THEN
6097: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
6098: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6099: END IF;
6100: PA_UTILS.ADD_MESSAGE
6101: (p_app_short_name => 'PA',
6094: IF (p_project_id IS NULL)
6095: THEN
6096: IF l_debug_mode = 'Y' THEN
6097: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
6098: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6099: END IF;
6100: PA_UTILS.ADD_MESSAGE
6101: (p_app_short_name => 'PA',
6102: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6109: IF NVL(p_tasks_tbl.last,0) = 0 OR
6110: NVL(p_refresh_fp_options_tbl.last,0) = 0 THEN
6111:
6112: IF l_debug_mode = 'Y' THEN
6113: pa_debug.g_err_stage:= 'task table/proj fp options table have no records. Returning from make_new_tasks_plannable ';
6114: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6115: END IF;
6116:
6117: RETURN;
6110: NVL(p_refresh_fp_options_tbl.last,0) = 0 THEN
6111:
6112: IF l_debug_mode = 'Y' THEN
6113: pa_debug.g_err_stage:= 'task table/proj fp options table have no records. Returning from make_new_tasks_plannable ';
6114: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6115: END IF;
6116:
6117: RETURN;
6118:
6118:
6119: END IF;
6120:
6121: IF l_debug_mode = 'Y' THEN
6122: pa_debug.g_err_stage:= 'task table has records.';
6123: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6124: END IF;
6125:
6126: /* Loop through the table and process the task records */
6119: END IF;
6120:
6121: IF l_debug_mode = 'Y' THEN
6122: pa_debug.g_err_stage:= 'task table has records.';
6123: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6124: END IF;
6125:
6126: /* Loop through the table and process the task records */
6127:
6130: /* If the task is a middle level task delete all the references of that task from
6131: pa_fp_elements and pa_resource_assignments */
6132:
6133: IF l_debug_mode = 'Y' THEN
6134: pa_debug.g_err_stage:= 'task_id ' || p_tasks_tbl(i).task_id;
6135: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6136: pa_debug.g_err_stage:= 'task_level ' || p_tasks_tbl(i).task_level;
6137: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6138: END IF;
6131: pa_fp_elements and pa_resource_assignments */
6132:
6133: IF l_debug_mode = 'Y' THEN
6134: pa_debug.g_err_stage:= 'task_id ' || p_tasks_tbl(i).task_id;
6135: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6136: pa_debug.g_err_stage:= 'task_level ' || p_tasks_tbl(i).task_level;
6137: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6138: END IF;
6139:
6132:
6133: IF l_debug_mode = 'Y' THEN
6134: pa_debug.g_err_stage:= 'task_id ' || p_tasks_tbl(i).task_id;
6135: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6136: pa_debug.g_err_stage:= 'task_level ' || p_tasks_tbl(i).task_level;
6137: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6138: END IF;
6139:
6140: IF p_tasks_tbl(i).task_level = L_TASK_LEVEL_MIDDLE THEN
6133: IF l_debug_mode = 'Y' THEN
6134: pa_debug.g_err_stage:= 'task_id ' || p_tasks_tbl(i).task_id;
6135: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6136: pa_debug.g_err_stage:= 'task_level ' || p_tasks_tbl(i).task_level;
6137: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6138: END IF;
6139:
6140: IF p_tasks_tbl(i).task_level = L_TASK_LEVEL_MIDDLE THEN
6141:
6146: WHERE task_id = p_tasks_tbl(i).task_id
6147: AND proj_fp_options_id = p_refresh_fp_options_tbl(k); /* We are deleting irrespective of element_type */
6148:
6149: IF l_debug_mode = 'Y' THEN
6150: pa_debug.g_err_stage:= 'No of records deleted from pa_fp_elements ' ||SQL%ROWCOUNT;
6151: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6152: END IF;
6153:
6154: --Delete the task references from pa_resource_assignments
6147: AND proj_fp_options_id = p_refresh_fp_options_tbl(k); /* We are deleting irrespective of element_type */
6148:
6149: IF l_debug_mode = 'Y' THEN
6150: pa_debug.g_err_stage:= 'No of records deleted from pa_fp_elements ' ||SQL%ROWCOUNT;
6151: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6152: END IF;
6153:
6154: --Delete the task references from pa_resource_assignments
6155: FORALL k IN p_refresh_fp_options_tbl.first .. p_refresh_fp_options_tbl.last
6162: p_refresh_fp_options_tbl(k))
6163: AND pra.resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED;
6164:
6165: IF l_debug_mode = 'Y' THEN
6166: pa_debug.g_err_stage:= 'No of records deleted from pa_resource_assignments ' ||SQL%ROWCOUNT;
6167: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6168: END IF;
6169:
6170: END IF; /* IF p_tasks_tbl(i).task_level = M */
6163: AND pra.resource_assignment_type = PA_FP_CONSTANTS_PKG.G_USER_ENTERED;
6164:
6165: IF l_debug_mode = 'Y' THEN
6166: pa_debug.g_err_stage:= 'No of records deleted from pa_resource_assignments ' ||SQL%ROWCOUNT;
6167: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6168: END IF;
6169:
6170: END IF; /* IF p_tasks_tbl(i).task_level = M */
6171:
6174: --Loop through the table and process the option records
6175: FOR j IN p_refresh_fp_options_tbl.first .. p_refresh_fp_options_tbl.last LOOP
6176:
6177: IF l_debug_mode = 'Y' THEN
6178: pa_debug.g_err_stage:= 'Opening fp_options_info_cur';
6179: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6180: END IF;
6181:
6182: OPEN fp_options_info_cur(p_refresh_fp_options_tbl(j));
6175: FOR j IN p_refresh_fp_options_tbl.first .. p_refresh_fp_options_tbl.last LOOP
6176:
6177: IF l_debug_mode = 'Y' THEN
6178: pa_debug.g_err_stage:= 'Opening fp_options_info_cur';
6179: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6180: END IF;
6181:
6182: OPEN fp_options_info_cur(p_refresh_fp_options_tbl(j));
6183: FETCH fp_options_info_cur INTO fp_options_info_rec;
6183: FETCH fp_options_info_cur INTO fp_options_info_rec;
6184: IF fp_options_info_cur%NOTFOUND THEN
6185:
6186: IF l_debug_mode = 'Y' THEN
6187: pa_debug.g_err_stage:= 'fp_options_info_cur did not return rows for option id '||p_refresh_fp_options_tbl(j);
6188: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6189: END IF;
6190: CLOSE fp_options_info_cur;
6191: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6184: IF fp_options_info_cur%NOTFOUND THEN
6185:
6186: IF l_debug_mode = 'Y' THEN
6187: pa_debug.g_err_stage:= 'fp_options_info_cur did not return rows for option id '||p_refresh_fp_options_tbl(j);
6188: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6189: END IF;
6190: CLOSE fp_options_info_cur;
6191: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6192:
6197:
6198: IF l_process_option= 'Y' THEN
6199:
6200: IF l_debug_mode = 'Y' THEN
6201: pa_debug.g_err_stage:= 'About to process the option id '||p_refresh_fp_options_tbl(j);
6202: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6203: END IF;
6204:
6205: IF fp_options_info_rec.fin_plan_preference_code IN
6198: IF l_process_option= 'Y' THEN
6199:
6200: IF l_debug_mode = 'Y' THEN
6201: pa_debug.g_err_stage:= 'About to process the option id '||p_refresh_fp_options_tbl(j);
6202: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6203: END IF;
6204:
6205: IF fp_options_info_rec.fin_plan_preference_code IN
6206: (PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,
6217: ,x_msg_data => x_msg_data);
6218:
6219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6220:
6221: pa_debug.g_err_stage := 'Error while adding tasks to cost option id ' || p_refresh_fp_options_tbl(j);
6222: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6223:
6224: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6225:
6218:
6219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6220:
6221: pa_debug.g_err_stage := 'Error while adding tasks to cost option id ' || p_refresh_fp_options_tbl(j);
6222: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6223:
6224: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6225:
6226: END IF;
6244: ,x_msg_data => x_msg_data);
6245:
6246: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6247:
6248: pa_debug.g_err_stage := 'Error while adding task id to revenue option id '
6249: || p_refresh_fp_options_tbl(j);
6250: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6252:
6246: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6247:
6248: pa_debug.g_err_stage := 'Error while adding task id to revenue option id '
6249: || p_refresh_fp_options_tbl(j);
6250: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6251: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6252:
6253: END IF;
6254:
6269: ,x_msg_data => x_msg_data);
6270:
6271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6272:
6273: pa_debug.g_err_stage := 'Error while adding task id to ALL option id '
6274: || p_refresh_fp_options_tbl(j);
6275: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6276:
6277: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6272:
6273: pa_debug.g_err_stage := 'Error while adding task id to ALL option id '
6274: || p_refresh_fp_options_tbl(j);
6275: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6276:
6277: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6278:
6279: END IF;
6286:
6287: END LOOP; /* FOR j IN p_refresh_fp_options_tbl.first .. p_refresh_fp_options_tbl.last */
6288:
6289: IF l_debug_mode = 'Y' THEN
6290: pa_debug.g_err_stage:= 'Exiting make_new_tasks_plannable';
6291: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6292: pa_debug.reset_curr_function;
6293: END IF;
6294:
6287: END LOOP; /* FOR j IN p_refresh_fp_options_tbl.first .. p_refresh_fp_options_tbl.last */
6288:
6289: IF l_debug_mode = 'Y' THEN
6290: pa_debug.g_err_stage:= 'Exiting make_new_tasks_plannable';
6291: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6292: pa_debug.reset_curr_function;
6293: END IF;
6294:
6295:
6288:
6289: IF l_debug_mode = 'Y' THEN
6290: pa_debug.g_err_stage:= 'Exiting make_new_tasks_plannable';
6291: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6292: pa_debug.reset_curr_function;
6293: END IF;
6294:
6295:
6296: EXCEPTION
6313: ELSE
6314: x_msg_count := l_msg_count;
6315: END IF;
6316: IF l_debug_mode = 'Y' THEN
6317: pa_debug.reset_curr_function;
6318: END IF;
6319: RETURN;
6320:
6321: WHEN others THEN
6329: ,p_procedure_name => 'make_new_tasks_plannable'
6330: ,p_error_text => x_msg_data);
6331:
6332: IF l_debug_mode = 'Y' THEN
6333: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6334: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6335: pa_debug.reset_curr_function;
6336: END IF;
6337:
6330: ,p_error_text => x_msg_data);
6331:
6332: IF l_debug_mode = 'Y' THEN
6333: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6334: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6335: pa_debug.reset_curr_function;
6336: END IF;
6337:
6338: RAISE;
6331:
6332: IF l_debug_mode = 'Y' THEN
6333: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
6334: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6335: pa_debug.reset_curr_function;
6336: END IF;
6337:
6338: RAISE;
6339: END make_new_tasks_plannable;
6547: /* Oracle error returned */
6548:
6549: IF l_debug_mode = 'Y' THEN
6550:
6551: pa_debug.g_err_stage:= 'Oracle error occurred while calling check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
6552: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6553:
6554: END IF;
6555:
6548:
6549: IF l_debug_mode = 'Y' THEN
6550:
6551: pa_debug.g_err_stage:= 'Oracle error occurred while calling check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
6552: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6553:
6554: END IF;
6555:
6556: RAISE FND_API.G_Exc_Unexpected_Error;
6566: BEGIN
6567:
6568: x_msg_count := 0;
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6571:
6572: IF l_debug_mode = 'Y' THEN
6573: pa_debug.set_curr_function( p_function => 'maintain_plannable_tasks',
6574: p_debug_mode => l_debug_mode );
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6571:
6572: IF l_debug_mode = 'Y' THEN
6573: pa_debug.set_curr_function( p_function => 'maintain_plannable_tasks',
6574: p_debug_mode => l_debug_mode );
6575: END IF;
6576:
6577: -- Check for business rules violations
6576:
6577: -- Check for business rules violations
6578:
6579: IF l_debug_mode = 'Y' THEN
6580: pa_debug.g_err_stage:= 'Validating input parameters';
6581: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6582: L_DEBUG_LEVEL3);
6583: END IF;
6584:
6577: -- Check for business rules violations
6578:
6579: IF l_debug_mode = 'Y' THEN
6580: pa_debug.g_err_stage:= 'Validating input parameters';
6581: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6582: L_DEBUG_LEVEL3);
6583: END IF;
6584:
6585: IF (p_project_id IS NULL) THEN
6584:
6585: IF (p_project_id IS NULL) THEN
6586:
6587: IF l_debug_mode = 'Y' THEN
6588: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
6589: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6590: L_DEBUG_LEVEL5);
6591: END IF;
6592: PA_UTILS.ADD_MESSAGE
6585: IF (p_project_id IS NULL) THEN
6586:
6587: IF l_debug_mode = 'Y' THEN
6588: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
6589: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6590: L_DEBUG_LEVEL5);
6591: END IF;
6592: PA_UTILS.ADD_MESSAGE
6593: (p_app_short_name => 'PA',
6609: END IF;
6610: CLOSE check_options_exists_cur;
6611: /* end of bug 3342975 */
6612: IF l_debug_mode = 'Y' THEN
6613: pa_debug.g_err_stage:= 'Option Exists for project id: '
6614: || to_char(p_project_id) || ' is '
6615: || l_option_exists;
6616: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6617: L_DEBUG_LEVEL3);
6612: IF l_debug_mode = 'Y' THEN
6613: pa_debug.g_err_stage:= 'Option Exists for project id: '
6614: || to_char(p_project_id) || ' is '
6615: || l_option_exists;
6616: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6617: L_DEBUG_LEVEL3);
6618: pa_debug.g_err_stage:= 'Number of tasks to be processed: '
6619: || to_char(p_impacted_tasks_tbl.count);
6620: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6614: || to_char(p_project_id) || ' is '
6615: || l_option_exists;
6616: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6617: L_DEBUG_LEVEL3);
6618: pa_debug.g_err_stage:= 'Number of tasks to be processed: '
6619: || to_char(p_impacted_tasks_tbl.count);
6620: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6621: L_DEBUG_LEVEL3);
6622: END IF;
6616: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6617: L_DEBUG_LEVEL3);
6618: pa_debug.g_err_stage:= 'Number of tasks to be processed: '
6619: || to_char(p_impacted_tasks_tbl.count);
6620: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6621: L_DEBUG_LEVEL3);
6622: END IF;
6623:
6624: /* No processing is required if financial planning options
6645:
6646: /* Unexpected oracle error */
6647:
6648: IF l_debug_mode = 'Y' THEN
6649: pa_debug.g_err_stage:= 'Check_Proj_Fp_Options_Exists returned oracle error ' ||
6650: to_char(l_option_exists);
6651: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6652: L_DEBUG_LEVEL5);
6653: END IF;
6647:
6648: IF l_debug_mode = 'Y' THEN
6649: pa_debug.g_err_stage:= 'Check_Proj_Fp_Options_Exists returned oracle error ' ||
6650: to_char(l_option_exists);
6651: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6652: L_DEBUG_LEVEL5);
6653: END IF;
6654:
6655: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6672: entry for a task id, only then we refer the database to check if the task is a
6673: middle level task and if so, cache it in the plsql table. */
6674:
6675: IF l_debug_mode = 'Y' THEN
6676: pa_debug.g_err_stage:= 'Identifying middle level tasks by looping the p_impacted_tasks_tbl';
6677: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6678: L_DEBUG_LEVEL3);
6679: END IF;
6680:
6673: middle level task and if so, cache it in the plsql table. */
6674:
6675: IF l_debug_mode = 'Y' THEN
6676: pa_debug.g_err_stage:= 'Identifying middle level tasks by looping the p_impacted_tasks_tbl';
6677: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6678: L_DEBUG_LEVEL3);
6679: END IF;
6680:
6681: FOR I in p_impacted_tasks_tbl.first .. p_impacted_tasks_tbl.last LOOP
6696: FOR I in p_impacted_tasks_tbl.first .. p_impacted_tasks_tbl.last LOOP
6697:
6698: IF l_debug_mode = 'Y' THEN
6699:
6700: pa_debug.g_err_stage:= 'impacted task id is ' || p_impacted_tasks_tbl(i).impacted_task_id;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6697:
6698: IF l_debug_mode = 'Y' THEN
6699:
6700: pa_debug.g_err_stage:= 'impacted task id is ' || p_impacted_tasks_tbl(i).impacted_task_id;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6698: IF l_debug_mode = 'Y' THEN
6699:
6700: pa_debug.g_err_stage:= 'impacted task id is ' || p_impacted_tasks_tbl(i).impacted_task_id;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6699:
6700: pa_debug.g_err_stage:= 'impacted task id is ' || p_impacted_tasks_tbl(i).impacted_task_id;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6700: pa_debug.g_err_stage:= 'impacted task id is ' || p_impacted_tasks_tbl(i).impacted_task_id;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6701: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6709: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6702: pa_debug.g_err_stage:= 'old parent task id is ' || p_impacted_tasks_tbl(i).old_parent_task_id;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6709: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6710:
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6709: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6710:
6711: END IF;
6704: pa_debug.g_err_stage:= 'new parent task id is ' || p_impacted_tasks_tbl(i).new_parent_task_id;
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6709: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6710:
6711: END IF;
6712:
6705: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6706: pa_debug.g_err_stage:= 'top task id is ' || p_impacted_tasks_tbl(i).top_task_id;
6707: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6708: pa_debug.g_err_stage:= 'action is ' || p_impacted_tasks_tbl(i).action;
6709: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6710:
6711: END IF;
6712:
6713: l_make_task_plannable := Null;
6719: p_impacted_tasks_tbl(i).new_parent_task_id IS NULL) OR
6720: p_impacted_tasks_tbl(i).top_task_id IS NULL THEN
6721:
6722: IF l_debug_mode = 'Y' THEN
6723: pa_debug.g_err_stage:= 'For INSERT action : ' ||
6724: 'Impacted_task_id, New_parent_task_id, Top_task_id should be passed';
6725: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6726: END IF;
6727: PA_UTILS.ADD_MESSAGE
6721:
6722: IF l_debug_mode = 'Y' THEN
6723: pa_debug.g_err_stage:= 'For INSERT action : ' ||
6724: 'Impacted_task_id, New_parent_task_id, Top_task_id should be passed';
6725: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6726: END IF;
6727: PA_UTILS.ADD_MESSAGE
6728: (p_app_short_name => 'PA',
6729: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6744: p_top_task_id => p_impacted_tasks_tbl(i).top_task_id);
6745:
6746: IF l_debug_mode = 'Y' THEN
6747:
6748: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
6749: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6750:
6751: END IF;
6752:
6745:
6746: IF l_debug_mode = 'Y' THEN
6747:
6748: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
6749: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6750:
6751: END IF;
6752:
6753: IF l_make_task_plannable = 'Y' THEN
6756: adding it once again */
6757:
6758: IF l_debug_mode = 'Y' THEN
6759:
6760: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for impacted task id';
6761: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6762:
6763: END IF;
6764:
6757:
6758: IF l_debug_mode = 'Y' THEN
6759:
6760: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for impacted task id';
6761: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6762:
6763: END IF;
6764:
6765: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for impacted task id */
6795:
6796: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6797:
6798: IF l_debug_mode = 'Y' THEN
6799: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6800: p_impacted_tasks_tbl(i).impacted_task_id;
6801: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6802: END IF;
6803:
6797:
6798: IF l_debug_mode = 'Y' THEN
6799: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6800: p_impacted_tasks_tbl(i).impacted_task_id;
6801: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6802: END IF;
6803:
6804: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6805:
6821: p_impacted_tasks_tbl(i).old_parent_task_id IS NULL OR
6822: p_impacted_tasks_tbl(i).top_task_id IS NULL THEN
6823:
6824: IF l_debug_mode = 'Y' THEN
6825: pa_debug.g_err_stage:= 'For REPARENT action : ' ||
6826: 'Impacted_task_id, New_parent_task_id, old_parent_task_id, Top_task_id should be passed';
6827: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6828: END IF;
6829: PA_UTILS.ADD_MESSAGE
6823:
6824: IF l_debug_mode = 'Y' THEN
6825: pa_debug.g_err_stage:= 'For REPARENT action : ' ||
6826: 'Impacted_task_id, New_parent_task_id, old_parent_task_id, Top_task_id should be passed';
6827: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6828: END IF;
6829: PA_UTILS.ADD_MESSAGE
6830: (p_app_short_name => 'PA',
6831: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6850: p_top_task_id => pa_task_utils.get_top_task_id(x_task_id => p_impacted_tasks_tbl(i).old_parent_task_id));
6851:
6852: IF l_debug_mode = 'Y' THEN
6853:
6854: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
6855: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6856:
6857: END IF;
6858:
6851:
6852: IF l_debug_mode = 'Y' THEN
6853:
6854: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
6855: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6856:
6857: END IF;
6858:
6859: /* If old task is a middle level task then
6862: IF l_make_task_plannable = 'Y' THEN
6863:
6864: IF l_debug_mode = 'Y' THEN
6865:
6866: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for old parent task id';
6867: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6868:
6869: END IF;
6870:
6863:
6864: IF l_debug_mode = 'Y' THEN
6865:
6866: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for old parent task id';
6867: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6868:
6869: END IF;
6870:
6871: /* Calling pa_fp_elements_pub.make_new_tasks_plannable for old parent task id */
6899:
6900: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6901:
6902: IF l_debug_mode = 'Y' THEN
6903: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6904: p_impacted_tasks_tbl(i).old_parent_task_id;
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6906: END IF;
6907:
6901:
6902: IF l_debug_mode = 'Y' THEN
6903: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6904: p_impacted_tasks_tbl(i).old_parent_task_id;
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6906: END IF;
6907:
6908: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6909:
6940: plannable impacted task also from pa_fp_elements and pa_resource_assignments */
6941:
6942: IF l_debug_mode = 'Y' THEN
6943:
6944: pa_debug.g_err_stage:= 'Deleting task fp elements for new parent task id';
6945: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6946:
6947: END IF;
6948:
6941:
6942: IF l_debug_mode = 'Y' THEN
6943:
6944: pa_debug.g_err_stage:= 'Deleting task fp elements for new parent task id';
6945: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6946:
6947: END IF;
6948:
6949: DELETE FROM pa_fp_elements e
6951:
6952: l_records_deleted := sql%rowcount;
6953:
6954: IF l_debug_mode = 'Y' THEN
6955: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
6956: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6957: L_DEBUG_LEVEL3);
6958: END IF;
6959:
6952: l_records_deleted := sql%rowcount;
6953:
6954: IF l_debug_mode = 'Y' THEN
6955: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
6956: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6957: L_DEBUG_LEVEL3);
6958: END IF;
6959:
6960: IF l_records_deleted <> 0 THEN
6959:
6960: IF l_records_deleted <> 0 THEN
6961:
6962: IF l_debug_mode = 'Y' THEN
6963: pa_debug.g_err_stage:= 'Deleting from pa_resource_assignments for task id ' || to_char(p_impacted_tasks_tbl(i).new_parent_task_id);
6964: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6965: L_DEBUG_LEVEL3);
6966: END IF;
6967:
6960: IF l_records_deleted <> 0 THEN
6961:
6962: IF l_debug_mode = 'Y' THEN
6963: pa_debug.g_err_stage:= 'Deleting from pa_resource_assignments for task id ' || to_char(p_impacted_tasks_tbl(i).new_parent_task_id);
6964: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6965: L_DEBUG_LEVEL3);
6966: END IF;
6967:
6968: DELETE FROM pa_resource_assignments r
6970:
6971: l_records_deleted := sql%rowcount;
6972:
6973: IF l_debug_mode = 'Y' THEN
6974: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
6975: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6976: L_DEBUG_LEVEL3);
6977: END IF;
6978:
6971: l_records_deleted := sql%rowcount;
6972:
6973: IF l_debug_mode = 'Y' THEN
6974: pa_debug.g_err_stage:= To_char(l_records_deleted) || ' records deleted.';
6975: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6976: L_DEBUG_LEVEL3);
6977: END IF;
6978:
6979: END IF;
6996: p_impacted_tasks_tbl(i).old_parent_task_id IS NULL) OR
6997: p_impacted_tasks_tbl(i).top_task_id IS NULL THEN
6998:
6999: IF l_debug_mode = 'Y' THEN
7000: pa_debug.g_err_stage:= 'For DELETE action : ' ||
7001: 'Impacted_task_id, old_parent_task_id, Top_task_id should be passed';
7002: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7003: END IF;
7004: PA_UTILS.ADD_MESSAGE
6998:
6999: IF l_debug_mode = 'Y' THEN
7000: pa_debug.g_err_stage:= 'For DELETE action : ' ||
7001: 'Impacted_task_id, old_parent_task_id, Top_task_id should be passed';
7002: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7003: END IF;
7004: PA_UTILS.ADD_MESSAGE
7005: (p_app_short_name => 'PA',
7006: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7014: IF NOT(l_tasks_removed_tbl.exists(p_impacted_tasks_tbl(i).impacted_task_id)) THEN
7015:
7016: IF l_debug_mode = 'Y' THEN
7017:
7018: pa_debug.g_err_stage:= 'Calling delete_task_elements for impacted task id';
7019: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7020:
7021: END IF;
7022:
7015:
7016: IF l_debug_mode = 'Y' THEN
7017:
7018: pa_debug.g_err_stage:= 'Calling delete_task_elements for impacted task id';
7019: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7020:
7021: END IF;
7022:
7023: /* Calling pa_fp_elements_pub.delete_task_elements for impacted task id */
7029:
7030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7031:
7032: IF l_debug_mode = 'Y' THEN
7033: pa_debug.g_err_stage:= 'Error returned by delete_task_elements for task_id ' ||
7034: p_impacted_tasks_tbl(i).impacted_task_id;
7035: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7036: END IF;
7037:
7031:
7032: IF l_debug_mode = 'Y' THEN
7033: pa_debug.g_err_stage:= 'Error returned by delete_task_elements for task_id ' ||
7034: p_impacted_tasks_tbl(i).impacted_task_id;
7035: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7036: END IF;
7037:
7038: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7039:
7070: END;
7071:
7072: IF l_debug_mode = 'Y' THEN
7073:
7074: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
7075: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7076:
7077: END IF;
7078:
7071:
7072: IF l_debug_mode = 'Y' THEN
7073:
7074: pa_debug.g_err_stage:= 'l_make_task_plannable = ' || l_make_task_plannable;
7075: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7076:
7077: END IF;
7078:
7079: /* We need to call make new task plannable to add the old parent task id as plannable */
7081: IF l_make_task_plannable = 'Y' THEN
7082:
7083: IF l_debug_mode = 'Y' THEN
7084:
7085: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for old parent task id';
7086: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7087:
7088: END IF;
7089:
7082:
7083: IF l_debug_mode = 'Y' THEN
7084:
7085: pa_debug.g_err_stage:= 'Calling make_new_tasks_plannable for old parent task id';
7086: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7087:
7088: END IF;
7089:
7090: /*
7117:
7118: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7119:
7120: IF l_debug_mode = 'Y' THEN
7121: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
7122: p_impacted_tasks_tbl(i).old_parent_task_id;
7123: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7124: END IF;
7125:
7119:
7120: IF l_debug_mode = 'Y' THEN
7121: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
7122: p_impacted_tasks_tbl(i).old_parent_task_id;
7123: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7124: END IF;
7125:
7126: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7127:
7138:
7139: /* Invalid action passed */
7140:
7141: IF l_debug_mode = 'Y' THEN
7142: pa_debug.g_err_stage:= 'Invalid value for action passed. Action passed is ' ||
7143: p_impacted_tasks_tbl(i).action;
7144: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7145: END IF;
7146:
7140:
7141: IF l_debug_mode = 'Y' THEN
7142: pa_debug.g_err_stage:= 'Invalid value for action passed. Action passed is ' ||
7143: p_impacted_tasks_tbl(i).action;
7144: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
7145: END IF;
7146:
7147: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7148:
7154: we need to increase the record_version_number */
7155:
7156: IF nvl(l_all_fp_options_tbl.last,0) >= 1 THEN /* only if something is fetched */
7157:
7158: IF P_PA_DEBUG_MODE = 'Y' THEN
7159: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with RVN and who columns.';
7160: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7161: END IF;
7162:
7155:
7156: IF nvl(l_all_fp_options_tbl.last,0) >= 1 THEN /* only if something is fetched */
7157:
7158: IF P_PA_DEBUG_MODE = 'Y' THEN
7159: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with RVN and who columns.';
7160: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7161: END IF;
7162:
7163: FORALL i in l_all_fp_options_tbl.first..l_all_fp_options_tbl.last
7156: IF nvl(l_all_fp_options_tbl.last,0) >= 1 THEN /* only if something is fetched */
7157:
7158: IF P_PA_DEBUG_MODE = 'Y' THEN
7159: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with RVN and who columns.';
7160: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
7161: END IF;
7162:
7163: FORALL i in l_all_fp_options_tbl.first..l_all_fp_options_tbl.last
7164: UPDATE pa_proj_fp_options pfo
7186:
7187: END IF; /* l_continue_processing_flag = 'Y' */
7188:
7189: IF l_debug_mode = 'Y' THEN
7190: pa_debug.g_err_stage:= 'Exiting maintain_plannable_tasks';
7191: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7192: L_DEBUG_LEVEL3);
7193: pa_debug.reset_curr_function;
7194: END IF;
7187: END IF; /* l_continue_processing_flag = 'Y' */
7188:
7189: IF l_debug_mode = 'Y' THEN
7190: pa_debug.g_err_stage:= 'Exiting maintain_plannable_tasks';
7191: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7192: L_DEBUG_LEVEL3);
7193: pa_debug.reset_curr_function;
7194: END IF;
7195:
7189: IF l_debug_mode = 'Y' THEN
7190: pa_debug.g_err_stage:= 'Exiting maintain_plannable_tasks';
7191: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7192: L_DEBUG_LEVEL3);
7193: pa_debug.reset_curr_function;
7194: END IF;
7195:
7196: EXCEPTION
7197:
7214: x_msg_count := l_msg_count;
7215: END IF;
7216:
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7220: L_DEBUG_LEVEL5);
7221: pa_debug.reset_curr_function;
7222: END IF;
7215: END IF;
7216:
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7220: L_DEBUG_LEVEL5);
7221: pa_debug.reset_curr_function;
7222: END IF;
7223:
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7220: L_DEBUG_LEVEL5);
7221: pa_debug.reset_curr_function;
7222: END IF;
7223:
7224: RETURN;
7225:
7234: ,p_procedure_name => 'maintain_plannable_tasks'
7235: ,p_error_text => x_msg_data);
7236:
7237: IF l_debug_mode = 'Y' THEN
7238: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7239: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7240: L_DEBUG_LEVEL5);
7241: pa_debug.reset_curr_function;
7242: END IF;
7235: ,p_error_text => x_msg_data);
7236:
7237: IF l_debug_mode = 'Y' THEN
7238: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7239: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7240: L_DEBUG_LEVEL5);
7241: pa_debug.reset_curr_function;
7242: END IF;
7243: RAISE;
7237: IF l_debug_mode = 'Y' THEN
7238: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7239: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7240: L_DEBUG_LEVEL5);
7241: pa_debug.reset_curr_function;
7242: END IF;
7243: RAISE;
7244: END maintain_plannable_tasks;
7245: