1: PACKAGE BODY PA_DISTRIBUTION_LISTS_PKG AS
2: /* $Header: PATDSLHB.pls 120.1 2005/08/19 17:03:47 mwasowic noship $ */
3: procedure INSERT_ROW (
4: P_LIST_ID in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
5: P_NAME in VARCHAR2,
12: P_LAST_UPDATE_LOGIN in NUMBER
13: ) IS
14: CURSOR c1 IS
15: SELECT rowid
16: FROM PA_DISTRIBUTION_LISTS
17: WHERE list_id = p_list_id;
18: l_row_id ROWID;
19: BEGIN
20: Insert into PA_DISTRIBUTION_LISTS (
16: FROM PA_DISTRIBUTION_LISTS
17: WHERE list_id = p_list_id;
18: l_row_id ROWID;
19: BEGIN
20: Insert into PA_DISTRIBUTION_LISTS (
21: LIST_ID ,
22: NAME ,
23: DESCRIPTION ,
24: RECORD_VERSION_NUMBER ,
29: LAST_UPDATE_LOGIN
30: )
31: VALUES
32: (
33: PA_DISTRIBUTION_LISTS_S.NEXTVAL,
34: NVL(P_NAME, PA_DISTRIBUTION_LISTS_S.CURRVAL) ,
35: P_DESCRIPTION ,
36: 1 ,
37: P_CREATED_BY ,
30: )
31: VALUES
32: (
33: PA_DISTRIBUTION_LISTS_S.NEXTVAL,
34: NVL(P_NAME, PA_DISTRIBUTION_LISTS_S.CURRVAL) ,
35: P_DESCRIPTION ,
36: 1 ,
37: P_CREATED_BY ,
38: P_CREATION_DATE ,
63: P_LAST_UPDATE_DATE in DATE,
64: P_LAST_UPDATE_LOGIN in NUMBER
65: ) IS
66: BEGIN
67: UPDATE PA_DISTRIBUTION_LISTS
68: SET
69: NAME = P_NAME ,
70: DESCRIPTION = P_DESCRIPTION ,
71: RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1,
82: procedure DELETE_ROW (
83: P_LIST_ID in NUMBER )
84: IS
85: BEGIN
86: DELETE FROM PA_DISTRIBUTION_LISTS
87: WHERE LIST_ID = P_LIST_ID;
88:
89: EXCEPTION
90: WHEN OTHERS THEN
90: WHEN OTHERS THEN
91: RAISE;
92: END DELETE_ROW;
93:
94: END PA_DISTRIBUTION_LISTS_PKG;