[Home] [Help]
PACKAGE BODY: APPS.CN_IMP_MAPS_PKG
Source
1 PACKAGE BODY CN_IMP_MAPS_PKG AS
2 /* $Header: cntimmpb.pls 115.2 2002/02/05 00:25:55 pkm ship $*/
3
4
5 -- * -------------------------------------------------------------------------*
6 -- Procedure Name
7 -- Insert_row
8 -- Purpose
9 -- Main insert procedure
10 -- Note
11 -- 1. Primary key should be populated from sequence before call
12 -- this procedure. No refernece to sequence in this procedure.
13 -- 2. All paramaters are IN parameter.
14 -- * -------------------------------------------------------------------------*
15 PROCEDURE insert_row
16 ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
17
18 BEGIN
19
20 INSERT into CN_IMP_MAPS
21 ( IMP_MAP_ID,
22 NAME,
23 IMPORT_TYPE_CODE,
24 OBJECT_VERSION_NUMBER,
25 ATTRIBUTE_CATEGORY,
26 ATTRIBUTE1,
27 ATTRIBUTE2,
28 ATTRIBUTE3,
29 ATTRIBUTE4,
30 ATTRIBUTE5,
31 ATTRIBUTE6,
32 ATTRIBUTE7,
33 ATTRIBUTE8,
34 ATTRIBUTE9,
35 ATTRIBUTE10,
36 ATTRIBUTE11,
37 ATTRIBUTE12,
38 ATTRIBUTE13,
39 ATTRIBUTE14,
40 ATTRIBUTE15,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN)
46 select
47 DECODE(p_imp_maps_rec.IMP_MAP_ID, FND_API.G_MISS_NUM, NULL,
48 p_imp_maps_rec.IMP_MAP_ID),
49 DECODE(p_imp_maps_rec.NAME, FND_API.G_MISS_CHAR, NULL,
50 p_imp_maps_rec.NAME),
51 DECODE(p_imp_maps_rec.IMPORT_TYPE_CODE, FND_API.G_MISS_CHAR, NULL,
52 p_imp_maps_rec.IMPORT_TYPE_CODE),
53 1,
54 DECODE(p_imp_maps_rec.ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL,
55 p_imp_maps_rec.ATTRIBUTE_CATEGORY),
56 DECODE(p_imp_maps_rec.ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL,
57 p_imp_maps_rec.ATTRIBUTE1),
58 DECODE(p_imp_maps_rec.ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL,
59 p_imp_maps_rec.ATTRIBUTE2),
60 DECODE(p_imp_maps_rec.ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL,
61 p_imp_maps_rec.ATTRIBUTE3),
62 DECODE(p_imp_maps_rec.ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL,
63 p_imp_maps_rec.ATTRIBUTE4),
64 DECODE(p_imp_maps_rec.ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL,
65 p_imp_maps_rec.ATTRIBUTE5),
66 DECODE(p_imp_maps_rec.ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL,
67 p_imp_maps_rec.ATTRIBUTE6),
68 DECODE(p_imp_maps_rec.ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL,
69 p_imp_maps_rec.ATTRIBUTE7),
70 DECODE(p_imp_maps_rec.ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL,
71 p_imp_maps_rec.ATTRIBUTE8),
72 DECODE(p_imp_maps_rec.ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL,
73 p_imp_maps_rec.ATTRIBUTE9),
74 DECODE(p_imp_maps_rec.ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL,
75 p_imp_maps_rec.ATTRIBUTE10),
76 DECODE(p_imp_maps_rec.ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL,
77 p_imp_maps_rec.ATTRIBUTE11),
78 DECODE(p_imp_maps_rec.ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL,
79 p_imp_maps_rec.ATTRIBUTE12),
80 DECODE(p_imp_maps_rec.ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL,
81 p_imp_maps_rec.ATTRIBUTE13),
82 DECODE(p_imp_maps_rec.ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL,
83 p_imp_maps_rec.ATTRIBUTE14),
84 DECODE(p_imp_maps_rec.ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL,
85 p_imp_maps_rec.ATTRIBUTE15),
86 Sysdate,
87 fnd_global.user_id,
88 Sysdate,
89 fnd_global.user_id,
90 fnd_global.login_id
91 from dual;
92
93 END insert_row;
94
95
96 -- * -------------------------------------------------------------------------*
97 -- Procedure Name
98 -- update_row
99 -- Purpose
100 -- Main update procedure
101 -- Note
102 -- 1. No object version checking, overwrite may happen
103 -- 2. Calling lock_update for object version checking
104 -- 3. All paramaters are IN parameter.
105 -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
106 -- * -------------------------------------------------------------------------*
107 PROCEDURE update_row
108 ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
109
110 BEGIN
111
112 UPDATE CN_IMP_MAPS oldrec
113 SET
114 NAME = DECODE(p_imp_maps_rec.NAME,
115 FND_API.G_MISS_CHAR,
116 oldrec.NAME,
117 p_imp_maps_rec.NAME),
118 IMPORT_TYPE_CODE = DECODE(p_imp_maps_rec.IMPORT_TYPE_CODE,
119 FND_API.G_MISS_CHAR,
120 oldrec.IMPORT_TYPE_CODE,
121 p_imp_maps_rec.IMPORT_TYPE_CODE),
122 OBJECT_VERSION_NUMBER = oldrec.OBJECT_VERSION_NUMBER + 1,
123 ATTRIBUTE_CATEGORY = DECODE(p_imp_maps_rec.ATTRIBUTE_CATEGORY,
124 FND_API.G_MISS_CHAR,
125 oldrec.ATTRIBUTE_CATEGORY,
126 p_imp_maps_rec.ATTRIBUTE_CATEGORY),
127 ATTRIBUTE1 = DECODE(p_imp_maps_rec.ATTRIBUTE1,
128 FND_API.G_MISS_CHAR,
129 oldrec.ATTRIBUTE1,
130 p_imp_maps_rec.ATTRIBUTE1),
131 ATTRIBUTE2 = DECODE(p_imp_maps_rec.ATTRIBUTE2,
132 FND_API.G_MISS_CHAR,
133 oldrec.ATTRIBUTE2,
134 p_imp_maps_rec.ATTRIBUTE2),
135 ATTRIBUTE3 = DECODE(p_imp_maps_rec.ATTRIBUTE3,
136 FND_API.G_MISS_CHAR,
137 oldrec.ATTRIBUTE3,
138 p_imp_maps_rec.ATTRIBUTE3),
139 ATTRIBUTE4 = DECODE(p_imp_maps_rec.ATTRIBUTE4,
140 FND_API.G_MISS_CHAR,
141 oldrec.ATTRIBUTE4,
142 p_imp_maps_rec.ATTRIBUTE4),
143 ATTRIBUTE5 = DECODE(p_imp_maps_rec.ATTRIBUTE5,
144 FND_API.G_MISS_CHAR,
145 oldrec.ATTRIBUTE5,
146 p_imp_maps_rec.ATTRIBUTE5),
147 ATTRIBUTE6 = DECODE(p_imp_maps_rec.ATTRIBUTE6,
148 FND_API.G_MISS_CHAR,
149 oldrec.ATTRIBUTE6,
150 p_imp_maps_rec.ATTRIBUTE6),
151 ATTRIBUTE7 = DECODE(p_imp_maps_rec.ATTRIBUTE7,
152 FND_API.G_MISS_CHAR,
153 oldrec.ATTRIBUTE7,
154 p_imp_maps_rec.ATTRIBUTE7),
155 ATTRIBUTE8 = DECODE(p_imp_maps_rec.ATTRIBUTE8,
156 FND_API.G_MISS_CHAR,
157 oldrec.ATTRIBUTE8,
158 p_imp_maps_rec.ATTRIBUTE8),
159 ATTRIBUTE9 = DECODE(p_imp_maps_rec.ATTRIBUTE9,
160 FND_API.G_MISS_CHAR,
161 oldrec.ATTRIBUTE9,
162 p_imp_maps_rec.ATTRIBUTE9),
163 ATTRIBUTE10 = DECODE(p_imp_maps_rec.ATTRIBUTE10,
164 FND_API.G_MISS_CHAR,
165 oldrec.ATTRIBUTE10,
166 p_imp_maps_rec.ATTRIBUTE10),
167 ATTRIBUTE11 = DECODE(p_imp_maps_rec.ATTRIBUTE11,
168 FND_API.G_MISS_CHAR,
169 oldrec.ATTRIBUTE11,
170 p_imp_maps_rec.ATTRIBUTE11),
171 ATTRIBUTE12 = DECODE(p_imp_maps_rec.ATTRIBUTE12,
172 FND_API.G_MISS_CHAR,
173 oldrec.ATTRIBUTE12,
174 p_imp_maps_rec.ATTRIBUTE12),
175 ATTRIBUTE13 = DECODE(p_imp_maps_rec.ATTRIBUTE13,
176 FND_API.G_MISS_CHAR,
177 oldrec.ATTRIBUTE13,
178 p_imp_maps_rec.ATTRIBUTE13),
179 ATTRIBUTE14 = DECODE(p_imp_maps_rec.ATTRIBUTE14,
180 FND_API.G_MISS_CHAR,
181 oldrec.ATTRIBUTE14,
182 p_imp_maps_rec.ATTRIBUTE14),
183 ATTRIBUTE15 = DECODE(p_imp_maps_rec.ATTRIBUTE15,
184 FND_API.G_MISS_CHAR,
185 oldrec.ATTRIBUTE15,
186 p_imp_maps_rec.ATTRIBUTE15),
187 LAST_UPDATE_DATE = Sysdate,
188 LAST_UPDATED_BY = fnd_global.user_id,
189 LAST_UPDATE_LOGIN = fnd_global.login_id
190 WHERE imp_map_id = p_imp_maps_rec.imp_map_id;
191
192 IF (SQL%ROWCOUNT=0) THEN
193 RAISE NO_DATA_FOUND;
194 END IF;
195
196 END update_row;
197
198
199 -- * -------------------------------------------------------------------------*
200 -- Procedure Name
201 -- lock_update_row
202 -- Purpose
203 -- Main lcok and update procedure
204 -- Note
205 -- 1. Object version checking is performed before checking
206 -- 2. Calling update_row if you don not want object version checking
207 -- 3. All paramaters are IN parameter.
208 -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
209 -- * -------------------------------------------------------------------------*
210 PROCEDURE lock_update_row
211 ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
212
213 CURSOR c IS
214 SELECT object_version_number
215 FROM CN_IMP_MAPS
216 WHERE imp_map_id = p_imp_maps_rec.imp_map_id;
217
218 tlinfo c%ROWTYPE ;
219 BEGIN
220
221 open c;
222 fetch c into tlinfo;
223 if (c%notfound) then
224 close c;
225 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
226 fnd_msg_pub.add;
227 raise fnd_api.g_exc_unexpected_error;
228 end if;
229 close c;
230
231 if (tlinfo.object_version_number <> p_imp_maps_rec.object_version_number) then
232 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
233 fnd_msg_pub.add;
234 raise fnd_api.g_exc_unexpected_error;
235 end if;
236 UPDATE CN_IMP_MAPS oldrec
237 SET
238 NAME = DECODE(p_imp_maps_rec.NAME,
239 FND_API.G_MISS_CHAR,
240 oldrec.NAME,
241 p_imp_maps_rec.NAME),
242 IMPORT_TYPE_CODE = DECODE(p_imp_maps_rec.IMPORT_TYPE_CODE,
243 FND_API.G_MISS_CHAR,
244 oldrec.IMPORT_TYPE_CODE,
245 p_imp_maps_rec.IMPORT_TYPE_CODE),
246 OBJECT_VERSION_NUMBER = oldrec.OBJECT_VERSION_NUMBER + 1,
247 ATTRIBUTE_CATEGORY = DECODE(p_imp_maps_rec.ATTRIBUTE_CATEGORY,
248 FND_API.G_MISS_CHAR,
249 oldrec.ATTRIBUTE_CATEGORY,
250 p_imp_maps_rec.ATTRIBUTE_CATEGORY),
251 ATTRIBUTE1 = DECODE(p_imp_maps_rec.ATTRIBUTE1,
252 FND_API.G_MISS_CHAR,
253 oldrec.ATTRIBUTE1,
254 p_imp_maps_rec.ATTRIBUTE1),
255 ATTRIBUTE2 = DECODE(p_imp_maps_rec.ATTRIBUTE2,
256 FND_API.G_MISS_CHAR,
257 oldrec.ATTRIBUTE2,
258 p_imp_maps_rec.ATTRIBUTE2),
259 ATTRIBUTE3 = DECODE(p_imp_maps_rec.ATTRIBUTE3,
260 FND_API.G_MISS_CHAR,
261 oldrec.ATTRIBUTE3,
262 p_imp_maps_rec.ATTRIBUTE3),
263 ATTRIBUTE4 = DECODE(p_imp_maps_rec.ATTRIBUTE4,
264 FND_API.G_MISS_CHAR,
265 oldrec.ATTRIBUTE4,
266 p_imp_maps_rec.ATTRIBUTE4),
267 ATTRIBUTE5 = DECODE(p_imp_maps_rec.ATTRIBUTE5,
268 FND_API.G_MISS_CHAR,
269 oldrec.ATTRIBUTE5,
270 p_imp_maps_rec.ATTRIBUTE5),
271 ATTRIBUTE6 = DECODE(p_imp_maps_rec.ATTRIBUTE6,
272 FND_API.G_MISS_CHAR,
273 oldrec.ATTRIBUTE6,
274 p_imp_maps_rec.ATTRIBUTE6),
275 ATTRIBUTE7 = DECODE(p_imp_maps_rec.ATTRIBUTE7,
276 FND_API.G_MISS_CHAR,
277 oldrec.ATTRIBUTE7,
278 p_imp_maps_rec.ATTRIBUTE7),
279 ATTRIBUTE8 = DECODE(p_imp_maps_rec.ATTRIBUTE8,
280 FND_API.G_MISS_CHAR,
281 oldrec.ATTRIBUTE8,
282 p_imp_maps_rec.ATTRIBUTE8),
283 ATTRIBUTE9 = DECODE(p_imp_maps_rec.ATTRIBUTE9,
284 FND_API.G_MISS_CHAR,
285 oldrec.ATTRIBUTE9,
286 p_imp_maps_rec.ATTRIBUTE9),
287 ATTRIBUTE10 = DECODE(p_imp_maps_rec.ATTRIBUTE10,
288 FND_API.G_MISS_CHAR,
289 oldrec.ATTRIBUTE10,
290 p_imp_maps_rec.ATTRIBUTE10),
291 ATTRIBUTE11 = DECODE(p_imp_maps_rec.ATTRIBUTE11,
292 FND_API.G_MISS_CHAR,
293 oldrec.ATTRIBUTE11,
294 p_imp_maps_rec.ATTRIBUTE11),
295 ATTRIBUTE12 = DECODE(p_imp_maps_rec.ATTRIBUTE12,
296 FND_API.G_MISS_CHAR,
297 oldrec.ATTRIBUTE12,
298 p_imp_maps_rec.ATTRIBUTE12),
299 ATTRIBUTE13 = DECODE(p_imp_maps_rec.ATTRIBUTE13,
300 FND_API.G_MISS_CHAR,
301 oldrec.ATTRIBUTE13,
302 p_imp_maps_rec.ATTRIBUTE13),
303 ATTRIBUTE14 = DECODE(p_imp_maps_rec.ATTRIBUTE14,
304 FND_API.G_MISS_CHAR,
305 oldrec.ATTRIBUTE14,
306 p_imp_maps_rec.ATTRIBUTE14),
307 ATTRIBUTE15 = DECODE(p_imp_maps_rec.ATTRIBUTE15,
308 FND_API.G_MISS_CHAR,
312 LAST_UPDATED_BY = fnd_global.user_id,
309 oldrec.ATTRIBUTE15,
310 p_imp_maps_rec.ATTRIBUTE15),
311 LAST_UPDATE_DATE = Sysdate,
313 LAST_UPDATE_LOGIN = fnd_global.login_id
314 WHERE imp_map_id = p_imp_maps_rec.imp_map_id;
315
316 IF (SQL%ROWCOUNT=0) THEN
317 RAISE NO_DATA_FOUND;
318 END IF;
319
320 END lock_update_row;
321
322
323 -- * -------------------------------------------------------------------------*
324 -- Procedure Name
325 -- delete_row
326 -- Purpose
327 -- Main lcok and update procedure
328 -- Note
329 -- 1. All paramaters are IN parameter.
330 -- 2. Raise NO_DATA_FOUND exception if no reocrd deleted (??)
331 -- * -------------------------------------------------------------------------*
332 PROCEDURE delete_row
333 (
334 p_imp_map_id NUMBER
335 ) IS
336
337 BEGIN
338
339 DELETE FROM CN_IMP_MAPS
340 WHERE imp_map_id = p_imp_map_id;
341
342 IF (SQL%ROWCOUNT=0) THEN
343 RAISE NO_DATA_FOUND;
344 END IF;
345
346 END Delete_row;
347
348
349 END CN_IMP_MAPS_PKG;