33: X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
34: X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
35: ) is
36: begin
37: PA_DEBUG.init_err_stack('PA_ROLE_LISTS_PVT.INSERT_ROW');
38:
39: -- Check for duplicate row list names
40: PA_ROLE_UTILS.CHECK_DUP_ROLE_LIST_NAME(
41: p_name,
75:
76: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
77: X_MSG_COUNT := 0;
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',
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;
87:
88: exception
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;
98:
99: ------------------------------------------------------------------------------
104: X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
105: X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
106: ) is
107: begin
108: PA_DEBUG.init_err_stack('PA_ROLE_LISTS_PVT.LOCK_ROW');
109: --any validation to be added here ?
110: --call table handler to lock the row
111: PA_ROLE_LISTS_PKG.LOCK_ROW(
112: P_ROWID,
114:
115: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
116: X_MSG_COUNT := 0;
117: X_MSG_DATA := NULL;
118: PA_DEBUG.reset_err_stack;
119:
120: exception
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;
130:
131: ------------------------------------------------------------------------------
162: X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
163: ) is
164: v_name PA_ROLE_LISTS.name%TYPE;
165: begin
166: PA_DEBUG.init_err_stack('PA_ROLE_LISTS_PVT.UPDATE_ROW');
167:
168: select name
169: into v_name
170: from pa_role_lists
213:
214: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
215: X_MSG_COUNT := 0;
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',
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;
225:
226: exception
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;
236:
237: ------------------------------------------------------------------------------
242: X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
243: ) is
244: v_role_list_id number;
245: begin
246: PA_DEBUG.init_err_stack('PA_ROLE_LISTS_PVT.DELETE_ROW');
247: --validate if the role list can be deleted or not
248: select role_list_id
249: into v_role_list_id
250: from pa_role_lists
263: where ROLE_LIST_ID = v_role_list_id;
264:
265: X_MSG_COUNT := 0;
266: X_MSG_DATA := NULL;
267: PA_DEBUG.reset_err_stack;
268:
269: else
270: X_MSG_COUNT := 1;
271: FND_MSG_PUB.add_exc_msg(
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;
276:
277: exception
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;
287:
288: end PA_ROLE_LISTS_PVT;