1: PACKAGE BODY PA_PT_CO_IMPL_STATUSES_PKG AS
2: /* $Header: PAFPCOIB.pls 120.1 2005/08/19 16:25:31 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PT_CO_IMPL_STATUSES_PKG';
5:
1: PACKAGE BODY PA_PT_CO_IMPL_STATUSES_PKG AS
2: /* $Header: PAFPCOIB.pls 120.1 2005/08/19 16:25:31 mwasowic noship $ */
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PT_CO_IMPL_STATUSES_PKG';
5:
6: /*==================================================================
7: API for inserting into the table
8: ==================================================================*/
6: /*==================================================================
7: API for inserting into the table
8: ==================================================================*/
9: PROCEDURE INSERT_ROW (
10: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
7: API for inserting into the table
8: ==================================================================*/
9: PROCEDURE INSERT_ROW (
10: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
15: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
8: ==================================================================*/
9: PROCEDURE INSERT_ROW (
10: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
15: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
16: x_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
9: PROCEDURE INSERT_ROW (
10: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
15: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
16: x_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
17: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
10: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
15: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
16: x_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
17: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
18: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
11: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
12: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
13: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
14: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
15: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
16: x_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
17: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
18: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
19: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
23:
24: x_return_status := FND_API.G_RET_STS_SUCCESS;
25:
26: INSERT
27: INTO PA_PT_CO_IMPL_STATUSES (
28: pt_co_impl_statuses_id,
29: fin_plan_type_id,
30: ci_type_id,
31: version_type,
57: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58: x_msg_count := 1;
59: x_msg_data := SQLERRM;
60: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
61: 'PA_PT_CO_IMPL_STATUSES_PKG',
62: p_procedure_name => 'INSERT_ROW');
63: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64:
65: END Insert_Row;
67: /*==================================================================
68: API for updating records of the table
69: ==================================================================*/
70: PROCEDURE UPDATE_ROW (
71: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
68: API for updating records of the table
69: ==================================================================*/
70: PROCEDURE UPDATE_ROW (
71: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
69: ==================================================================*/
70: PROCEDURE UPDATE_ROW (
71: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
77: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
70: PROCEDURE UPDATE_ROW (
71: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
77: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
78: p_lock_row IN VARCHAR2,
71: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
77: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
78: p_lock_row IN VARCHAR2,
79: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
72: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
77: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
78: p_lock_row IN VARCHAR2,
79: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
80: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
73: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
74: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
75: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
76: p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
77: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
78: p_lock_row IN VARCHAR2,
79: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
80: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
81: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
149: pa_debug.write(l_module_name,pa_debug.g_err_stage,
150: l_debug_level3);
151: END IF;
152:
153: UPDATE PA_PT_CO_IMPL_STATUSES
154: SET
155: pt_co_impl_statuses_id = DECODE (p_pt_co_impl_statuses_id, FND_API.G_MISS_NUM,
156: NULL, NVL(p_pt_co_impl_statuses_id, pt_co_impl_statuses_id)),
157: fin_plan_type_id = DECODE (p_fin_plan_type_id, FND_API.G_MISS_NUM, NULL,
204: pa_debug.write(l_module_name,pa_debug.g_err_stage,
205: l_debug_level3);
206: END IF;
207:
208: UPDATE PA_PT_CO_IMPL_STATUSES
209: SET
210: pt_co_impl_statuses_id = DECODE (p_pt_co_impl_statuses_id, FND_API.G_MISS_NUM,
211: NULL, NVL(p_pt_co_impl_statuses_id, pt_co_impl_statuses_id)),
212: fin_plan_type_id = DECODE (p_fin_plan_type_id, FND_API.G_MISS_NUM, NULL,
274: IF l_debug_mode = 'Y' THEN
275: pa_debug.reset_curr_function;
276: END IF;
277:
278: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PT_CO_IMPL_STATUSES_PKG' ,
279: p_procedure_name => 'Update_Row');
280:
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: x_msg_count := 1;
284: x_msg_data := SQLERRM;
285: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PT_CO_IMPL_STATUSES_PKG',
286: p_procedure_name => 'Update_Row');
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288:
289: END UPDATE_ROW;
291: /*==================================================================
292: API for deleting records of the table
293: ==================================================================*/
294: PROCEDURE DELETE_ROW (
295: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
292: API for deleting records of the table
293: ==================================================================*/
294: PROCEDURE DELETE_ROW (
295: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
300: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
293: ==================================================================*/
294: PROCEDURE DELETE_ROW (
295: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
300: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
301: p_lock_row IN VARCHAR2,
294: PROCEDURE DELETE_ROW (
295: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
300: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
301: p_lock_row IN VARCHAR2,
302: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
295: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
300: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
301: p_lock_row IN VARCHAR2,
302: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
303: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
296: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
297: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
298: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
299: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
300: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
301: p_lock_row IN VARCHAR2,
302: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
303: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
304: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
350: l_debug_level3);
351: END IF;
352:
353: DELETE
354: FROM pa_pt_co_impl_statuses
355: WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id;
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Row Deleted';
395: l_debug_level3);
396: END IF;
397:
398: DELETE
399: FROM pa_pt_co_impl_statuses
400: WHERE fin_plan_type_id = p_fin_plan_type_id
401: AND ci_type_id = p_ci_type_id
402: AND version_type = DECODE(p_version_type,
403: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH, version_type,
421: WHEN OTHERS THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: x_msg_count := 1;
424: x_msg_data := SQLERRM;
425: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PT_CO_IMPL_STATUSES_PKG',
426: p_procedure_name => 'DELETE_ROW');
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428:
429: END DELETE_ROW;
432: API for locking records of the table
433: ==================================================================*/
434: PROCEDURE LOCK_ROW (
435: p_row_id IN ROWID,
436: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
433: ==================================================================*/
434: PROCEDURE LOCK_ROW (
435: p_row_id IN ROWID,
436: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
441: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
434: PROCEDURE LOCK_ROW (
435: p_row_id IN ROWID,
436: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
441: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
442: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
435: p_row_id IN ROWID,
436: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
441: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
442: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
443: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
436: p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
441: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
442: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
443: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
444: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
437: p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
438: p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
439: p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
440: p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
441: p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
442: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
443: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
444: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
445:
452:
453: CURSOR lock_rows_crs
454: IS
455: SELECT ROWID
456: FROM pa_pt_co_impl_statuses
457: WHERE fin_plan_type_id = p_fin_plan_type_id
458: AND ci_type_id = p_ci_type_id
459: AND version_type = DECODE(p_version_type,
460: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH, version_type,
475: END IF;
476:
477: SELECT ROWID
478: INTO l_row_id
479: FROM pa_pt_co_impl_statuses
480: WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id
481: AND record_version_number = Nvl(p_record_version_number, record_version_number)
482: FOR UPDATE NOWAIT;
483:
508: WHEN OTHERS THEN
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: x_msg_count := 1;
511: x_msg_data := SQLERRM;
512: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PT_CO_IMPL_STATUSES_PKG',
513: p_procedure_name => 'LOCK_ROW');
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515:
516: END Lock_Row;
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515:
516: END Lock_Row;
517:
518: END PA_PT_CO_IMPL_STATUSES_PKG;