128: raise;
129: END;
130: end if;
131:
132: l_msg_count := FND_MSG_PUB.count_msg;
133: if l_msg_count > 0 then
134: x_msg_count := l_msg_count;
135: if x_msg_count = 1 then
136: x_msg_data := l_msg_data;
171: ,x_msg_count => l_msg_count
172: ,x_msg_data => l_msg_data );
173:
174: IF (l_return_status <> 'S') THEN
175: l_msg_count := FND_MSG_PUB.count_msg;
176: IF l_msg_count > 0 THEN
177: x_msg_count := l_msg_count;
178: IF x_msg_count = 1 THEN
179: x_msg_data := l_msg_data;
315: if p_commit = FND_API.G_TRUE then
316: rollback to update_project_dates_pvt;
317: end if;
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
319: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_DATES_PVT',
320: p_procedure_name => 'Update_Project_Dates',
321: p_error_text => SUBSTRB(SQLERRM,1,240));
322: when OTHERS then
323: if p_commit = FND_API.G_TRUE then
323: if p_commit = FND_API.G_TRUE then
324: rollback to update_project_dates_pvt;
325: end if;
326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_DATES_PVT',
328: p_procedure_name => 'Update_Project_Dates',
329: p_error_text => SUBSTRB(SQLERRM,1,240));
330: raise;
331: END UPDATE_PROJECT_DATES;