2: --$Header: PAAPORVB.pls 120.2 2005/08/19 16:16:02 mwasowic noship $
3:
4: procedure create_object_page_region (
5: p_api_version IN NUMBER := 1.0,
6: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
7: p_commit IN VARCHAR2 := FND_API.g_false,
8: p_validate_only IN VARCHAR2 := FND_API.g_true,
9: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
10: P_OBJECT_ID IN NUMBER,
3:
4: procedure create_object_page_region (
5: p_api_version IN NUMBER := 1.0,
6: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
7: p_commit IN VARCHAR2 := FND_API.g_false,
8: p_validate_only IN VARCHAR2 := FND_API.g_true,
9: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
10: P_OBJECT_ID IN NUMBER,
11: P_OBJECT_TYPE IN VARCHAR2,
4: procedure create_object_page_region (
5: p_api_version IN NUMBER := 1.0,
6: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
7: p_commit IN VARCHAR2 := FND_API.g_false,
8: p_validate_only IN VARCHAR2 := FND_API.g_true,
9: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
10: P_OBJECT_ID IN NUMBER,
11: P_OBJECT_TYPE IN VARCHAR2,
12: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
5: p_api_version IN NUMBER := 1.0,
6: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
7: p_commit IN VARCHAR2 := FND_API.g_false,
8: p_validate_only IN VARCHAR2 := FND_API.g_true,
9: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
10: P_OBJECT_ID IN NUMBER,
11: P_OBJECT_TYPE IN VARCHAR2,
12: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
13: P_REPLACEMENT_REG_CODE IN VARCHAR2,
36: -- Initialize the Error Stack
37: PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Create_Page_Layout');
38:
39: -- Initialize the return status to success
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41:
42: -- Issue API savepoint if the transaction is to be committed
43: IF p_commit = FND_API.G_TRUE THEN
44: SAVEPOINT create_object_page_region;
39: -- Initialize the return status to success
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41:
42: -- Issue API savepoint if the transaction is to be committed
43: IF p_commit = FND_API.G_TRUE THEN
44: SAVEPOINT create_object_page_region;
45: END IF;
46:
47: -- Check a valid place holder region
50: if(check_valid_region%NOTFOUND) then
51: PA_UTILS.Add_Message( p_app_short_name => 'PA'
52: ,p_msg_name => 'PA_PA_PAGE_REGION_INV'
53: );
54: x_return_status := FND_API.G_RET_STS_ERROR;
55: close check_valid_region;
56: return;
57: end if;
58: close check_valid_region;
61: fetch check_object_page_region_exits into l_dummy;
62: if (check_object_page_region_exits%NOTFOUND) then
63: close check_object_page_region_exits;
64: -- Insert into pa_object_regions
65: IF (p_validate_only <>FND_API.g_true
66: AND x_return_status = FND_API.g_ret_sts_success) THEN
67:
68: PA_OBJECT_REGIONS_PKG.insert_row(
69: P_OBJECT_ID ,
62: if (check_object_page_region_exits%NOTFOUND) then
63: close check_object_page_region_exits;
64: -- Insert into pa_object_regions
65: IF (p_validate_only <>FND_API.g_true
66: AND x_return_status = FND_API.g_ret_sts_success) THEN
67:
68: PA_OBJECT_REGIONS_PKG.insert_row(
69: P_OBJECT_ID ,
70: P_OBJECT_TYPE ,
81: close check_object_page_region_exits;
82: end if;
83:
84: -- Commit changes if the flag is set and there is no error
85: IF (p_commit = FND_API.G_TRUE
86: AND x_return_status = FND_API.g_ret_sts_success )THEN
87: COMMIT;
88: END IF;
89:
82: end if;
83:
84: -- Commit changes if the flag is set and there is no error
85: IF (p_commit = FND_API.G_TRUE
86: AND x_return_status = FND_API.g_ret_sts_success )THEN
87: COMMIT;
88: END IF;
89:
90: -- Reset the error stack when returning to the calling program
91: PA_DEBUG.Reset_Err_Stack;
92:
93: EXCEPTION
94: WHEN OTHERS THEN
95: IF p_commit = FND_API.G_TRUE THEN
96: ROLLBACK TO create_object_page_region;
97: END IF;
98: -- Set the excetption Message and the stack
99: FND_MSG_PUB.add_exc_msg
99: FND_MSG_PUB.add_exc_msg
100: ( p_pkg_name => 'PA_OBJECT_REGIONS_PVT.create_object_page_region'
101: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
102: --
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE; -- This is optional depending on the needs
105: END create_object_page_region;
106:
107: procedure update_object_page_region (
105: END create_object_page_region;
106:
107: procedure update_object_page_region (
108: p_api_version IN NUMBER := 1.0,
109: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
110: p_commit IN VARCHAR2 := FND_API.g_false,
111: p_validate_only IN VARCHAR2 := FND_API.g_true,
112: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
113: P_OBJECT_ID IN NUMBER,
106:
107: procedure update_object_page_region (
108: p_api_version IN NUMBER := 1.0,
109: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
110: p_commit IN VARCHAR2 := FND_API.g_false,
111: p_validate_only IN VARCHAR2 := FND_API.g_true,
112: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
113: P_OBJECT_ID IN NUMBER,
114: P_OBJECT_TYPE IN VARCHAR2,
107: procedure update_object_page_region (
108: p_api_version IN NUMBER := 1.0,
109: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
110: p_commit IN VARCHAR2 := FND_API.g_false,
111: p_validate_only IN VARCHAR2 := FND_API.g_true,
112: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
113: P_OBJECT_ID IN NUMBER,
114: P_OBJECT_TYPE IN VARCHAR2,
115: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
108: p_api_version IN NUMBER := 1.0,
109: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
110: p_commit IN VARCHAR2 := FND_API.g_false,
111: p_validate_only IN VARCHAR2 := FND_API.g_true,
112: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
113: P_OBJECT_ID IN NUMBER,
114: P_OBJECT_TYPE IN VARCHAR2,
115: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
116: P_REPLACEMENT_REG_CODE IN VARCHAR2,
141: -- Initialize the Error Stack
142: PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Create_Page_Layout');
143:
144: -- Initialize the return status to success
145: x_return_status := FND_API.G_RET_STS_SUCCESS;
146:
147: -- Issue API savepoint if the transaction is to be committed
148: IF p_commit = FND_API.G_TRUE THEN
149: SAVEPOINT update_object_page_region;
144: -- Initialize the return status to success
145: x_return_status := FND_API.G_RET_STS_SUCCESS;
146:
147: -- Issue API savepoint if the transaction is to be committed
148: IF p_commit = FND_API.G_TRUE THEN
149: SAVEPOINT update_object_page_region;
150: END IF;
151:
152: -- Check a valid place holder region
155: if(check_valid_region%NOTFOUND) then
156: PA_UTILS.Add_Message( p_app_short_name => 'PA'
157: ,p_msg_name => 'PA_PA_PAGE_REGION_INV'
158: );
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: close check_valid_region;
161: return;
162: end if;
163: close check_valid_region;
170: P_PLACEHOLDER_REG_CODE );
171: RETURN;
172: END IF;
173: -- Update pa_object_regions
174: IF (p_validate_only <>FND_API.g_true
175: AND x_return_status = FND_API.g_ret_sts_success) THEN
176:
177: PA_OBJECT_REGIONS_PKG.update_row(
178: P_OBJECT_ID ,
171: RETURN;
172: END IF;
173: -- Update pa_object_regions
174: IF (p_validate_only <>FND_API.g_true
175: AND x_return_status = FND_API.g_ret_sts_success) THEN
176:
177: PA_OBJECT_REGIONS_PKG.update_row(
178: P_OBJECT_ID ,
179: P_OBJECT_TYPE ,
185: fnd_global.user_id );
186: END IF;
187:
188: -- Commit changes if the flag is set and there is no error
189: IF (p_commit = FND_API.G_TRUE
190: AND x_return_status = FND_API.g_ret_sts_success )THEN
191: COMMIT;
192: END IF;
193:
186: END IF;
187:
188: -- Commit changes if the flag is set and there is no error
189: IF (p_commit = FND_API.G_TRUE
190: AND x_return_status = FND_API.g_ret_sts_success )THEN
191: COMMIT;
192: END IF;
193:
194: -- Reset the error stack when returning to the calling program
197: EXCEPTION
198: WHEN NO_DATA_FOUND then
199: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
200: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: IF p_commit = FND_API.G_TRUE THEN
203: ROLLBACK TO update_object_page_region;
204: END IF;
205: RAISE;
198: WHEN NO_DATA_FOUND then
199: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
200: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: IF p_commit = FND_API.G_TRUE THEN
203: ROLLBACK TO update_object_page_region;
204: END IF;
205: RAISE;
206: WHEN OTHERS THEN
203: ROLLBACK TO update_object_page_region;
204: END IF;
205: RAISE;
206: WHEN OTHERS THEN
207: IF p_commit = FND_API.G_TRUE THEN
208: ROLLBACK TO update_object_page_region;
209: END IF;
210: -- Set the excetption Message and the stack
211: FND_MSG_PUB.add_exc_msg
211: FND_MSG_PUB.add_exc_msg
212: ( p_pkg_name => 'PA_OBJECT_REGIONS_PVT.update_object_page_region'
213: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
214: --
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
216: RAISE; -- This is optional depending on the needs
217: End update_object_page_region;
218:
219: procedure DELETE_object_page_region (
217: End update_object_page_region;
218:
219: procedure DELETE_object_page_region (
220: p_api_version IN NUMBER := 1.0,
221: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
222: p_commit IN VARCHAR2 := FND_API.g_false,
223: p_validate_only IN VARCHAR2 := FND_API.g_true,
224: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
225: P_OBJECT_ID IN NUMBER,
218:
219: procedure DELETE_object_page_region (
220: p_api_version IN NUMBER := 1.0,
221: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
222: p_commit IN VARCHAR2 := FND_API.g_false,
223: p_validate_only IN VARCHAR2 := FND_API.g_true,
224: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
225: P_OBJECT_ID IN NUMBER,
226: P_OBJECT_TYPE IN VARCHAR2,
219: procedure DELETE_object_page_region (
220: p_api_version IN NUMBER := 1.0,
221: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
222: p_commit IN VARCHAR2 := FND_API.g_false,
223: p_validate_only IN VARCHAR2 := FND_API.g_true,
224: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
225: P_OBJECT_ID IN NUMBER,
226: P_OBJECT_TYPE IN VARCHAR2,
227: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
220: p_api_version IN NUMBER := 1.0,
221: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
222: p_commit IN VARCHAR2 := FND_API.g_false,
223: p_validate_only IN VARCHAR2 := FND_API.g_true,
224: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
225: P_OBJECT_ID IN NUMBER,
226: P_OBJECT_TYPE IN VARCHAR2,
227: P_PLACEHOLDER_REG_CODE IN VARCHAR2,
228: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
234: -- Initialize the Error Stack
235: PA_DEBUG.init_err_stack('PA_PAGE_LAYOUT_PVT.Create_Page_Layout');
236:
237: -- Initialize the return status to success
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: -- Issue API savepoint if the transaction is to be committed
241: IF p_commit = FND_API.G_TRUE THEN
242: SAVEPOINT update_object_page_region;
237: -- Initialize the return status to success
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: -- Issue API savepoint if the transaction is to be committed
241: IF p_commit = FND_API.G_TRUE THEN
242: SAVEPOINT update_object_page_region;
243: END IF;
244:
245: IF (p_validate_only <>FND_API.g_true
241: IF p_commit = FND_API.G_TRUE THEN
242: SAVEPOINT update_object_page_region;
243: END IF;
244:
245: IF (p_validate_only <>FND_API.g_true
246: AND x_return_status = FND_API.g_ret_sts_success) THEN
247:
248: PA_OBJECT_REGIONS_PKG.delete_row(
249: P_OBJECT_ID ,
242: SAVEPOINT update_object_page_region;
243: END IF;
244:
245: IF (p_validate_only <>FND_API.g_true
246: AND x_return_status = FND_API.g_ret_sts_success) THEN
247:
248: PA_OBJECT_REGIONS_PKG.delete_row(
249: P_OBJECT_ID ,
250: P_OBJECT_TYPE ,
251: P_PLACEHOLDER_REG_CODE );
252: END IF;
253:
254: -- Commit changes if the flag is set and there is no error
255: IF (p_commit = FND_API.G_TRUE
256: AND x_return_status = FND_API.g_ret_sts_success )THEN
257: COMMIT;
258: END IF;
259:
252: END IF;
253:
254: -- Commit changes if the flag is set and there is no error
255: IF (p_commit = FND_API.G_TRUE
256: AND x_return_status = FND_API.g_ret_sts_success )THEN
257: COMMIT;
258: END IF;
259:
260: -- Reset the error stack when returning to the calling program
261: PA_DEBUG.Reset_Err_Stack;
262:
263: EXCEPTION
264: WHEN OTHERS THEN
265: IF p_commit = FND_API.G_TRUE THEN
266: ROLLBACK TO delete_object_page_region;
267: END IF;
268: -- Set the excetption Message and the stack
269: FND_MSG_PUB.add_exc_msg
269: FND_MSG_PUB.add_exc_msg
270: ( p_pkg_name => 'PA_OBJECT_REGIONS_PVT.delete_object_page_region'
271: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
272: --
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
274: RAISE; -- This is optional depending on the needs
275:
276: End DELETE_object_page_region;
277: