APPS.PA_DISTRIBUTION_LISTS_PVT dependencies on PA_DISTRIBUTION_LISTS

Line 1: PACKAGE BODY PA_DISTRIBUTION_LISTS_PVT AS

1: PACKAGE BODY PA_DISTRIBUTION_LISTS_PVT AS
2: /* $Header: PATDSLVB.pls 120.1 2005/08/19 17:03:55 mwasowic noship $ */
3: procedure CREATE_DIST_LIST (
4: p_api_version IN NUMBER := 1.0,
5: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

Line 49: PA_DISTRIBUTION_LISTS_PKG.INSERT_ROW (

45:
46: -- Insert a row if no validation failure
47: If (x_return_status = fnd_api.g_ret_sts_success
48: AND p_validate_only <> fnd_api.g_true) then
49: PA_DISTRIBUTION_LISTS_PKG.INSERT_ROW (
50: P_LIST_ID => P_LIST_ID,
51: P_NAME => P_NAME,
52: P_DESCRIPTION => P_DESCRIPTION,
53: P_RECORD_VERSION_NUMBER => 1,

Line 80: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

76: THEN
77: ROLLBACK TO CREATE_DIST_LIST;
78: END IF;
79: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
80: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
81: p_procedure_name => 'CREATE_DIST_LIST',
82: p_error_text => SUBSTRB(SQLERRM,1,240));
83: RAISE;
84:

Line 107: from pa_distribution_lists

103: )
104: IS
105: Cursor check_record_changed IS
106: select rowid
107: from pa_distribution_lists
108: where list_id = p_list_id
109: and record_version_number = p_record_version_number
110: for update of list_id;
111:

Line 154: PA_DISTRIBUTION_LISTS_PKG.UPDATE_ROW (

150: end if;
151: -- Update row
152: If (x_return_status = FND_API.G_RET_STS_SUCCESS
153: AND p_validate_only <> fnd_api.g_true) then
154: PA_DISTRIBUTION_LISTS_PKG.UPDATE_ROW (
155: P_LIST_ID => P_LIST_ID,
156: P_NAME => P_NAME,
157: P_DESCRIPTION => P_DESCRIPTION,
158: P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,

Line 183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

179: THEN
180: ROLLBACK TO UPDATE_DIST_LIST;
181: END IF;
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
184: p_procedure_name => 'UPDATE_DIST_LIST',
185: p_error_text => SUBSTRB(SQLERRM,1,240));
186: RAISE;
187:

Line 214: PA_DISTRIBUTION_LISTS_PKG.DELETE_ROW (

210: x_return_status := fnd_api.g_ret_sts_success;
211: -- Update row
212: If (x_return_status = FND_API.G_RET_STS_SUCCESS
213: AND p_validate_only <> fnd_api.g_true) then
214: PA_DISTRIBUTION_LISTS_PKG.DELETE_ROW (
215: P_LIST_ID => P_LIST_ID) ;
216: IF (P_DELETE_LIST_ITEM_FLAG = 'Y') then
217: Delete from PA_DIST_LIST_ITEMS
218: where list_id = p_list_id;

Line 240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

236: THEN
237: ROLLBACK TO DELETE_DIST_LIST;
238: END IF;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
241: p_procedure_name => 'DELETE_DIST_LIST',
242: p_error_text => SUBSTRB(SQLERRM,1,240));
243: RAISE;
244:

Line 362: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

358: THEN
359: ROLLBACK TO CREATE_DIST_LIST_ITEM;
360: END IF;
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
363: p_procedure_name => 'CREATE_DIST_LIST_ITEM',
364: p_error_text => SUBSTRB(SQLERRM,1,240));
365: RAISE;
366:

Line 497: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

493: THEN
494: ROLLBACK TO UPDATE_DIST_LIST_ITEM;
495: END IF;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
498: p_procedure_name => 'UPDATE_DIST_LIST_ITEM',
499: p_error_text => SUBSTRB(SQLERRM,1,240));
500: RAISE;
501:

Line 575: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',

571: THEN
572: ROLLBACK TO DELETE_DIST_LIST_ITEM;
573: END IF;
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_DISTRIBUTION_LISTS_PVT',
576: p_procedure_name => 'DELETE_DIST_LIST_ITEM',
577: p_error_text => SUBSTRB(SQLERRM,1,240));
578: RAISE;
579: End DELETE_DIST_LIST_ITEM;

Line 581: END PA_DISTRIBUTION_LISTS_PVT;

577: p_error_text => SUBSTRB(SQLERRM,1,240));
578: RAISE;
579: End DELETE_DIST_LIST_ITEM;
580:
581: END PA_DISTRIBUTION_LISTS_PVT;