[Home] [Help]
PACKAGE BODY: APPS.PA_OBJECT_DIST_LISTS_PKG
Source
1 PACKAGE BODY PA_OBJECT_DIST_LISTS_PKG AS
2 /* $Header: PATODLHB.pls 115.1 2002/04/09 11:33:36 pkm ship $ */
3 procedure INSERT_ROW (
4 P_LIST_ID in NUMBER,
5 P_OBJECT_TYPE in VARCHAR2,
6 P_OBJECT_ID in NUMBER,
7 P_RECORD_VERSION_NUMBER in NUMBER,
8 P_CREATED_BY in NUMBER,
9 P_CREATION_DATE in DATE,
10 P_LAST_UPDATED_BY in NUMBER,
11 P_LAST_UPDATE_DATE in DATE,
12 P_LAST_UPDATE_LOGIN in NUMBER
13 ) IS
14 CURSOR c1 IS
15 SELECT rowid
16 FROM PA_OBJECT_DIST_LISTS
17 WHERE list_id = p_list_id
18 AND object_type = p_object_type
19 AND object_id = p_object_id;
20 l_row_id ROWID;
21 BEGIN
22 Insert into PA_OBJECT_DIST_LISTS (
23 LIST_ID ,
24 object_type ,
25 object_id ,
26 RECORD_VERSION_NUMBER ,
27 CREATED_BY ,
28 CREATION_DATE ,
29 LAST_UPDATED_BY ,
30 LAST_UPDATE_DATE ,
31 LAST_UPDATE_LOGIN
32 )
33 VALUES
34 (
35 P_LIST_ID ,
36 P_OBJECT_TYPE ,
37 P_OBJECT_ID ,
38 1 ,
39 P_CREATED_BY ,
40 P_CREATION_DATE ,
41 P_LAST_UPDATED_BY ,
42 P_LAST_UPDATE_DATE ,
43 P_LAST_UPDATE_LOGIN
44 ) ;
45 OPEN c1;
46 FETCH c1 INTO l_row_id;
47 IF (c1%NOTFOUND) THEN
48 CLOSE c1;
49 RAISE NO_DATA_FOUND;
50 END IF;
51 CLOSE c1;
52
53 EXCEPTION
54 WHEN OTHERS THEN -- catch the exceptions here
55 RAISE;
56 END INSERT_ROW;
57
58 procedure UPDATE_ROW (
59 P_LIST_ID in NUMBER,
60 P_OBJECT_TYPE in VARCHAR2,
61 P_OBJECT_ID in NUMBER,
62 P_RECORD_VERSION_NUMBER in NUMBER,
63 P_LAST_UPDATED_BY in NUMBER,
64 P_LAST_UPDATE_DATE in DATE,
65 P_LAST_UPDATE_LOGIN in NUMBER
66 ) IS
67 BEGIN
68 UPDATE PA_OBJECT_DIST_LISTS
69 SET
70 RECORD_VERSION_NUMBER = nvl(P_RECORD_VERSION_NUMBER,1) + 1,
71 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
72 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
73 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
74 WHERE LIST_ID = P_LIST_ID
75 AND OBJECT_TYPE = P_OBJECT_TYPE
76 AND OBJECT_ID = P_OBJECT_ID;
77 EXCEPTION
78 WHEN OTHERS THEN -- catch the exceptins here
79 RAISE;
80 END UPDATE_ROW;
81
82 procedure DELETE_ROW (
83 P_LIST_ID in NUMBER,
84 P_OBJECT_TYPE in VARCHAR2,
85 P_OBJECT_ID in NUMBER
86 )
87 IS
88 BEGIN
89 DELETE FROM PA_OBJECT_DIST_LISTS
90 WHERE LIST_ID = P_LIST_ID
91 AND OBJECT_TYPE = P_OBJECT_TYPE
92 AND OBJECT_ID = P_OBJECT_ID;
93
94 EXCEPTION
95 WHEN OTHERS THEN
96 RAISE;
97 END DELETE_ROW;
98
99 END PA_OBJECT_DIST_LISTS_PKG;