68: --end bug 2663532
69:
70: BEGIN
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73: x_change_allowed := 'N';
74:
75: OPEN c1(p_from_task_type_id);
76: FETCH c1 INTO v_c1;
117: WHEN OTHERS THEN
118: FND_MSG_PUB.add_exc_msg
119: (p_pkg_name => 'PA_TASK_TYPE_UTILS.change_task_type_allowed',
120: p_procedure_name => PA_DEBUG.G_Err_Stack );
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122: RAISE;
123: END change_task_type_allowed;
124:
125:
135: --Bug: 4537865
136: l_change_wi_not_allowed EXCEPTION;
137:
138: BEGIN
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140:
141: IF PA_PROGRESS_UTILS.check_task_has_progress(p_task_id) = 'Y' THEN
142: RAISE l_change_wi_not_allowed;
143: END IF;
144:
145: EXCEPTION
146: WHEN l_change_wi_not_allowed THEN
147: PA_UTILS.add_message('PA','PA_CHANGE_WI_NOT_ALLOWED');
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: x_msg_data := 'PA_CHANGE_WI_NOT_ALLOWED';
150: x_msg_count := FND_MSG_PUB.Count_Msg;
151: If x_msg_count = 1 THEN
152: pa_interface_utils_pub.get_messages
149: x_msg_data := 'PA_CHANGE_WI_NOT_ALLOWED';
150: x_msg_count := FND_MSG_PUB.Count_Msg;
151: If x_msg_count = 1 THEN
152: pa_interface_utils_pub.get_messages
153: (p_encoded => FND_API.G_TRUE,
154: p_msg_index => 1,
155: p_msg_count => x_msg_count,
156: p_msg_data => x_msg_data,
157: --p_data => x_msg_data, --Bug: 4537865
161: x_msg_data := l_new_msg_data;
162: --Bug: 4537865
163: End if;
164: WHEN OTHERS THEN
165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ; -- 4537865
166: FND_MSG_PUB.add_exc_msg
167: (p_pkg_name => 'PA_TASK_TYPE_UTILS.change_work_item_allowed',
168: p_procedure_name => PA_DEBUG.G_Err_Stack );
169: RAISE;
182: l_new_msg_data VARCHAR2(2000);
183: l_change_uom_not_allowed EXCEPTION;
184:
185: BEGIN
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: IF PA_PROGRESS_UTILS.check_task_has_progress(p_task_id) = 'Y' THEN
189: RAISE l_change_uom_not_allowed;
190: END IF;
191:
192: EXCEPTION
193: WHEN l_change_uom_not_allowed THEN
194: PA_UTILS.add_message('PA','PA_CHANGE_UOM_NOT_ALLOWED');
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: x_msg_data := 'PA_CHANGE_UOM_NOT_ALLOWED';
197: x_msg_count := FND_MSG_PUB.Count_Msg;
198: If x_msg_count = 1 THEN
199: pa_interface_utils_pub.get_messages
196: x_msg_data := 'PA_CHANGE_UOM_NOT_ALLOWED';
197: x_msg_count := FND_MSG_PUB.Count_Msg;
198: If x_msg_count = 1 THEN
199: pa_interface_utils_pub.get_messages
200: (p_encoded => FND_API.G_TRUE,
201: p_msg_index => 1,
202: p_msg_count => x_msg_count,
203: p_msg_data => x_msg_data,
204: --p_data => x_msg_data, --Bug: 4537865
208: x_msg_data := l_new_msg_data;
209: --Bug: 4537865
210: End if;
211: WHEN OTHERS THEN
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ; -- 4537865
213: FND_MSG_PUB.add_exc_msg
214: (p_pkg_name => 'PA_TASK_TYPE_UTILS.change_uom_allowed',
215: p_procedure_name => PA_DEBUG.G_Err_Stack );
216: RAISE;
231: --bug: 4537865
232: l_planned_quantity_error EXCEPTION;
233:
234: BEGIN
235: x_return_status := FND_API.G_RET_STS_SUCCESS;
236: IF p_planned_quantity < p_actual_work_quantity THEN
237: RAISE l_planned_quantity_error;
238: END IF;
239:
239:
240: EXCEPTION
241: WHEN l_planned_quantity_error THEN
242: PA_UTILS.add_message('PA','PA_PLANNED_QUANTITY_ERROR');
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: x_msg_data := 'PA_PLANNED_QUANTITY_ERROR';
245: x_msg_count := FND_MSG_PUB.Count_Msg;
246: If x_msg_count = 1 THEN
247: pa_interface_utils_pub.get_messages
244: x_msg_data := 'PA_PLANNED_QUANTITY_ERROR';
245: x_msg_count := FND_MSG_PUB.Count_Msg;
246: If x_msg_count = 1 THEN
247: pa_interface_utils_pub.get_messages
248: (p_encoded => FND_API.G_TRUE,
249: p_msg_index => 1,
250: p_msg_count => x_msg_count,
251: p_msg_data => x_msg_data,
252: --p_data => x_msg_data, --Bug: 4537865
259: WHEN OTHERS THEN
260: FND_MSG_PUB.add_exc_msg
261: (p_pkg_name => 'PA_TASK_TYPE_UTILS.change_task_type_allowed',
262: p_procedure_name => PA_DEBUG.G_Err_Stack );
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
264: RAISE;
265:
266: END check_planned_quantity;
267:
322: -- Bug: 4537865
323:
324: BEGIN
325:
326: x_return_status := FND_API.G_RET_STS_SUCCESS;
327:
328: IF p_prog_entry_enable_flag = 'N' THEN
329: IF ( p_prog_entry_req_flag = 'Y'
330: OR p_initial_progress_status_code IS NOT NULL
387:
388: EXCEPTION
389: WHEN l_prog_entry_enable_invalid THEN
390: PA_UTILS.add_message('PA','PA_PROG_ENTRY_ENABLE_INVALID');
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: x_msg_data := 'PA_PROG_ENTRY_ENABLE_INVALID';
393: x_msg_count := FND_MSG_PUB.Count_Msg;
394: If x_msg_count = 1 THEN
395: pa_interface_utils_pub.get_messages
392: x_msg_data := 'PA_PROG_ENTRY_ENABLE_INVALID';
393: x_msg_count := FND_MSG_PUB.Count_Msg;
394: If x_msg_count = 1 THEN
395: pa_interface_utils_pub.get_messages
396: (p_encoded => FND_API.G_TRUE,
397: p_msg_index => 1,
398: p_msg_count => x_msg_count,
399: p_msg_data => x_msg_data,
400: --p_data => x_msg_data, --Bug: 4537865
406: End if;
407:
408: WHEN l_prog_entry_attr_missing THEN
409: PA_UTILS.add_message('PA','PA_PROG_ENTRY_ATTR_MISSING');
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: x_msg_data := 'PA_PROG_ENTRY_ATTR_MISSING';
412: x_msg_count := FND_MSG_PUB.Count_Msg;
413: If x_msg_count = 1 THEN
414: pa_interface_utils_pub.get_messages
411: x_msg_data := 'PA_PROG_ENTRY_ATTR_MISSING';
412: x_msg_count := FND_MSG_PUB.Count_Msg;
413: If x_msg_count = 1 THEN
414: pa_interface_utils_pub.get_messages
415: (p_encoded => FND_API.G_TRUE,
416: p_msg_index => 1,
417: p_msg_count => x_msg_count,
418: p_msg_data => x_msg_data,
419: --p_data => x_msg_data, --Bug: 4537865
425: End if;
426:
427: WHEN l_wq_enable_invalid THEN
428: PA_UTILS.add_message('PA','PA_WQ_ENABLE_INVALID');
429: x_return_status := FND_API.G_RET_STS_ERROR;
430: x_msg_data := 'PA_WQ_ENABLE_INVALID';
431: x_msg_count := FND_MSG_PUB.Count_Msg;
432: If x_msg_count = 1 THEN
433: pa_interface_utils_pub.get_messages
430: x_msg_data := 'PA_WQ_ENABLE_INVALID';
431: x_msg_count := FND_MSG_PUB.Count_Msg;
432: If x_msg_count = 1 THEN
433: pa_interface_utils_pub.get_messages
434: (p_encoded => FND_API.G_TRUE,
435: p_msg_index => 1,
436: p_msg_count => x_msg_count,
437: p_msg_data => x_msg_data,
438: --p_data => x_msg_data, --Bug: 4537865
444: End if;
445:
446: WHEN l_wq_attr_missing THEN
447: PA_UTILS.add_message('PA','PA_WQ_ATTR_MISSING');
448: x_return_status := FND_API.G_RET_STS_ERROR;
449: x_msg_data := 'PA_WQ_ATTR_MISSING';
450: x_msg_count := FND_MSG_PUB.Count_Msg;
451: If x_msg_count = 1 THEN
452: pa_interface_utils_pub.get_messages
449: x_msg_data := 'PA_WQ_ATTR_MISSING';
450: x_msg_count := FND_MSG_PUB.Count_Msg;
451: If x_msg_count = 1 THEN
452: pa_interface_utils_pub.get_messages
453: (p_encoded => FND_API.G_TRUE,
454: p_msg_index => 1,
455: p_msg_count => x_msg_count,
456: p_msg_data => x_msg_data,
457: --p_data => x_msg_data, --Bug: 4537865
463: End if;
464:
465: WHEN l_percent_comp_enable_invalid THEN
466: PA_UTILS.add_message('PA','PA_PERCENT_COMP_ENABLE_INVALID');
467: x_return_status := FND_API.G_RET_STS_ERROR;
468: x_msg_data := 'PA_PERCENT_COMP_ENABLE_INVALID';
469: x_msg_count := FND_MSG_PUB.Count_Msg;
470: If x_msg_count = 1 THEN
471: pa_interface_utils_pub.get_messages
468: x_msg_data := 'PA_PERCENT_COMP_ENABLE_INVALID';
469: x_msg_count := FND_MSG_PUB.Count_Msg;
470: If x_msg_count = 1 THEN
471: pa_interface_utils_pub.get_messages
472: (p_encoded => FND_API.G_TRUE,
473: p_msg_index => 1,
474: p_msg_count => x_msg_count,
475: p_msg_data => x_msg_data,
476: --p_data => x_msg_data, --Bug: 4537865
482: End if;
483:
484: WHEN l_percent_comp_attr_missing THEN
485: PA_UTILS.add_message('PA','PA_PERCENT_COMP_ATTR_MISSING');
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: x_msg_data := 'PA_PERCENT_COMP_ATTR_MISSING';
488: x_msg_count := FND_MSG_PUB.Count_Msg;
489: If x_msg_count = 1 THEN
490: pa_interface_utils_pub.get_messages
487: x_msg_data := 'PA_PERCENT_COMP_ATTR_MISSING';
488: x_msg_count := FND_MSG_PUB.Count_Msg;
489: If x_msg_count = 1 THEN
490: pa_interface_utils_pub.get_messages
491: (p_encoded => FND_API.G_TRUE,
492: p_msg_index => 1,
493: p_msg_count => x_msg_count,
494: p_msg_data => x_msg_data,
495: --p_data => x_msg_data, --Bug: 4537865
501: End if;
502:
503: WHEN l_base_deriv_method_invalid THEN
504: PA_UTILS.add_message('PA','PA_BASE_DERIV_METHOD_INVALID');
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: x_msg_data := 'PA_BASE_DERIV_METHOD_INVALID';
507: x_msg_count := FND_MSG_PUB.Count_Msg;
508: If x_msg_count = 1 THEN
509: pa_interface_utils_pub.get_messages
506: x_msg_data := 'PA_BASE_DERIV_METHOD_INVALID';
507: x_msg_count := FND_MSG_PUB.Count_Msg;
508: If x_msg_count = 1 THEN
509: pa_interface_utils_pub.get_messages
510: (p_encoded => FND_API.G_TRUE,
511: p_msg_index => 1,
512: p_msg_count => x_msg_count,
513: p_msg_data => x_msg_data,
514: --p_data => x_msg_data, --Bug: 4537865