1 package body CS_SR_PREFERRED_LANG_PKG as
2 /* $Header: csxsrplb.pls 120.1 2005/06/20 07:26:43 appldev ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out nocopy VARCHAR2, -- 4425768
6 X_PREF_LANG_ID in NUMBER,
7 X_ATTRIBUTE_CATEGORY in VARCHAR2,
8 X_LANGUAGE_CODE in VARCHAR2,
9 X_START_DATE_ACTIVE in DATE,
10 X_END_DATE_ACTIVE in DATE,
11 X_ATTRIBUTE11 in VARCHAR2,
12 X_ATTRIBUTE12 in VARCHAR2,
13 X_ATTRIBUTE13 in VARCHAR2,
14 X_ATTRIBUTE14 in VARCHAR2,
15 X_ATTRIBUTE15 in VARCHAR2,
16 X_ATTRIBUTE1 in VARCHAR2,
17 X_ATTRIBUTE2 in VARCHAR2,
18 X_ATTRIBUTE3 in VARCHAR2,
19 X_ATTRIBUTE4 in VARCHAR2,
20 X_ATTRIBUTE5 in VARCHAR2,
21 X_ATTRIBUTE6 in VARCHAR2,
22 X_ATTRIBUTE7 in VARCHAR2,
23 X_ATTRIBUTE8 in VARCHAR2,
24 X_ATTRIBUTE9 in VARCHAR2,
25 X_ATTRIBUTE10 in VARCHAR2,
26 X_OBJECT_VERSION_NUMBER in NUMBER,
27 X_CREATION_DATE in DATE,
28 X_CREATED_BY in NUMBER,
29 X_LAST_UPDATE_DATE in DATE,
30 X_LAST_UPDATED_BY in NUMBER,
31 X_LAST_UPDATE_LOGIN in NUMBER
32 ) is
33 cursor C is select ROWID from CS_SR_PREFERRED_LANG
34 where PREF_LANG_ID = X_PREF_LANG_ID
35 ;
36 begin
37 insert into CS_SR_PREFERRED_LANG (
38 ATTRIBUTE_CATEGORY,
39 PREF_LANG_ID,
40 LANGUAGE_CODE,
41 START_DATE_ACTIVE,
42 END_DATE_ACTIVE,
43 ATTRIBUTE11,
44 ATTRIBUTE12,
45 ATTRIBUTE13,
46 ATTRIBUTE14,
47 ATTRIBUTE15,
48 ATTRIBUTE1,
49 ATTRIBUTE2,
50 ATTRIBUTE3,
51 ATTRIBUTE4,
52 ATTRIBUTE5,
53 ATTRIBUTE6,
54 ATTRIBUTE7,
55 ATTRIBUTE8,
56 ATTRIBUTE9,
57 ATTRIBUTE10,
58 OBJECT_VERSION_NUMBER,
59 CREATION_DATE,
60 CREATED_BY,
61 LAST_UPDATE_DATE,
62 LAST_UPDATED_BY,
63 LAST_UPDATE_LOGIN
64 ) values (
65 X_ATTRIBUTE_CATEGORY,
66 X_PREF_LANG_ID,
67 X_LANGUAGE_CODE,
68 X_START_DATE_ACTIVE,
69 X_END_DATE_ACTIVE,
70 X_ATTRIBUTE11,
71 X_ATTRIBUTE12,
72 X_ATTRIBUTE13,
73 X_ATTRIBUTE14,
74 X_ATTRIBUTE15,
75 X_ATTRIBUTE1,
76 X_ATTRIBUTE2,
77 X_ATTRIBUTE3,
78 X_ATTRIBUTE4,
79 X_ATTRIBUTE5,
80 X_ATTRIBUTE6,
81 X_ATTRIBUTE7,
82 X_ATTRIBUTE8,
83 X_ATTRIBUTE9,
84 X_ATTRIBUTE10,
85 X_OBJECT_VERSION_NUMBER,
86 X_CREATION_DATE,
87 X_CREATED_BY,
88 X_LAST_UPDATE_DATE,
89 X_LAST_UPDATED_BY,
90 X_LAST_UPDATE_LOGIN
91 );
92
93 open c;
94 fetch c into X_ROWID;
95 if (c%notfound) then
96 close c;
97 raise no_data_found;
98 end if;
99 close c;
100
101 end INSERT_ROW;
102
103
104 procedure LOCK_ROW (
105 X_PREF_LANG_ID in NUMBER,
106 X_ATTRIBUTE_CATEGORY in VARCHAR2,
107 X_LANGUAGE_CODE in VARCHAR2,
108 X_START_DATE_ACTIVE in DATE,
109 X_END_DATE_ACTIVE in DATE,
110 X_ATTRIBUTE11 in VARCHAR2,
111 X_ATTRIBUTE12 in VARCHAR2,
112 X_ATTRIBUTE13 in VARCHAR2,
113 X_ATTRIBUTE14 in VARCHAR2,
114 X_ATTRIBUTE15 in VARCHAR2,
115 X_ATTRIBUTE1 in VARCHAR2,
116 X_ATTRIBUTE2 in VARCHAR2,
117 X_ATTRIBUTE3 in VARCHAR2,
118 X_ATTRIBUTE4 in VARCHAR2,
119 X_ATTRIBUTE5 in VARCHAR2,
120 X_ATTRIBUTE6 in VARCHAR2,
121 X_ATTRIBUTE7 in VARCHAR2,
122 X_ATTRIBUTE8 in VARCHAR2,
123 X_ATTRIBUTE9 in VARCHAR2,
124 X_ATTRIBUTE10 in VARCHAR2,
125 X_OBJECT_VERSION_NUMBER in NUMBER
126 ) is
127 cursor c is select
128 ATTRIBUTE_CATEGORY,
129 LANGUAGE_CODE,
130 START_DATE_ACTIVE,
131 END_DATE_ACTIVE,
132 ATTRIBUTE11,
133 ATTRIBUTE12,
134 ATTRIBUTE13,
135 ATTRIBUTE14,
136 ATTRIBUTE15,
137 ATTRIBUTE1,
138 ATTRIBUTE2,
139 ATTRIBUTE3,
140 ATTRIBUTE4,
141 ATTRIBUTE5,
142 ATTRIBUTE6,
143 ATTRIBUTE7,
144 ATTRIBUTE8,
145 ATTRIBUTE9,
146 ATTRIBUTE10,
147 OBJECT_VERSION_NUMBER
148 from CS_SR_PREFERRED_LANG
149 where PREF_LANG_ID = X_PREF_LANG_ID
150 for update of PREF_LANG_ID nowait;
151 recinfo c%rowtype;
152
153 begin
154 open c;
155 fetch c into recinfo;
156 if (c%notfound) then
157 close c;
158 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
159 app_exception.raise_exception;
160 end if;
161 close c;
162 if ( ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
163 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
164 AND ((recinfo.LANGUAGE_CODE = X_LANGUAGE_CODE)
165 OR ((recinfo.LANGUAGE_CODE is null) AND (X_LANGUAGE_CODE is null)))
166 AND ((recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE)
167 OR ((recinfo.START_DATE_ACTIVE is null) AND (X_START_DATE_ACTIVE is null)))
168 AND ((recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE)
169 OR ((recinfo.END_DATE_ACTIVE is null) AND (X_END_DATE_ACTIVE is null)))
170 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
171 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
172 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
173 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
174 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
175 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
176 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
177 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
178 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
179 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
180 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
181 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
182 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
183 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
184 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
185 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
186 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
187 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
188 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
189 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
190 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
191 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
192 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
193 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
194 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
195 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
196 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
197 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
198 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
199 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
200 AND ((recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
201 OR ((recinfo.OBJECT_VERSION_NUMBER is null) AND (X_OBJECT_VERSION_NUMBER is null)))
202 ) then
203 null;
204 else
205 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
206 app_exception.raise_exception;
207 end if;
208
209 return;
210 end LOCK_ROW;
211
212
213 procedure UPDATE_ROW (
214 X_PREF_LANG_ID in NUMBER,
215 X_ATTRIBUTE_CATEGORY in VARCHAR2,
216 X_LANGUAGE_CODE in VARCHAR2,
217 X_START_DATE_ACTIVE in DATE,
218 X_END_DATE_ACTIVE in DATE,
219 X_ATTRIBUTE11 in VARCHAR2,
220 X_ATTRIBUTE12 in VARCHAR2,
221 X_ATTRIBUTE13 in VARCHAR2,
222 X_ATTRIBUTE14 in VARCHAR2,
223 X_ATTRIBUTE15 in VARCHAR2,
224 X_ATTRIBUTE1 in VARCHAR2,
225 X_ATTRIBUTE2 in VARCHAR2,
226 X_ATTRIBUTE3 in VARCHAR2,
227 X_ATTRIBUTE4 in VARCHAR2,
228 X_ATTRIBUTE5 in VARCHAR2,
229 X_ATTRIBUTE6 in VARCHAR2,
230 X_ATTRIBUTE7 in VARCHAR2,
231 X_ATTRIBUTE8 in VARCHAR2,
232 X_ATTRIBUTE9 in VARCHAR2,
233 X_ATTRIBUTE10 in VARCHAR2,
234 X_OBJECT_VERSION_NUMBER in NUMBER,
235 X_LAST_UPDATE_DATE in DATE,
236 X_LAST_UPDATED_BY in NUMBER,
237 X_LAST_UPDATE_LOGIN in NUMBER
238 ) is
239 begin
240 update CS_SR_PREFERRED_LANG set
241 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
242 LANGUAGE_CODE = X_LANGUAGE_CODE,
243 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
244 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
245 ATTRIBUTE11 = X_ATTRIBUTE11,
246 ATTRIBUTE12 = X_ATTRIBUTE12,
247 ATTRIBUTE13 = X_ATTRIBUTE13,
248 ATTRIBUTE14 = X_ATTRIBUTE14,
249 ATTRIBUTE15 = X_ATTRIBUTE15,
250 ATTRIBUTE1 = X_ATTRIBUTE1,
251 ATTRIBUTE2 = X_ATTRIBUTE2,
252 ATTRIBUTE3 = X_ATTRIBUTE3,
253 ATTRIBUTE4 = X_ATTRIBUTE4,
254 ATTRIBUTE5 = X_ATTRIBUTE5,
255 ATTRIBUTE6 = X_ATTRIBUTE6,
256 ATTRIBUTE7 = X_ATTRIBUTE7,
257 ATTRIBUTE8 = X_ATTRIBUTE8,
258 ATTRIBUTE9 = X_ATTRIBUTE9,
259 ATTRIBUTE10 = X_ATTRIBUTE10,
260 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
261 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
262 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
263 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
264 where PREF_LANG_ID = X_PREF_LANG_ID;
265
266 if (sql%notfound) then
267 raise no_data_found;
268 end if;
269
270 end UPDATE_ROW;
271
272
273 procedure DELETE_ROW (
274 X_PREF_LANG_ID in NUMBER
275 ) is
276 begin
277 delete from CS_SR_PREFERRED_LANG
278 where PREF_LANG_ID = X_PREF_LANG_ID;
279
280 if (sql%notfound) then
281 raise no_data_found;
282 end if;
283 end DELETE_ROW;
284
285 end CS_SR_PREFERRED_LANG_PKG;
[Home] [Help]