1: PACKAGE BODY pa_fp_excluded_elements_pkg as
2: /* $Header: PAFPXELB.pls 120.1 2005/08/19 16:32:06 mwasowic noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_FP_EXCLUDED_ELEMENTS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'PAFPEXLB.pls';
1: PACKAGE BODY pa_fp_excluded_elements_pkg as
2: /* $Header: PAFPXELB.pls 120.1 2005/08/19 16:32:06 mwasowic noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_FP_EXCLUDED_ELEMENTS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'PAFPEXLB.pls';
6:
7: PROCEDURE Insert_Row
8: (
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'PAFPEXLB.pls';
6:
7: PROCEDURE Insert_Row
8: (
9: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
6:
7: PROCEDURE Insert_Row
8: (
9: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
14: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
7: PROCEDURE Insert_Row
8: (
9: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
14: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
15: ,x_row_id OUT NOCOPY ROWID --File.Sql.39 bug 4440895
8: (
9: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
14: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
15: ,x_row_id OUT NOCOPY ROWID --File.Sql.39 bug 4440895
16: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
9: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
14: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
15: ,x_row_id OUT NOCOPY ROWID --File.Sql.39 bug 4440895
16: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
17: IS
10: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
11: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
12: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
13: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
14: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
15: ,x_row_id OUT NOCOPY ROWID --File.Sql.39 bug 4440895
16: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
17: IS
18: BEGIN
17: IS
18: BEGIN
19: x_return_status := FND_API.G_RET_STS_SUCCESS;
20:
21: INSERT INTO pa_fp_excluded_elements(
22: proj_fp_options_id
23: ,project_id
24: ,fin_plan_type_id
25: ,element_type
48:
49: EXCEPTION
50: WHEN OTHERS THEN
51: FND_MSG_PUB.add_exc_msg( p_pkg_name
52: => 'PA_FP_EXCLUDED_ELEMENTS_PKG'
53: ,p_procedure_name
54: => 'Insert_Row');
55: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
56: RAISE;
57: END Insert_Row;
58:
59: PROCEDURE Update_Row
60: (
61: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
58:
59: PROCEDURE Update_Row
60: (
61: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
59: PROCEDURE Update_Row
60: (
61: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
67: ,p_record_version_number IN pa_fp_excluded_elements.record_version_number%TYPE
60: (
61: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
67: ,p_record_version_number IN pa_fp_excluded_elements.record_version_number%TYPE
68: ,p_row_id IN ROWID
61: p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
67: ,p_record_version_number IN pa_fp_excluded_elements.record_version_number%TYPE
68: ,p_row_id IN ROWID
69: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
62: ,p_project_id IN pa_fp_excluded_elements.project_id%TYPE
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
67: ,p_record_version_number IN pa_fp_excluded_elements.record_version_number%TYPE
68: ,p_row_id IN ROWID
69: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
70: IS
63: ,p_fin_plan_type_id IN pa_fp_excluded_elements.fin_plan_type_id%TYPE
64: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE
65: ,p_fin_plan_version_id IN pa_fp_excluded_elements.fin_plan_version_id%TYPE
66: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE
67: ,p_record_version_number IN pa_fp_excluded_elements.record_version_number%TYPE
68: ,p_row_id IN ROWID
69: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
70: IS
71: BEGIN
70: IS
71: BEGIN
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: UPDATE pa_fp_excluded_elements
75: SET proj_fp_options_id = DECODE(p_proj_fp_options_id,
76: FND_API.G_MISS_NUM, Null,
77: nvl(p_proj_fp_options_id,proj_fp_options_id))
78: ,project_id = DECODE(p_project_id,
107:
108: EXCEPTION
109: WHEN OTHERS THEN
110: FND_MSG_PUB.add_exc_msg( p_pkg_name
111: => 'PA_FP_EXCLUDED_ELEMENTS_PKG'
112: ,p_procedure_name
113: => 'Update_Row');
114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: RAISE;
115: RAISE;
116: END Update_Row;
117:
118: PROCEDURE Delete_Row
119: ( p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE := Null
120: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE := Null
121: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE := Null
122: ,p_row_id IN ROWID
123: ,p_record_version_number IN NUMBER := Null
116: END Update_Row;
117:
118: PROCEDURE Delete_Row
119: ( p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE := Null
120: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE := Null
121: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE := Null
122: ,p_row_id IN ROWID
123: ,p_record_version_number IN NUMBER := Null
124: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
117:
118: PROCEDURE Delete_Row
119: ( p_proj_fp_options_id IN pa_fp_excluded_elements.proj_fp_options_id%TYPE := Null
120: ,p_element_type IN pa_fp_excluded_elements.element_type%TYPE := Null
121: ,p_task_id IN pa_fp_excluded_elements.task_id%TYPE := Null
122: ,p_row_id IN ROWID
123: ,p_record_version_number IN NUMBER := Null
124: ,x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
125: IS
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: IF p_row_id IS NOT NULL THEN
130:
131: DELETE FROM pa_fp_excluded_elements
132: WHERE rowid = p_row_id
133: AND nvl(record_version_number,0) = nvl(p_record_version_number, nvl(record_version_number,0));
134:
135: ELSE
133: AND nvl(record_version_number,0) = nvl(p_record_version_number, nvl(record_version_number,0));
134:
135: ELSE
136:
137: DELETE FROM pa_fp_excluded_elements
138: WHERE proj_fp_options_id = p_proj_fp_options_id
139: AND element_type = p_element_type
140: AND task_id = p_task_id
141: AND nvl(record_version_number,0) = nvl(p_record_version_number, nvl(record_version_number,0));
150:
151: EXCEPTION
152: WHEN OTHERS THEN
153: FND_MSG_PUB.add_exc_msg( p_pkg_name
154: => 'PA_FP_EXCLUDED_ELEMENTS_PKG'
155: ,p_procedure_name
156: => 'Delete_Row');
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158: RAISE;
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169:
170: SELECT rowid
171: INTO l_row_id
172: FROM pa_fp_excluded_elements
173: WHERE rowid = p_row_id
174: AND nvl(record_version_number,0) = nvl(p_record_version_number, nvl(record_version_number,0))
175: FOR UPDATE NOWAIT;
176:
176:
177: EXCEPTION
178: WHEN OTHERS THEN
179: FND_MSG_PUB.add_exc_msg( p_pkg_name
180: => 'PA_FP_EXCLUDED_ELEMENTS_PKG'
181: ,p_procedure_name
182: => 'Lock_Row');
183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
184: RAISE;
183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
184: RAISE;
185: END Lock_Row;
186:
187: END pa_fp_excluded_elements_pkg;