[Home] [Help]
PACKAGE BODY: APPS.ASO_SUP_TMPL_SECT_MAP_PKG
Source
1 Package Body ASO_SUP_TMPL_SECT_MAP_PKG AS
2 /* $Header: asospteb.pls 120.1 2005/06/29 12:38:14 appldev ship $*/
3
4 /* procedure to insert INSERT_ROW */
5
6 PROCEDURE INSERT_ROW
7 (
8 PX_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9 PX_TEMPLATE_SECTION_MAP_ID IN OUT NOCOPY /* file.sql.39 change */ NUMBER,
10 P_created_by IN NUMBER ,
11 P_creation_date IN DATE ,
12 P_last_updated_by IN NUMBER,
13 P_last_update_date IN DATE,
14 P_last_update_login IN NUMBER,
15 P_TEMPLATE_ID IN NUMBER,
16 P_SECTION_ID IN NUMBER,
17 P_DISPLAY_SEQUENCE IN NUMBER,
18 P_CONTEXT IN VARCHAR2 := NULL,
19 P_ATTRIBUTE1 IN VARCHAR2 := NULL,
20 P_ATTRIBUTE2 IN VARCHAR2 := NULL,
21 P_ATTRIBUTE3 IN VARCHAR2 := NULL,
22 P_ATTRIBUTE4 IN VARCHAR2 := NULL,
23 P_ATTRIBUTE5 IN VARCHAR2 := NULL,
24 P_ATTRIBUTE6 IN VARCHAR2 := NULL,
25 P_ATTRIBUTE7 IN VARCHAR2 := NULL,
26 P_ATTRIBUTE8 IN VARCHAR2 := NULL,
27 P_ATTRIBUTE9 IN VARCHAR2 := NULL,
28 P_ATTRIBUTE10 IN VARCHAR2 := NULL,
29 P_ATTRIBUTE11 IN VARCHAR2 := NULL,
30 P_ATTRIBUTE12 IN VARCHAR2 := NULL,
31 P_ATTRIBUTE13 IN VARCHAR2 := NULL,
32 P_ATTRIBUTE14 IN VARCHAR2 := NULL,
33 P_ATTRIBUTE15 IN VARCHAR2 := NULL,
34 P_ATTRIBUTE16 IN VARCHAR2 := NULL,
35 P_ATTRIBUTE17 IN VARCHAR2 := NULL,
36 P_ATTRIBUTE18 IN VARCHAR2 := NULL,
37 P_ATTRIBUTE19 IN VARCHAR2 := NULL,
38 P_ATTRIBUTE20 IN VARCHAR2 := NULL
39 )
40 IS
41
42 cursor c is
43 select ROWID
44 from ASO_SUP_TMPL_SECT_MAP
45 where TEMPLATE_SECTION_MAP_ID = PX_TEMPLATE_SECTION_MAP_ID ;
46
47 cursor CU_TEMPLATE_SECTION_MAP_ID IS
48 select ASO_SUP_TMPL_SECT_MAP_S.NEXTVAL from sys.dual;
49
50 Begin
51
52 IF (PX_TEMPLATE_SECTION_MAP_ID IS NULL) OR (PX_TEMPLATE_SECTION_MAP_ID = FND_API.G_MISS_NUM) THEN
53 OPEN CU_TEMPLATE_SECTION_MAP_ID;
54 FETCH CU_TEMPLATE_SECTION_MAP_ID INTO PX_TEMPLATE_SECTION_MAP_ID;
55 CLOSE CU_TEMPLATE_SECTION_MAP_ID;
56
57 END IF;
58
59 insert into ASO_SUP_TMPL_SECT_MAP (
60 TEMPLATE_SECTION_MAP_ID,
61 TEMPLATE_ID,
62 SECTION_ID ,
63 DISPLAY_SEQUENCE,
64 created_by ,
65 creation_date ,
66 last_updated_by ,
67 last_update_date ,
68 last_update_login ,
69 CONTEXT,
70 ATTRIBUTE1 ,
71 ATTRIBUTE2 ,
72 ATTRIBUTE3 ,
73 ATTRIBUTE4 ,
74 ATTRIBUTE5 ,
75 ATTRIBUTE6 ,
76 ATTRIBUTE7 ,
77 ATTRIBUTE8 ,
78 ATTRIBUTE9 ,
79 ATTRIBUTE10 ,
80 ATTRIBUTE11 ,
81 ATTRIBUTE12 ,
82 ATTRIBUTE13 ,
83 ATTRIBUTE14 ,
84 ATTRIBUTE15 ,
85 ATTRIBUTE16,
86 ATTRIBUTE17,
87 ATTRIBUTE18,
88 ATTRIBUTE19,
89 ATTRIBUTE20)
90 values
91 (
92 PX_TEMPLATE_SECTION_MAP_ID,
93 P_TEMPLATE_ID,
94 P_SECTION_ID ,
95 P_DISPLAY_SEQUENCE,
96 P_created_by ,
97 P_creation_date ,
98 P_last_updated_by ,
99 P_last_update_date ,
100 P_last_update_login,
101 P_CONTEXT,
102 P_ATTRIBUTE1 ,
103 P_ATTRIBUTE2 ,
104 P_ATTRIBUTE3 ,
105 P_ATTRIBUTE4 ,
106 P_ATTRIBUTE5 ,
107 P_ATTRIBUTE6 ,
108 P_ATTRIBUTE7 ,
109 P_ATTRIBUTE8 ,
110 P_ATTRIBUTE9 ,
111 P_ATTRIBUTE10 ,
112 P_ATTRIBUTE11 ,
113 P_ATTRIBUTE12 ,
114 P_ATTRIBUTE13 ,
115 P_ATTRIBUTE14 ,
116 P_ATTRIBUTE15,
117 P_ATTRIBUTE16,
118 P_ATTRIBUTE17,
119 P_ATTRIBUTE18,
120 P_ATTRIBUTE19,
121 P_ATTRIBUTE20
122 ) ;
123
124
125 open c;
126 fetch c into PX_ROWID;
127 if (c%notfound) then
128 close c;
129 raise no_data_found;
130 end if;
131 close c;
132
133 end INSERT_ROW;
134
135
136 /* procedure to Update Row */
137
138 PROCEDURE UPDATE_ROW
139 (
140 P_TEMPLATE_SECTION_MAP_ID IN NUMBER,
141 P_last_updated_by IN NUMBER,
142 P_last_update_date IN DATE,
143 P_last_update_login IN NUMBER,
144 P_SECTION_ID IN NUMBER,
145 P_TEMPLATE_ID IN NUMBER,
146 P_DISPLAY_SEQUENCE IN NUMBER,
147 P_CONTEXT IN VARCHAR2,
148 P_ATTRIBUTE1 IN VARCHAR2,
149 P_ATTRIBUTE2 IN VARCHAR2,
150 P_ATTRIBUTE3 IN VARCHAR2,
151 P_ATTRIBUTE4 IN VARCHAR2,
152 P_ATTRIBUTE5 IN VARCHAR2,
153 P_ATTRIBUTE6 IN VARCHAR2,
154 P_ATTRIBUTE7 IN VARCHAR2,
155 P_ATTRIBUTE8 IN VARCHAR2,
156 P_ATTRIBUTE9 IN VARCHAR2,
157 P_ATTRIBUTE10 IN VARCHAR2,
158 P_ATTRIBUTE11 IN VARCHAR2,
159 P_ATTRIBUTE12 IN VARCHAR2,
160 P_ATTRIBUTE13 IN VARCHAR2,
161 P_ATTRIBUTE14 IN VARCHAR2,
162 P_ATTRIBUTE15 IN VARCHAR2,
163 P_ATTRIBUTE16 IN VARCHAR2,
164 P_ATTRIBUTE17 IN VARCHAR2,
165 P_ATTRIBUTE18 IN VARCHAR2,
166 P_ATTRIBUTE19 IN VARCHAR2,
167 P_ATTRIBUTE20 IN VARCHAR2
168 )
169
170 IS
171
172 Begin
173
174 update ASO_SUP_TMPL_SECT_MAP
175 set
176 TEMPLATE_ID = P_TEMPLATE_ID,
177 SECTION_ID = P_SECTION_ID,
178 DISPLAY_SEQUENCE = P_DISPLAY_SEQUENCE,
179 last_updated_by = P_last_updated_by,
180 last_update_date = P_last_update_date,
181 last_update_login = P_last_update_login,
182 context = P_context,
183 ATTRIBUTE1 = P_ATTRIBUTE1,
184 ATTRIBUTE2 = P_ATTRIBUTE2,
185 ATTRIBUTE3 = P_ATTRIBUTE3,
186 ATTRIBUTE4 = P_ATTRIBUTE4,
187 ATTRIBUTE5 = P_ATTRIBUTE5,
188 ATTRIBUTE6 = P_ATTRIBUTE6,
189 ATTRIBUTE7 = P_ATTRIBUTE7,
190 ATTRIBUTE8 = P_ATTRIBUTE8,
191 ATTRIBUTE9 = P_ATTRIBUTE9,
192 ATTRIBUTE10 = P_ATTRIBUTE10,
193 ATTRIBUTE11 = P_ATTRIBUTE11,
194 ATTRIBUTE12 = P_ATTRIBUTE12,
195 ATTRIBUTE13 = P_ATTRIBUTE13,
196 ATTRIBUTE14 = P_ATTRIBUTE14,
197 ATTRIBUTE15 = P_ATTRIBUTE15,
198 ATTRIBUTE16 = P_ATTRIBUTE16,
199 ATTRIBUTE17 = P_ATTRIBUTE17,
200 ATTRIBUTE18 = P_ATTRIBUTE18,
201 ATTRIBUTE19 = P_ATTRIBUTE19,
202 ATTRIBUTE20 = P_ATTRIBUTE20
203 where TEMPLATE_SECTION_MAP_ID = P_TEMPLATE_SECTION_MAP_ID;
204
205 if (sql%notfound) then
206 raise no_data_found;
207 end if;
208
209
210 End UPDATE_ROW;
211
212 /* procedure to Delete Row */
213
214
215 procedure DELETE_ROW (
216 P_TEMPLATE_SECTION_MAP_ID IN NUMBER
217
218 )
219
220 IS
221
222 Begin
223
224 delete from ASO_SUP_TMPL_SECT_MAP
225 where TEMPLATE_SECTION_MAP_ID = P_TEMPLATE_SECTION_MAP_ID;
226
227 if (sql%notfound) then
228 raise no_data_found;
229 end if;
230
231
232 End Delete_row;
233
234
235 /* procedure to Lock Row */
236
237 PROCEDURE LOCK_ROW
238 (
239 P_TEMPLATE_SECTION_MAP_ID IN NUMBER,
240 P_created_by IN NUMBER ,
241 P_creation_date IN DATE ,
242 P_last_updated_by IN NUMBER,
243 P_last_update_date IN DATE,
244 P_last_update_login IN NUMBER,
245 P_TEMPLATE_ID IN NUMBER,
246 P_SECTION_ID IN NUMBER,
247 P_DISPLAY_SEQUENCE IN NUMBER,
248 P_CONTEXT IN VARCHAR2,
249 P_ATTRIBUTE1 IN VARCHAR2,
250 P_ATTRIBUTE2 IN VARCHAR2,
251 P_ATTRIBUTE3 IN VARCHAR2,
255 P_ATTRIBUTE7 IN VARCHAR2,
252 P_ATTRIBUTE4 IN VARCHAR2,
253 P_ATTRIBUTE5 IN VARCHAR2,
254 P_ATTRIBUTE6 IN VARCHAR2,
256 P_ATTRIBUTE8 IN VARCHAR2,
257 P_ATTRIBUTE9 IN VARCHAR2,
258 P_ATTRIBUTE10 IN VARCHAR2,
259 P_ATTRIBUTE11 IN VARCHAR2,
260 P_ATTRIBUTE12 IN VARCHAR2,
261 P_ATTRIBUTE13 IN VARCHAR2,
262 P_ATTRIBUTE14 IN VARCHAR2,
263 P_ATTRIBUTE15 IN VARCHAR2
264 )
265
266 IS
267
268 CURSOR i_csr is
269 SELECT
270 a.TEMPLATE_SECTION_MAP_ID ,
271 a.TEMPLATE_ID,
272 a.SECTION_ID ,
273 a.DISPLAY_SEQUENCE,
274 created_by ,
275 creation_date ,
276 last_updated_by ,
277 last_update_date ,
278 last_update_login ,
279 context,
280 ATTRIBUTE1 ,
281 ATTRIBUTE2 ,
282 ATTRIBUTE3 ,
283 ATTRIBUTE4 ,
284 ATTRIBUTE5 ,
285 ATTRIBUTE6 ,
286 ATTRIBUTE7 ,
287 ATTRIBUTE8 ,
288 ATTRIBUTE9 ,
289 ATTRIBUTE10 ,
290 ATTRIBUTE11 ,
291 ATTRIBUTE12 ,
292 ATTRIBUTE13 ,
293 ATTRIBUTE14 ,
294 ATTRIBUTE15
295
296 from ASO_SUP_TMPL_SECT_MAP a
297 where a.TEMPLATE_SECTION_MAP_ID = P_TEMPLATE_SECTION_MAP_ID
298 for update of a.TEMPLATE_SECTION_MAP_ID nowait;
299
300 recinfo i_csr%rowtype;
301
302
303 l_Item_ID NUMBER ;
304 l_Org_ID NUMBER ;
305
306 l_return_status VARCHAR2(1) ;
307
308 BEGIN
309
310
311 l_Item_ID := P_TEMPLATE_SECTION_MAP_ID ;
312
313 open i_csr;
314
315 fetch i_csr into recinfo;
316
317 if (i_csr%notfound) then
318 close i_csr;
319 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
320 app_exception.raise_exception;
321 end if;
322
323 close i_csr;
324
325 -- Do not compare to the B table column;
326 -- only compare to TL column (c1 cursor below).
327
328
329 if (
330 ((recinfo.TEMPLATE_SECTION_MAP_ID = P_TEMPLATE_SECTION_MAP_ID)
331 OR ((recinfo.TEMPLATE_SECTION_MAP_ID is null) AND (P_TEMPLATE_SECTION_MAP_ID is null)))
332 AND ((recinfo.TEMPLATE_ID = P_TEMPLATE_ID)
333 OR ((recinfo.TEMPLATE_ID is null) AND (P_TEMPLATE_ID is null)))
334 AND ((recinfo.SECTION_ID = P_SECTION_ID)
335 OR ((recinfo.SECTION_ID is null) AND (P_SECTION_ID is null)))
336 AND ((recinfo.DISPLAY_SEQUENCE = P_DISPLAY_SEQUENCE)
337 OR ((recinfo.DISPLAY_SEQUENCE is null) AND (P_DISPLAY_SEQUENCE is null)))
338 AND ((recinfo.CREATED_BY = P_CREATED_BY)
339 OR ((recinfo.CREATED_BY is null) AND (P_CREATED_BY is null)))
340 AND ((recinfo.CREATION_DATE = P_CREATION_DATE)
341 OR ((recinfo.CREATION_DATE is null) AND (P_CREATION_DATE is null)))
342 AND ((recinfo.LAST_UPDATED_BY = P_LAST_UPDATED_BY)
343 OR ((recinfo.LAST_UPDATED_BY is null) AND (P_LAST_UPDATED_BY is null)))
344 AND ((recinfo.LAST_UPDATE_DATE = P_LAST_UPDATE_DATE)
345 OR ((recinfo.LAST_UPDATE_DATE is null) AND (P_LAST_UPDATE_DATE is null)))
346 AND ((recinfo.LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN)
347 OR ((recinfo.LAST_UPDATE_LOGIN is null) AND (P_LAST_UPDATE_LOGIN is null)))
348 AND ((recinfo.CONTEXT = P_CONTEXT)
349 OR ((recinfo.CONTEXT is null) AND (P_CONTEXT is null)))
350 AND ((recinfo.ATTRIBUTE1 = P_ATTRIBUTE1)
351 OR ((recinfo.ATTRIBUTE1 is null) AND (P_ATTRIBUTE1 is null)))
352 AND ((recinfo.ATTRIBUTE2 = P_ATTRIBUTE2)
353 OR ((recinfo.ATTRIBUTE2 is null) AND (P_ATTRIBUTE2 is null)))
354 AND ((recinfo.ATTRIBUTE3 = P_ATTRIBUTE3)
355 OR ((recinfo.ATTRIBUTE3 is null) AND (P_ATTRIBUTE3 is null)))
356 AND ((recinfo.ATTRIBUTE4 = P_ATTRIBUTE4)
357 OR ((recinfo.ATTRIBUTE4 is null) AND (P_ATTRIBUTE4 is null)))
358 AND ((recinfo.ATTRIBUTE5 = P_ATTRIBUTE5)
359 OR ((recinfo.ATTRIBUTE5 is null) AND (P_ATTRIBUTE5 is null)))
360 AND ((recinfo.ATTRIBUTE6 = P_ATTRIBUTE6)
361 OR ((recinfo.ATTRIBUTE6 is null) AND (P_ATTRIBUTE6 is null)))
362 AND ((recinfo.ATTRIBUTE7 = P_ATTRIBUTE7)
363 OR ((recinfo.ATTRIBUTE7 is null) AND (P_ATTRIBUTE7 is null)))
364 AND ((recinfo.ATTRIBUTE8 = P_ATTRIBUTE8)
365 OR ((recinfo.ATTRIBUTE8 is null) AND (P_ATTRIBUTE8 is null)))
366 AND ((recinfo.ATTRIBUTE9 = P_ATTRIBUTE9)
367 OR ((recinfo.ATTRIBUTE9 is null) AND (P_ATTRIBUTE9 is null)))
368 AND ((recinfo.ATTRIBUTE10 = P_ATTRIBUTE10)
369 OR ((recinfo.ATTRIBUTE10 is null) AND (P_ATTRIBUTE10 is null)))
370 AND ((recinfo.ATTRIBUTE11 = P_ATTRIBUTE11)
371 OR ((recinfo.ATTRIBUTE11 is null) AND (P_ATTRIBUTE11 is null)))
372 AND ((recinfo.ATTRIBUTE12 = P_ATTRIBUTE12)
373 OR ((recinfo.ATTRIBUTE12 is null) AND (P_ATTRIBUTE12 is null)))
374 AND ((recinfo.ATTRIBUTE13 = P_ATTRIBUTE13)
375 OR ((recinfo.ATTRIBUTE13 is null) AND (P_ATTRIBUTE13 is null)))
376 AND ((recinfo.ATTRIBUTE14 = P_ATTRIBUTE14)
377 OR ((recinfo.ATTRIBUTE14 is null) AND (P_ATTRIBUTE14 is null)))
378 AND ((recinfo.ATTRIBUTE15 = P_ATTRIBUTE15)
379 OR ((recinfo.ATTRIBUTE15 is null) AND (P_ATTRIBUTE15 is null)))
380 ) then
381 null;
382 else
383 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
384 app_exception.raise_exception;
385 end if;
386
387 return;
388
389 End Lock_Row;
390
391
392
393 END; -- Package Body ASO_SUP_TMPL_SECT_MAP_PKG