224: x_error_message_code => l_error_msg_code);
225: if (l_valid <> 'Y') then
226: -- check that the person is allowed to have schedule
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: fnd_message.set_name('PA','PA_NO_SCHEDULABLE_PERSON');
229: fnd_msg_pub.add();
230: end if;
231:
232: -- if the res belongs to the expenditure org hierarchy, check if the res's
238: ( p_person_id => p_resource_source_id
239: ,p_date => l_date );
240: IF l_job_schedulable <> 'Y' THEN
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: fnd_message.set_name('PA','PA_NOT_SCHEDULABLE_JOB');
243: fnd_msg_pub.add();
244: END IF;
245: END IF;
246: end if;
275: X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
276: X_RETURN_STATUS => x_return_status);
277: if (x_return_status = 'N') then
278: if p_calling_module = 'FORM' then
279: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
276: X_RETURN_STATUS => x_return_status);
277: if (x_return_status = 'N') then
278: if p_calling_module = 'FORM' then
279: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
277: if (x_return_status = 'N') then
278: if p_calling_module = 'FORM' then
279: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
280: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
286: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
287: fnd_msg_pub.add;
288:
281: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
286: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
287: fnd_msg_pub.add;
288:
289: end if;
282: fnd_msg_pub.add;
283: else
284: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
285: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
286: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
287: fnd_msg_pub.add;
288:
289: end if;
290: end if;
449: pa_debug.reset_err_stack;
450:
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
454: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
455: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
456: fnd_msg_pub.add();
457: fnd_msg_pub.count_and_get(p_count => x_msg_count,
450:
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
454: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
455: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
456: fnd_msg_pub.add();
457: fnd_msg_pub.count_and_get(p_count => x_msg_count,
458: p_data => x_msg_data);
451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
454: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
455: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
456: fnd_msg_pub.add();
457: fnd_msg_pub.count_and_get(p_count => x_msg_count,
458: p_data => x_msg_data);
459: raise;
589: x_error_message_code => l_error_msg_code);
590: IF (l_valid <> 'Y') then
591: -- check that the person is allowed to have schedule
592: x_return_status := FND_API.G_RET_STS_ERROR;
593: fnd_message.set_name('PA','PA_NO_SCHEDULABLE_PERSON');
594: fnd_msg_pub.add();
595: END IF;
596:
597: -- if the res belongs to the expenditure org hierarchy, check if the res's
606: ,p_date => l_date );
607:
608: IF l_job_schedulable <> 'Y' THEN
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: fnd_message.set_name('PA','PA_NOT_SCHEDULABLE_JOB');
611: fnd_msg_pub.add();
612: END IF;
613: END IF;
614: END IF;
750: X_RETURN_STATUS => x_return_status);
751: if (x_return_status = 'N') then
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: if p_calling_module = 'FORM' then
754: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
751: if (x_return_status = 'N') then
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: if p_calling_module = 'FORM' then
754: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: if p_calling_module = 'FORM' then
754: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
760: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
755: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
760: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
761: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
762: fnd_msg_pub.add;
763:
756: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
760: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
761: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
762: fnd_msg_pub.add;
763:
764: end if;
757: fnd_msg_pub.add;
758: else
759: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
760: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
761: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
762: fnd_msg_pub.add;
763:
764: end if;
765: end if;
860: pa_debug.reset_err_stack;
861:
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
865: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
866: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
867: fnd_msg_pub.add();
868: fnd_msg_pub.count_and_get(p_count => x_msg_count,
861:
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
865: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
866: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
867: fnd_msg_pub.add();
868: fnd_msg_pub.count_and_get(p_count => x_msg_count,
869: p_data => x_msg_data);
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
865: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
866: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
867: fnd_msg_pub.add();
868: fnd_msg_pub.count_and_get(p_count => x_msg_count,
869: p_data => x_msg_data);
870: raise;
1138: EXCEPTION
1139:
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1143: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1144: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1145: fnd_msg_pub.add();
1146: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1139:
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1143: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1144: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1145: fnd_msg_pub.add();
1146: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1147: p_data => x_msg_data);
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1143: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1144: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1145: fnd_msg_pub.add();
1146: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1147: p_data => x_msg_data);
1148: raise;
1154: pa_debug.debug('Delete_project_party : Exception NO_DATA_FOUND ');
1155: END IF;
1156: end if;
1157:
1158: --fnd_message.set_name('PA', 'PA_XC_NO_DATA_FOUND');
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160:
1161: WHEN TIMEOUT_ON_RESOURCE THEN
1162:
1165: pa_debug.debug('Delete_project_party : Exception TIMEOUT_ON_RESOURCE ');
1166: END IF;
1167: end if;
1168:
1169: fnd_message.set_name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: return;
1172:
1173: WHEN OTHERS then
1181: END IF;
1182: end if;
1183:
1184: if(SQLCODE = -54) then
1185: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1186: x_msg_data := FND_MESSAGE.get;
1187: x_return_status := FND_API.G_RET_STS_ERROR;
1188: else
1189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1182: end if;
1183:
1184: if(SQLCODE = -54) then
1185: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1186: x_msg_data := FND_MESSAGE.get;
1187: x_return_status := FND_API.G_RET_STS_ERROR;
1188: else
1189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1190: p_procedure_name => pa_debug.g_err_stack,