1: PACKAGE BODY PA_DIST_LIST_DENORM_PKG AS
2: /* $Header: PATDLDHB.pls 115.1 2002/04/09 11:33:31 pkm ship $ */
3: procedure INSERT_ROW (
4: P_LIST_ID in NUMBER,
5: P_RESOURCE_TYPE_ID in NUMBER,
17: FROM PA_DISTRIBUTION_LISTS
18: WHERE list_id = p_list_id;
19: l_row_id ROWID;
20: BEGIN
21: Insert into PA_DIST_LIST_DENORM (
22: LIST_ID ,
23: RESOURCE_TYPE_ID ,
24: RESOURCE_SOURCE_ID ,
25: ACCESS_LEVEL ,
64: P_LAST_UPDATE_DATE in DATE,
65: P_LAST_UPDATE_LOGIN in NUMBER
66: ) IS
67: BEGIN
68: UPDATE PA_DIST_LIST_DENORM
69: SET
70: ACCESS_LEVEL = P_ACCESS_LEVEL,
71: MENU_ID = P_MENU_ID,
72: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
87: P_RESOURCE_SOURCE_ID in NUMBER
88: )
89: IS
90: BEGIN
91: DELETE FROM PA_DIST_LIST_DENORM
92: WHERE LIST_ID = P_LIST_ID
93: AND RESOURCE_TYPE_ID = P_RESOURCE_TYPE_ID
94: AND RESOURCE_SOURCE_ID = P_RESOURCE_SOURCE_ID;
95:
97: WHEN OTHERS THEN
98: RAISE;
99: END DELETE_ROW;
100:
101: END PA_DIST_LIST_DENORM_PKG;