78: X_MSG_DATA := NULL;
79: PA_DEBUG.reset_err_stack;
80: else
81: X_MSG_COUNT := 1;
82: FND_MSG_PUB.add_exc_msg(
83: p_pkg_name => 'PA_ROLE_LISTS_PVT',
84: p_procedure_name => PA_DEBUG.G_err_stack,
85: p_error_text => X_MSG_DATA);
86: end if;
89: when others then
90: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
91: X_MSG_COUNT := 1;
92: X_MSG_DATA := substr(SQLERRM, 1, 240);
93: FND_MSG_PUB.add_exc_msg(
94: p_pkg_name => 'PA_ROLE_LISTS_PVT',
95: p_procedure_name => PA_DEBUG.G_err_stack,
96: p_error_text => X_MSG_DATA);
97: end;
121: when others then
122: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
123: X_MSG_COUNT := 1;
124: X_MSG_DATA := substr(SQLERRM, 1, 240);
125: FND_MSG_PUB.add_exc_msg(
126: p_pkg_name => 'PA_ROLE_LISTS_PVT',
127: p_procedure_name => PA_DEBUG.G_err_stack,
128: p_error_text => X_MSG_DATA);
129: end;
216: X_MSG_DATA := NULL;
217: PA_DEBUG.reset_err_stack;
218: else
219: X_MSG_COUNT := 1;
220: FND_MSG_PUB.add_exc_msg(
221: p_pkg_name => 'PA_ROLE_LISTS_PVT',
222: p_procedure_name => PA_DEBUG.G_err_stack,
223: p_error_text => X_MSG_DATA);
224: end if;
227: when others then
228: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
229: X_MSG_COUNT := 1;
230: X_MSG_DATA := substr(SQLERRM, 1, 240);
231: FND_MSG_PUB.add_exc_msg(
232: p_pkg_name => 'PA_ROLE_LISTS_PVT',
233: p_procedure_name => PA_DEBUG.G_err_stack,
234: p_error_text => X_MSG_DATA);
235: end;
267: PA_DEBUG.reset_err_stack;
268:
269: else
270: X_MSG_COUNT := 1;
271: FND_MSG_PUB.add_exc_msg(
272: p_pkg_name => 'PA_ROLE_LISTS_PVT',
273: p_procedure_name => PA_DEBUG.G_err_stack,
274: p_error_text => X_MSG_DATA);
275: end if;
278: when others then
279: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
280: X_MSG_COUNT := 1;
281: X_MSG_DATA := substr(SQLERRM, 1, 240);
282: FND_MSG_PUB.add_exc_msg(
283: p_pkg_name => 'PA_ROLE_LISTS_PVT',
284: p_procedure_name => PA_DEBUG.G_err_stack,
285: p_error_text => X_MSG_DATA);
286: end;