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