[Home] [Help]
717: (p_pm_product_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) and
718: (l_add_task_allowed = 'N') THEN
719: --throw error PA_PR_PM_CANNOT_ADDTASK
720: PA_UTILS.ADD_MESSAGE('PA', 'PA_PR_PM_CANNOT_ADDTASK');
721: l_msg_count := FND_MSG_PUB.count_msg;
722: IF (l_msg_count > 0) THEN
723: x_msg_count := l_msg_count;
724: IF (x_msg_count = 1) THEN
725: pa_interface_utils_pub.get_messages(
776: null;
777: END IF;
778:
779: -- Check if there is any error. Get new Task Id if no error
780: l_msg_count := FND_MSG_PUB.count_msg;
781: IF (l_msg_count > 0) THEN
782: x_msg_count := l_msg_count;
783: IF (x_msg_count = 1) THEN
784: pa_interface_utils_pub.get_messages(
1087: END IF;
1088: CLOSE ref_parent_task;
1089: END IF;
1090:
1091: l_msg_count := FND_MSG_PUB.count_msg; --commented by ansari
1092:
1093: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
1094: --Check Start Date
1095: IF (p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) THEN
1105: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1106: END IF;
1107: END IF;
1108:
1109: l_msg_count := FND_MSG_PUB.count_msg;
1110:
1111: --Check Completion Date
1112: IF (p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) THEN
1113: PA_TASKS_MAINT_UTILS.Check_End_Date(
1123: END IF;
1124: END IF;
1125:
1126:
1127: l_msg_count := FND_MSG_PUB.count_msg;
1128:
1129:
1130:
1131: --Start Commenting by rtarway for BUG 3927343
1150: END IF;*/
1151: -- END IF;
1152:
1153:
1154: --l_msg_count := FND_MSG_PUB.count_msg;
1155:
1156: --Check Estimate Dates
1157: -- IF (p_estimated_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1158: -- p_estimated_start_date IS NULL) AND
1169: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1170: -- END IF;
1171: -- END IF;
1172:
1173: --l_msg_count := FND_MSG_PUB.count_msg;
1174:
1175: --Check Actual Dates
1176: -- IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
1177: -- p_actual_start_date IS NULL) AND
1191: --End Commenting by rtarway for BUG 3927343
1192:
1193: END IF;
1194:
1195: l_msg_count := FND_MSG_PUB.count_msg;
1196: IF (l_msg_count > 0) THEN
1197: x_msg_count := l_msg_count;
1198: IF (x_msg_count = 1) THEN
1199: pa_interface_utils_pub.get_messages(
1819: WHEN FND_API.G_EXC_ERROR THEN
1820: IF (p_commit = FND_API.G_TRUE) THEN
1821: ROLLBACK to CREATE_TASK_PRIVATE;
1822: END IF;
1823: x_msg_count := FND_MSG_PUB.count_msg;
1824: x_return_status := FND_API.G_RET_STS_ERROR;
1825: WHEN OTHERS THEN
1826: IF (p_commit = FND_API.G_TRUE) THEN
1827: ROLLBACK to CREATE_TASK_PRIVATE;
1826: IF (p_commit = FND_API.G_TRUE) THEN
1827: ROLLBACK to CREATE_TASK_PRIVATE;
1828: END IF;
1829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1830: x_msg_count := FND_MSG_PUB.count_msg;
1831: --put message
1832: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1833: p_procedure_name => 'CREATE_TASK',
1834: p_error_text => SUBSTRB(SQLERRM,1,240));
1828: END IF;
1829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1830: x_msg_count := FND_MSG_PUB.count_msg;
1831: --put message
1832: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1833: p_procedure_name => 'CREATE_TASK',
1834: p_error_text => SUBSTRB(SQLERRM,1,240));
1835: RAISE;
1836: END CREATE_TASK;
2343: ELSE
2344: t_pm_product_code := p_pm_product_code;
2345: END IF;
2346:
2347: --l_msg_count := FND_MSG_PUB.count_msg;
2348:
2349:
2350: -- Set controls
2351: IF (p_calling_module in ('SELF_SERVICE')) THEN
2530: p_return_status => l_ret);
2531: IF (l_ret <> 'S') THEN
2532: -- Bug 7386335
2533: -- The API check_start_end_date will log a single error message. Not required to log further.
2534: l_msg_count := FND_MSG_PUB.count_msg;
2535: IF (l_msg_count > 0) THEN
2536: x_msg_count := l_msg_count;
2537: IF (x_msg_count = 1) THEN
2538: pa_interface_utils_pub.get_messages(
2590:
2591: -- Bug 7386335
2592: -- This serves only as a workaround fix. We cannot change the condition IF (x_msg_count = 1) to IF
2593: -- (x_msg_count > 1) since the change will have to be made in all the procedures involved in the flow.
2594: l_msg_count := FND_MSG_PUB.count_msg;
2595: IF (l_msg_count > 0) THEN
2596: x_msg_count := l_msg_count;
2597: IF (x_msg_count = 1) THEN
2598: pa_interface_utils_pub.get_messages(
2729:
2730:
2731: IF (p_parent_task_id IS NOT NULL AND NVL( p_parent_task_id, -1 ) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
2732:
2733: l_msg_count := FND_MSG_PUB.count_msg;
2734:
2735: --dbms_output.put_line( 'In update task 14 '|| l_msg_count);
2736:
2737:
2747: p_return_status => l_ret,
2748: p_msg_count => l_msg_cnt,
2749: p_msg_data => l_msg_data);
2750:
2751: l_msg_count := FND_MSG_PUB.count_msg;
2752:
2753: --dbms_output.put_line( 'In update task 14 --erro msg '|| l_msg_count);
2754:
2755: IF (l_change_parent_flag <> 'Y') THEN
2766: END IF;
2767:
2768: -- Check if there is any error. Get new Task Id if no error
2769:
2770: l_msg_count := FND_MSG_PUB.count_msg;
2771: IF (l_msg_count > 0) THEN
2772: x_msg_count := l_msg_count;
2773: IF (x_msg_count = 1) THEN
2774: pa_interface_utils_pub.get_messages(
3335: WHEN NO_DATA_FOUND THEN
3336: IF (p_commit = FND_API.G_TRUE) THEN
3337: ROLLBACK to UPDATE_TASK_PRIVATE;
3338: END IF;
3339: x_msg_count := FND_MSG_PUB.count_msg;
3340: x_return_status := FND_API.G_RET_STS_ERROR;
3341: WHEN OTHERS THEN
3342: IF (p_commit = FND_API.G_TRUE) THEN
3343: ROLLBACK to UPDATE_TASK_PRIVATE;
3341: WHEN OTHERS THEN
3342: IF (p_commit = FND_API.G_TRUE) THEN
3343: ROLLBACK to UPDATE_TASK_PRIVATE;
3344: END IF;
3345: x_msg_count := FND_MSG_PUB.count_msg;
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: --put message
3348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3349: p_procedure_name => 'UPDATE_TASK',
3344: END IF;
3345: x_msg_count := FND_MSG_PUB.count_msg;
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: --put message
3348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3349: p_procedure_name => 'UPDATE_TASK',
3350: p_error_text => SUBSTRB(SQLERRM,1,240));
3351: RAISE;
3352: END UPDATE_TASK;
3518: WHERE TASK_ID = t_parent_task_id;
3519: END IF;
3520: END IF;
3521:
3522: l_msg_count := FND_MSG_PUB.count_msg;
3523: IF (l_msg_count > 0) then
3524: x_msg_count := l_msg_count;
3525: IF (x_msg_count = 1) then
3526: pa_interface_utils_pub.get_messages
3539: WHEN FND_API.G_EXC_ERROR THEN
3540: IF (p_commit = FND_API.G_TRUE) THEN
3541: ROLLBACK to DELETE_TASK_PRIVATE;
3542: END IF;
3543: x_msg_count := FND_MSG_PUB.count_msg;
3544: x_return_status := FND_API.G_RET_STS_ERROR;
3545: WHEN OTHERS THEN
3546: IF (p_commit = FND_API.G_TRUE) THEN
3547: ROLLBACK to DELETE_TASK_PRIVATE;
3545: WHEN OTHERS THEN
3546: IF (p_commit = FND_API.G_TRUE) THEN
3547: ROLLBACK to DELETE_TASK_PRIVATE;
3548: END IF;
3549: x_msg_count := FND_MSG_PUB.count_msg;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: --put message
3552: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3553: p_procedure_name => 'DELETE_TASK',
3548: END IF;
3549: x_msg_count := FND_MSG_PUB.count_msg;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: --put message
3552: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3553: p_procedure_name => 'DELETE_TASK',
3554: p_error_text => SUBSTRB(SQLERRM,1,240));
3555: RAISE;
3556: END DELETE_TASK;
3722: -- another task
3723: -- 23-JUL-2001
3724: -- Added by HSIU--check if the reference task can have child tasks
3725:
3726: l_msg_count := FND_MSG_PUB.count_msg;
3727:
3728: --dbms_output.put_line( 'Indent Task PVT : Stage 3 '||'Count '||l_msg_count );
3729:
3730: PA_TASK_UTILS.CHECK_CREATE_SUBTASK_OK(x_task_id => l_task_id_above,
3735: IF (l_err_code <> 0) THEN
3736: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
3737: END IF;
3738:
3739: l_msg_count := FND_MSG_PUB.count_msg;
3740:
3741: --dbms_output.put_line( 'Indent Task PVT : Stage 4'||' Count '||l_msg_count );
3742:
3743: -- HSIU changes ends here
3758: ,x_return_status => x_return_status
3759: ,x_msg_count => x_msg_count
3760: ,x_msg_data => x_msg_data );
3761:
3762: l_msg_count := FND_MSG_PUB.count_msg;
3763:
3764: --dbms_output.put_line( 'Indent Task PVT : Stage 5'||' Count '||l_msg_count );
3765:
3766:
3763:
3764: --dbms_output.put_line( 'Indent Task PVT : Stage 5'||' Count '||l_msg_count );
3765:
3766:
3767: l_msg_count := FND_MSG_PUB.count_msg;
3768:
3769: IF l_msg_count > 0 THEN
3770: x_msg_count := l_msg_count;
3771: x_return_status := 'E';
3807: ,x_return_status => x_return_status
3808: ,x_msg_count => x_msg_count
3809: ,x_msg_data => x_msg_data );
3810:
3811: l_msg_count := FND_MSG_PUB.count_msg;
3812:
3813: IF l_msg_count > 0 THEN
3814: x_msg_count := l_msg_count;
3815: x_return_status := 'E';
3848: ,x_msg_count => x_msg_count
3849: ,x_msg_data => x_msg_data );
3850:
3851:
3852: l_msg_count := FND_MSG_PUB.count_msg;
3853:
3854: IF l_msg_count > 0 THEN
3855: x_msg_count := l_msg_count;
3856: x_return_status := 'E';
3879: ,x_return_status => x_return_status
3880: ,x_msg_count => x_msg_count
3881: ,x_msg_data => x_msg_data );
3882:
3883: l_msg_count := FND_MSG_PUB.count_msg;
3884:
3885: IF l_msg_count > 0 THEN
3886: x_msg_count := l_msg_count;
3887: x_return_status := 'E';
3898: THEN
3899: ROLLBACK TO Edit_Structure;
3900: END IF;
3901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3902: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3903: p_procedure_name => 'Indent_task',
3904: p_error_text => SUBSTRB(SQLERRM,1,240));
3905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3906:
3916: THEN
3917: ROLLBACK TO Edit_Structure;
3918: END IF;
3919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3921: p_procedure_name => 'Indent_task',
3922: p_error_text => SUBSTRB(SQLERRM,1,240));
3923: RAISE;
3924:
4105: ,x_return_status => x_return_status
4106: ,x_msg_count => x_msg_count
4107: ,x_msg_data => x_msg_data );
4108:
4109: l_msg_count := FND_MSG_PUB.count_msg;
4110:
4111: IF l_msg_count > 0 THEN
4112: x_msg_count := l_msg_count;
4113: x_return_status := 'E';
4133: ,x_return_status => x_return_status
4134: ,x_msg_count => x_msg_count
4135: ,x_msg_data => x_msg_data );
4136:
4137: l_msg_count := FND_MSG_PUB.count_msg;
4138:
4139: IF l_msg_count > 0 THEN
4140: x_msg_count := l_msg_count;
4141: x_return_status := 'E';
4171: ,x_return_status => x_return_status
4172: ,x_msg_count => x_msg_count
4173: ,x_msg_data => x_msg_data );
4174:
4175: l_msg_count := FND_MSG_PUB.count_msg;
4176:
4177: IF l_msg_count > 0 THEN
4178: x_msg_count := l_msg_count;
4179: x_return_status := 'E';
4203: ,x_return_status => x_return_status
4204: ,x_msg_count => x_msg_count
4205: ,x_msg_data => x_msg_data );
4206:
4207: l_msg_count := FND_MSG_PUB.count_msg;
4208:
4209: IF l_msg_count > 0 THEN
4210: x_msg_count := l_msg_count;
4211: x_return_status := 'E';
4248: ,x_return_status => x_return_status
4249: ,x_msg_count => x_msg_count
4250: ,x_msg_data => x_msg_data );
4251:
4252: l_msg_count := FND_MSG_PUB.count_msg;
4253:
4254: IF l_msg_count > 0 THEN
4255: x_msg_count := l_msg_count;
4256: x_return_status := 'E';
4277: ,x_return_status => x_return_status
4278: ,x_msg_count => x_msg_count
4279: ,x_msg_data => x_msg_data );
4280:
4281: l_msg_count := FND_MSG_PUB.count_msg;
4282:
4283: IF l_msg_count > 0 THEN
4284: x_msg_count := l_msg_count;
4285: x_return_status := 'E';
4311: ,x_return_status => x_return_status
4312: ,x_msg_count => x_msg_count
4313: ,x_msg_data => x_msg_data );
4314:
4315: l_msg_count := FND_MSG_PUB.count_msg;
4316:
4317: IF l_msg_count > 0 THEN
4318: x_msg_count := l_msg_count;
4319: x_return_status := 'E';
4356: ,x_return_status => x_return_status
4357: ,x_msg_count => x_msg_count
4358: ,x_msg_data => x_msg_data );
4359:
4360: l_msg_count := FND_MSG_PUB.count_msg;
4361:
4362: IF l_msg_count > 0 THEN
4363: x_msg_count := l_msg_count;
4364: x_return_status := 'E';
4383: ,x_return_status => x_return_status
4384: ,x_msg_count => x_msg_count
4385: ,x_msg_data => x_msg_data );
4386:
4387: l_msg_count := FND_MSG_PUB.count_msg;
4388:
4389: IF l_msg_count > 0 THEN
4390: x_msg_count := l_msg_count;
4391: x_return_status := 'E';
4415: ,x_return_status => x_return_status
4416: ,x_msg_count => x_msg_count
4417: ,x_msg_data => x_msg_data );
4418:
4419: l_msg_count := FND_MSG_PUB.count_msg;
4420:
4421: IF l_msg_count > 0 THEN
4422: x_msg_count := l_msg_count;
4423: x_return_status := 'E';
4447: ,x_return_status => x_return_status
4448: ,x_msg_count => x_msg_count
4449: ,x_msg_data => x_msg_data );
4450:
4451: l_msg_count := FND_MSG_PUB.count_msg;
4452:
4453: IF l_msg_count > 0 THEN
4454: x_msg_count := l_msg_count;
4455: x_return_status := 'E';
4481: ,x_return_status => x_return_status
4482: ,x_msg_count => x_msg_count
4483: ,x_msg_data => x_msg_data );
4484:
4485: l_msg_count := FND_MSG_PUB.count_msg;
4486:
4487: IF l_msg_count > 0 THEN
4488: x_msg_count := l_msg_count;
4489: x_return_status := 'E';
4507: ,x_return_status => x_return_status
4508: ,x_msg_count => x_msg_count
4509: ,x_msg_data => x_msg_data );
4510:
4511: l_msg_count := FND_MSG_PUB.count_msg;
4512:
4513: IF l_msg_count > 0 THEN
4514: x_msg_count := l_msg_count;
4515: x_return_status := 'E';
4536: ,x_return_status => x_return_status
4537: ,x_msg_count => x_msg_count
4538: ,x_msg_data => x_msg_data );
4539:
4540: l_msg_count := FND_MSG_PUB.count_msg;
4541: IF l_msg_count > 0 THEN
4542: x_msg_count := l_msg_count;
4543: x_return_status := 'E';
4544: RAISE FND_API.G_EXC_ERROR;
4566: ,x_return_status => x_return_status
4567: ,x_msg_count => x_msg_count
4568: ,x_msg_data => x_msg_data );
4569:
4570: l_msg_count := FND_MSG_PUB.count_msg;
4571:
4572: IF l_msg_count > 0 THEN
4573: x_msg_count := l_msg_count;
4574: x_return_status := 'E';
4584: THEN
4585: ROLLBACK TO Edit_Structure;
4586: END IF;
4587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4588: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4589: p_procedure_name => 'Outdent_task',
4590: p_error_text => SUBSTRB(SQLERRM,1,240));
4591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592:
4602: THEN
4603: ROLLBACK TO Edit_Structure;
4604: END IF;
4605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4606: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4607: p_procedure_name => 'Outdent_task',
4608: p_error_text => SUBSTRB(SQLERRM,1,240));
4609: RAISE;
4610: END Outdent_Task;
4743: industry => l_fnd_industry,
4744: oracle_schema => l_table_owner);
4745: IF NOT l_fnd_return_status
4746: THEN
4747: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4748: p_procedure_name => 'Copy_Entire_Project',
4749: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
4750: RAISE FND_API.G_EXC_ERROR;
4751: END IF;
4906: --capture the first sequence created.
4907: l_first_seq := l_display_seq;
4908: END IF;
4909:
4910: l_msg_count := FND_MSG_PUB.count_msg;
4911:
4912: IF l_msg_count > 0 THEN
4913: x_msg_count := l_msg_count;
4914: x_return_status := 'E';
4948: THEN
4949: ROLLBACK TO Copy;
4950: END IF;
4951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4952: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4953: p_procedure_name => 'Copy_Entire_Task',
4954: p_error_text => SUBSTRB(SQLERRM,1,240));
4955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956:
4966: THEN
4967: ROLLBACK TO Copy;
4968: END IF;
4969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4970: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4971: p_procedure_name => 'Copy_Entire_Task',
4972: p_error_text => SUBSTRB(SQLERRM,1,240));
4973: RAISE;
4974: END Copy_Entire_Project;
5082: industry => l_fnd_industry,
5083: oracle_schema => l_table_owner);
5084: IF NOT l_fnd_return_status
5085: THEN
5086: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5087: p_procedure_name => 'Copy_Entire_Project',
5088: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5089: RAISE FND_API.G_EXC_ERROR;
5090: END IF;
5188: ,x_return_status => x_return_status
5189: ,x_msg_count => x_msg_count
5190: ,x_msg_data => x_msg_data );
5191:
5192: l_msg_count := FND_MSG_PUB.count_msg;
5193:
5194: IF l_msg_count > 0 THEN
5195: x_msg_count := l_msg_count;
5196: x_return_status := 'E';
5231: THEN
5232: ROLLBACK TO Copy;
5233: END IF;
5234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5235: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5236: p_procedure_name => 'Copy_Selected_Task',
5237: p_error_text => SUBSTRB(SQLERRM,1,240));
5238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5239:
5249: THEN
5250: ROLLBACK TO Copy;
5251: END IF;
5252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5253: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5254: p_procedure_name => 'Copy_Selected_Task',
5255: p_error_text => SUBSTRB(SQLERRM,1,240));
5256: RAISE;
5257: END Copy_Selected_Task;
5404: industry => l_fnd_industry,
5405: oracle_schema => l_table_owner);
5406: IF NOT l_fnd_return_status
5407: THEN
5408: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5409: p_procedure_name => 'Copy_Entire_Project',
5410: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5411: RAISE FND_API.G_EXC_ERROR;
5412: END IF;
5568: l_first_seq := l_display_seq;
5569: END IF;
5570:
5571:
5572: l_msg_count := FND_MSG_PUB.count_msg;
5573:
5574: IF l_msg_count > 0 THEN
5575: x_msg_count := l_msg_count;
5576: x_return_status := 'E';
5611: THEN
5612: ROLLBACK TO Copy;
5613: END IF;
5614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5615: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5616: p_procedure_name => 'Copy_Entire_Task',
5617: p_error_text => SUBSTRB(SQLERRM,1,240));
5618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5619:
5629: THEN
5630: ROLLBACK TO Copy;
5631: END IF;
5632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5633: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5634: p_procedure_name => 'Copy_Entire_Task',
5635: p_error_text => SUBSTRB(SQLERRM,1,240));
5636: RAISE;
5637:
5990: ,x_return_status => x_return_status
5991: ,x_msg_count => x_msg_count
5992: ,x_msg_data => x_msg_data );
5993:
5994: l_msg_count := FND_MSG_PUB.count_msg;
5995:
5996: IF l_msg_count > 0 THEN
5997: x_msg_count := l_msg_count;
5998: x_return_status := 'E';
6060: THEN
6061: ROLLBACK TO Move;
6062: END IF;
6063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6064: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6065: p_procedure_name => 'Move_Task',
6066: p_error_text => SUBSTRB(SQLERRM,1,240));
6067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6068:
6078: THEN
6079: ROLLBACK TO Move;
6080: END IF;
6081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6082: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6083: p_procedure_name => 'Move_Task',
6084: p_error_text => SUBSTRB(SQLERRM,1,240));
6085: RAISE;
6086:
6206: l_debug_level3);
6207: END IF;
6208:
6209: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
6210: FND_MSG_PUB.initialize;
6211: END IF;
6212:
6213: IF (p_commit = FND_API.G_TRUE) THEN
6214: savepoint SET_UNSET_FINANCIAL_TASK_PVT;
6335:
6336: WHEN FND_API.G_EXC_ERROR THEN
6337:
6338: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6339: l_msg_count := Fnd_Msg_Pub.count_msg;
6340:
6341: IF p_commit = FND_API.G_TRUE THEN
6342: ROLLBACK TO SET_UNSET_FINANCIAL_TASK_PVT;
6343: --ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6376: END IF;
6377: IF c_get_task_id%ISOPEN THEN
6378: CLOSE c_get_task_id;
6379: END IF;
6380: Fnd_Msg_Pub.add_exc_msg
6381: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6382: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6383: , p_error_text => x_msg_data);
6384:
6405: IF c_get_task_id%ISOPEN THEN
6406: CLOSE c_get_task_id;
6407: END IF;
6408:
6409: Fnd_Msg_Pub.add_exc_msg
6410: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6411: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6412: , p_error_text => x_msg_data);
6413:
6613: l_debug_level3);
6614: END IF;
6615:
6616: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
6617: FND_MSG_PUB.initialize;
6618: END IF;
6619:
6620: IF (p_commit = FND_API.G_TRUE) THEN
6621: --savepoint SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6815:
6816: WHEN FND_API.G_EXC_ERROR THEN
6817:
6818: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6819: l_msg_count := Fnd_Msg_Pub.count_msg;
6820:
6821: IF p_commit = FND_API.G_TRUE THEN
6822: --ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6823: ROLLBACK TO SYNC_UP_WP_TASKS_WITH_FIN_PVT;
6882: END IF;
6883: IF c_get_pa_record_version_number%ISOPEN THEN
6884: CLOSE c_get_pa_record_version_number;
6885: END IF;
6886: Fnd_Msg_Pub.add_exc_msg
6887: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6888: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6889: , p_error_text => x_msg_data);
6890:
6920: END IF;
6921: IF c_get_pa_record_version_number%ISOPEN THEN
6922: CLOSE c_get_pa_record_version_number;
6923: END IF;
6924: Fnd_Msg_Pub.add_exc_msg
6925: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6926: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6927: , p_error_text => x_msg_data);
6928: