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_SPACES_PKG

Source


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