[Home] [Help]
72:
73: BEGIN
74:
75: --Clear Error Messages.
76: IF FND_MSG_PUB.count_msg = 0
77: THEN
78: FND_MSG_PUB.initialize;
79: END IF;
80:
74:
75: --Clear Error Messages.
76: IF FND_MSG_PUB.count_msg = 0
77: THEN
78: FND_MSG_PUB.initialize;
79: END IF;
80:
81: IF p_struc_type = 'WORKPLAN'
82: THEN
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: rollback to create_dflt_structure;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
244: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
245: p_error_text => SUBSTRB(SQLERRM,1,240));
246: rollback to create_dflt_structure;
247: raise;
373: l_dummy_char VARCHAR2(1);
374: BEGIN
375:
376: --Clear Error Messages.
377: IF FND_MSG_PUB.count_msg = 0
378: THEN
379: FND_MSG_PUB.initialize;
380: END IF;
381:
375:
376: --Clear Error Messages.
377: IF FND_MSG_PUB.count_msg = 0
378: THEN
379: FND_MSG_PUB.initialize;
380: END IF;
381:
382:
383: savepoint create_dflt_task_struc;
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: rollback to create_dflt_task_struc;
589: WHEN OTHERS THEN
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
592: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
593: p_error_text => SUBSTRB(SQLERRM,1,240));
594: rollback to create_dflt_task_struc;
595: raise;
1035:
1036: BEGIN
1037:
1038: --Clear Error Messages.
1039: IF FND_MSG_PUB.count_msg = 0
1040: THEN
1041: FND_MSG_PUB.initialize;
1042: END IF;
1043:
1037:
1038: --Clear Error Messages.
1039: IF FND_MSG_PUB.count_msg = 0
1040: THEN
1041: FND_MSG_PUB.initialize;
1042: END IF;
1043:
1044: SAVEPOINT create_task_struc;
1045:
1278:
1279: /* New Code End for Bug 2736392 */
1280:
1281: ---The following code is added to prevent message list re-initialization if there are any messages already on stack.
1282: IF p_calling_module = 'AMG' AND FND_MSG_PUB.count_msg > 0
1283: THEN
1284: l_init_msg_list := 'F';
1285: ELSE
1286: l_init_msg_list := 'T';
1916: --end if;
1917:
1918: IF l_validate_status = 'N'
1919: THEN
1920: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1921: THEN
1922: pa_interface_utils_pub.map_new_amg_msg
1923: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
1924: ,p_msg_attribute => 'CHANGE'
2086: x_msg_data => l_msg_data
2087: );
2088: exception
2089: when others then
2090: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2091: p_procedure_name => 'CREATE_PROJECT',
2092: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
2093: raise fnd_api.g_exc_error;
2094: end;
2106: ,x_msg_data => l_msg_data
2107: );
2108: exception
2109: when others then
2110: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2111: p_procedure_name => 'CREATE_PROJECT',
2112: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
2113: raise fnd_api.g_exc_error;
2114: end;
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: rollback to create_task_struc;
2124: WHEN OTHERS THEN
2125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2126: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2127: p_procedure_name => 'create_task_structure',
2128: p_error_text => SUBSTRB(SQLERRM,1,240));
2129: rollback to create_task_struc;
2130: raise;
2532: -- 7358214
2533: BEGIN
2534:
2535: --Clear Error Messages.
2536: IF FND_MSG_PUB.count_msg = 0
2537: THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540:
2534:
2535: --Clear Error Messages.
2536: IF FND_MSG_PUB.count_msg = 0
2537: THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540:
2541: SAVEPOINT update_task_struc;
2542:
2551: FETCH cur_rec_ver_num INTO l_record_version_number;
2552: CLOSE cur_rec_ver_num;
2553:
2554: ---The following code is added to prevent message list re-initialization if there are any messages already on stack.
2555: IF p_calling_module = 'AMG' AND FND_MSG_PUB.count_msg > 0
2556: THEN
2557: l_init_msg_list := 'F';
2558: ELSE
2559: l_init_msg_list := 'T';
3178: --end if;
3179:
3180: IF l_validate_status = 'N'
3181: THEN
3182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3183: THEN
3184: pa_interface_utils_pub.map_new_amg_msg
3185: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
3186: ,p_msg_attribute => 'CHANGE'
3362: x_msg_data => l_msg_data
3363: );
3364: exception
3365: when others then
3366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3367: p_procedure_name => 'CREATE_PROJECT',
3368: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
3369: raise fnd_api.g_exc_error;
3370: end;
3421: ,x_msg_data => l_msg_data
3422: );
3423: exception
3424: when others then
3425: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3426: p_procedure_name => 'CREATE_PROJECT',
3427: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
3428: raise fnd_api.g_exc_error;
3429: end;
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: rollback to update_task_struc;
3469: WHEN OTHERS THEN
3470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3472: p_procedure_name => 'update_task_structure',
3473: p_error_text => SUBSTRB(SQLERRM,1,240));
3474: rollback to update_task_struc;
3475: raise;
3543:
3544: BEGIN
3545:
3546: --Clear Error Messages.
3547: IF FND_MSG_PUB.count_msg = 0
3548: THEN
3549: FND_MSG_PUB.initialize;
3550: END IF;
3551:
3545:
3546: --Clear Error Messages.
3547: IF FND_MSG_PUB.count_msg = 0
3548: THEN
3549: FND_MSG_PUB.initialize;
3550: END IF;
3551:
3552: SAVEPOINT delete_task_struc;
3553:
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3613: rollback to delete_task_struc;
3614: WHEN OTHERS THEN
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3616: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3617: p_procedure_name => 'delete_task_structure',
3618: p_error_text => SUBSTRB(SQLERRM,1,240));
3619: rollback to delete_task_struc;
3620: raise;
3679:
3680: BEGIN
3681:
3682: --Clear Error Messages.
3683: IF FND_MSG_PUB.count_msg = 0
3684: THEN
3685: FND_MSG_PUB.initialize;
3686: END IF;
3687:
3681:
3682: --Clear Error Messages.
3683: IF FND_MSG_PUB.count_msg = 0
3684: THEN
3685: FND_MSG_PUB.initialize;
3686: END IF;
3687:
3688: SAVEPOINT delete_project_struc;
3689:
3764: EXCEPTION
3765:
3766: WHEN OTHERS THEN
3767:
3768: fnd_msg_pub.add_exc_msg(
3769: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3770: p_procedure_name => 'delete_project_structure',
3771: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3772:
3788: x_return_status := FND_API.G_RET_STS_ERROR;
3789: rollback to delete_project_struc;
3790: WHEN OTHERS THEN
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3793: p_procedure_name => 'delete_project_structure',
3794: p_error_text => SUBSTRB(SQLERRM,1,240));
3795: rollback to delete_project_struc;
3796: raise;
4026: l_name VARCHAR2(240);
4027: BEGIN
4028:
4029: --Clear Error Messages.
4030: IF FND_MSG_PUB.count_msg = 0
4031: THEN
4032: FND_MSG_PUB.initialize;
4033: END IF;
4034:
4028:
4029: --Clear Error Messages.
4030: IF FND_MSG_PUB.count_msg = 0
4031: THEN
4032: FND_MSG_PUB.initialize;
4033: END IF;
4034:
4035: SAVEPOINT create_delete_wp_struc;
4036:
4096: ,x_msg_data => l_msg_data
4097: ,x_return_status => l_return_status
4098: );
4099:
4100: l_msg_count := FND_MSG_PUB.count_msg;
4101: if l_msg_count > 0 then
4102: x_msg_count := l_msg_count;
4103: if x_msg_count = 1 then
4104: pa_interface_utils_pub.get_messages
4126: ,x_msg_count => l_msg_count
4127: ,x_msg_data => l_msg_data
4128: );
4129:
4130: l_msg_count := FND_MSG_PUB.count_msg;
4131: if l_msg_count > 0 then
4132: x_msg_count := l_msg_count;
4133: if x_msg_count = 1 then
4134: pa_interface_utils_pub.get_messages
4222: x_return_status := FND_API.G_RET_STS_ERROR;
4223: rollback to create_delete_wp_struc;
4224: WHEN OTHERS THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4227: p_procedure_name => 'create_delete_workplan_struc',
4228: p_error_text => SUBSTRB(SQLERRM,1,240));
4229: rollback to create_delete_wp_struc;
4230: raise;
4270:
4271: BEGIN
4272:
4273: --Clear Error Messages.
4274: IF FND_MSG_PUB.count_msg = 0
4275: THEN
4276: FND_MSG_PUB.initialize;
4277: END IF;
4278:
4272:
4273: --Clear Error Messages.
4274: IF FND_MSG_PUB.count_msg = 0
4275: THEN
4276: FND_MSG_PUB.initialize;
4277: END IF;
4278:
4279: SAVEPOINT cp_struc;
4280: --bug 2805602
4339: END IF;
4340: --bug 2805602
4341:
4342:
4343: l_msg_count := FND_MSG_PUB.count_msg;
4344: if l_msg_count > 0 then
4345: x_msg_count := l_msg_count;
4346: if x_msg_count = 1 then
4347: pa_interface_utils_pub.get_messages
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363: rollback to cp_struc;
4364: WHEN OTHERS THEN
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4367: p_procedure_name => 'Copy_Structure',
4368: p_error_text => SUBSTRB(SQLERRM,1,240));
4369: rollback to cp_struc;
4370: raise;
4423: l_cur_pa_proj_elem_vers_rec cur_pa_proj_elem_vers%ROWTYPE;
4424: BEGIN
4425:
4426: --Clear Error Messages.
4427: IF FND_MSG_PUB.count_msg = 0
4428: THEN
4429: FND_MSG_PUB.initialize;
4430: END IF;
4431:
4425:
4426: --Clear Error Messages.
4427: IF FND_MSG_PUB.count_msg = 0
4428: THEN
4429: FND_MSG_PUB.initialize;
4430: END IF;
4431:
4432: SAVEPOINT clean_struc;
4433:
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457: rollback to clean_struc;
4458: WHEN OTHERS THEN
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4461: p_procedure_name => 'Clean_unwanted_tasks',
4462: p_error_text => SUBSTRB(SQLERRM,1,240));
4463: rollback to clean_struc;
4464: raise;
4746: l_current_working_ver_flag VARCHAR2(1); /* FPM bug 3301192 */
4747: 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. */
4748: BEGIN
4749:
4750: IF FND_MSG_PUB.count_msg = 0
4751: THEN
4752: FND_MSG_PUB.initialize;
4753: END IF;
4754: --check if the project have any structures
4748: BEGIN
4749:
4750: IF FND_MSG_PUB.count_msg = 0
4751: THEN
4752: FND_MSG_PUB.initialize;
4753: END IF;
4754: --check if the project have any structures
4755: PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Type_Exists(
4756: p_project_id,
4767: -- processing.
4768: IF l_error_message_code <> 'PA_PS_STRUC_TYPE_EXISTS' THEN
4769: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4770: x_msg_data := l_error_message_code ; -- Bug3044915
4771: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4772: ELSE
4773: x_return_status := FND_API.G_RET_STS_SUCCESS;
4774: x_msg_data := NULL;
4775: x_msg_count := NULL;
4926: END IF;
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: EXCEPTION
4929: WHEN FND_API.G_EXC_ERROR THEN
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4935: p_procedure_name => 'CREATE_STRUCTURE',
4936: p_error_text => SUBSTRB(SQLERRM,1,240));
4937: raise;
4938: END create_structure;
5018:
5019: l_current_working_ver_flag VARCHAR2(1); /* FPM bug 3301192 */
5020: BEGIN
5021:
5022: IF FND_MSG_PUB.count_msg = 0
5023: THEN
5024: FND_MSG_PUB.initialize;
5025: END IF;
5026:
5020: BEGIN
5021:
5022: IF FND_MSG_PUB.count_msg = 0
5023: THEN
5024: FND_MSG_PUB.initialize;
5025: END IF;
5026:
5027: IF (p_structure_version_name IS NOT NULL) AND
5028: (p_structure_version_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
5340: ,x_Msg_data => l_msg_data
5341: );
5342: EXCEPTION
5343: WHEN OTHERS THEN
5344: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5345: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5346: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5347: raise fnd_api.g_exc_error;
5348: END;
5377: END IF;
5378: END IF;
5379: EXCEPTION
5380: WHEN FND_API.G_EXC_ERROR THEN
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5385: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5385: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5386: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5387: p_error_text => SUBSTRB(SQLERRM,1,240));
5388: END create_update_struct_ver;
5389:
5891: then
5892: 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)
5893: then
5894: --Cursor is deliberately used here, because we dont want to populate message in global error stack, in case new tasks
5895: --are being added. At many places in update_task flow, error is raised based on fnd_msg_pub.count > 0
5896: --If NO_DATA_FOUND occurs for this cursor, it will pass without error.
5897: OPEN cur_get_existing_task_id(p_project_id,p_tasks_in(i).pm_task_reference);
5898: FETCH cur_get_existing_task_id into l_pa_task_id;
5899: --Added by rtarway for BUG 4320731
5938: , p_return_status => l_return_status );
5939:
5940: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5941: THEN
5942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5943: THEN
5944: pa_interface_utils_pub.map_new_amg_msg
5945: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
5946: ,p_msg_attribute => 'CHANGE'
5975: and p_tasks_in(i-1).pm_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
5976: then
5977: --get the task id from reference
5978: --Cursor is deliberately used here, because we dont want to populate message in global error stack, in case new tasks
5979: --are being added. At many places in update_task flow, error is raised based on fnd_msg_pub.count > 0
5980: --If NO_DATA_FOUND occurs for this cursor, it will pass without error.
5981: OPEN cur_get_existing_task_id(p_project_id,p_tasks_in(i-1).pm_task_reference);
5982: FETCH cur_get_existing_task_id into v_ref_task_id;
5983: CLOSE cur_get_existing_task_id;
6123: x_msg_count => l_msg_count,
6124: x_msg_data => l_msg_data);
6125:
6126: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6127: x_msg_count := FND_MSG_PUB.count_msg;
6128: if x_msg_count = 1 then
6129: pa_interface_utils_pub.get_messages
6130: (p_encoded => FND_API.G_TRUE,
6131: p_msg_index => 1,
6148: ,x_msg_count => l_msg_count
6149: ,x_msg_data => l_msg_data );
6150:
6151: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6152: x_msg_count := FND_MSG_PUB.count_msg;
6153: x_return_status := l_return_status ; --bug 3044915
6154: if x_msg_count = 1 then
6155: pa_interface_utils_pub.get_messages
6156: (p_encoded => FND_API.G_TRUE,
6207: x_msg_count => l_msg_count,
6208: x_msg_data => l_msg_data);
6209:
6210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6211: x_msg_count := FND_MSG_PUB.count_msg;
6212: if x_msg_count = 1 then
6213: pa_interface_utils_pub.get_messages
6214: (p_encoded => FND_API.G_TRUE,
6215: p_msg_index => 1,
6233: ,x_msg_count => l_msg_count
6234: ,x_msg_data => l_msg_data );
6235:
6236: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6237: x_msg_count := FND_MSG_PUB.count_msg;
6238: x_return_status := l_return_status ; --bug 3044915
6239: if x_msg_count = 1 then
6240: pa_interface_utils_pub.get_messages
6241: (p_encoded => FND_API.G_TRUE,
6411: SAVEPOINT copy_src_fin_ver;
6412: END IF;
6413:
6414: IF p_init_msg_list = FND_API.G_TRUE THEN
6415: FND_MSG_PUB.initialize;
6416: END IF;
6417:
6418: IF l_debug_mode = 'Y' THEN
6419: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_version',
6686: IF p_commit = FND_API.G_TRUE THEN
6687: ROLLBACK TO copy_src_fin_ver;
6688: END IF;
6689:
6690: Fnd_Msg_Pub.add_exc_msg
6691: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6692: , p_procedure_name => 'copy_src_financial_version'
6693: , p_error_text => x_msg_data);
6694:
6708: IF p_commit = FND_API.G_TRUE THEN
6709: ROLLBACK TO copy_src_fin_ver;
6710: END IF;
6711:
6712: Fnd_Msg_Pub.add_exc_msg
6713: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
6714: , p_procedure_name => 'copy_src_financial_version'
6715: , p_error_text => x_msg_data);
6716:
6915: SAVEPOINT copy_src_fin_ver_tasks;
6916: END IF;
6917:
6918: IF p_init_msg_list = FND_API.G_TRUE THEN
6919: FND_MSG_PUB.initialize;
6920: END IF;
6921:
6922: IF l_debug_mode = 'Y' THEN
6923: PA_DEBUG.set_curr_function( p_function => 'copy_src_financial_ver_tasks',
7519: IF p_commit = FND_API.G_TRUE THEN
7520: ROLLBACK TO copy_src_fin_ver_tasks;
7521: END IF;
7522:
7523: Fnd_Msg_Pub.add_exc_msg
7524: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7525: , p_procedure_name => 'copy_src_financial_ver_tasks'
7526: , p_error_text => x_msg_data);
7527:
7541: IF p_commit = FND_API.G_TRUE THEN
7542: ROLLBACK TO copy_src_fin_ver_tasks;
7543: END IF;
7544:
7545: Fnd_Msg_Pub.add_exc_msg
7546: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
7547: , p_procedure_name => 'copy_src_financial_ver_tasks'
7548: , p_error_text => x_msg_data);
7549:
7913: SAVEPOINT copy_struc_tasks_bulk;
7914: END IF;
7915:
7916: IF p_init_msg_list = FND_API.G_TRUE THEN
7917: FND_MSG_PUB.initialize;
7918: END IF;
7919:
7920: IF l_debug_mode = 'Y' THEN
7921: PA_DEBUG.set_curr_function( p_function => 'copy_structures_tasks_bulk',
9711: , x_msg_count => l_msg_count
9712: , x_msg_data => l_msg_data );
9713:
9714: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9715: x_msg_count := FND_MSG_PUB.count_msg;
9716: IF x_msg_count = 1 THEN
9717: x_msg_data := l_msg_data;
9718: END IF;
9719: RAISE FND_API.G_EXC_ERROR;
9738: ,x_msg_data => l_msg_data
9739: );
9740:
9741: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9742: x_msg_count := FND_MSG_PUB.count_msg;
9743: IF x_msg_count = 1 THEN
9744: x_msg_data := l_msg_data;
9745: END IF;
9746: RAISE FND_API.G_EXC_ERROR;
9761: ,x_msg_count => l_msg_count
9762: ,x_msg_data => l_msg_data
9763: );
9764: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9765: x_msg_count := FND_MSG_PUB.count_msg;
9766: IF x_msg_count = 1 THEN
9767: x_msg_data := l_msg_data;
9768: END IF;
9769: RAISE FND_API.G_EXC_ERROR;
9897: ,x_msg_count => l_msg_count
9898: ,x_msg_data => l_msg_data
9899: );
9900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9901: x_msg_count := FND_MSG_PUB.count_msg;
9902: IF x_msg_count = 1 THEN
9903: x_msg_data := l_msg_data;
9904: END IF;
9905: RAISE FND_API.G_EXC_ERROR;
9932: ,x_msg_data => l_msg_data
9933: );
9934:
9935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9936: x_msg_count := FND_MSG_PUB.count_msg;
9937: IF x_msg_count = 1 THEN
9938: x_msg_data := l_msg_data;
9939: END IF;
9940: RAISE FND_API.G_EXC_ERROR;
9962: ,x_msg_count => l_msg_count
9963: ,x_msg_data => l_msg_data
9964: );
9965: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9966: x_msg_count := FND_MSG_PUB.count_msg;
9967: IF x_msg_count = 1 THEN
9968: x_msg_data := l_msg_data;
9969: END IF;
9970: RAISE FND_API.G_EXC_ERROR;
10168: x_msg_data => l_msg_data
10169: );
10170:
10171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10172: x_msg_count := FND_MSG_PUB.count_msg;
10173: IF x_msg_count = 1 THEN
10174: x_msg_data := l_msg_data;
10175: END IF;
10176: RAISE FND_API.G_EXC_ERROR;
10422: IF p_commit = FND_API.G_TRUE THEN
10423: ROLLBACK TO copy_struc_tasks_bulk;
10424: END IF;
10425:
10426: l_msg_count := Fnd_Msg_Pub.count_msg;
10427: IF l_msg_count = 1 AND x_msg_data IS NULL
10428: THEN
10429: Pa_Interface_Utils_Pub.get_messages
10430: ( p_encoded => Fnd_Api.G_FALSE
10451: IF p_commit = FND_API.G_TRUE THEN
10452: ROLLBACK TO copy_struc_tasks_bulk;
10453: END IF;
10454:
10455: Fnd_Msg_Pub.add_exc_msg
10456: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
10457: , p_procedure_name => 'copy_structures_tasks_bulk'
10458: , p_error_text => x_msg_data);
10459:
10473: IF p_commit = FND_API.G_TRUE THEN
10474: ROLLBACK TO copy_struc_tasks_bulk;
10475: END IF;
10476:
10477: Fnd_Msg_Pub.add_exc_msg
10478: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
10479: , p_procedure_name => 'copy_structures_tasks_bulk'
10480: , p_error_text => x_msg_data);
10481:
12846: x_msg_data => l_msg_data
12847: );
12848:
12849: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12850: x_msg_count := FND_MSG_PUB.count_msg;
12851: if x_msg_count = 1 then
12852: x_msg_data := l_msg_data;
12853: end if;
12854: raise FND_API.G_EXC_ERROR;
12891: ,x_Msg_data => x_msg_data
12892: );
12893: EXCEPTION
12894: WHEN OTHERS THEN
12895: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
12896: p_procedure_name => 'copy_structures_bulk',
12897: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
12898: RAISE FND_API.G_EXC_ERROR;
12899: END;
12982: ,x_msg_count => l_msg_count
12983: ,x_msg_data => l_msg_data);
12984:
12985: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12986: x_msg_count := FND_MSG_PUB.count_msg;
12987: if x_msg_count = 1 then
12988: x_msg_data := l_msg_data;
12989: end if;
12990: raise FND_API.G_EXC_ERROR;
13005: ,x_msg_count => l_msg_count
13006: ,x_msg_data => l_msg_data);
13007:
13008: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13009: x_msg_count := FND_MSG_PUB.count_msg;
13010: if x_msg_count = 1 then
13011: x_msg_data := l_msg_data;
13012: end if;
13013: raise FND_API.G_EXC_ERROR;
13027: ,x_msg_count => l_msg_count
13028: ,x_msg_data => l_msg_data);
13029:
13030: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13031: x_msg_count := FND_MSG_PUB.count_msg;
13032: if x_msg_count = 1 then
13033: x_msg_data := l_msg_data;
13034: end if;
13035: raise FND_API.G_EXC_ERROR;
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13063: p_procedure_name => 'copy_structures_bulk',
13064: p_error_text => SUBSTRB(SQLERRM,1,240));
13065: when OTHERS then
13066: if p_commit = FND_API.G_TRUE then
13066: if p_commit = FND_API.G_TRUE then
13067: rollback to copy_structure_bulk_pvt;
13068: end if;
13069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13070: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13071: p_procedure_name => 'copy_structures_bulk',
13072: p_error_text => SUBSTRB(SQLERRM,1,240));
13073: raise;
13074: END copy_structures_bulk;
13231: ,x_msg_count => l_msg_count
13232: ,x_msg_data => l_msg_data);
13233:
13234: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13235: x_msg_count := FND_MSG_PUB.count_msg;
13236: x_return_status := l_return_status ; -- Bug 3044915
13237: if x_msg_count = 1 then
13238: pa_interface_utils_pub.get_messages
13239: (p_encoded => FND_API.G_TRUE,
13675: SAVEPOINT process_task_struc;
13676: END IF;
13677:
13678: IF p_init_msg_list = FND_API.G_TRUE THEN
13679: FND_MSG_PUB.initialize;
13680: END IF;
13681:
13682: x_msg_count := 0;
13683: x_return_status := FND_API.G_RET_STS_SUCCESS;
13801: PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => p_project_id
13802: ,p_structure_type => p_structure_type );
13803: IF nvl(l_process_code,'-1') = 'WUP' THEN
13804:
13805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13806: THEN
13807: --Commented out as there is no message defined for amg corresponding to PA_PS_VD_UPDWBS_PRC_INPROC
13808: --pa_interface_utils_pub.map_new_amg_msg
13809: -- ( p_old_message_code => 'PA_PS_VD_UPDWBS_PRC_INPROC'
13828: raise Invalid_Arg_Exc_WP;
13829: END IF ;
13830: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
13831:
13832: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13833: THEN
13834: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => p_project_id --Bug 3091798
13835: ,p_structure_type => p_structure_type );
13836:
14236: THEN
14237: IF l_task_in_rec.pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR OR
14238: l_task_in_rec.pm_task_reference IS NULL
14239: THEN
14240: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14241: THEN
14242: pa_interface_utils_pub.map_new_amg_msg
14243: ( p_old_message_code => 'PA_TASK_REF_AND_ID_MISSING'
14244: ,p_msg_attribute => 'CHANGE'
14311: -- is checked in add_task_round_one API.
14312: IF l_task_in_rec.pm_task_reference IS NULL
14313: OR l_task_in_rec.pm_task_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14314: THEN
14315: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14316: THEN
14317: pa_interface_utils_pub.map_new_amg_msg
14318: ( p_old_message_code => 'PA_TASK_REF_IS_NULL'
14319: ,p_msg_attribute => 'CHANGE'
14334: IF l_task_in_rec.task_name IS NULL
14335: OR l_task_in_rec.task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
14336: THEN
14337:
14338: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14339: THEN
14340: pa_interface_utils_pub.map_new_amg_msg
14341: ( p_old_message_code => 'PA_TASK_NAME_IS_NULL'
14342: ,p_msg_attribute => 'CHANGE'
14446:
14447: px_tasks_out_tbl(i).return_status := x_return_status;
14448: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14449: THEN
14450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14451: THEN
14452: pa_interface_utils_pub.map_new_amg_msg
14453: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
14454: ,p_msg_attribute => 'CHANGE'
14584:
14585: px_tasks_out_tbl(i).return_status := x_return_status;
14586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14587: THEN
14588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14589: THEN
14590: pa_interface_utils_pub.map_new_amg_msg
14591: ( p_old_message_code => 'PA_PARENT_TASK_MISSING'
14592: ,p_msg_attribute => 'CHANGE'
15363: );
15364:
15365: IF l_validate_status = 'N'
15366: THEN
15367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15368: THEN
15369: pa_interface_utils_pub.map_new_amg_msg
15370: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
15371: ,p_msg_attribute => 'CHANGE'
15533: );
15534:
15535: IF l_validate_status = 'N'
15536: THEN
15537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
15538: THEN
15539: pa_interface_utils_pub.map_new_amg_msg
15540: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
15541: ,p_msg_attribute => 'CHANGE'
16261: );
16262:
16263: EXCEPTION
16264: WHEN OTHERS THEN
16265: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16266: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16267: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16268: raise fnd_api.g_exc_error;
16269: END;
16268: raise fnd_api.g_exc_error;
16269: END;
16270:
16271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16272: x_msg_count := FND_MSG_PUB.count_msg;
16273: raise fnd_api.g_exc_error;
16274: END IF;
16275: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16276: l_add_task_ver_ids.delete;
16842: ,x_msg_data => l_msg_data
16843: );
16844: EXCEPTION
16845: WHEN OTHERS THEN
16846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16847: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16848: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16849: raise fnd_api.g_exc_error;
16850: END;
16849: raise fnd_api.g_exc_error;
16850: END;
16851:
16852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16853: x_msg_count := FND_MSG_PUB.count_msg;
16854: raise fnd_api.g_exc_error;
16855: END IF;
16856: END IF; -- l_add_task_ver_ids.exists(1) THEN
16857:
16980: ,x_msg_data => l_msg_data
16981: );
16982: EXCEPTION
16983: WHEN OTHERS THEN
16984: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16985: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16986: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
16987: raise fnd_api.g_exc_error;
16988: END;
16987: raise fnd_api.g_exc_error;
16988: END;
16989:
16990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16991: x_msg_count := FND_MSG_PUB.count_msg;
16992: raise fnd_api.g_exc_error;
16993: END IF;
16994: END IF; -- l_del_task_ver_ids.exists(1) THEN
16995: l_del_task_ver_ids.delete;
17013: ,x_msg_data => l_msg_data
17014: );
17015: EXCEPTION
17016: WHEN OTHERS THEN
17017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17018: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17019: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17020: raise fnd_api.g_exc_error;
17021: END;
17020: raise fnd_api.g_exc_error;
17021: END;
17022:
17023: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17024: x_msg_count := FND_MSG_PUB.count_msg;
17025: raise fnd_api.g_exc_error;
17026: END IF;
17027: END IF; -- l_del_task_ver_ids.exists(1) THEN
17028: END IF; --((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' )
17087: -- null;--BUG 3802469, rtarway
17088: -- end if;
17089: -- exception
17090: -- when others then
17091: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17092: -- p_procedure_name => 'CREATE_PROJECT',
17093: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17094: -- raise fnd_api.g_exc_error;
17095: -- end;
17114: -- null;
17115: -- end if;
17116: -- exception
17117: -- when others then
17118: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17119: -- p_procedure_name => 'CREATE_PROJECT',
17120: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17121: -- raise fnd_api.g_exc_error;
17122: -- end;
17175: -- null;
17176: -- end if;
17177: -- exception
17178: -- when others then
17179: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17180: -- p_procedure_name => 'CREATE_PROJECT',
17181: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17182: -- raise fnd_api.g_exc_error;
17183: -- end;
17201: -- null;
17202: -- end if;
17203: -- exception
17204: -- when others then
17205: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17206: -- p_procedure_name => 'CREATE_PROJECT',
17207: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17208: -- raise fnd_api.g_exc_error;
17209: -- end;
17230: l_debug_level4);
17231: END IF;
17232:
17233: x_return_status := FND_API.G_RET_STS_ERROR;
17234: l_msg_count := FND_MSG_PUB.count_msg;
17235:
17236: -- IF cur_auto_pub_flag%ISOPEN THEN
17237: -- CLOSE cur_auto_pub_flag;
17238: -- END IF;
17360: IF cur_all_task_ver_id%ISOPEN THEN
17361: CLOSE cur_all_task_ver_id;
17362: END IF;
17363:
17364: FND_MSG_PUB.add_exc_msg
17365: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
17366: ,p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK'
17367: ,p_error_text => x_msg_data
17368: );
17434: , x_msg_data => l_msg_data
17435: , x_msg_count => l_msg_count
17436: );
17437:
17438: l_msg_count := FND_MSG_PUB.count_msg;
17439: if l_msg_count > 0 then
17440: x_msg_count := l_msg_count;
17441: if x_msg_count = 1 then
17442: pa_interface_utils_pub.get_messages
17458: x_return_status := FND_API.G_RET_STS_ERROR;
17459: rollback to plan_tasks;
17460: WHEN OTHERS THEN
17461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17462: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
17463: p_procedure_name => 'delete_fin_plan_from_task',
17464: p_error_text => SUBSTRB(SQLERRM,1,240));
17465: rollback to plan_tasks;
17466: raise;
17540: END IF;
17541: --Bug# 5973460
17542:
17543: IF p_init_msg_list = FND_API.G_TRUE THEN
17544: FND_MSG_PUB.initialize;
17545: END IF;
17546:
17547: x_msg_count := 0;
17548: x_return_status := FND_API.G_RET_STS_SUCCESS;
17681:
17682: WHEN Invalid_Arg_Exc_WP THEN
17683:
17684: x_return_status := FND_API.G_RET_STS_ERROR;
17685: l_msg_count := FND_MSG_PUB.count_msg;
17686:
17687: IF cur_task_count%ISOPEN THEN
17688: CLOSE cur_task_count;
17689: END IF;
17716: IF cur_task_count%ISOPEN THEN
17717: CLOSE cur_task_count;
17718: END IF;
17719:
17720: FND_MSG_PUB.add_exc_msg
17721: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
17722: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
17723: ,p_error_text => x_msg_data);
17724:
17821: -- 4683461 Done
17822:
17823: BEGIN
17824: IF p_init_msg_list = FND_API.G_TRUE THEN
17825: FND_MSG_PUB.initialize;
17826: END IF;
17827:
17828: x_msg_count := 0;
17829: x_return_status := FND_API.G_RET_STS_SUCCESS;
18060:
18061: WHEN Invalid_Arg_Exc_WP THEN
18062:
18063: x_return_status := FND_API.G_RET_STS_ERROR;
18064: l_msg_count := FND_MSG_PUB.count_msg;
18065:
18066: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18067: PA_INTERFACE_UTILS_PUB.get_messages
18068: (p_encoded => FND_API.G_TRUE
18087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18088: x_msg_count := 1;
18089: x_msg_data := SQLERRM;
18090:
18091: FND_MSG_PUB.add_exc_msg
18092: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18093: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC_WRP'
18094: ,p_error_text => x_msg_data);
18095:
18242: EXCEPTION
18243:
18244: WHEN Invalid_Arg_Exc_WP THEN
18245:
18246: l_msg_count := FND_MSG_PUB.count_msg;
18247: retcode := '2';
18248:
18249: IF l_msg_count >= 1 THEN
18250: PA_INTERFACE_UTILS_PUB.get_messages
18336:
18337: retcode := '2';
18338: errbuf := SQLERRM;
18339:
18340: FND_MSG_PUB.add_exc_msg
18341: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
18342: ,p_procedure_name => 'PROCESS_WBS_UPDATES_CONC'
18343: ,p_error_text => errbuf);
18344:
18573: savepoint process_wbs_updates;
18574: END IF;
18575:
18576: IF p_init_msg_list = FND_API.G_TRUE THEN
18577: FND_MSG_PUB.initialize;
18578: END IF;
18579:
18580: x_msg_count := 0;
18581: x_return_status := FND_API.G_RET_STS_SUCCESS;
18749: 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);
18750: END IF;
18751: EXCEPTION
18752: WHEN OTHERS THEN
18753: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
18754: p_procedure_name => 'PROCESS_WBS_UDPATES',
18755: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
18756: RAISE Invalid_Arg_Exc_WP;
18757: END;
19019: END IF;
19020:
19021: EXCEPTION
19022: WHEN OTHERS THEN
19023: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19024: p_procedure_name => 'PROCESS_WBS_UPDATES',
19025: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed for PUBLISH Mode for working '||
19026: 'verison: SQLERRM='||SQLERRM,1,120));
19027: RAISE Invalid_Arg_Exc_WP;
19044: END IF;
19045: 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.
19046: EXCEPTION
19047: WHEN OTHERS THEN
19048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19049: p_procedure_name => 'PROCESS_WBS_UPDATES',
19050: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in PUBLISH mode for'||
19051: ' working verison:SQLERRM='||SQLERRM,1,120));
19052: RAISE Invalid_Arg_Exc_WP;
19223:
19224: EXCEPTION
19225: WHEN OTHERS THEN
19226: PA_TASK_ASSIGNMENT_UTILS.g_process_flow := null; -- 4646016
19227: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19228: p_procedure_name => 'PROCESS_WBS_UDPATES',
19229: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
19230: RAISE Invalid_Arg_Exc_WP;
19231: END;
19284: ,p_structure_version_id => l_pub_ver_id
19285: ,p_calling_mode => 'PUBLISH' );
19286:
19287: IF l_debug_mode = 'Y' THEN
19288: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19290: END IF;
19291: -- Fix for Bug # 4513291. Added below Exception handling
19292: x_msg_count := FND_MSG_PUB.count_msg;
19288: pa_debug.g_err_stage:= 'After import_task FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19289: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19290: END IF;
19291: -- Fix for Bug # 4513291. Added below Exception handling
19292: x_msg_count := FND_MSG_PUB.count_msg;
19293: IF x_msg_count > 0 THEN
19294: raise Invalid_Arg_Exc_WP;
19295: END IF;
19296:
19323: ,x_msg_data => l_i_msg_data
19324: ,x_return_status => l_i_return_status);
19325:
19326: IF l_debug_mode = 'Y' THEN
19327: pa_debug.g_err_stage:= 'After import_project FND_MSG_PUB.count_msg='|| FND_MSG_PUB.count_msg;
19328: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level3);
19329: pa_debug.write(G_PKG_NAME,'l_i_return_status='||l_i_return_status,l_debug_level3);
19330: -- Fix for Bug # 4513291.
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19331: pa_debug.write(G_PKG_NAME,'l_i_msg_count='||l_i_msg_count,l_debug_level3);
19332: -- Fix for Bug # 4513291.
19333: END IF;
19334:
19335: l_msg_count := FND_MSG_PUB.count_msg;
19336: --IF l_msg_count > 0 THEN -- Fix for Bug # 4513291.
19337: IF l_msg_count > 0 OR l_i_return_status <> 'S' OR l_i_msg_count > 0 THEN -- Fix for Bug # 4513291.
19338: x_msg_count := l_msg_count;
19339: raise Invalid_Arg_Exc_WP;
19478: END IF;
19479:
19480: EXCEPTION
19481: WHEN OTHERS THEN
19482: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19483: p_procedure_name => 'PROCESS_WBS_UPDATES',
19484: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed for Publish Mode: SQLERRM='||SQLERRM,1,240));
19485: RAISE Invalid_Arg_Exc_WP;
19486: END;
19543: pa_debug.write(G_PKG_NAME, 'After UPDATE_PROJECT_DATES x_return_status='|| x_return_status, 3);
19544: END IF;
19545:
19546: --Check if there is any error.
19547: l_msg_count := FND_MSG_PUB.count_msg;
19548: IF l_msg_count > 0 THEN
19549: x_msg_count := l_msg_count;
19550: IF x_msg_count = 1 THEN
19551: x_msg_data := l_msg_data;
19674: END IF;
19675:
19676: EXCEPTION
19677: WHEN OTHERS THEN
19678: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19679: p_procedure_name => 'PROCESS_WBS_UPDATES',
19680: 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));
19681: RAISE Invalid_Arg_Exc_WP;
19682:
19696: END IF;
19697:
19698: EXCEPTION
19699: WHEN OTHERS THEN
19700: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19701: p_procedure_name => 'PROCESS_WBS_UPDATES',
19702: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE is failed for Publish Mode: SQLERRM='||SQLERRM,1,120));
19703: RAISE Invalid_Arg_Exc_WP;
19704: END;
19937: END IF;
19938:
19939: EXCEPTION
19940: WHEN OTHERS THEN
19941: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19942: p_procedure_name => 'PROCESS_WBS_UPDATES',
19943: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
19944: RAISE Invalid_Arg_Exc_WP;
19945: END;
19970: END IF;
19971:
19972: EXCEPTION
19973: WHEN OTHERS THEN
19974: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19975: p_procedure_name => 'PROCESS_WBS_UPDATES',
19976: 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));
19977: RAISE Invalid_Arg_Exc_WP;
19978:
19991: pa_debug.write(G_PKG_NAME,'After PLAN_UPDATE in UPDATE mode x_return_status='|| x_return_status,l_debug_level3);
19992: END IF;
19993: EXCEPTION
19994: WHEN OTHERS THEN
19995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
19996: p_procedure_name => 'PROCESS_WBS_UPDATES',
19997: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed in Update mode:SQLERRM='||SQLERRM,1,120));
19998: RAISE Invalid_Arg_Exc_WP;
19999: END;
20007:
20008: -- Bug 4284444 : Commented the below code
20009: -- EXCEPTION
20010: -- WHEN OTHERS THEN
20011: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20012: -- p_procedure_name => 'PROCESS_WBS_UPDATES',
20013: -- p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT:'||SQLERRM,1,240));
20014: -- RAISE Invalid_Arg_Exc_WP;
20015: -- END;
20059: Raise Invalid_Arg_Exc_WP;
20060: END IF;
20061: EXCEPTION
20062: WHEN OTHERS THEN
20063: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20064: p_procedure_name => 'PROCESS_WBS_UPDATES',
20065: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20066: RAISE FND_API.G_EXC_ERROR;
20067: END;
20218: END IF;
20219:
20220: EXCEPTION
20221: WHEN OTHERS THEN
20222: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20223: p_procedure_name => 'PROCESS_WBS_UPDATES',
20224: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT
20225: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20226: RAISE Invalid_Arg_Exc_WP;
20265:
20266: WHEN Invalid_Arg_Exc_WP THEN
20267:
20268: x_return_status := FND_API.G_RET_STS_ERROR;
20269: l_msg_count := FND_MSG_PUB.count_msg;
20270:
20271: IF cur_structure_type%ISOPEN THEN
20272: CLOSE cur_structure_type;
20273: END IF;
20304: IF cur_structure_type%ISOPEN THEN
20305: CLOSE cur_structure_type;
20306: END IF;
20307:
20308: FND_MSG_PUB.add_exc_msg
20309: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
20310: ,p_procedure_name => 'PROCESS_WBS_UPDATES'
20311: ,p_error_text => x_msg_data);
20312:
20484: savepoint process_task_weightage;
20485: END IF;
20486:
20487: IF p_init_msg_list = FND_API.G_TRUE THEN
20488: FND_MSG_PUB.initialize;
20489: END IF;
20490:
20491: x_msg_count := 0;
20492: x_return_status := FND_API.G_RET_STS_SUCCESS;
20597: END IF;
20598:
20599: EXCEPTION
20600: WHEN OTHERS THEN
20601: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20602: p_procedure_name => 'PROCESS_TASK_WEIGHTAGE',
20603: p_error_text => SUBSTRB('Call of Pa_Fp_wp_gen_amt_utils.get_wp_version_id is failed='||SQLERRM,1,120));
20604: RAISE Invalid_Arg_Exc_WP;
20605:
20814:
20815: WHEN Invalid_Arg_Exc_WP THEN
20816:
20817: x_return_status := FND_API.G_RET_STS_ERROR;
20818: l_msg_count := FND_MSG_PUB.count_msg;
20819:
20820: IF cur_task_info%ISOPEN THEN
20821: CLOSE cur_task_info;
20822: END IF;
20853: IF cur_task_info%ISOPEN THEN
20854: CLOSE cur_task_info;
20855: END IF;
20856:
20857: FND_MSG_PUB.add_exc_msg
20858: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
20859: ,p_procedure_name => 'PROCESS_TASK_WEIGHTAGE'
20860: ,p_error_text => x_msg_data);
20861:
20911: savepoint set_update_wbs_flag;
20912: END IF;
20913:
20914: IF p_init_msg_list = FND_API.G_TRUE THEN
20915: FND_MSG_PUB.initialize;
20916: END IF;
20917:
20918: x_msg_count := 0;
20919: x_return_status := FND_API.G_RET_STS_SUCCESS;
20972:
20973: WHEN Invalid_Arg_Exc_WP THEN
20974:
20975: x_return_status := FND_API.G_RET_STS_ERROR;
20976: l_msg_count := FND_MSG_PUB.count_msg;
20977:
20978: IF l_msg_count = 1 and x_msg_data IS NULL THEN
20979: PA_INTERFACE_UTILS_PUB.get_messages
20980: (p_encoded => FND_API.G_TRUE
21003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21004: x_msg_count := 1;
21005: x_msg_data := SQLERRM;
21006:
21007: FND_MSG_PUB.add_exc_msg
21008: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21009: ,p_procedure_name => 'SET_UPDATE_WBS_FLAG'
21010: ,p_error_text => x_msg_data);
21011:
21068: EXCEPTION
21069: WHEN Invalid_Arg_Exc_WP THEN
21070:
21071: x_return_status := FND_API.G_RET_STS_ERROR;
21072: l_msg_count := FND_MSG_PUB.count_msg;
21073: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21074: PA_INTERFACE_UTILS_PUB.get_messages
21075: (p_encoded => FND_API.G_TRUE
21076: ,p_msg_index => 1
21092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21093: x_msg_count := 1;
21094: x_msg_data := SQLERRM;
21095:
21096: FND_MSG_PUB.add_exc_msg
21097: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21098: ,p_procedure_name => 'PROCESS_WBS_UPDATES_WRP'
21099: ,p_error_text => x_msg_data);
21100:
21269: EXCEPTION
21270: WHEN Invalid_Arg_Exc_WP THEN
21271:
21272: x_return_status := FND_API.G_RET_STS_ERROR;
21273: l_msg_count := FND_MSG_PUB.count_msg;
21274: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21275: PA_INTERFACE_UTILS_PUB.get_messages
21276: (p_encoded => FND_API.G_TRUE
21277: ,p_msg_index => 1
21293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21294: x_msg_count := 1;
21295: x_msg_data := SQLERRM;
21296:
21297: FND_MSG_PUB.add_exc_msg
21298: ( p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB'
21299: ,p_procedure_name => 'CALL_PROCESS_WBS_UPDATES'
21300: ,p_error_text => x_msg_data);
21301:
21375:
21376: BEGIN
21377: --Clear Error Messages.
21378: IF p_init_msg_list = FND_API.G_TRUE THEN
21379: FND_MSG_PUB.initialize;
21380: END IF;
21381:
21382: --set savepoint
21383: IF p_commit = FND_API.G_TRUE THEN
21479: ,x_msg_data => l_msg_data
21480: );
21481:
21482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
21483: x_msg_count := FND_MSG_PUB.count_msg;
21484: if x_msg_count = 1 then
21485: pa_interface_utils_pub.get_messages
21486: (p_encoded => FND_API.G_TRUE,
21487: p_msg_index => 1,
21507: rollback to update_current_phase;
21508: END IF;
21509: WHEN OTHERS THEN
21510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21512: p_procedure_name => 'update_current_phase',
21513: p_error_text => SUBSTRB(SQLERRM,1,240));
21514: IF p_commit = FND_API.G_TRUE THEN
21515: rollback to update_current_phase;
21876: IF (p_commit = FND_API.G_TRUE) THEN
21877: ROLLBACK TO delete_intra_dependency;
21878: END IF;
21879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21880: FND_MSG_PUB.add_exc_msg(
21881: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21882: p_procedure_name => 'delete_intra_dependency',
21883: p_error_text => SUBSTRB(SQLERRM,1,240));
21884: ROLLBACK TO delete_intra_dependency;