1: PACKAGE BODY pa_role_controls_pvt AS
2: /* $Header: PARPRCVB.pls 120.1 2005/08/19 16:58:49 mwasowic noship $ */
3:
4: -- --------------------------------------------------------------------------
5: -- PROCEDURE
27:
28: BEGIN
29:
30: -- Initialize the Error Stack
31: PA_DEBUG.init_err_stack('PA_ROLE_CONTROLS_PVT.Insert_Row');
32: x_msg_count := 0;
33: x_msg_data := NULL;
34:
35: -- Initialize the return status to success
54: x_msg_count := 1;
55: x_msg_data := substr(SQLERRM,1,240);
56: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
57: FND_MSG_PUB.add_exc_msg
58: (p_pkg_name => 'PA_ROLE_CONTROLS_PVT'
59: , p_procedure_name => PA_DEBUG.G_Err_Stack
60: , p_error_text => substr(SQLERRM,1,240));
61: RETURN;
62:
86:
87: BEGIN
88:
89: -- Initialize the Error Stack
90: PA_DEBUG.init_err_stack('PA_ROLE_CONTROLS_PVT.Lock_Row');
91: x_msg_count := 0;
92: x_msg_data := NULL;
93:
94: -- Initialize the return status to success
107: x_msg_count := 1;
108: x_msg_data := substr(SQLERRM,1,240);
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110: FND_MSG_PUB.add_exc_msg
111: (p_pkg_name => 'PA_ROLE_CONTROLS_PVT'
112: , p_procedure_name => PA_DEBUG.G_Err_Stack
113: , p_error_text => substr(SQLERRM,1,240));
114: RETURN;
115:
140:
141: BEGIN
142:
143: -- Initialize the Error Stack
144: PA_DEBUG.init_err_stack('PA_ROLE_CONTROLS_PVT.Update_Row');
145: x_msg_count := 0;
146: x_msg_data := NULL;
147:
148: -- Initialize the return status to success
167: x_msg_count := 1;
168: x_msg_data := substr(SQLERRM,1,240);
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: FND_MSG_PUB.add_exc_msg
171: (p_pkg_name => 'PA_ROLE_CONTROLS_PVT'
172: , p_procedure_name => PA_DEBUG.G_Err_Stack
173: , p_error_text => substr(SQLERRM,1,240));
174: RETURN;
175:
210:
211: l_rowid := p_rowid;
212:
213: -- Initialize the Error Stack
214: PA_DEBUG.init_err_stack('PA_ROLE_CONTROLS_PVT.Delete_Row');
215: x_msg_count := 0;
216: x_msg_data := NULL;
217:
218: -- Initialize the return status to success
237: x_msg_count := 1;
238: x_msg_data := l_error_message_code;
239: x_return_status := l_return_status;
240: FND_MSG_PUB.add_exc_msg
241: (p_pkg_name => 'PA_ROLE_CONTROLS_PVT'
242: , p_procedure_name => PA_DEBUG.G_Err_Stack
243: , p_error_text => l_error_message_code);
244: RETURN;
245: END IF;
258: x_msg_count := 1;
259: x_msg_data := substr(SQLERRM,1,240);
260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
261: FND_MSG_PUB.add_exc_msg
262: (p_pkg_name => 'PA_ROLE_CONTROLS_PVT'
263: , p_procedure_name => PA_DEBUG.G_Err_Stack
264: , p_error_text => substr(SQLERRM,1,240));
265: RETURN;
266:
266:
267: END Delete_Row;
268:
269:
270: END pa_role_controls_pvt;