1: PACKAGE BODY PA_DIST_LIST_ITEMS_PKG AS
2: /* $Header: PATDLIHB.pls 120.2.12010000.2 2008/09/12 00:41:38 skkoppul ship $ */
3: procedure INSERT_ROW (
4: P_LIST_ITEM_ID in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
5: P_LIST_ID in NUMBER,
16: P_LAST_UPDATE_LOGIN in NUMBER
17: ) IS
18: CURSOR c1 IS
19: SELECT rowid
20: FROM PA_DIST_LIST_ITEMS
21: WHERE list_item_id = p_list_item_id;
22: l_row_id ROWID;
23: l_list_item_id NUMBER; -- Bug 4565156. For Manual NOCOPY Fix.
24: BEGIN
23: l_list_item_id NUMBER; -- Bug 4565156. For Manual NOCOPY Fix.
24: BEGIN
25: l_list_item_id := P_LIST_ITEM_ID; -- Bug 4565156. Storing original value.
26:
27: Insert into PA_DIST_LIST_ITEMS (
28: LIST_ITEM_ID ,
29: LIST_ID ,
30: RECIPIENT_TYPE ,
31: RECIPIENT_ID ,
38: LAST_UPDATED_BY ,
39: LAST_UPDATE_DATE ,
40: LAST_UPDATE_LOGIN
41: ) VALUES
42: ( PA_DIST_LIST_ITEMS_S.NEXTVAL ,
43: P_LIST_ID ,
44: P_RECIPIENT_TYPE ,
45: P_RECIPIENT_ID ,
46: P_ACCESS_LEVEL ,
81: P_LAST_UPDATE_DATE in DATE,
82: P_LAST_UPDATE_LOGIN in NUMBER
83: ) IS
84: BEGIN
85: UPDATE PA_DIST_LIST_ITEMS
86: SET
87: LIST_ID = P_LIST_ID ,
88: RECIPIENT_TYPE = P_RECIPIENT_TYPE ,
89: RECIPIENT_ID = P_RECIPIENT_ID ,
105: procedure DELETE_ROW (
106: P_LIST_ITEM_ID in NUMBER )
107: IS
108: BEGIN
109: DELETE FROM PA_DIST_LIST_ITEMS
110: WHERE LIST_ITEM_ID = P_LIST_ITEM_ID;
111:
112: EXCEPTION
113: WHEN OTHERS THEN
113: WHEN OTHERS THEN
114: RAISE;
115: END DELETE_ROW;
116:
117: END PA_DIST_LIST_ITEMS_PKG;