[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(
1801: WHEN FND_API.G_EXC_ERROR THEN
1802: IF (p_commit = FND_API.G_TRUE) THEN
1803: ROLLBACK to CREATE_TASK_PRIVATE;
1804: END IF;
1805: x_msg_count := FND_MSG_PUB.count_msg;
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1807: WHEN OTHERS THEN
1808: IF (p_commit = FND_API.G_TRUE) THEN
1809: ROLLBACK to CREATE_TASK_PRIVATE;
1808: IF (p_commit = FND_API.G_TRUE) THEN
1809: ROLLBACK to CREATE_TASK_PRIVATE;
1810: END IF;
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: x_msg_count := FND_MSG_PUB.count_msg;
1813: --put message
1814: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1815: p_procedure_name => 'CREATE_TASK',
1816: p_error_text => SUBSTRB(SQLERRM,1,240));
1810: END IF;
1811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1812: x_msg_count := FND_MSG_PUB.count_msg;
1813: --put message
1814: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
1815: p_procedure_name => 'CREATE_TASK',
1816: p_error_text => SUBSTRB(SQLERRM,1,240));
1817: RAISE;
1818: END CREATE_TASK;
2325: ELSE
2326: t_pm_product_code := p_pm_product_code;
2327: END IF;
2328:
2329: --l_msg_count := FND_MSG_PUB.count_msg;
2330:
2331:
2332: -- Set controls
2333: IF (p_calling_module in ('SELF_SERVICE')) THEN
2512: p_return_status => l_ret);
2513: IF (l_ret <> 'S') THEN
2514: -- Bug 7386335
2515: -- The API check_start_end_date will log a single error message. Not required to log further.
2516: l_msg_count := FND_MSG_PUB.count_msg;
2517: IF (l_msg_count > 0) THEN
2518: x_msg_count := l_msg_count;
2519: IF (x_msg_count = 1) THEN
2520: pa_interface_utils_pub.get_messages(
2572:
2573: -- Bug 7386335
2574: -- This serves only as a workaround fix. We cannot change the condition IF (x_msg_count = 1) to IF
2575: -- (x_msg_count > 1) since the change will have to be made in all the procedures involved in the flow.
2576: l_msg_count := FND_MSG_PUB.count_msg;
2577: IF (l_msg_count > 0) THEN
2578: x_msg_count := l_msg_count;
2579: IF (x_msg_count = 1) THEN
2580: pa_interface_utils_pub.get_messages(
2711:
2712:
2713: IF (p_parent_task_id IS NOT NULL AND NVL( p_parent_task_id, -1 ) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
2714:
2715: l_msg_count := FND_MSG_PUB.count_msg;
2716:
2717: --dbms_output.put_line( 'In update task 14 '|| l_msg_count);
2718:
2719:
2729: p_return_status => l_ret,
2730: p_msg_count => l_msg_cnt,
2731: p_msg_data => l_msg_data);
2732:
2733: l_msg_count := FND_MSG_PUB.count_msg;
2734:
2735: --dbms_output.put_line( 'In update task 14 --erro msg '|| l_msg_count);
2736:
2737: IF (l_change_parent_flag <> 'Y') THEN
2748: END IF;
2749:
2750: -- Check if there is any error. Get new Task Id if no error
2751:
2752: l_msg_count := FND_MSG_PUB.count_msg;
2753: IF (l_msg_count > 0) THEN
2754: x_msg_count := l_msg_count;
2755: IF (x_msg_count = 1) THEN
2756: pa_interface_utils_pub.get_messages(
3317: WHEN NO_DATA_FOUND THEN
3318: IF (p_commit = FND_API.G_TRUE) THEN
3319: ROLLBACK to UPDATE_TASK_PRIVATE;
3320: END IF;
3321: x_msg_count := FND_MSG_PUB.count_msg;
3322: x_return_status := FND_API.G_RET_STS_ERROR;
3323: WHEN OTHERS THEN
3324: IF (p_commit = FND_API.G_TRUE) THEN
3325: ROLLBACK to UPDATE_TASK_PRIVATE;
3323: WHEN OTHERS THEN
3324: IF (p_commit = FND_API.G_TRUE) THEN
3325: ROLLBACK to UPDATE_TASK_PRIVATE;
3326: END IF;
3327: x_msg_count := FND_MSG_PUB.count_msg;
3328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3329: --put message
3330: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3331: p_procedure_name => 'UPDATE_TASK',
3326: END IF;
3327: x_msg_count := FND_MSG_PUB.count_msg;
3328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3329: --put message
3330: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3331: p_procedure_name => 'UPDATE_TASK',
3332: p_error_text => SUBSTRB(SQLERRM,1,240));
3333: RAISE;
3334: END UPDATE_TASK;
3500: WHERE TASK_ID = t_parent_task_id;
3501: END IF;
3502: END IF;
3503:
3504: l_msg_count := FND_MSG_PUB.count_msg;
3505: IF (l_msg_count > 0) then
3506: x_msg_count := l_msg_count;
3507: IF (x_msg_count = 1) then
3508: pa_interface_utils_pub.get_messages
3521: WHEN FND_API.G_EXC_ERROR THEN
3522: IF (p_commit = FND_API.G_TRUE) THEN
3523: ROLLBACK to DELETE_TASK_PRIVATE;
3524: END IF;
3525: x_msg_count := FND_MSG_PUB.count_msg;
3526: x_return_status := FND_API.G_RET_STS_ERROR;
3527: WHEN OTHERS THEN
3528: IF (p_commit = FND_API.G_TRUE) THEN
3529: ROLLBACK to DELETE_TASK_PRIVATE;
3527: WHEN OTHERS THEN
3528: IF (p_commit = FND_API.G_TRUE) THEN
3529: ROLLBACK to DELETE_TASK_PRIVATE;
3530: END IF;
3531: x_msg_count := FND_MSG_PUB.count_msg;
3532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3533: --put message
3534: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3535: p_procedure_name => 'DELETE_TASK',
3530: END IF;
3531: x_msg_count := FND_MSG_PUB.count_msg;
3532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3533: --put message
3534: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3535: p_procedure_name => 'DELETE_TASK',
3536: p_error_text => SUBSTRB(SQLERRM,1,240));
3537: RAISE;
3538: END DELETE_TASK;
3704: -- another task
3705: -- 23-JUL-2001
3706: -- Added by HSIU--check if the reference task can have child tasks
3707:
3708: l_msg_count := FND_MSG_PUB.count_msg;
3709:
3710: --dbms_output.put_line( 'Indent Task PVT : Stage 3 '||'Count '||l_msg_count );
3711:
3712: PA_TASK_UTILS.CHECK_CREATE_SUBTASK_OK(x_task_id => l_task_id_above,
3717: IF (l_err_code <> 0) THEN
3718: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
3719: END IF;
3720:
3721: l_msg_count := FND_MSG_PUB.count_msg;
3722:
3723: --dbms_output.put_line( 'Indent Task PVT : Stage 4'||' Count '||l_msg_count );
3724:
3725: -- HSIU changes ends here
3740: ,x_return_status => x_return_status
3741: ,x_msg_count => x_msg_count
3742: ,x_msg_data => x_msg_data );
3743:
3744: l_msg_count := FND_MSG_PUB.count_msg;
3745:
3746: --dbms_output.put_line( 'Indent Task PVT : Stage 5'||' Count '||l_msg_count );
3747:
3748:
3745:
3746: --dbms_output.put_line( 'Indent Task PVT : Stage 5'||' Count '||l_msg_count );
3747:
3748:
3749: l_msg_count := FND_MSG_PUB.count_msg;
3750:
3751: IF l_msg_count > 0 THEN
3752: x_msg_count := l_msg_count;
3753: x_return_status := 'E';
3789: ,x_return_status => x_return_status
3790: ,x_msg_count => x_msg_count
3791: ,x_msg_data => x_msg_data );
3792:
3793: l_msg_count := FND_MSG_PUB.count_msg;
3794:
3795: IF l_msg_count > 0 THEN
3796: x_msg_count := l_msg_count;
3797: x_return_status := 'E';
3830: ,x_msg_count => x_msg_count
3831: ,x_msg_data => x_msg_data );
3832:
3833:
3834: l_msg_count := FND_MSG_PUB.count_msg;
3835:
3836: IF l_msg_count > 0 THEN
3837: x_msg_count := l_msg_count;
3838: x_return_status := 'E';
3861: ,x_return_status => x_return_status
3862: ,x_msg_count => x_msg_count
3863: ,x_msg_data => x_msg_data );
3864:
3865: l_msg_count := FND_MSG_PUB.count_msg;
3866:
3867: IF l_msg_count > 0 THEN
3868: x_msg_count := l_msg_count;
3869: x_return_status := 'E';
3880: THEN
3881: ROLLBACK TO Edit_Structure;
3882: END IF;
3883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3884: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
3885: p_procedure_name => 'Indent_task',
3886: p_error_text => SUBSTRB(SQLERRM,1,240));
3887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888:
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: RAISE;
3906:
4087: ,x_return_status => x_return_status
4088: ,x_msg_count => x_msg_count
4089: ,x_msg_data => x_msg_data );
4090:
4091: l_msg_count := FND_MSG_PUB.count_msg;
4092:
4093: IF l_msg_count > 0 THEN
4094: x_msg_count := l_msg_count;
4095: x_return_status := 'E';
4115: ,x_return_status => x_return_status
4116: ,x_msg_count => x_msg_count
4117: ,x_msg_data => x_msg_data );
4118:
4119: l_msg_count := FND_MSG_PUB.count_msg;
4120:
4121: IF l_msg_count > 0 THEN
4122: x_msg_count := l_msg_count;
4123: x_return_status := 'E';
4153: ,x_return_status => x_return_status
4154: ,x_msg_count => x_msg_count
4155: ,x_msg_data => x_msg_data );
4156:
4157: l_msg_count := FND_MSG_PUB.count_msg;
4158:
4159: IF l_msg_count > 0 THEN
4160: x_msg_count := l_msg_count;
4161: x_return_status := 'E';
4185: ,x_return_status => x_return_status
4186: ,x_msg_count => x_msg_count
4187: ,x_msg_data => x_msg_data );
4188:
4189: l_msg_count := FND_MSG_PUB.count_msg;
4190:
4191: IF l_msg_count > 0 THEN
4192: x_msg_count := l_msg_count;
4193: x_return_status := 'E';
4230: ,x_return_status => x_return_status
4231: ,x_msg_count => x_msg_count
4232: ,x_msg_data => x_msg_data );
4233:
4234: l_msg_count := FND_MSG_PUB.count_msg;
4235:
4236: IF l_msg_count > 0 THEN
4237: x_msg_count := l_msg_count;
4238: x_return_status := 'E';
4259: ,x_return_status => x_return_status
4260: ,x_msg_count => x_msg_count
4261: ,x_msg_data => x_msg_data );
4262:
4263: l_msg_count := FND_MSG_PUB.count_msg;
4264:
4265: IF l_msg_count > 0 THEN
4266: x_msg_count := l_msg_count;
4267: x_return_status := 'E';
4293: ,x_return_status => x_return_status
4294: ,x_msg_count => x_msg_count
4295: ,x_msg_data => x_msg_data );
4296:
4297: l_msg_count := FND_MSG_PUB.count_msg;
4298:
4299: IF l_msg_count > 0 THEN
4300: x_msg_count := l_msg_count;
4301: x_return_status := 'E';
4338: ,x_return_status => x_return_status
4339: ,x_msg_count => x_msg_count
4340: ,x_msg_data => x_msg_data );
4341:
4342: l_msg_count := FND_MSG_PUB.count_msg;
4343:
4344: IF l_msg_count > 0 THEN
4345: x_msg_count := l_msg_count;
4346: x_return_status := 'E';
4365: ,x_return_status => x_return_status
4366: ,x_msg_count => x_msg_count
4367: ,x_msg_data => x_msg_data );
4368:
4369: l_msg_count := FND_MSG_PUB.count_msg;
4370:
4371: IF l_msg_count > 0 THEN
4372: x_msg_count := l_msg_count;
4373: x_return_status := 'E';
4397: ,x_return_status => x_return_status
4398: ,x_msg_count => x_msg_count
4399: ,x_msg_data => x_msg_data );
4400:
4401: l_msg_count := FND_MSG_PUB.count_msg;
4402:
4403: IF l_msg_count > 0 THEN
4404: x_msg_count := l_msg_count;
4405: x_return_status := 'E';
4429: ,x_return_status => x_return_status
4430: ,x_msg_count => x_msg_count
4431: ,x_msg_data => x_msg_data );
4432:
4433: l_msg_count := FND_MSG_PUB.count_msg;
4434:
4435: IF l_msg_count > 0 THEN
4436: x_msg_count := l_msg_count;
4437: x_return_status := 'E';
4463: ,x_return_status => x_return_status
4464: ,x_msg_count => x_msg_count
4465: ,x_msg_data => x_msg_data );
4466:
4467: l_msg_count := FND_MSG_PUB.count_msg;
4468:
4469: IF l_msg_count > 0 THEN
4470: x_msg_count := l_msg_count;
4471: x_return_status := 'E';
4489: ,x_return_status => x_return_status
4490: ,x_msg_count => x_msg_count
4491: ,x_msg_data => x_msg_data );
4492:
4493: l_msg_count := FND_MSG_PUB.count_msg;
4494:
4495: IF l_msg_count > 0 THEN
4496: x_msg_count := l_msg_count;
4497: x_return_status := 'E';
4518: ,x_return_status => x_return_status
4519: ,x_msg_count => x_msg_count
4520: ,x_msg_data => x_msg_data );
4521:
4522: l_msg_count := FND_MSG_PUB.count_msg;
4523: IF l_msg_count > 0 THEN
4524: x_msg_count := l_msg_count;
4525: x_return_status := 'E';
4526: RAISE FND_API.G_EXC_ERROR;
4548: ,x_return_status => x_return_status
4549: ,x_msg_count => x_msg_count
4550: ,x_msg_data => x_msg_data );
4551:
4552: l_msg_count := FND_MSG_PUB.count_msg;
4553:
4554: IF l_msg_count > 0 THEN
4555: x_msg_count := l_msg_count;
4556: x_return_status := 'E';
4566: THEN
4567: ROLLBACK TO Edit_Structure;
4568: END IF;
4569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4571: p_procedure_name => 'Outdent_task',
4572: p_error_text => SUBSTRB(SQLERRM,1,240));
4573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4574:
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: RAISE;
4592: END Outdent_Task;
4723: industry => l_fnd_industry,
4724: oracle_schema => l_table_owner);
4725: IF NOT l_fnd_return_status
4726: THEN
4727: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4728: p_procedure_name => 'Copy_Entire_Project',
4729: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
4730: RAISE FND_API.G_EXC_ERROR;
4731: END IF;
4886: --capture the first sequence created.
4887: l_first_seq := l_display_seq;
4888: END IF;
4889:
4890: l_msg_count := FND_MSG_PUB.count_msg;
4891:
4892: IF l_msg_count > 0 THEN
4893: x_msg_count := l_msg_count;
4894: x_return_status := 'E';
4928: THEN
4929: ROLLBACK TO Copy;
4930: END IF;
4931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4932: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4933: p_procedure_name => 'Copy_Entire_Task',
4934: p_error_text => SUBSTRB(SQLERRM,1,240));
4935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936:
4946: THEN
4947: ROLLBACK TO Copy;
4948: END IF;
4949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4950: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
4951: p_procedure_name => 'Copy_Entire_Task',
4952: p_error_text => SUBSTRB(SQLERRM,1,240));
4953: RAISE;
4954: END Copy_Entire_Project;
5060: industry => l_fnd_industry,
5061: oracle_schema => l_table_owner);
5062: IF NOT l_fnd_return_status
5063: THEN
5064: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5065: p_procedure_name => 'Copy_Entire_Project',
5066: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5067: RAISE FND_API.G_EXC_ERROR;
5068: END IF;
5166: ,x_return_status => x_return_status
5167: ,x_msg_count => x_msg_count
5168: ,x_msg_data => x_msg_data );
5169:
5170: l_msg_count := FND_MSG_PUB.count_msg;
5171:
5172: IF l_msg_count > 0 THEN
5173: x_msg_count := l_msg_count;
5174: x_return_status := 'E';
5209: THEN
5210: ROLLBACK TO Copy;
5211: END IF;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5214: p_procedure_name => 'Copy_Selected_Task',
5215: p_error_text => SUBSTRB(SQLERRM,1,240));
5216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5217:
5227: THEN
5228: ROLLBACK TO Copy;
5229: END IF;
5230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5231: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5232: p_procedure_name => 'Copy_Selected_Task',
5233: p_error_text => SUBSTRB(SQLERRM,1,240));
5234: RAISE;
5235: END Copy_Selected_Task;
5380: industry => l_fnd_industry,
5381: oracle_schema => l_table_owner);
5382: IF NOT l_fnd_return_status
5383: THEN
5384: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5385: p_procedure_name => 'Copy_Entire_Project',
5386: p_error_text => SUBSTRB('FND_INSTALLATION.GET_APP_INFO api call failed:'||SQLERRM,1,240));
5387: RAISE FND_API.G_EXC_ERROR;
5388: END IF;
5544: l_first_seq := l_display_seq;
5545: END IF;
5546:
5547:
5548: l_msg_count := FND_MSG_PUB.count_msg;
5549:
5550: IF l_msg_count > 0 THEN
5551: x_msg_count := l_msg_count;
5552: x_return_status := 'E';
5587: THEN
5588: ROLLBACK TO Copy;
5589: END IF;
5590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5592: p_procedure_name => 'Copy_Entire_Task',
5593: p_error_text => SUBSTRB(SQLERRM,1,240));
5594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5595:
5605: THEN
5606: ROLLBACK TO Copy;
5607: END IF;
5608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
5610: p_procedure_name => 'Copy_Entire_Task',
5611: p_error_text => SUBSTRB(SQLERRM,1,240));
5612: RAISE;
5613:
5940: ,x_return_status => x_return_status
5941: ,x_msg_count => x_msg_count
5942: ,x_msg_data => x_msg_data );
5943:
5944: l_msg_count := FND_MSG_PUB.count_msg;
5945:
5946: IF l_msg_count > 0 THEN
5947: x_msg_count := l_msg_count;
5948: x_return_status := 'E';
6010: THEN
6011: ROLLBACK TO Move;
6012: END IF;
6013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6014: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6015: p_procedure_name => 'Move_Task',
6016: p_error_text => SUBSTRB(SQLERRM,1,240));
6017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6018:
6028: THEN
6029: ROLLBACK TO Move;
6030: END IF;
6031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6032: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PVT',
6033: p_procedure_name => 'Move_Task',
6034: p_error_text => SUBSTRB(SQLERRM,1,240));
6035: RAISE;
6036:
6138: l_debug_level3);
6139: END IF;
6140:
6141: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
6142: FND_MSG_PUB.initialize;
6143: END IF;
6144:
6145: IF (p_commit = FND_API.G_TRUE) THEN
6146: savepoint SET_UNSET_FINANCIAL_TASK_PVT;
6236:
6237: WHEN FND_API.G_EXC_ERROR THEN
6238:
6239: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6240: l_msg_count := Fnd_Msg_Pub.count_msg;
6241:
6242: IF p_commit = FND_API.G_TRUE THEN
6243: ROLLBACK TO SET_UNSET_FINANCIAL_TASK_PVT;
6244: --ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6277: END IF;
6278: IF c_get_task_id%ISOPEN THEN
6279: CLOSE c_get_task_id;
6280: END IF;
6281: Fnd_Msg_Pub.add_exc_msg
6282: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6283: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6284: , p_error_text => x_msg_data);
6285:
6306: IF c_get_task_id%ISOPEN THEN
6307: CLOSE c_get_task_id;
6308: END IF;
6309:
6310: Fnd_Msg_Pub.add_exc_msg
6311: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6312: , p_procedure_name => 'SET_UNSET_FINANCIAL_TASK'
6313: , p_error_text => x_msg_data);
6314:
6514: l_debug_level3);
6515: END IF;
6516:
6517: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
6518: FND_MSG_PUB.initialize;
6519: END IF;
6520:
6521: IF (p_commit = FND_API.G_TRUE) THEN
6522: --savepoint SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6716:
6717: WHEN FND_API.G_EXC_ERROR THEN
6718:
6719: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6720: l_msg_count := Fnd_Msg_Pub.count_msg;
6721:
6722: IF p_commit = FND_API.G_TRUE THEN
6723: --ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC; Bug 3735089
6724: ROLLBACK TO SYNC_UP_WP_TASKS_WITH_FIN_PVT;
6783: END IF;
6784: IF c_get_pa_record_version_number%ISOPEN THEN
6785: CLOSE c_get_pa_record_version_number;
6786: END IF;
6787: Fnd_Msg_Pub.add_exc_msg
6788: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6789: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6790: , p_error_text => x_msg_data);
6791:
6821: END IF;
6822: IF c_get_pa_record_version_number%ISOPEN THEN
6823: CLOSE c_get_pa_record_version_number;
6824: END IF;
6825: Fnd_Msg_Pub.add_exc_msg
6826: ( p_pkg_name => 'PA_TASKS_MAINT_PVT'
6827: , p_procedure_name => 'SYNC_UP_WP_TASKS_WITH_FIN'
6828: , p_error_text => x_msg_data);
6829: