eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AHL_SPACE_UNAVAILABLE_PKG

Source


1 package body AHL_SPACE_UNAVAILABLE_PKG as
2 /* $Header: AHLLSUAB.pls 115.4 2003/04/04 12:09:05 adharia noship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out NOCOPY VARCHAR2,
5   X_SPACE_UNAVAILABILITY_ID in NUMBER,
6   X_ATTRIBUTE13 in VARCHAR2,
7   X_ATTRIBUTE14 in VARCHAR2,
8   X_ATTRIBUTE15 in VARCHAR2,
9   X_SPACE_ID in NUMBER,
10   X_START_DATE in DATE,
11   X_END_DATE in DATE,
12   X_ATTRIBUTE_CATEGORY in VARCHAR2,
13   X_ATTRIBUTE1 in VARCHAR2,
14   X_ATTRIBUTE2 in VARCHAR2,
15   X_ATTRIBUTE3 in VARCHAR2,
16   X_ATTRIBUTE4 in VARCHAR2,
17   X_ATTRIBUTE5 in VARCHAR2,
18   X_ATTRIBUTE6 in VARCHAR2,
19   X_ATTRIBUTE7 in VARCHAR2,
20   X_ATTRIBUTE11 in VARCHAR2,
21   X_ATTRIBUTE9 in VARCHAR2,
22   X_OBJECT_VERSION_NUMBER in NUMBER,
23   X_ATTRIBUTE12 in VARCHAR2,
24   X_ATTRIBUTE8 in VARCHAR2,
25   X_ATTRIBUTE10 in VARCHAR2,
26   X_DESCRIPTION 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 AHL_SPACE_UNAVAILABLE_B
34     where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
35     ;
36 begin
37   insert into AHL_SPACE_UNAVAILABLE_B (
38     ATTRIBUTE13,
39     ATTRIBUTE14,
40     ATTRIBUTE15,
41     SPACE_ID,
42     START_DATE,
43     END_DATE,
44     ATTRIBUTE_CATEGORY,
45     ATTRIBUTE1,
46     ATTRIBUTE2,
47     ATTRIBUTE3,
48     ATTRIBUTE4,
49     ATTRIBUTE5,
50     ATTRIBUTE6,
51     ATTRIBUTE7,
52     ATTRIBUTE11,
53     ATTRIBUTE9,
54     OBJECT_VERSION_NUMBER,
55     ATTRIBUTE12,
56     ATTRIBUTE8,
57     ATTRIBUTE10,
58     SPACE_UNAVAILABILITY_ID,
59     CREATION_DATE,
60     CREATED_BY,
61     LAST_UPDATE_DATE,
62     LAST_UPDATED_BY,
63     LAST_UPDATE_LOGIN
64   ) values (
65     X_ATTRIBUTE13,
66     X_ATTRIBUTE14,
67     X_ATTRIBUTE15,
68     X_SPACE_ID,
69     X_START_DATE,
70     X_END_DATE,
71     X_ATTRIBUTE_CATEGORY,
72     X_ATTRIBUTE1,
73     X_ATTRIBUTE2,
74     X_ATTRIBUTE3,
75     X_ATTRIBUTE4,
76     X_ATTRIBUTE5,
77     X_ATTRIBUTE6,
78     X_ATTRIBUTE7,
79     X_ATTRIBUTE11,
80     X_ATTRIBUTE9,
81     X_OBJECT_VERSION_NUMBER,
82     X_ATTRIBUTE12,
83     X_ATTRIBUTE8,
84     X_ATTRIBUTE10,
85     X_SPACE_UNAVAILABILITY_ID,
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   insert into AHL_SPACE_UNAVAILABLE_TL (
94     DESCRIPTION,
95     SPACE_UNAVAILABILITY_ID,
96     LAST_UPDATE_DATE,
97     LAST_UPDATED_BY,
98     CREATION_DATE,
99     CREATED_BY,
100     LAST_UPDATE_LOGIN,
101     LANGUAGE,
102     SOURCE_LANG
103   ) select
104     X_DESCRIPTION,
105     X_SPACE_UNAVAILABILITY_ID,
106     X_LAST_UPDATE_DATE,
107     X_LAST_UPDATED_BY,
108     X_CREATION_DATE,
109     X_CREATED_BY,
110     X_LAST_UPDATE_LOGIN,
111     L.LANGUAGE_CODE,
112     userenv('LANG')
113   from FND_LANGUAGES L
114   where L.INSTALLED_FLAG in ('I', 'B')
115   and not exists
116     (select NULL
117     from AHL_SPACE_UNAVAILABLE_TL T
118     where T.SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
119     and T.LANGUAGE = L.LANGUAGE_CODE);
120 
121   open c;
122   fetch c into X_ROWID;
123   if (c%notfound) then
124     close c;
125     raise no_data_found;
126   end if;
127   close c;
128 
129 end INSERT_ROW;
130 
131 procedure LOCK_ROW (
132   X_SPACE_UNAVAILABILITY_ID in NUMBER,
133   X_ATTRIBUTE13 in VARCHAR2,
134   X_ATTRIBUTE14 in VARCHAR2,
135   X_ATTRIBUTE15 in VARCHAR2,
136   X_SPACE_ID in NUMBER,
137   X_START_DATE in DATE,
138   X_END_DATE in DATE,
139   X_ATTRIBUTE_CATEGORY in VARCHAR2,
140   X_ATTRIBUTE1 in VARCHAR2,
141   X_ATTRIBUTE2 in VARCHAR2,
142   X_ATTRIBUTE3 in VARCHAR2,
143   X_ATTRIBUTE4 in VARCHAR2,
144   X_ATTRIBUTE5 in VARCHAR2,
145   X_ATTRIBUTE6 in VARCHAR2,
146   X_ATTRIBUTE7 in VARCHAR2,
147   X_ATTRIBUTE11 in VARCHAR2,
148   X_ATTRIBUTE9 in VARCHAR2,
149   X_OBJECT_VERSION_NUMBER in NUMBER,
150   X_ATTRIBUTE12 in VARCHAR2,
151   X_ATTRIBUTE8 in VARCHAR2,
152   X_ATTRIBUTE10 in VARCHAR2,
153   X_DESCRIPTION in VARCHAR2
154 ) is
155   cursor c is select
156       ATTRIBUTE13,
157       ATTRIBUTE14,
158       ATTRIBUTE15,
159       SPACE_ID,
160       START_DATE,
161       END_DATE,
162       ATTRIBUTE_CATEGORY,
163       ATTRIBUTE1,
164       ATTRIBUTE2,
165       ATTRIBUTE3,
166       ATTRIBUTE4,
167       ATTRIBUTE5,
168       ATTRIBUTE6,
169       ATTRIBUTE7,
170       ATTRIBUTE11,
171       ATTRIBUTE9,
172       OBJECT_VERSION_NUMBER,
173       ATTRIBUTE12,
174       ATTRIBUTE8,
175       ATTRIBUTE10
176     from AHL_SPACE_UNAVAILABLE_B
177     where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
178     for update of SPACE_UNAVAILABILITY_ID nowait;
179   recinfo c%rowtype;
180 
181   cursor c1 is select
182       DESCRIPTION,
183       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
184     from AHL_SPACE_UNAVAILABLE_TL
185     where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
186     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
187     for update of SPACE_UNAVAILABILITY_ID nowait;
188 begin
189   open c;
190   fetch c into recinfo;
191   if (c%notfound) then
192     close c;
193     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
194     app_exception.raise_exception;
195   end if;
196   close c;
197   if (    ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
198            OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
199       AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
200            OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
201       AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
202            OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
203       AND (recinfo.SPACE_ID = X_SPACE_ID)
204       AND ((recinfo.START_DATE = X_START_DATE)
205            OR ((recinfo.START_DATE is null) AND (X_START_DATE is null)))
206       AND ((recinfo.END_DATE = X_END_DATE)
207            OR ((recinfo.END_DATE is null) AND (X_END_DATE is null)))
208       AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
209            OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
210       AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
211            OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
212       AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
213            OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
214       AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
215            OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
216       AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
217            OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
218       AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
219            OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
220       AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
221            OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
222       AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
223            OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
224       AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
225            OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
226       AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
227            OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
228       AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
229       AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
230            OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
231       AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
232            OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
233       AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
234            OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
235   ) then
236     null;
237   else
238     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
239     app_exception.raise_exception;
240   end if;
241 
242   for tlinfo in c1 loop
243     if (tlinfo.BASELANG = 'Y') then
244       if (    ((tlinfo.DESCRIPTION = X_DESCRIPTION)
245                OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
246       ) then
247         null;
248       else
249         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
250         app_exception.raise_exception;
251       end if;
252     end if;
253   end loop;
254   return;
255 end LOCK_ROW;
256 
257 procedure UPDATE_ROW (
258   X_SPACE_UNAVAILABILITY_ID in NUMBER,
259   X_ATTRIBUTE13 in VARCHAR2,
260   X_ATTRIBUTE14 in VARCHAR2,
261   X_ATTRIBUTE15 in VARCHAR2,
262   X_SPACE_ID in NUMBER,
263   X_START_DATE in DATE,
264   X_END_DATE in DATE,
265   X_ATTRIBUTE_CATEGORY in VARCHAR2,
266   X_ATTRIBUTE1 in VARCHAR2,
267   X_ATTRIBUTE2 in VARCHAR2,
268   X_ATTRIBUTE3 in VARCHAR2,
269   X_ATTRIBUTE4 in VARCHAR2,
270   X_ATTRIBUTE5 in VARCHAR2,
271   X_ATTRIBUTE6 in VARCHAR2,
272   X_ATTRIBUTE7 in VARCHAR2,
273   X_ATTRIBUTE11 in VARCHAR2,
274   X_ATTRIBUTE9 in VARCHAR2,
275   X_OBJECT_VERSION_NUMBER in NUMBER,
276   X_ATTRIBUTE12 in VARCHAR2,
277   X_ATTRIBUTE8 in VARCHAR2,
278   X_ATTRIBUTE10 in VARCHAR2,
279   X_DESCRIPTION in VARCHAR2,
280   X_LAST_UPDATE_DATE in DATE,
281   X_LAST_UPDATED_BY in NUMBER,
282   X_LAST_UPDATE_LOGIN in NUMBER
283 ) is
284 begin
285   update AHL_SPACE_UNAVAILABLE_B set
286     ATTRIBUTE13 = X_ATTRIBUTE13,
287     ATTRIBUTE14 = X_ATTRIBUTE14,
288     ATTRIBUTE15 = X_ATTRIBUTE15,
289     SPACE_ID = X_SPACE_ID,
290     START_DATE = X_START_DATE,
291     END_DATE = X_END_DATE,
292     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
293     ATTRIBUTE1 = X_ATTRIBUTE1,
294     ATTRIBUTE2 = X_ATTRIBUTE2,
295     ATTRIBUTE3 = X_ATTRIBUTE3,
296     ATTRIBUTE4 = X_ATTRIBUTE4,
297     ATTRIBUTE5 = X_ATTRIBUTE5,
298     ATTRIBUTE6 = X_ATTRIBUTE6,
299     ATTRIBUTE7 = X_ATTRIBUTE7,
300     ATTRIBUTE11 = X_ATTRIBUTE11,
301     ATTRIBUTE9 = X_ATTRIBUTE9,
302     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
303     ATTRIBUTE12 = X_ATTRIBUTE12,
304     ATTRIBUTE8 = X_ATTRIBUTE8,
305     ATTRIBUTE10 = X_ATTRIBUTE10,
306     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
307     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
308     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
309   where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
310 
311   if (sql%notfound) then
312     raise no_data_found;
313   end if;
314 
315   update AHL_SPACE_UNAVAILABLE_TL set
316     DESCRIPTION = X_DESCRIPTION,
317     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
318     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
319     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
320     SOURCE_LANG = userenv('LANG')
321   where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
322   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
323 
324   if (sql%notfound) then
325     raise no_data_found;
326   end if;
327 end UPDATE_ROW;
328 
329 procedure DELETE_ROW (
330   X_SPACE_UNAVAILABILITY_ID in NUMBER
331 ) is
332 begin
333   delete from AHL_SPACE_UNAVAILABLE_TL
334   where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
335 
336   if (sql%notfound) then
337     raise no_data_found;
338   end if;
339 
340   delete from AHL_SPACE_UNAVAILABLE_B
341   where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
342 
343   if (sql%notfound) then
344     raise no_data_found;
345   end if;
346 end DELETE_ROW;
347 
348 procedure ADD_LANGUAGE
349 is
350 begin
351   delete from AHL_SPACE_UNAVAILABLE_TL T
352   where not exists
353     (select NULL
354     from AHL_SPACE_UNAVAILABLE_B B
355     where B.SPACE_UNAVAILABILITY_ID = T.SPACE_UNAVAILABILITY_ID
356     );
357 
358   update AHL_SPACE_UNAVAILABLE_TL T set (
359       DESCRIPTION
360     ) = (select
361       B.DESCRIPTION
362     from AHL_SPACE_UNAVAILABLE_TL B
363     where B.SPACE_UNAVAILABILITY_ID = T.SPACE_UNAVAILABILITY_ID
364     and B.LANGUAGE = T.SOURCE_LANG)
365   where (
366       T.SPACE_UNAVAILABILITY_ID,
367       T.LANGUAGE
368   ) in (select
369       SUBT.SPACE_UNAVAILABILITY_ID,
370       SUBT.LANGUAGE
371     from AHL_SPACE_UNAVAILABLE_TL SUBB, AHL_SPACE_UNAVAILABLE_TL SUBT
372     where SUBB.SPACE_UNAVAILABILITY_ID = SUBT.SPACE_UNAVAILABILITY_ID
373     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
374     and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
375       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
376       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
377   ));
378 
379   insert into AHL_SPACE_UNAVAILABLE_TL (
380     DESCRIPTION,
381     SPACE_UNAVAILABILITY_ID,
382     LAST_UPDATE_DATE,
383     LAST_UPDATED_BY,
384     CREATION_DATE,
385     CREATED_BY,
386     LAST_UPDATE_LOGIN,
387     LANGUAGE,
388     SOURCE_LANG
389   ) select /*+ ORDERED */
390     B.DESCRIPTION,
391     B.SPACE_UNAVAILABILITY_ID,
392     B.LAST_UPDATE_DATE,
393     B.LAST_UPDATED_BY,
394     B.CREATION_DATE,
395     B.CREATED_BY,
396     B.LAST_UPDATE_LOGIN,
397     L.LANGUAGE_CODE,
398     B.SOURCE_LANG
399   from AHL_SPACE_UNAVAILABLE_TL B, FND_LANGUAGES L
400   where L.INSTALLED_FLAG in ('I', 'B')
401   and B.LANGUAGE = userenv('LANG')
402   and not exists
403     (select NULL
404     from AHL_SPACE_UNAVAILABLE_TL T
405     where T.SPACE_UNAVAILABILITY_ID = B.SPACE_UNAVAILABILITY_ID
406     and T.LANGUAGE = L.LANGUAGE_CODE);
407 end ADD_LANGUAGE;
408 
409 
410 procedure  LOAD_ROW(
411   X_SPACE_UNAVAILABILITY_ID in NUMBER,
412   X_ATTRIBUTE13 in VARCHAR2,
413   X_ATTRIBUTE14 in VARCHAR2,
414   X_ATTRIBUTE15 in VARCHAR2,
415   X_SPACE_ID in NUMBER,
416   X_START_DATE in DATE,
417   X_END_DATE in DATE,
418   X_ATTRIBUTE_CATEGORY in VARCHAR2,
419   X_ATTRIBUTE1 in VARCHAR2,
420   X_ATTRIBUTE2 in VARCHAR2,
421   X_ATTRIBUTE3 in VARCHAR2,
422   X_ATTRIBUTE4 in VARCHAR2,
423   X_ATTRIBUTE5 in VARCHAR2,
424   X_ATTRIBUTE6 in VARCHAR2,
425   X_ATTRIBUTE7 in VARCHAR2,
426   X_ATTRIBUTE11 in VARCHAR2,
427   X_ATTRIBUTE9 in VARCHAR2,
428   X_ATTRIBUTE12 in VARCHAR2,
429   X_ATTRIBUTE8 in VARCHAR2,
430   X_ATTRIBUTE10 in VARCHAR2,
431   X_DESCRIPTION in VARCHAR2,
432 
433   X_OWNER in VARCHAR2
434   )
435   IS
436   l_user_id     number := 0;
437   l_obj_verno   number;
438   l_dummy_char  varchar2(1);
439   l_row_id      varchar2(100);
440   l_obj_id      number;
441 
442 
443 cursor  c_obj_verno is
444   select  object_version_number
445   from    AHL_SPACE_UNAVAILABLE_B
446   where   SPACE_UNAVAILABILITY_ID =  X_SPACE_UNAVAILABILITY_ID;
447 
448 cursor c_chk_rec_exists is
449   select 'x'
450   from   AHL_SPACE_UNAVAILABLE_B
451   where  SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
452 
453 cursor c_get_rec_id is
454    select AHL_SPACE_UNAVAILABLE_B_S.NEXTVAL
455    from DUAL;
456 
457 BEGIN
458 
459   if X_OWNER = 'SEED' then
460      l_user_id := 1;
461  end if;
462 
463  open c_chk_rec_exists;
464  fetch c_chk_rec_exists into l_dummy_char;
465  if c_chk_rec_exists%notfound
466  then
470         open c_get_rec_id;
467     close c_chk_rec_exists;
468 
469     if X_SPACE_UNAVAILABILITY_ID is null then
471         fetch c_get_rec_id into l_obj_id;
472         close c_get_rec_id;
473     else
474        l_obj_id := X_SPACE_UNAVAILABILITY_ID;
475     end if ;
479 AHL_SPACE_UNAVAILABLE_PKG.INSERT_ROW (
476 
477     l_obj_verno := 1;
478 
480 X_ROWID			=>	l_row_id	,
481 X_SPACE_UNAVAILABILITY_ID	=>	l_obj_id	,
482 X_OBJECT_VERSION_NUMBER	=>	l_obj_verno	,
483 
484 X_ATTRIBUTE13		=>	X_ATTRIBUTE13	,
485 X_ATTRIBUTE14		=>	X_ATTRIBUTE14	,
486 X_ATTRIBUTE15		=>	X_ATTRIBUTE15	,
487 X_SPACE_ID		=>	X_SPACE_ID	,
488 X_START_DATE		=>	X_START_DATE	,
489 X_END_DATE		=>	X_END_DATE	,
490 X_ATTRIBUTE_CATEGORY	=>	X_ATTRIBUTE_CATEGORY	,
491 X_ATTRIBUTE1		=>	X_ATTRIBUTE1	,
492 X_ATTRIBUTE2		=>	X_ATTRIBUTE2	,
493 X_ATTRIBUTE3		=>	X_ATTRIBUTE3	,
494 X_ATTRIBUTE4		=>	X_ATTRIBUTE4	,
495 X_ATTRIBUTE5		=>	X_ATTRIBUTE5	,
496 X_ATTRIBUTE6		=>	X_ATTRIBUTE6	,
497 X_ATTRIBUTE7		=>	X_ATTRIBUTE7	,
498 X_ATTRIBUTE11		=>	X_ATTRIBUTE11	,
502 X_ATTRIBUTE10		=>	X_ATTRIBUTE10	,
499 X_ATTRIBUTE9		=>	X_ATTRIBUTE9	,
500 X_ATTRIBUTE12		=>	X_ATTRIBUTE12	,
501 X_ATTRIBUTE8		=>	X_ATTRIBUTE8	,
506 X_CREATION_DATE 	=>      SYSDATE         ,
503 X_DESCRIPTION		=>	X_DESCRIPTION	,
504 
505 
507 X_CREATED_BY            =>      l_user_id       ,
508 X_LAST_UPDATE_DATE      =>      SYSDATE         ,
509 X_LAST_UPDATED_BY       =>      l_user_id       ,
510 X_LAST_UPDATE_LOGIN     =>      0
511 );
512 
513 else
514    close c_chk_rec_exists;
515    open c_obj_verno;
516    fetch c_obj_verno into l_obj_verno;
517    close c_obj_verno;
518 
519    l_obj_verno := l_obj_verno + 1;
520 
524 
521 AHL_SPACE_UNAVAILABLE_PKG.UPDATE_ROW (
522 X_SPACE_UNAVAILABILITY_ID	=>	X_SPACE_UNAVAILABILITY_ID	,
523 X_OBJECT_VERSION_NUMBER	=>	l_obj_verno	,
525 X_ATTRIBUTE13		=>	X_ATTRIBUTE13	,
526 X_ATTRIBUTE14		=>	X_ATTRIBUTE14	,
527 X_ATTRIBUTE15		=>	X_ATTRIBUTE15	,
528 X_SPACE_ID		=>	X_SPACE_ID	,
529 X_START_DATE		=>	X_START_DATE	,
530 X_END_DATE		=>	X_END_DATE	,
531 X_ATTRIBUTE_CATEGORY	=>	X_ATTRIBUTE_CATEGORY	,
532 X_ATTRIBUTE1		=>	X_ATTRIBUTE1	,
533 X_ATTRIBUTE2		=>	X_ATTRIBUTE2	,
534 X_ATTRIBUTE3		=>	X_ATTRIBUTE3	,
535 X_ATTRIBUTE4		=>	X_ATTRIBUTE4	,
536 X_ATTRIBUTE5		=>	X_ATTRIBUTE5	,
537 X_ATTRIBUTE6		=>	X_ATTRIBUTE6	,
538 X_ATTRIBUTE7		=>	X_ATTRIBUTE7	,
539 X_ATTRIBUTE11		=>	X_ATTRIBUTE11	,
540 X_ATTRIBUTE9		=>	X_ATTRIBUTE9	,
541 X_ATTRIBUTE12		=>	X_ATTRIBUTE12	,
542 X_ATTRIBUTE8		=>	X_ATTRIBUTE8	,
543 X_ATTRIBUTE10		=>	X_ATTRIBUTE10	,
544 X_DESCRIPTION		=>	X_DESCRIPTION	,
545 
546 X_LAST_UPDATE_DATE      =>      SYSDATE         ,
547 X_LAST_UPDATED_BY       =>      l_user_id       ,
548 X_LAST_UPDATE_LOGIN     =>      0
549 	);
550 end if;
551 END LOAD_ROW ;
552 
553 procedure TRANSLATE_ROW(
554           X_SPACE_UNAVAILABILITY_ID     in NUMBER,
555 	  X_DESCRIPTION in VARCHAR2,
556           X_OWNER               in VARCHAR2
557  ) IS
558 
559  begin
560   update AHL_SPACE_UNAVAILABLE_TL set
561     DESCRIPTION = NVL(X_DESCRIPTION,DESCRIPTION),
562        source_lang = userenv('LANG'),
563        last_update_date = sysdate,
564        last_updated_by = decode(x_owner, 'SEED', 1, 0),
565        last_update_login = 0
566   where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
567   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
568 end TRANSLATE_ROW;
569 
570 
571 end AHL_SPACE_UNAVAILABLE_PKG;