APPS.PA_OBJECT_DIST_LISTS_PVT dependencies on PA_OBJECT_DIST_LISTS

Line 1: PACKAGE BODY PA_OBJECT_DIST_LISTS_PVT AS

1: PACKAGE BODY PA_OBJECT_DIST_LISTS_PVT AS
2: /* $Header: PATODLVB.pls 120.1 2005/08/19 17:04:37 mwasowic noship $ */
3: procedure CREATE_OBJECT_DIST_LIST (
4: p_api_version IN NUMBER := 1.0,
5: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

Line 58: PA_OBJECT_DIST_LISTS_PKG.INSERT_ROW (

54:
55: -- Insert a row if no validation failure
56: If (x_return_status = fnd_api.g_ret_sts_success
57: AND p_validate_only <> fnd_api.g_true) then
58: PA_OBJECT_DIST_LISTS_PKG.INSERT_ROW (
59: P_LIST_ID => P_LIST_ID,
60: P_OBJECT_TYPE => P_OBJECT_TYPE,
61: P_OBJECT_ID => P_OBJECT_ID,
62: P_RECORD_VERSION_NUMBER => 1,

Line 93: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',

89: THEN
90: ROLLBACK TO CREATE_OBJECT_DIST_LIST;
91: END IF;
92: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',
94: p_procedure_name => 'CREATE_OBJECT_DIST_LIST',
95: p_error_text => SUBSTRB(SQLERRM,1,240));
96: RAISE;
97:

Line 120: from pa_object_dist_lists

116: )
117: IS
118: Cursor check_record_changed IS
119: select rowid
120: from pa_object_dist_lists
121: where list_id = p_list_id
122: and object_type = p_object_type
123: and object_id = p_object_id
124: and record_version_number = p_record_version_number

Line 174: PA_OBJECT_DIST_LISTS_PKG.UPDATE_ROW (

170:
171: -- Update row
172: If (x_return_status = FND_API.G_RET_STS_SUCCESS
173: AND p_validate_only <> fnd_api.g_true) then
174: PA_OBJECT_DIST_LISTS_PKG.UPDATE_ROW (
175: P_LIST_ID => P_LIST_ID,
176: P_OBJECT_TYPE => P_OBJECT_TYPE,
177: P_OBJECT_ID => P_OBJECT_ID,
178: P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER + 1,

Line 206: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',

202: THEN
203: ROLLBACK TO UPDATE_OBJECT_DIST_LIST;
204: END IF;
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',
207: p_procedure_name => 'UPDATE_OBJECT_DIST_LIST',
208: p_error_text => SUBSTRB(SQLERRM,1,240));
209: RAISE;
210:

Line 244: PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (

240:
241: -- Delete row
242: If (x_return_status = FND_API.G_RET_STS_SUCCESS
243: AND p_validate_only <> fnd_api.g_true) then
244: PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (
245: P_LIST_ID => P_LIST_ID
246: ,P_OBJECT_TYPE => P_OBJECT_TYPE
247: ,P_OBJECT_ID => P_OBJECT_ID ) ;
248: End if;

Line 272: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',

268: THEN
269: ROLLBACK TO DELETE_OBJECT_DIST_LIST;
270: END IF;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',
273: p_procedure_name => 'DELETE_OBJECT_DIST_LIST',
274: p_error_text => SUBSTRB(SQLERRM,1,240));
275: RAISE;
276: End DELETE_OBJECT_DIST_LIST;

Line 293: FROM pa_object_dist_lists

289: )
290: IS
291: CURSOR c_list_ids IS
292: SELECT list_id list_id
293: FROM pa_object_dist_lists
294: WHERE object_type = p_object_type
295: AND object_id = p_object_id;
296:
297: CURSOR c_list_other_usage(cp_list_id NUMBER) IS

Line 299: FROM pa_object_dist_lists

295: AND object_id = p_object_id;
296:
297: CURSOR c_list_other_usage(cp_list_id NUMBER) IS
298: SELECT 'Y'
299: FROM pa_object_dist_lists
300: WHERE list_id = cp_list_id
301: AND (object_type <> p_object_type
302: OR object_id <> p_object_id)
303: AND ROWNUM = 1;

Line 324: PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (

320: IF (x_return_status = FND_API.G_RET_STS_SUCCESS
321: AND p_validate_only <> fnd_api.g_true) THEN
322: FOR rec IN c_list_ids LOOP
323: -- Delete row
324: PA_OBJECT_DIST_LISTS_PKG.DELETE_ROW (
325: P_LIST_ID => rec.list_id
326: ,P_OBJECT_TYPE => P_OBJECT_TYPE
327: ,P_OBJECT_ID => P_OBJECT_ID );
328:

Line 367: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',

363: THEN
364: ROLLBACK TO DELETE_ASSOC_DIST_LISTS;
365: END IF;
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_OBJECT_DIST_LISTS_PVT',
368: p_procedure_name => 'DELETE_ASSOC_DIST_LISTS',
369: p_error_text => SUBSTRB(SQLERRM,1,240));
370: RAISE;
371: End DELETE_ASSOC_DIST_LISTS;

Line 373: END PA_OBJECT_DIST_LISTS_PVT;

369: p_error_text => SUBSTRB(SQLERRM,1,240));
370: RAISE;
371: End DELETE_ASSOC_DIST_LISTS;
372:
373: END PA_OBJECT_DIST_LISTS_PVT;