236: END IF;
237: if (l_valid <> 'Y') then
238: -- check that the person is allowed to have schedule
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: fnd_message.set_name('PA','PA_NO_SCHEDULABLE_PERSON');
241: fnd_msg_pub.add();
242: end if;
243:
244: -- if the res belongs to the expenditure org hierarchy, check if the res's
257: ( p_person_id => p_resource_source_id
258: ,p_date => l_date );
259: IF l_job_schedulable <> 'Y' THEN
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: fnd_message.set_name('PA','PA_NOT_SCHEDULABLE_JOB');
262: fnd_msg_pub.add();
263: END IF;
264: END IF;
265: end if;
294: X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
295: X_RETURN_STATUS => x_return_status);
296: if (x_return_status = 'N') then
297: if p_calling_module = 'FORM' then
298: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
299: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
295: X_RETURN_STATUS => x_return_status);
296: if (x_return_status = 'N') then
297: if p_calling_module = 'FORM' then
298: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
299: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
296: if (x_return_status = 'N') then
297: if p_calling_module = 'FORM' then
298: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
299: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
304: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
299: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
304: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
305: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
306: fnd_msg_pub.add;
307:
300: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
304: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
305: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
306: fnd_msg_pub.add;
307:
308: end if;
301: fnd_msg_pub.add;
302: else
303: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
304: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
305: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
306: fnd_msg_pub.add;
307:
308: end if;
309: end if;
468: pa_debug.reset_err_stack;
469:
470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
473: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
474: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
475: fnd_msg_pub.add();
476: fnd_msg_pub.count_and_get(p_count => x_msg_count,
469:
470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
473: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
474: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
475: fnd_msg_pub.add();
476: fnd_msg_pub.count_and_get(p_count => x_msg_count,
477: p_data => x_msg_data);
470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
473: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
474: fnd_message.set_token('PROCEDURE_NAME','CREATE_PROJECT_PARTY');
475: fnd_msg_pub.add();
476: fnd_msg_pub.count_and_get(p_count => x_msg_count,
477: p_data => x_msg_data);
478: raise;
619: END IF;
620: IF (l_valid <> 'Y') then
621: -- check that the person is allowed to have schedule
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: fnd_message.set_name('PA','PA_NO_SCHEDULABLE_PERSON');
624: fnd_msg_pub.add();
625: END IF;
626:
627: -- if the res belongs to the expenditure org hierarchy, check if the res's
643: ,p_date => l_date );
644:
645: IF l_job_schedulable <> 'Y' THEN
646: x_return_status := FND_API.G_RET_STS_ERROR;
647: fnd_message.set_name('PA','PA_NOT_SCHEDULABLE_JOB');
648: fnd_msg_pub.add();
649: END IF;
650: END IF;
651: END IF;
787: X_RETURN_STATUS => x_return_status);
788: if (x_return_status = 'N') then
789: x_return_status := FND_API.G_RET_STS_ERROR;
790: if p_calling_module = 'FORM' then
791: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
792: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
788: if (x_return_status = 'N') then
789: x_return_status := FND_API.G_RET_STS_ERROR;
790: if p_calling_module = 'FORM' then
791: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
792: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
789: x_return_status := FND_API.G_RET_STS_ERROR;
790: if p_calling_module = 'FORM' then
791: fnd_message.set_name('FND','FORM_RECORD_CHANGED');
792: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
797: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
792: --fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PKG');
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
797: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
798: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
799: fnd_msg_pub.add;
800:
793: --fnd_message.set_token('PROCEDURE_NAME','UPDATE_ROW');
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
797: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
798: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
799: fnd_msg_pub.add;
800:
801: end if;
794: fnd_msg_pub.add;
795: else
796: fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
797: --fnd_message.set_token('PKG_NAME',to_char(p_project_party_id));
798: --fnd_message.set_token('PROCEDURE_NAME',to_char(p_record_version_number));
799: fnd_msg_pub.add;
800:
801: end if;
802: end if;
897: pa_debug.reset_err_stack;
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
902: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
903: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
904: fnd_msg_pub.add();
905: fnd_msg_pub.count_and_get(p_count => x_msg_count,
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
902: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
903: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
904: fnd_msg_pub.add();
905: fnd_msg_pub.count_and_get(p_count => x_msg_count,
906: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
902: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PUB');
903: fnd_message.set_token('PROCEDURE_NAME','UPDATE_PROJECT_PARTY');
904: fnd_msg_pub.add();
905: fnd_msg_pub.count_and_get(p_count => x_msg_count,
906: p_data => x_msg_data);
907: raise;
1175: EXCEPTION
1176:
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1180: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1181: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1182: fnd_msg_pub.add();
1183: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1176:
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1180: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1181: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1182: fnd_msg_pub.add();
1183: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1184: p_data => x_msg_data);
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
1180: fnd_message.set_token('PKG_NAME','PA_PROJECT_PARTIES_PVT');
1181: fnd_message.set_token('PROCEDURE_NAME','DELETE_PROJECT_PARTY');
1182: fnd_msg_pub.add();
1183: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1184: p_data => x_msg_data);
1185: raise;
1191: pa_debug.debug('Delete_project_party : Exception NO_DATA_FOUND ');
1192: END IF;
1193: end if;
1194:
1195: --fnd_message.set_name('PA', 'PA_XC_NO_DATA_FOUND');
1196: x_return_status := FND_API.G_RET_STS_ERROR;
1197:
1198: WHEN TIMEOUT_ON_RESOURCE THEN
1199:
1202: pa_debug.debug('Delete_project_party : Exception TIMEOUT_ON_RESOURCE ');
1203: END IF;
1204: end if;
1205:
1206: fnd_message.set_name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: return;
1209:
1210: WHEN OTHERS then
1218: END IF;
1219: end if;
1220:
1221: if(SQLCODE = -54) then
1222: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1223: x_msg_data := FND_MESSAGE.get;
1224: x_return_status := FND_API.G_RET_STS_ERROR;
1225: else
1226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1219: end if;
1220:
1221: if(SQLCODE = -54) then
1222: FND_MESSAGE.Set_Name('PA', 'PA_XC_ROW_ALREADY_LOCKED');
1223: x_msg_data := FND_MESSAGE.get;
1224: x_return_status := FND_API.G_RET_STS_ERROR;
1225: else
1226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PARTIES_PUB',
1227: p_procedure_name => pa_debug.g_err_stack,