[Home] [Help]
PACKAGE BODY: APPS.CS_KB_CAT_GROUP_MEMBERS_PKG
Source
1 package body CS_KB_CAT_GROUP_MEMBERS_PKG as
2 /* $Header: cskbcgmb.pls 115.0 2003/08/29 18:22:58 mkettle noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_CATEGORY_GROUP_ID in NUMBER,
6 X_CATEGORY_ID in NUMBER,
7 X_ATTRIBUTE_CATEGORY in VARCHAR2,
8 X_ATTRIBUTE1 in VARCHAR2,
9 X_ATTRIBUTE2 in VARCHAR2,
10 X_ATTRIBUTE3 in VARCHAR2,
11 X_ATTRIBUTE4 in VARCHAR2,
12 X_ATTRIBUTE5 in VARCHAR2,
13 X_ATTRIBUTE6 in VARCHAR2,
14 X_ATTRIBUTE7 in VARCHAR2,
15 X_ATTRIBUTE8 in VARCHAR2,
16 X_ATTRIBUTE9 in VARCHAR2,
17 X_ATTRIBUTE10 in VARCHAR2,
18 X_ATTRIBUTE11 in VARCHAR2,
19 X_ATTRIBUTE12 in VARCHAR2,
20 X_ATTRIBUTE13 in VARCHAR2,
21 X_ATTRIBUTE14 in VARCHAR2,
22 X_ATTRIBUTE15 in VARCHAR2,
23 X_CREATION_DATE in DATE,
24 X_CREATED_BY in NUMBER,
25 X_LAST_UPDATE_DATE in DATE,
26 X_LAST_UPDATED_BY in NUMBER,
27 X_LAST_UPDATE_LOGIN in NUMBER
28 ) is
29 cursor C is select ROWID from CS_KB_CAT_GROUP_MEMBERS
30 where CATEGORY_GROUP_ID = X_CATEGORY_GROUP_ID
31 and CATEGORY_ID = X_CATEGORY_ID;
32 begin
33 insert into CS_KB_CAT_GROUP_MEMBERS (
34 CATEGORY_GROUP_ID,
35 CATEGORY_ID,
36 CREATION_DATE,
37 CREATED_BY,
38 LAST_UPDATE_DATE,
39 LAST_UPDATED_BY,
40 LAST_UPDATE_LOGIN,
41 ATTRIBUTE_CATEGORY,
42 ATTRIBUTE1,
43 ATTRIBUTE2,
44 ATTRIBUTE3,
45 ATTRIBUTE4,
46 ATTRIBUTE5,
47 ATTRIBUTE6,
48 ATTRIBUTE7,
49 ATTRIBUTE8,
50 ATTRIBUTE9,
51 ATTRIBUTE10,
52 ATTRIBUTE11,
53 ATTRIBUTE12,
54 ATTRIBUTE13,
55 ATTRIBUTE14,
56 ATTRIBUTE15
57 ) values (
58 X_CATEGORY_GROUP_ID,
59 X_CATEGORY_ID,
60 X_CREATION_DATE,
61 X_CREATED_BY,
62 X_LAST_UPDATE_DATE,
63 X_LAST_UPDATED_BY,
64 X_LAST_UPDATE_LOGIN,
65 X_ATTRIBUTE_CATEGORY,
66 X_ATTRIBUTE1,
67 X_ATTRIBUTE2,
68 X_ATTRIBUTE3,
69 X_ATTRIBUTE4,
70 X_ATTRIBUTE5,
71 X_ATTRIBUTE6,
72 X_ATTRIBUTE7,
73 X_ATTRIBUTE8,
74 X_ATTRIBUTE9,
75 X_ATTRIBUTE10,
76 X_ATTRIBUTE11,
77 X_ATTRIBUTE12,
78 X_ATTRIBUTE13,
79 X_ATTRIBUTE14,
80 X_ATTRIBUTE15
81 );
82
83 open c;
84 fetch c into X_ROWID;
85 if (c%notfound) then
86 close c;
87 raise no_data_found;
88 end if;
89 close c;
90
91 end INSERT_ROW;
92
93 procedure LOCK_ROW (
94 X_CATEGORY_GROUP_ID in NUMBER,
95 X_CATEGORY_ID in NUMBER
96 ) is
97 cursor c is select
98 CATEGORY_ID,
99 CATEGORY_GROUP_ID
100 from CS_KB_CAT_GROUP_MEMBERS
101 where CATEGORY_GROUP_ID = X_CATEGORY_GROUP_ID
102 for update of CATEGORY_GROUP_ID nowait;
103 recinfo c%rowtype;
104
105 begin
106 open c;
107 fetch c into recinfo;
108 if (c%notfound) then
109 close c;
110 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
111 app_exception.raise_exception;
112 end if;
113 close c;
114 return;
115 end LOCK_ROW;
116
117 procedure UPDATE_ROW (
118 X_CATEGORY_GROUP_ID in NUMBER,
119 X_CATEGORY_ID in NUMBER,
120 X_ATTRIBUTE_CATEGORY in VARCHAR2,
121 X_ATTRIBUTE1 in VARCHAR2,
122 X_ATTRIBUTE2 in VARCHAR2,
123 X_ATTRIBUTE3 in VARCHAR2,
124 X_ATTRIBUTE4 in VARCHAR2,
125 X_ATTRIBUTE5 in VARCHAR2,
126 X_ATTRIBUTE6 in VARCHAR2,
127 X_ATTRIBUTE7 in VARCHAR2,
128 X_ATTRIBUTE8 in VARCHAR2,
129 X_ATTRIBUTE9 in VARCHAR2,
130 X_ATTRIBUTE10 in VARCHAR2,
131 X_ATTRIBUTE11 in VARCHAR2,
132 X_ATTRIBUTE12 in VARCHAR2,
133 X_ATTRIBUTE13 in VARCHAR2,
134 X_ATTRIBUTE14 in VARCHAR2,
135 X_ATTRIBUTE15 in VARCHAR2,
136 X_LAST_UPDATE_DATE in DATE,
137 X_LAST_UPDATED_BY in NUMBER,
138 X_LAST_UPDATE_LOGIN in NUMBER
139 ) is
140 begin
141 update CS_KB_CAT_GROUP_MEMBERS set
142 CATEGORY_ID = X_CATEGORY_ID,
143 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
144 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
145 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
146 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
147 ATTRIBUTE1 = X_ATTRIBUTE1,
148 ATTRIBUTE2 = X_ATTRIBUTE2,
149 ATTRIBUTE3 = X_ATTRIBUTE3,
150 ATTRIBUTE4 = X_ATTRIBUTE4,
151 ATTRIBUTE5 = X_ATTRIBUTE5,
152 ATTRIBUTE6 = X_ATTRIBUTE6,
153 ATTRIBUTE7 = X_ATTRIBUTE7,
154 ATTRIBUTE8 = X_ATTRIBUTE8,
155 ATTRIBUTE9 = X_ATTRIBUTE9,
156 ATTRIBUTE10 = X_ATTRIBUTE10,
157 ATTRIBUTE11 = X_ATTRIBUTE11,
158 ATTRIBUTE12 = X_ATTRIBUTE12,
159 ATTRIBUTE13 = X_ATTRIBUTE13,
160 ATTRIBUTE14 = X_ATTRIBUTE14,
161 ATTRIBUTE15 = X_ATTRIBUTE15
162 where CATEGORY_GROUP_ID = X_CATEGORY_GROUP_ID;
163
164 if (sql%notfound) then
165 raise no_data_found;
166 end if;
167
168 end UPDATE_ROW;
169
170 procedure DELETE_ROW (
171 X_CATEGORY_GROUP_ID in NUMBER,
172 X_CATEGORY_ID in NUMBER
173 ) is
174 begin
175 delete from CS_KB_CAT_GROUP_MEMBERS
176 where CATEGORY_GROUP_ID = X_CATEGORY_GROUP_ID
177 and CATEGORY_ID = X_CATEGORY_ID;
178
179 if (sql%notfound) then
180 raise no_data_found;
181 end if;
182
183
184 end DELETE_ROW;
185
186
187 end CS_KB_CAT_GROUP_MEMBERS_PKG;