[Home] [Help]
145: (p_task_number=> p_in_task_tbl(i).task_name
146: ,p_task_reference => p_in_task_tbl(i).pm_task_reference
147: ,p_task_id => l_task_id);
148:
149: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
150: THEN
151: pa_interface_utils_pub.map_new_amg_msg
152: ( p_old_message_code => 'PA_TASK_NUMBER_NOT_UNIQUE'
153: ,p_msg_attribute => 'CHANGE'
210: WHEN OTHERS THEN
211:
212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213:
214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: FND_MSG_PUB.add_exc_msg
217: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
218: , p_procedure_name =>'handle_task_number_change' );
212: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213:
214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: FND_MSG_PUB.add_exc_msg
217: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
218: , p_procedure_name =>'handle_task_number_change' );
219:
220: END IF;
288:
289: BEGIN
290:
291: --Clear Error Messages.
292: IF FND_MSG_PUB.count_msg = 0
293: THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
290:
291: --Clear Error Messages.
292: IF FND_MSG_PUB.count_msg = 0
293: THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
297: IF p_struc_type = 'WORKPLAN'
298: THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: rollback to create_dflt_structure;
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
460: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
461: p_error_text => SUBSTRB(SQLERRM,1,240));
462: rollback to create_dflt_structure;
463: raise;
589: l_dummy_char VARCHAR2(1);
590: BEGIN
591:
592: --Clear Error Messages.
593: IF FND_MSG_PUB.count_msg = 0
594: THEN
595: FND_MSG_PUB.initialize;
596: END IF;
597:
591:
592: --Clear Error Messages.
593: IF FND_MSG_PUB.count_msg = 0
594: THEN
595: FND_MSG_PUB.initialize;
596: END IF;
597:
598:
599: savepoint create_dflt_task_struc;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: rollback to create_dflt_task_struc;
805: WHEN OTHERS THEN
806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
807: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
808: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
809: p_error_text => SUBSTRB(SQLERRM,1,240));
810: rollback to create_dflt_task_struc;
811: raise;
1251:
1252: BEGIN
1253:
1254: --Clear Error Messages.
1255: IF FND_MSG_PUB.count_msg = 0
1256: THEN
1257: FND_MSG_PUB.initialize;
1258: END IF;
1259:
1253:
1254: --Clear Error Messages.
1255: IF FND_MSG_PUB.count_msg = 0
1256: THEN
1257: FND_MSG_PUB.initialize;
1258: END IF;
1259:
1260: SAVEPOINT create_task_struc;
1261:
1494:
1495: /* New Code End for Bug 2736392 */
1496:
1497: ---The following code is added to prevent message list re-initialization if there are any messages already on stack.
1498: IF p_calling_module = 'AMG' AND FND_MSG_PUB.count_msg > 0
1499: THEN
1500: l_init_msg_list := 'F';
1501: ELSE
1502: l_init_msg_list := 'T';
2132: --end if;
2133:
2134: IF l_validate_status = 'N'
2135: THEN
2136: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2137: THEN
2138: pa_interface_utils_pub.map_new_amg_msg
2139: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
2140: ,p_msg_attribute => 'CHANGE'
2302: x_msg_data => l_msg_data
2303: );
2304: exception
2305: when others then
2306: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2307: p_procedure_name => 'CREATE_PROJECT',
2308: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
2309: raise fnd_api.g_exc_error;
2310: end;
2322: ,x_msg_data => l_msg_data
2323: );
2324: exception
2325: when others then
2326: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2327: p_procedure_name => 'CREATE_PROJECT',
2328: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
2329: raise fnd_api.g_exc_error;
2330: end;
2338: x_return_status := FND_API.G_RET_STS_ERROR;
2339: rollback to create_task_struc;
2340: WHEN OTHERS THEN
2341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2343: p_procedure_name => 'create_task_structure',
2344: p_error_text => SUBSTRB(SQLERRM,1,240));
2345: rollback to create_task_struc;
2346: raise;
2749: -- 7358214
2750: BEGIN
2751:
2752: --Clear Error Messages.
2753: IF FND_MSG_PUB.count_msg = 0
2754: THEN
2755: FND_MSG_PUB.initialize;
2756: END IF;
2757:
2751:
2752: --Clear Error Messages.
2753: IF FND_MSG_PUB.count_msg = 0
2754: THEN
2755: FND_MSG_PUB.initialize;
2756: END IF;
2757:
2758: SAVEPOINT update_task_struc;
2759:
2768: FETCH cur_rec_ver_num INTO l_record_version_number;
2769: CLOSE cur_rec_ver_num;
2770:
2771: ---The following code is added to prevent message list re-initialization if there are any messages already on stack.
2772: IF p_calling_module = 'AMG' AND FND_MSG_PUB.count_msg > 0
2773: THEN
2774: l_init_msg_list := 'F';
2775: ELSE
2776: l_init_msg_list := 'T';
3396: --end if;
3397:
3398: IF l_validate_status = 'N'
3399: THEN
3400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3401: THEN
3402: pa_interface_utils_pub.map_new_amg_msg
3403: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
3404: ,p_msg_attribute => 'CHANGE'
3580: x_msg_data => l_msg_data
3581: );
3582: exception
3583: when others then
3584: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3585: p_procedure_name => 'CREATE_PROJECT',
3586: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
3587: raise fnd_api.g_exc_error;
3588: end;
3642: ,x_msg_data => l_msg_data
3643: );
3644: exception
3645: when others then
3646: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3647: p_procedure_name => 'CREATE_PROJECT',
3648: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
3649: raise fnd_api.g_exc_error;
3650: end;
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3689: rollback to update_task_struc;
3690: WHEN OTHERS THEN
3691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3693: p_procedure_name => 'update_task_structure',
3694: p_error_text => SUBSTRB(SQLERRM,1,240));
3695: rollback to update_task_struc;
3696: raise;
3764:
3765: BEGIN
3766:
3767: --Clear Error Messages.
3768: IF FND_MSG_PUB.count_msg = 0
3769: THEN
3770: FND_MSG_PUB.initialize;
3771: END IF;
3772:
3766:
3767: --Clear Error Messages.
3768: IF FND_MSG_PUB.count_msg = 0
3769: THEN
3770: FND_MSG_PUB.initialize;
3771: END IF;
3772:
3773: SAVEPOINT delete_task_struc;
3774:
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: rollback to delete_task_struc;
3835: WHEN OTHERS THEN
3836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3838: p_procedure_name => 'delete_task_structure',
3839: p_error_text => SUBSTRB(SQLERRM,1,240));
3840: rollback to delete_task_struc;
3841: raise;
3900:
3901: BEGIN
3902:
3903: --Clear Error Messages.
3904: IF FND_MSG_PUB.count_msg = 0
3905: THEN
3906: FND_MSG_PUB.initialize;
3907: END IF;
3908:
3902:
3903: --Clear Error Messages.
3904: IF FND_MSG_PUB.count_msg = 0
3905: THEN
3906: FND_MSG_PUB.initialize;
3907: END IF;
3908:
3909: SAVEPOINT delete_project_struc;
3910:
3985: EXCEPTION
3986:
3987: WHEN OTHERS THEN
3988:
3989: fnd_msg_pub.add_exc_msg(
3990: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3991: p_procedure_name => 'delete_project_structure',
3992: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3993:
4009: x_return_status := FND_API.G_RET_STS_ERROR;
4010: rollback to delete_project_struc;
4011: WHEN OTHERS THEN
4012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4013: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4014: p_procedure_name => 'delete_project_structure',
4015: p_error_text => SUBSTRB(SQLERRM,1,240));
4016: rollback to delete_project_struc;
4017: raise;
4247: l_name VARCHAR2(240);
4248: BEGIN
4249:
4250: --Clear Error Messages.
4251: IF FND_MSG_PUB.count_msg = 0
4252: THEN
4253: FND_MSG_PUB.initialize;
4254: END IF;
4255:
4249:
4250: --Clear Error Messages.
4251: IF FND_MSG_PUB.count_msg = 0
4252: THEN
4253: FND_MSG_PUB.initialize;
4254: END IF;
4255:
4256: SAVEPOINT create_delete_wp_struc;
4257:
4317: ,x_msg_data => l_msg_data
4318: ,x_return_status => l_return_status
4319: );
4320:
4321: l_msg_count := FND_MSG_PUB.count_msg;
4322: if l_msg_count > 0 then
4323: x_msg_count := l_msg_count;
4324: if x_msg_count = 1 then
4325: pa_interface_utils_pub.get_messages
4347: ,x_msg_count => l_msg_count
4348: ,x_msg_data => l_msg_data
4349: );
4350:
4351: l_msg_count := FND_MSG_PUB.count_msg;
4352: if l_msg_count > 0 then
4353: x_msg_count := l_msg_count;
4354: if x_msg_count = 1 then
4355: pa_interface_utils_pub.get_messages
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: rollback to create_delete_wp_struc;
4445: WHEN OTHERS THEN
4446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4448: p_procedure_name => 'create_delete_workplan_struc',
4449: p_error_text => SUBSTRB(SQLERRM,1,240));
4450: rollback to create_delete_wp_struc;
4451: raise;
4491:
4492: BEGIN
4493:
4494: --Clear Error Messages.
4495: IF FND_MSG_PUB.count_msg = 0
4496: THEN
4497: FND_MSG_PUB.initialize;
4498: END IF;
4499:
4493:
4494: --Clear Error Messages.
4495: IF FND_MSG_PUB.count_msg = 0
4496: THEN
4497: FND_MSG_PUB.initialize;
4498: END IF;
4499:
4500: SAVEPOINT cp_struc;
4501: --bug 2805602
4560: END IF;
4561: --bug 2805602
4562:
4563:
4564: l_msg_count := FND_MSG_PUB.count_msg;
4565: if l_msg_count > 0 then
4566: x_msg_count := l_msg_count;
4567: if x_msg_count = 1 then
4568: pa_interface_utils_pub.get_messages
4583: x_return_status := FND_API.G_RET_STS_ERROR;
4584: rollback to cp_struc;
4585: WHEN OTHERS THEN
4586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4588: p_procedure_name => 'Copy_Structure',
4589: p_error_text => SUBSTRB(SQLERRM,1,240));
4590: rollback to cp_struc;
4591: raise;
4644: l_cur_pa_proj_elem_vers_rec cur_pa_proj_elem_vers%ROWTYPE;
4645: BEGIN
4646:
4647: --Clear Error Messages.
4648: IF FND_MSG_PUB.count_msg = 0
4649: THEN
4650: FND_MSG_PUB.initialize;
4651: END IF;
4652:
4646:
4647: --Clear Error Messages.
4648: IF FND_MSG_PUB.count_msg = 0
4649: THEN
4650: FND_MSG_PUB.initialize;
4651: END IF;
4652:
4653: SAVEPOINT clean_struc;
4654:
4677: x_return_status := FND_API.G_RET_STS_ERROR;
4678: rollback to clean_struc;
4679: WHEN OTHERS THEN
4680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4682: p_procedure_name => 'Clean_unwanted_tasks',
4683: p_error_text => SUBSTRB(SQLERRM,1,240));
4684: rollback to clean_struc;
4685: raise;
4967: l_current_working_ver_flag VARCHAR2(1); /* FPM bug 3301192 */
4968: l_latest_eff_published_flag VARCHAR2(1); /* FPM bug 3301192 */ /* this is added to fix the bug. If version enabled the status should be working other wise it should be published. */
4969: BEGIN
4970:
4971: IF FND_MSG_PUB.count_msg = 0
4972: THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975: --check if the project have any structures
4969: BEGIN
4970:
4971: IF FND_MSG_PUB.count_msg = 0
4972: THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975: --check if the project have any structures
4976: PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Type_Exists(
4977: p_project_id,
4988: -- processing.
4989: IF l_error_message_code <> 'PA_PS_STRUC_TYPE_EXISTS' THEN
4990: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4991: x_msg_data := l_error_message_code ; -- Bug3044915
4992: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4993: ELSE
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995: x_msg_data := NULL;
4996: x_msg_count := NULL;
5147: END IF;
5148: x_return_status := FND_API.G_RET_STS_SUCCESS;
5149: EXCEPTION
5150: WHEN FND_API.G_EXC_ERROR THEN
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5151: x_msg_count := FND_MSG_PUB.count_msg;
5152: x_return_status := FND_API.G_RET_STS_ERROR;
5153: WHEN OTHERS THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5156: p_procedure_name => 'CREATE_STRUCTURE',
5157: p_error_text => SUBSTRB(SQLERRM,1,240));
5158: raise;
5159: END create_structure;
5239:
5240: l_current_working_ver_flag VARCHAR2(1); /* FPM bug 3301192 */
5241: BEGIN
5242:
5243: IF FND_MSG_PUB.count_msg = 0
5244: THEN
5245: FND_MSG_PUB.initialize;
5246: END IF;
5247:
5241: BEGIN
5242:
5243: IF FND_MSG_PUB.count_msg = 0
5244: THEN
5245: FND_MSG_PUB.initialize;
5246: END IF;
5247:
5248: IF (p_structure_version_name IS NOT NULL) AND
5249: (p_structure_version_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
5561: ,x_Msg_data => l_msg_data
5562: );
5563: EXCEPTION
5564: WHEN OTHERS THEN
5565: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5566: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5567: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5568: raise fnd_api.g_exc_error;
5569: END;
5598: END IF;
5599: END IF;
5600: EXCEPTION
5601: WHEN FND_API.G_EXC_ERROR THEN
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5602: x_msg_count := FND_MSG_PUB.count_msg;
5603: x_return_status := FND_API.G_RET_STS_ERROR;
5604: WHEN OTHERS THEN
5605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5607: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5608: p_error_text => SUBSTRB(SQLERRM,1,240));
5609: END create_update_struct_ver;
5610:
6115: then
6116: if (p_tasks_in(i).pm_task_reference is not null and p_tasks_in(i).pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
6117: then
6118: --Cursor is deliberately used here, because we dont want to populate message in global error stack, in case new tasks
6119: --are being added. At many places in update_task flow, error is raised based on fnd_msg_pub.count > 0
6120: --If NO_DATA_FOUND occurs for this cursor, it will pass without error.
6121: OPEN cur_get_existing_task_id(p_project_id,p_tasks_in(i).pm_task_reference);
6122: FETCH cur_get_existing_task_id into l_pa_task_id;
6123: --Added by rtarway for BUG 4320731
6162: , p_return_status => l_return_status );
6163:
6164: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS
6165: THEN
6166: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6167: THEN
6168: pa_interface_utils_pub.map_new_amg_msg
6169: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
6170: ,p_msg_attribute => 'CHANGE'
6199: and p_tasks_in(i-1).pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
6200: then
6201: --get the task id from reference
6202: --Cursor is deliberately used here, because we dont want to populate message in global error stack, in case new tasks
6203: --are being added. At many places in update_task flow, error is raised based on fnd_msg_pub.count > 0
6204: --If NO_DATA_FOUND occurs for this cursor, it will pass without error.
6205: OPEN cur_get_existing_task_id(p_project_id,p_tasks_in(i-1).pm_task_reference);
6206: FETCH cur_get_existing_task_id into v_ref_task_id;
6207: CLOSE cur_get_existing_task_id;
6372: x_msg_count => l_msg_count,
6373: x_msg_data => l_msg_data);
6374:
6375: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6376: x_msg_count := FND_MSG_PUB.count_msg;
6377: if x_msg_count = 1 then
6378: pa_interface_utils_pub.get_messages
6379: (p_encoded => FND_API.G_TRUE,
6380: p_msg_index => 1,
6397: ,x_msg_count => l_msg_count
6398: ,x_msg_data => l_msg_data );
6399:
6400: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6401: x_msg_count := FND_MSG_PUB.count_msg;
6402: x_return_status := l_return_status ; --bug 3044915
6403: if x_msg_count = 1 then
6404: pa_interface_utils_pub.get_messages
6405: (p_encoded => FND_API.G_TRUE,
6456: x_msg_count => l_msg_count,
6457: x_msg_data => l_msg_data);
6458:
6459: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6460: x_msg_count := FND_MSG_PUB.count_msg;
6461: if x_msg_count = 1 then
6462: pa_interface_utils_pub.get_messages
6463: (p_encoded => FND_API.G_TRUE,
6464: p_msg_index => 1,
6482: ,x_msg_count => l_msg_count
6483: ,x_msg_data => l_msg_data );
6484:
6485: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6486: x_msg_count := FND_MSG_PUB.count_msg;
6487: x_return_status := l_return_status ; --bug 3044915
6488: if x_msg_count = 1 then
6489: pa_interface_utils_pub.get_messages
6490: (p_encoded => FND_API.G_TRUE,
6660: SAVEPOINT copy_src_fin_ver;
6661: END IF;
6662:
6663: IF p_init_msg_list = FND_API.G_TRUE THEN
6664: FND_MSG_PUB.initialize;
6665: END IF;
6666:
6667: IF l_debug_mode = 'Y' THEN
6668: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_version',
6935: IF p_commit = FND_API.G_TRUE THEN
6936: ROLLBACK TO copy_src_fin_ver;
6937: END IF;
6938:
6939: Fnd_Msg_Pub.add_exc_msg
6940: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6941: , p_procedure_name => 'copy_src_financial_version'
6942: , p_error_text => x_msg_data);
6943:
6957: IF p_commit = FND_API.G_TRUE THEN
6958: ROLLBACK TO copy_src_fin_ver;
6959: END IF;
6960:
6961: Fnd_Msg_Pub.add_exc_msg
6962: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6963: , p_procedure_name => 'copy_src_financial_version'
6964: , p_error_text => x_msg_data);
6965:
7164: SAVEPOINT copy_src_fin_ver_tasks;
7165: END IF;
7166:
7167: IF p_init_msg_list = FND_API.G_TRUE THEN
7168: FND_MSG_PUB.initialize;
7169: END IF;
7170:
7171: IF l_debug_mode = 'Y' THEN
7172: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_ver_tasks',
7768: IF p_commit = FND_API.G_TRUE THEN
7769: ROLLBACK TO copy_src_fin_ver_tasks;
7770: END IF;
7771:
7772: Fnd_Msg_Pub.add_exc_msg
7773: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7774: , p_procedure_name => 'copy_src_financial_ver_tasks'
7775: , p_error_text => x_msg_data);
7776:
7790: IF p_commit = FND_API.G_TRUE THEN
7791: ROLLBACK TO copy_src_fin_ver_tasks;
7792: END IF;
7793:
7794: Fnd_Msg_Pub.add_exc_msg
7795: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7796: , p_procedure_name => 'copy_src_financial_ver_tasks'
7797: , p_error_text => x_msg_data);
7798:
8174: SAVEPOINT copy_struc_tasks_bulk;
8175: END IF;
8176:
8177: IF p_init_msg_list = FND_API.G_TRUE THEN
8178: FND_MSG_PUB.initialize;
8179: END IF;
8180:
8181: IF l_debug_mode = 'Y' THEN
8182: PA_DEBUG.set_curr_function( p_function => 'copy_structures_tasks_bulk',
10005: , x_msg_count => l_msg_count
10006: , x_msg_data => l_msg_data );
10007:
10008: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10009: x_msg_count := FND_MSG_PUB.count_msg;
10010: IF x_msg_count = 1 THEN
10011: x_msg_data := l_msg_data;
10012: END IF;
10013: RAISE FND_API.G_EXC_ERROR;
10032: ,x_msg_data => l_msg_data
10033: );
10034:
10035: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10036: x_msg_count := FND_MSG_PUB.count_msg;
10037: IF x_msg_count = 1 THEN
10038: x_msg_data := l_msg_data;
10039: END IF;
10040: RAISE FND_API.G_EXC_ERROR;
10055: ,x_msg_count => l_msg_count
10056: ,x_msg_data => l_msg_data
10057: );
10058: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10059: x_msg_count := FND_MSG_PUB.count_msg;
10060: IF x_msg_count = 1 THEN
10061: x_msg_data := l_msg_data;
10062: END IF;
10063: RAISE FND_API.G_EXC_ERROR;
10191: ,x_msg_count => l_msg_count
10192: ,x_msg_data => l_msg_data
10193: );
10194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10195: x_msg_count := FND_MSG_PUB.count_msg;
10196: IF x_msg_count = 1 THEN
10197: x_msg_data := l_msg_data;
10198: END IF;
10199: RAISE FND_API.G_EXC_ERROR;
10226: ,x_msg_data => l_msg_data
10227: );
10228:
10229: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10230: x_msg_count := FND_MSG_PUB.count_msg;
10231: IF x_msg_count = 1 THEN
10232: x_msg_data := l_msg_data;
10233: END IF;
10234: RAISE FND_API.G_EXC_ERROR;
10256: ,x_msg_count => l_msg_count
10257: ,x_msg_data => l_msg_data
10258: );
10259: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10260: x_msg_count := FND_MSG_PUB.count_msg;
10261: IF x_msg_count = 1 THEN
10262: x_msg_data := l_msg_data;
10263: END IF;
10264: RAISE FND_API.G_EXC_ERROR;
10462: x_msg_data => l_msg_data
10463: );
10464:
10465: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10466: x_msg_count := FND_MSG_PUB.count_msg;
10467: IF x_msg_count = 1 THEN
10468: x_msg_data := l_msg_data;
10469: END IF;
10470: RAISE FND_API.G_EXC_ERROR;
10737: IF p_commit = FND_API.G_TRUE THEN
10738: ROLLBACK TO copy_struc_tasks_bulk;
10739: END IF;
10740:
10741: l_msg_count := Fnd_Msg_Pub.count_msg;
10742: IF l_msg_count = 1 AND x_msg_data IS NULL
10743: THEN
10744: Pa_Interface_Utils_Pub.get_messages
10745: ( p_encoded => Fnd_Api.G_FALSE
10766: IF p_commit = FND_API.G_TRUE THEN
10767: ROLLBACK TO copy_struc_tasks_bulk;
10768: END IF;
10769:
10770: Fnd_Msg_Pub.add_exc_msg
10771: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
10772: , p_procedure_name => 'copy_structures_tasks_bulk'
10773: , p_error_text => x_msg_data);
10774:
10788: IF p_commit = FND_API.G_TRUE THEN
10789: ROLLBACK TO copy_struc_tasks_bulk;
10790: END IF;
10791:
10792: Fnd_Msg_Pub.add_exc_msg
10793: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
10794: , p_procedure_name => 'copy_structures_tasks_bulk'
10795: , p_error_text => x_msg_data);
10796:
13175: x_msg_data => l_msg_data
13176: );
13177:
13178: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13179: x_msg_count := FND_MSG_PUB.count_msg;
13180: if x_msg_count = 1 then
13181: x_msg_data := l_msg_data;
13182: end if;
13183: raise FND_API.G_EXC_ERROR;
13220: ,x_Msg_data => x_msg_data
13221: );
13222: EXCEPTION
13223: WHEN OTHERS THEN
13224: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13225: p_procedure_name => 'copy_structures_bulk',
13226: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
13227: RAISE FND_API.G_EXC_ERROR;
13228: END;
13311: ,x_msg_count => l_msg_count
13312: ,x_msg_data => l_msg_data);
13313:
13314: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13315: x_msg_count := FND_MSG_PUB.count_msg;
13316: if x_msg_count = 1 then
13317: x_msg_data := l_msg_data;
13318: end if;
13319: raise FND_API.G_EXC_ERROR;
13334: ,x_msg_count => l_msg_count
13335: ,x_msg_data => l_msg_data);
13336:
13337: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13338: x_msg_count := FND_MSG_PUB.count_msg;
13339: if x_msg_count = 1 then
13340: x_msg_data := l_msg_data;
13341: end if;
13342: raise FND_API.G_EXC_ERROR;
13356: ,x_msg_count => l_msg_count
13357: ,x_msg_data => l_msg_data);
13358:
13359: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13360: x_msg_count := FND_MSG_PUB.count_msg;
13361: if x_msg_count = 1 then
13362: x_msg_data := l_msg_data;
13363: end if;
13364: raise FND_API.G_EXC_ERROR;
13387: if p_commit = FND_API.G_TRUE then
13388: rollback to copy_structure_bulk_pvt;
13389: end if;
13390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13392: p_procedure_name => 'copy_structures_bulk',
13393: p_error_text => SUBSTRB(SQLERRM,1,240));
13394: when OTHERS then
13395: if p_commit = FND_API.G_TRUE then
13395: if p_commit = FND_API.G_TRUE then
13396: rollback to copy_structure_bulk_pvt;
13397: end if;
13398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13400: p_procedure_name => 'copy_structures_bulk',
13401: p_error_text => SUBSTRB(SQLERRM,1,240));
13402: raise;
13403: END copy_structures_bulk;
13560: ,x_msg_count => l_msg_count
13561: ,x_msg_data => l_msg_data);
13562:
13563: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13564: x_msg_count := FND_MSG_PUB.count_msg;
13565: x_return_status := l_return_status ; -- Bug 3044915
13566: if x_msg_count = 1 then
13567: pa_interface_utils_pub.get_messages
13568: (p_encoded => FND_API.G_TRUE,
13583: x_return_status := FND_API.G_RET_STS_ERROR;
13584:
13585: WHEN OTHERS THEN
13586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13587: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13588: p_procedure_name => 'ROLLUP_DATES',
13589: p_error_text => SUBSTRB(SQLERRM,1,240));
13590: raise;
13591: -- End Changes for Bug 6633233
14180: SAVEPOINT process_task_struc;
14181: END IF;
14182:
14183: IF p_init_msg_list = FND_API.G_TRUE THEN
14184: FND_MSG_PUB.initialize;
14185: END IF;
14186:
14187: x_msg_count := 0;
14188: x_return_status := FND_API.G_RET_STS_SUCCESS;
14306: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id
14307: ,p_structure_type => p_structure_type );
14308: IF nvl(l_process_code,'-1') = 'WUP' THEN
14309:
14310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14311: THEN
14312: --Commented out as there is no message defined for amg corresponding to PA_PS_VD_UPDWBS_PRC_INPROC
14313: --pa_interface_utils_pub.map_new_amg_msg
14314: -- ( p_old_message_code => 'PA_PS_VD_UPDWBS_PRC_INPROC'
14333: raise Invalid_Arg_Exc_WP;
14334: END IF ;
14335: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
14336:
14337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14338: THEN
14339: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798
14340: ,p_structure_type => p_structure_type );
14341:
14742: THEN
14743: IF l_task_in_rec.pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR
14744: l_task_in_rec.pm_task_reference IS NULL
14745: THEN
14746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14747: THEN
14748: pa_interface_utils_pub.map_new_amg_msg
14749: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
14750: ,p_msg_attribute => 'CHANGE'
14818: -- is checked in add_task_round_one API.
14819: IF l_task_in_rec.pm_task_reference IS NULL
14820: OR l_task_in_rec.pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14821: THEN
14822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14823: THEN
14824: pa_interface_utils_pub.map_new_amg_msg
14825: ( p_old_message_code => 'PA_TASK_REF_IS_NULL'
14826: ,p_msg_attribute => 'CHANGE'
14841: IF l_task_in_rec.task_name IS NULL
14842: OR l_task_in_rec.task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14843: THEN
14844:
14845: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14846: THEN
14847: pa_interface_utils_pub.map_new_amg_msg
14848: ( p_old_message_code => 'PA_TASK_NAME_IS_NULL'
14849: ,p_msg_attribute => 'CHANGE'
14953:
14954: px_tasks_out_tbl(i).return_status := x_return_status;
14955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14956: THEN
14957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14958: THEN
14959: pa_interface_utils_pub.map_new_amg_msg
14960: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
14961: ,p_msg_attribute => 'CHANGE'
15091:
15092: px_tasks_out_tbl(i).return_status := x_return_status;
15093: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
15094: THEN
15095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15096: THEN
15097: pa_interface_utils_pub.map_new_amg_msg
15098: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
15099: ,p_msg_attribute => 'CHANGE'
15941: );
15942:
15943: IF l_validate_status = 'N'
15944: THEN
15945: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15946: THEN
15947: pa_interface_utils_pub.map_new_amg_msg
15948: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
15949: ,p_msg_attribute => 'CHANGE'
16111: );
16112:
16113: IF l_validate_status = 'N'
16114: THEN
16115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
16116: THEN
16117: pa_interface_utils_pub.map_new_amg_msg
16118: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
16119: ,p_msg_attribute => 'CHANGE'
16838: );
16839:
16840: EXCEPTION
16841: WHEN OTHERS THEN
16842: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16843: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16844: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16845: raise fnd_api.g_exc_error;
16846: END;
16845: raise fnd_api.g_exc_error;
16846: END;
16847:
16848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16849: x_msg_count := FND_MSG_PUB.count_msg;
16850: raise fnd_api.g_exc_error;
16851: END IF;
16852: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16853: l_add_task_ver_ids.delete;
17092: END IF;
17093:
17094: END IF;
17095:
17096: l_msg_count := FND_MSG_PUB.count_msg;
17097: IF (l_msg_count > 0) THEN
17098: /* Start of 13931870
17099: x_msg_count := l_msg_count;
17100: IF (x_msg_count = 1) THEN
17494: ,x_msg_data => l_msg_data
17495: );
17496: EXCEPTION
17497: WHEN OTHERS THEN
17498: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17499: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17500: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
17501: raise fnd_api.g_exc_error;
17502: END;
17501: raise fnd_api.g_exc_error;
17502: END;
17503:
17504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17505: x_msg_count := FND_MSG_PUB.count_msg;
17506: raise fnd_api.g_exc_error;
17507: END IF;
17508: END IF; -- l_add_task_ver_ids.exists(1) THEN
17509:
17632: ,x_msg_data => l_msg_data
17633: );
17634: EXCEPTION
17635: WHEN OTHERS THEN
17636: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17637: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17638: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17639: raise fnd_api.g_exc_error;
17640: END;
17639: raise fnd_api.g_exc_error;
17640: END;
17641:
17642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17643: x_msg_count := FND_MSG_PUB.count_msg;
17644: raise fnd_api.g_exc_error;
17645: END IF;
17646: END IF; -- l_del_task_ver_ids.exists(1) THEN
17647: l_del_task_ver_ids.delete;
17665: ,x_msg_data => l_msg_data
17666: );
17667: EXCEPTION
17668: WHEN OTHERS THEN
17669: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17670: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17671: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17672: raise fnd_api.g_exc_error;
17673: END;
17672: raise fnd_api.g_exc_error;
17673: END;
17674:
17675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17676: x_msg_count := FND_MSG_PUB.count_msg;
17677: raise fnd_api.g_exc_error;
17678: END IF;
17679: END IF; -- l_del_task_ver_ids.exists(1) THEN
17680: END IF; --((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' )
17739: -- null;--BUG 3802469, rtarway
17740: -- end if;
17741: -- exception
17742: -- when others then
17743: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17744: -- p_procedure_name => 'CREATE_PROJECT',
17745: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17746: -- raise fnd_api.g_exc_error;
17747: -- end;
17766: -- null;
17767: -- end if;
17768: -- exception
17769: -- when others then
17770: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17771: -- p_procedure_name => 'CREATE_PROJECT',
17772: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17773: -- raise fnd_api.g_exc_error;
17774: -- end;
17827: -- null;
17828: -- end if;
17829: -- exception
17830: -- when others then
17831: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17832: -- p_procedure_name => 'CREATE_PROJECT',
17833: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17834: -- raise fnd_api.g_exc_error;
17835: -- end;
17853: -- null;
17854: -- end if;
17855: -- exception
17856: -- when others then
17857: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17858: -- p_procedure_name => 'CREATE_PROJECT',
17859: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17860: -- raise fnd_api.g_exc_error;
17861: -- end;
17883: l_debug_level4);
17884: END IF;
17885:
17886: x_return_status := FND_API.G_RET_STS_ERROR;
17887: l_msg_count := FND_MSG_PUB.count_msg;
17888:
17889: IF get_structure%ISOPEN THEN
17890: CLOSE get_structure;
17891: END IF;
17965: l_debug_level4);
17966: END IF;
17967:
17968: x_return_status := FND_API.G_RET_STS_ERROR;
17969: l_msg_count := FND_MSG_PUB.count_msg;
17970:
17971: -- IF cur_auto_pub_flag%ISOPEN THEN
17972: -- CLOSE cur_auto_pub_flag;
17973: -- END IF;
18095: IF cur_all_task_ver_id%ISOPEN THEN
18096: CLOSE cur_all_task_ver_id;
18097: END IF;
18098:
18099: FND_MSG_PUB.add_exc_msg
18100: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18101: ,p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK'
18102: ,p_error_text => x_msg_data
18103: );
18169: , x_msg_data => l_msg_data
18170: , x_msg_count => l_msg_count
18171: );
18172:
18173: l_msg_count := FND_MSG_PUB.count_msg;
18174: if l_msg_count > 0 then
18175: x_msg_count := l_msg_count;
18176: if x_msg_count = 1 then
18177: pa_interface_utils_pub.get_messages
18193: x_return_status := FND_API.G_RET_STS_ERROR;
18194: rollback to plan_tasks;
18195: WHEN OTHERS THEN
18196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18198: p_procedure_name => 'delete_fin_plan_from_task',
18199: p_error_text => SUBSTRB(SQLERRM,1,240));
18200: rollback to plan_tasks;
18201: raise;
18276: END IF;
18277: --Bug# 5973460
18278:
18279: IF p_init_msg_list = FND_API.G_TRUE THEN
18280: FND_MSG_PUB.initialize;
18281: END IF;
18282:
18283: x_msg_count := 0;
18284: x_return_status := FND_API.G_RET_STS_SUCCESS;
18417:
18418: WHEN Invalid_Arg_Exc_WP THEN
18419:
18420: x_return_status := FND_API.G_RET_STS_ERROR;
18421: l_msg_count := FND_MSG_PUB.count_msg;
18422:
18423: IF cur_task_count%ISOPEN THEN
18424: CLOSE cur_task_count;
18425: END IF;
18452: IF cur_task_count%ISOPEN THEN
18453: CLOSE cur_task_count;
18454: END IF;
18455:
18456: FND_MSG_PUB.add_exc_msg
18457: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18458: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
18459: ,p_error_text => x_msg_data);
18460:
18557: -- 4683461 Done
18558:
18559: BEGIN
18560: IF p_init_msg_list = FND_API.G_TRUE THEN
18561: FND_MSG_PUB.initialize;
18562: END IF;
18563:
18564: x_msg_count := 0;
18565: x_return_status := FND_API.G_RET_STS_SUCCESS;
18796:
18797: WHEN Invalid_Arg_Exc_WP THEN
18798:
18799: x_return_status := FND_API.G_RET_STS_ERROR;
18800: l_msg_count := FND_MSG_PUB.count_msg;
18801:
18802: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18803: PA_INTERFACE_UTILS_PUB.get_messages
18804: (p_encoded => FND_API.G_TRUE
18823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18824: x_msg_count := 1;
18825: x_msg_data := SQLERRM;
18826:
18827: FND_MSG_PUB.add_exc_msg
18828: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18829: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18830: ,p_error_text => x_msg_data);
18831:
19035: EXCEPTION
19036:
19037: WHEN Invalid_Arg_Exc_WP THEN
19038:
19039: l_msg_count := FND_MSG_PUB.count_msg;
19040: retcode := '2';
19041:
19042: IF l_msg_count >= 1 THEN
19043: PA_INTERFACE_UTILS_PUB.get_messages
19129:
19130: retcode := '2';
19131: errbuf := SQLERRM;
19132:
19133: FND_MSG_PUB.add_exc_msg
19134: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
19135: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC'
19136: ,p_error_text => errbuf);
19137:
19366: savepoint process_wbs_updates;
19367: END IF;
19368:
19369: IF p_init_msg_list = FND_API.G_TRUE THEN
19370: FND_MSG_PUB.initialize;
19371: END IF;
19372:
19373: x_msg_count := 0;
19374: x_return_status := FND_API.G_RET_STS_SUCCESS;
19542: pa_debug.write(G_PKG_NAME, 'After Call PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT with x_return_status='||x_return_status||' l_out_online_flag='||l_out_online_flag, 3);
19543: END IF;
19544: EXCEPTION
19545: WHEN OTHERS THEN
19546: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19547: p_procedure_name => 'PROCESS_WBS_UDPATES',
19548: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
19549: RAISE Invalid_Arg_Exc_WP;
19550: END;
19812: END IF;
19813:
19814: EXCEPTION
19815: WHEN OTHERS THEN
19816: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19817: p_procedure_name => 'PROCESS_WBS_UPDATES',
19818: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for PUBLISH Mode for working '||
19819: 'verison: SQLERRM='||SQLERRM,1,120));
19820: RAISE Invalid_Arg_Exc_WP;
19837: END IF;
19838: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N'; --Set the flag back to 'N' to bypass any PJI rollup api call untill explicit plan_update gets called.
19839: EXCEPTION
19840: WHEN OTHERS THEN
19841: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19842: p_procedure_name => 'PROCESS_WBS_UPDATES',
19843: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in PUBLISH mode for'||
19844: ' working verison:SQLERRM='||SQLERRM,1,120));
19845: RAISE Invalid_Arg_Exc_WP;
20016:
20017: EXCEPTION
20018: WHEN OTHERS THEN
20019: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
20020: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20021: p_procedure_name => 'PROCESS_WBS_UDPATES',
20022: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
20023: RAISE Invalid_Arg_Exc_WP;
20024: END;
20077: ,p_structure_version_id => l_pub_ver_id
20078: ,p_calling_mode => 'PUBLISH' );
20079:
20080: IF l_debug_mode = 'Y' THEN
20081: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20082: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20083: END IF;
20084: -- Fix for Bug # 4513291. Added below Exception handling
20085: x_msg_count := FND_MSG_PUB.count_msg;
20081: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20082: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20083: END IF;
20084: -- Fix for Bug # 4513291. Added below Exception handling
20085: x_msg_count := FND_MSG_PUB.count_msg;
20086: IF x_msg_count > 0 THEN
20087: raise Invalid_Arg_Exc_WP;
20088: END IF;
20089:
20116: ,x_msg_data => l_i_msg_data
20117: ,x_return_status => l_i_return_status);
20118:
20119: IF l_debug_mode = 'Y' THEN
20120: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
20121: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
20122: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
20123: -- Fix for Bug # 4513291.
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20124: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
20125: -- Fix for Bug # 4513291.
20126: END IF;
20127:
20128: l_msg_count := FND_MSG_PUB.count_msg;
20129: --IF l_msg_count > 0 THEN -- Fix for Bug # 4513291.
20130: IF l_msg_count > 0 OR l_i_return_status <> 'S' OR l_i_msg_count > 0 THEN -- Fix for Bug # 4513291.
20131: x_msg_count := l_msg_count;
20132: raise Invalid_Arg_Exc_WP;
20273: END IF;
20274:
20275: EXCEPTION
20276: WHEN OTHERS THEN
20277: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20278: p_procedure_name => 'PROCESS_WBS_UPDATES',
20279: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed for Publish Mode: SQLERRM='||SQLERRM,1,240));
20280: RAISE Invalid_Arg_Exc_WP;
20281: END;
20338: pa_debug.write(G_PKG_NAME, 'After UPDATE_PROJECT_DATES x_return_status='|| x_return_status, 3);
20339: END IF;
20340:
20341: --Check if there is any error.
20342: l_msg_count := FND_MSG_PUB.count_msg;
20343: IF l_msg_count > 0 THEN
20344: x_msg_count := l_msg_count;
20345: IF x_msg_count = 1 THEN
20346: x_msg_data := l_msg_data;
20469: END IF;
20470:
20471: EXCEPTION
20472: WHEN OTHERS THEN
20473: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20474: p_procedure_name => 'PROCESS_WBS_UPDATES',
20475: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
20476: RAISE Invalid_Arg_Exc_WP;
20477:
20491: END IF;
20492:
20493: EXCEPTION
20494: WHEN OTHERS THEN
20495: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20496: p_procedure_name => 'PROCESS_WBS_UPDATES',
20497: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
20498: RAISE Invalid_Arg_Exc_WP;
20499: END;
20732: END IF;
20733:
20734: EXCEPTION
20735: WHEN OTHERS THEN
20736: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20737: p_procedure_name => 'PROCESS_WBS_UPDATES',
20738: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20739: RAISE Invalid_Arg_Exc_WP;
20740: END;
20765: END IF;
20766:
20767: EXCEPTION
20768: WHEN OTHERS THEN
20769: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20770: p_procedure_name => 'PROCESS_WBS_UPDATES',
20771: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for UPDATE Mode: SQLERRM='||SQLERRM,1,120));
20772: RAISE Invalid_Arg_Exc_WP;
20773:
20786: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in UPDATE mode x_return_status='|| x_return_status,l_debug_level3);
20787: END IF;
20788: EXCEPTION
20789: WHEN OTHERS THEN
20790: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20791: p_procedure_name => 'PROCESS_WBS_UPDATES',
20792: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in Update mode:SQLERRM='||SQLERRM,1,120));
20793: RAISE Invalid_Arg_Exc_WP;
20794: END;
20802:
20803: -- Bug 4284444 : Commented the below code
20804: -- EXCEPTION
20805: -- WHEN OTHERS THEN
20806: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20807: -- p_procedure_name => 'PROCESS_WBS_UPDATES',
20808: -- p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT:'||SQLERRM,1,240));
20809: -- RAISE Invalid_Arg_Exc_WP;
20810: -- END;
20854: Raise Invalid_Arg_Exc_WP;
20855: END IF;
20856: EXCEPTION
20857: WHEN OTHERS THEN
20858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20859: p_procedure_name => 'PROCESS_WBS_UPDATES',
20860: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20861: RAISE FND_API.G_EXC_ERROR;
20862: END;
21013: END IF;
21014:
21015: EXCEPTION
21016: WHEN OTHERS THEN
21017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21018: p_procedure_name => 'PROCESS_WBS_UPDATES',
21019: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT
21020: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
21021: RAISE Invalid_Arg_Exc_WP;
21060:
21061: WHEN Invalid_Arg_Exc_WP THEN
21062:
21063: x_return_status := FND_API.G_RET_STS_ERROR;
21064: l_msg_count := FND_MSG_PUB.count_msg;
21065:
21066: IF cur_structure_type%ISOPEN THEN
21067: CLOSE cur_structure_type;
21068: END IF;
21099: IF cur_structure_type%ISOPEN THEN
21100: CLOSE cur_structure_type;
21101: END IF;
21102:
21103: FND_MSG_PUB.add_exc_msg
21104: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21105: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
21106: ,p_error_text => x_msg_data);
21107:
21279: savepoint process_task_weightage;
21280: END IF;
21281:
21282: IF p_init_msg_list = FND_API.G_TRUE THEN
21283: FND_MSG_PUB.initialize;
21284: END IF;
21285:
21286: x_msg_count := 0;
21287: x_return_status := FND_API.G_RET_STS_SUCCESS;
21392: END IF;
21393:
21394: EXCEPTION
21395: WHEN OTHERS THEN
21396: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21397: p_procedure_name => 'PROCESS_TASK_WEIGHTAGE',
21398: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed='||SQLERRM,1,120));
21399: RAISE Invalid_Arg_Exc_WP;
21400:
21609:
21610: WHEN Invalid_Arg_Exc_WP THEN
21611:
21612: x_return_status := FND_API.G_RET_STS_ERROR;
21613: l_msg_count := FND_MSG_PUB.count_msg;
21614:
21615: IF cur_task_info%ISOPEN THEN
21616: CLOSE cur_task_info;
21617: END IF;
21648: IF cur_task_info%ISOPEN THEN
21649: CLOSE cur_task_info;
21650: END IF;
21651:
21652: FND_MSG_PUB.add_exc_msg
21653: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21654: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
21655: ,p_error_text => x_msg_data);
21656:
21706: savepoint set_update_wbs_flag;
21707: END IF;
21708:
21709: IF p_init_msg_list = FND_API.G_TRUE THEN
21710: FND_MSG_PUB.initialize;
21711: END IF;
21712:
21713: x_msg_count := 0;
21714: x_return_status := FND_API.G_RET_STS_SUCCESS;
21768:
21769: WHEN Invalid_Arg_Exc_WP THEN
21770:
21771: x_return_status := FND_API.G_RET_STS_ERROR;
21772: l_msg_count := FND_MSG_PUB.count_msg;
21773:
21774: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21775: PA_INTERFACE_UTILS_PUB.get_messages
21776: (p_encoded => FND_API.G_TRUE
21799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21800: x_msg_count := 1;
21801: x_msg_data := SQLERRM;
21802:
21803: FND_MSG_PUB.add_exc_msg
21804: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21805: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21806: ,p_error_text => x_msg_data);
21807:
21864: EXCEPTION
21865: WHEN Invalid_Arg_Exc_WP THEN
21866:
21867: x_return_status := FND_API.G_RET_STS_ERROR;
21868: l_msg_count := FND_MSG_PUB.count_msg;
21869: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21870: PA_INTERFACE_UTILS_PUB.get_messages
21871: (p_encoded => FND_API.G_TRUE
21872: ,p_msg_index => 1
21888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21889: x_msg_count := 1;
21890: x_msg_data := SQLERRM;
21891:
21892: FND_MSG_PUB.add_exc_msg
21893: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21894: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21895: ,p_error_text => x_msg_data);
21896:
22065: EXCEPTION
22066: WHEN Invalid_Arg_Exc_WP THEN
22067:
22068: x_return_status := FND_API.G_RET_STS_ERROR;
22069: l_msg_count := FND_MSG_PUB.count_msg;
22070: IF l_msg_count = 1 and x_msg_data IS NULL THEN
22071: PA_INTERFACE_UTILS_PUB.get_messages
22072: (p_encoded => FND_API.G_TRUE
22073: ,p_msg_index => 1
22089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22090: x_msg_count := 1;
22091: x_msg_data := SQLERRM;
22092:
22093: FND_MSG_PUB.add_exc_msg
22094: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
22095: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
22096: ,p_error_text => x_msg_data);
22097:
22177:
22178: BEGIN
22179: --Clear Error Messages.
22180: IF p_init_msg_list = FND_API.G_TRUE THEN
22181: FND_MSG_PUB.initialize;
22182: END IF;
22183:
22184: --set savepoint
22185: IF p_commit = FND_API.G_TRUE THEN
22287: ,x_msg_data => l_msg_data
22288: );
22289:
22290: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
22291: x_msg_count := FND_MSG_PUB.count_msg;
22292: if x_msg_count = 1 then
22293: pa_interface_utils_pub.get_messages
22294: (p_encoded => FND_API.G_TRUE,
22295: p_msg_index => 1,
22315: rollback to update_current_phase;
22316: END IF;
22317: WHEN OTHERS THEN
22318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22319: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22320: p_procedure_name => 'update_current_phase',
22321: p_error_text => SUBSTRB(SQLERRM,1,240));
22322: IF p_commit = FND_API.G_TRUE THEN
22323: rollback to update_current_phase;
22691: IF (p_commit = FND_API.G_TRUE) THEN
22692: ROLLBACK TO delete_intra_dependency;
22693: END IF;
22694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22695: FND_MSG_PUB.add_exc_msg(
22696: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
22697: p_procedure_name => 'delete_intra_dependency',
22698: p_error_text => SUBSTRB(SQLERRM,1,240));
22699: ROLLBACK TO delete_intra_dependency;