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.WMS_OBJECTS_PKG

Source


1 package body WMS_OBJECTS_PKG as
2 /* $Header: WMSPOBJB.pls 120.1 2005/06/20 03:31:44 appldev ship $ */
3 procedure INSERT_ROW (
4   X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5   X_OBJECT_ID in NUMBER,
6   X_STRAT_ASGMT_DB_OBJECT_ID in NUMBER,
7   X_STRAT_ASGMT_LOV_SQL in VARCHAR2,
8   X_USER_DEFINED_FLAG in VARCHAR2,
9   X_ATTRIBUTE_CATEGORY in VARCHAR2,
10   X_ATTRIBUTE1 in VARCHAR2,
11   X_ATTRIBUTE2 in VARCHAR2,
12   X_ATTRIBUTE3 in VARCHAR2,
13   X_ATTRIBUTE4 in VARCHAR2,
14   X_ATTRIBUTE5 in VARCHAR2,
15   X_ATTRIBUTE6 in VARCHAR2,
16   X_ATTRIBUTE7 in VARCHAR2,
17   X_ATTRIBUTE8 in VARCHAR2,
18   X_ATTRIBUTE9 in VARCHAR2,
19   X_ATTRIBUTE10 in VARCHAR2,
20   X_ATTRIBUTE11 in VARCHAR2,
21   X_ATTRIBUTE12 in VARCHAR2,
22   X_ATTRIBUTE13 in VARCHAR2,
23   X_ATTRIBUTE14 in VARCHAR2,
24   X_ATTRIBUTE15 in VARCHAR2,
25   X_NAME 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 WMS_OBJECTS_B
34     where OBJECT_ID = X_OBJECT_ID
35     ;
36 begin
37   insert into WMS_OBJECTS_B (
38     OBJECT_ID,
39     STRAT_ASGMT_DB_OBJECT_ID,
40     STRAT_ASGMT_LOV_SQL,
41     USER_DEFINED_FLAG,
42     ATTRIBUTE_CATEGORY,
43     ATTRIBUTE1,
44     ATTRIBUTE2,
45     ATTRIBUTE3,
46     ATTRIBUTE4,
47     ATTRIBUTE5,
48     ATTRIBUTE6,
49     ATTRIBUTE7,
50     ATTRIBUTE8,
51     ATTRIBUTE9,
52     ATTRIBUTE10,
53     ATTRIBUTE11,
54     ATTRIBUTE12,
55     ATTRIBUTE13,
56     ATTRIBUTE14,
57     ATTRIBUTE15,
58     CREATION_DATE,
59     CREATED_BY,
60     LAST_UPDATE_DATE,
61     LAST_UPDATED_BY,
62     LAST_UPDATE_LOGIN
63   ) values (
64     X_OBJECT_ID,
65     X_STRAT_ASGMT_DB_OBJECT_ID,
66     X_STRAT_ASGMT_LOV_SQL,
67     X_USER_DEFINED_FLAG,
68     X_ATTRIBUTE_CATEGORY,
69     X_ATTRIBUTE1,
70     X_ATTRIBUTE2,
71     X_ATTRIBUTE3,
72     X_ATTRIBUTE4,
73     X_ATTRIBUTE5,
74     X_ATTRIBUTE6,
75     X_ATTRIBUTE7,
76     X_ATTRIBUTE8,
77     X_ATTRIBUTE9,
78     X_ATTRIBUTE10,
79     X_ATTRIBUTE11,
80     X_ATTRIBUTE12,
81     X_ATTRIBUTE13,
82     X_ATTRIBUTE14,
83     X_ATTRIBUTE15,
84     X_CREATION_DATE,
85     X_CREATED_BY,
86     X_LAST_UPDATE_DATE,
87     X_LAST_UPDATED_BY,
88     X_LAST_UPDATE_LOGIN
89   );
90 
91   insert into WMS_OBJECTS_TL (
92     NAME,
93     DESCRIPTION,
94     OBJECT_ID,
95     LAST_UPDATED_BY,
96     LAST_UPDATE_DATE,
97     CREATED_BY,
98     CREATION_DATE,
99     LAST_UPDATE_LOGIN,
100     LANGUAGE,
101     SOURCE_LANG
102   ) select
103     X_NAME,
104     X_DESCRIPTION,
105     X_OBJECT_ID,
106     X_LAST_UPDATED_BY,
107     X_LAST_UPDATE_DATE,
108     X_CREATED_BY,
109     X_CREATION_DATE,
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 WMS_OBJECTS_TL T
118     where T.OBJECT_ID = X_OBJECT_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_OBJECT_ID in NUMBER,
133   X_STRAT_ASGMT_DB_OBJECT_ID in NUMBER,
134   X_STRAT_ASGMT_LOV_SQL in VARCHAR2,
135   X_USER_DEFINED_FLAG in VARCHAR2,
136   X_ATTRIBUTE_CATEGORY in VARCHAR2,
137   X_ATTRIBUTE1 in VARCHAR2,
138   X_ATTRIBUTE2 in VARCHAR2,
139   X_ATTRIBUTE3 in VARCHAR2,
140   X_ATTRIBUTE4 in VARCHAR2,
141   X_ATTRIBUTE5 in VARCHAR2,
142   X_ATTRIBUTE6 in VARCHAR2,
143   X_ATTRIBUTE7 in VARCHAR2,
144   X_ATTRIBUTE8 in VARCHAR2,
145   X_ATTRIBUTE9 in VARCHAR2,
146   X_ATTRIBUTE10 in VARCHAR2,
147   X_ATTRIBUTE11 in VARCHAR2,
148   X_ATTRIBUTE12 in VARCHAR2,
149   X_ATTRIBUTE13 in VARCHAR2,
150   X_ATTRIBUTE14 in VARCHAR2,
151   X_ATTRIBUTE15 in VARCHAR2,
152   X_NAME in VARCHAR2,
153   X_DESCRIPTION in VARCHAR2
154 ) is
155   cursor c is select
156       STRAT_ASGMT_DB_OBJECT_ID,
157       STRAT_ASGMT_LOV_SQL,
158       USER_DEFINED_FLAG,
159       ATTRIBUTE_CATEGORY,
160       ATTRIBUTE1,
161       ATTRIBUTE2,
162       ATTRIBUTE3,
163       ATTRIBUTE4,
164       ATTRIBUTE5,
165       ATTRIBUTE6,
166       ATTRIBUTE7,
167       ATTRIBUTE8,
168       ATTRIBUTE9,
169       ATTRIBUTE10,
170       ATTRIBUTE11,
171       ATTRIBUTE12,
172       ATTRIBUTE13,
173       ATTRIBUTE14,
174       ATTRIBUTE15
175     from WMS_OBJECTS_B
176     where OBJECT_ID = X_OBJECT_ID
177     for update of OBJECT_ID nowait;
178   recinfo c%rowtype;
179 
180   cursor c1 is select
181       NAME,
182       DESCRIPTION,
183       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
184     from WMS_OBJECTS_TL
185     where OBJECT_ID = X_OBJECT_ID
186     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
187     for update of OBJECT_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.STRAT_ASGMT_DB_OBJECT_ID = X_STRAT_ASGMT_DB_OBJECT_ID)
198            OR ((recinfo.STRAT_ASGMT_DB_OBJECT_ID is null) AND (X_STRAT_ASGMT_DB_OBJECT_ID is null)))
199       AND ((recinfo.STRAT_ASGMT_LOV_SQL = X_STRAT_ASGMT_LOV_SQL)
200            OR ((recinfo.STRAT_ASGMT_LOV_SQL is null) AND (X_STRAT_ASGMT_LOV_SQL is null)))
201       AND (recinfo.USER_DEFINED_FLAG = X_USER_DEFINED_FLAG)
202       AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
203            OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
204       AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
205            OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
206       AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
207            OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
208       AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
209            OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
210       AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
211            OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
212       AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
213            OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
214       AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
215            OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
216       AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
217            OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
218       AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
219            OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
220       AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
221            OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
222       AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
223            OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
224       AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
225            OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
226       AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
227            OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
228       AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
229            OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
230       AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
231            OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
232       AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
233            OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
234   ) then
235     null;
236   else
237     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
238     app_exception.raise_exception;
239   end if;
240 
241   for tlinfo in c1 loop
242     if (tlinfo.BASELANG = 'Y') then
243       if (    (tlinfo.NAME = X_NAME)
244           AND ((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_OBJECT_ID in NUMBER,
259   X_STRAT_ASGMT_DB_OBJECT_ID in NUMBER,
260   X_STRAT_ASGMT_LOV_SQL in VARCHAR2,
261   X_USER_DEFINED_FLAG in VARCHAR2,
262   X_ATTRIBUTE_CATEGORY in VARCHAR2,
263   X_ATTRIBUTE1 in VARCHAR2,
264   X_ATTRIBUTE2 in VARCHAR2,
265   X_ATTRIBUTE3 in VARCHAR2,
266   X_ATTRIBUTE4 in VARCHAR2,
267   X_ATTRIBUTE5 in VARCHAR2,
268   X_ATTRIBUTE6 in VARCHAR2,
269   X_ATTRIBUTE7 in VARCHAR2,
270   X_ATTRIBUTE8 in VARCHAR2,
271   X_ATTRIBUTE9 in VARCHAR2,
272   X_ATTRIBUTE10 in VARCHAR2,
273   X_ATTRIBUTE11 in VARCHAR2,
274   X_ATTRIBUTE12 in VARCHAR2,
275   X_ATTRIBUTE13 in VARCHAR2,
276   X_ATTRIBUTE14 in VARCHAR2,
277   X_ATTRIBUTE15 in VARCHAR2,
278   X_NAME 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 WMS_OBJECTS_B set
286     STRAT_ASGMT_DB_OBJECT_ID = X_STRAT_ASGMT_DB_OBJECT_ID,
287     STRAT_ASGMT_LOV_SQL = X_STRAT_ASGMT_LOV_SQL,
288     USER_DEFINED_FLAG = X_USER_DEFINED_FLAG,
289     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
290     ATTRIBUTE1 = X_ATTRIBUTE1,
291     ATTRIBUTE2 = X_ATTRIBUTE2,
292     ATTRIBUTE3 = X_ATTRIBUTE3,
293     ATTRIBUTE4 = X_ATTRIBUTE4,
294     ATTRIBUTE5 = X_ATTRIBUTE5,
295     ATTRIBUTE6 = X_ATTRIBUTE6,
296     ATTRIBUTE7 = X_ATTRIBUTE7,
297     ATTRIBUTE8 = X_ATTRIBUTE8,
298     ATTRIBUTE9 = X_ATTRIBUTE9,
299     ATTRIBUTE10 = X_ATTRIBUTE10,
300     ATTRIBUTE11 = X_ATTRIBUTE11,
301     ATTRIBUTE12 = X_ATTRIBUTE12,
302     ATTRIBUTE13 = X_ATTRIBUTE13,
303     ATTRIBUTE14 = X_ATTRIBUTE14,
304     ATTRIBUTE15 = X_ATTRIBUTE15,
305     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
306     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
307     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
308   where OBJECT_ID = X_OBJECT_ID;
309 
310   if (sql%notfound) then
311     raise no_data_found;
312   end if;
313 
314   update WMS_OBJECTS_TL set
315     NAME = X_NAME,
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 OBJECT_ID = X_OBJECT_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_OBJECT_ID in NUMBER
331 ) is
332 begin
333   delete from WMS_OBJECTS_TL
334   where OBJECT_ID = X_OBJECT_ID;
335 
336   if (sql%notfound) then
337     raise no_data_found;
338   end if;
339 
340   delete from WMS_OBJECTS_B
341   where OBJECT_ID = X_OBJECT_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 WMS_OBJECTS_TL T
352   where not exists
353     (select NULL
354     from WMS_OBJECTS_B B
355     where B.OBJECT_ID = T.OBJECT_ID
356     );
357 
358   update WMS_OBJECTS_TL T set (
359       NAME,
360       DESCRIPTION
361     ) = (select
362       B.NAME,
363       B.DESCRIPTION
364     from WMS_OBJECTS_TL B
365     where B.OBJECT_ID = T.OBJECT_ID
366     and B.LANGUAGE = T.SOURCE_LANG)
367   where (
368       T.OBJECT_ID,
369       T.LANGUAGE
370   ) in (select
371       SUBT.OBJECT_ID,
372       SUBT.LANGUAGE
373     from WMS_OBJECTS_TL SUBB, WMS_OBJECTS_TL SUBT
374     where SUBB.OBJECT_ID = SUBT.OBJECT_ID
375     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
376     and (SUBB.NAME <> SUBT.NAME
377       or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
378       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
379       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
380   ));
381 
382   insert into WMS_OBJECTS_TL (
383     NAME,
384     DESCRIPTION,
385     OBJECT_ID,
386     LAST_UPDATED_BY,
387     LAST_UPDATE_DATE,
388     CREATED_BY,
389     CREATION_DATE,
390     LAST_UPDATE_LOGIN,
391     LANGUAGE,
392     SOURCE_LANG
393   ) select
394     B.NAME,
395     B.DESCRIPTION,
396     B.OBJECT_ID,
397     B.LAST_UPDATED_BY,
398     B.LAST_UPDATE_DATE,
399     B.CREATED_BY,
400     B.CREATION_DATE,
401     B.LAST_UPDATE_LOGIN,
402     L.LANGUAGE_CODE,
403     B.SOURCE_LANG
404   from WMS_OBJECTS_TL B, FND_LANGUAGES L
405   where L.INSTALLED_FLAG in ('I', 'B')
406   and B.LANGUAGE = userenv('LANG')
407   and not exists
408     (select NULL
409     from WMS_OBJECTS_TL T
410     where T.OBJECT_ID = B.OBJECT_ID
411     and T.LANGUAGE = L.LANGUAGE_CODE);
412 end ADD_LANGUAGE;
413 PROCEDURE translate_row
414   (
415    x_object_id   IN VARCHAR2,
416    x_owner       IN VARCHAR2,
417    x_name        IN VARCHAR2,
418    x_description IN VARCHAR2
419    ) IS
420 BEGIN
421    UPDATE wms_objects_tl SET
422      name              = x_name,
423      description       = x_description,
424      last_update_date  = Sysdate,
425      last_updated_by   = Decode(x_owner,'SEED',1,0),
426      last_update_login = 0,
427      source_lang       = userenv('LANG')
428    WHERE object_id = fnd_number.canonical_to_number(x_object_id)
429      AND userenv('LANG') IN (language,source_lang);
430 END translate_row;
431 PROCEDURE load_row
432   (
433     x_object_id                IN VARCHAR2
434    ,x_owner                    IN VARCHAR2
435    ,x_strat_asgmt_db_object_id IN VARCHAR2
436    ,x_strat_asgmt_lov_sql      IN VARCHAR2
437    ,x_user_defined_flag        IN VARCHAR2
438    ,x_name                     IN VARCHAR2
439    ,x_description              IN VARCHAR2
440    ,x_attribute_category       IN VARCHAR2
441    ,x_attribute1               IN VARCHAR2
442    ,x_attribute2               IN VARCHAR2
443    ,x_attribute3               IN VARCHAR2
444    ,x_attribute4               IN VARCHAR2
445    ,x_attribute5               IN VARCHAR2
446    ,x_attribute6               IN VARCHAR2
447    ,x_attribute7               IN VARCHAR2
448    ,x_attribute8               IN VARCHAR2
449    ,x_attribute9               IN VARCHAR2
450    ,x_attribute10              IN VARCHAR2
451    ,x_attribute11              IN VARCHAR2
452    ,x_attribute12              IN VARCHAR2
453    ,x_attribute13              IN VARCHAR2
454    ,x_attribute14              IN VARCHAR2
455    ,x_attribute15              IN VARCHAR2
456   ) IS
457 BEGIN
458    DECLARE
459       l_user_id NUMBER := 0;
460       l_object_id NUMBER;
461       l_strat_asgmt_db_object_id NUMBER;
465       IF x_owner = 'SEED' THEN
462       l_rowid VARCHAR2(64);
463       l_sysdate DATE;
464    BEGIN
466 	 l_user_id := 1;
467       END IF;
468       SELECT Sysdate INTO l_sysdate FROM dual;
469       l_object_id := fnd_number.canonical_to_number(x_object_id);
470       l_strat_asgmt_db_object_id :=
471 	fnd_number.canonical_to_number(x_strat_asgmt_db_object_id);
472       wms_objects_pkg.update_row
473 	(
474 	 x_object_id                => l_object_id          ,
475 	 x_strat_asgmt_db_object_id => l_strat_asgmt_db_object_id,
476 	 x_strat_asgmt_lov_sql      => x_strat_asgmt_lov_sql,
477 	 x_user_defined_flag        => x_user_defined_flag  ,
478 	 x_attribute_category       => x_attribute_category ,
479 	 x_attribute1 		    => x_attribute1         ,
480 	 x_attribute2 		    => x_attribute2         ,
481 	 x_attribute3 		    => x_attribute3         ,
482 	 x_attribute4 		    => x_attribute4         ,
483 	 x_attribute5 		    => x_attribute5         ,
484 	 x_attribute6 		    => x_attribute6         ,
485 	 x_attribute7 		    => x_attribute7         ,
486 	 x_attribute8 		    => x_attribute8         ,
487 	 x_attribute9 		    => x_attribute9         ,
488 	 x_attribute10              => x_attribute10        ,
489 	 x_attribute11  	    => x_attribute11        ,
490 	 x_attribute12  	    => x_attribute12        ,
491 	 x_attribute13 	 	    => x_attribute13        ,
492 	 x_attribute14 		    => x_attribute14        ,
493 	 x_attribute15 		    => x_attribute15        ,
494 	 x_name                     => x_name               ,
495 	 x_description              => x_description        ,
496 	 x_last_update_date         => l_sysdate            ,
497 	 x_last_updated_by          => l_user_id            ,
498 	 x_last_update_login        => 0
499 	 );
500    EXCEPTION
501       WHEN no_data_found THEN
502 	 wms_objects_pkg.insert_row
503 	   (
504 	    x_rowid                    => l_rowid,
505 	    x_object_id                => l_object_id,
506 	    x_strat_asgmt_db_object_id => l_strat_asgmt_db_object_id,
507 	    x_strat_asgmt_lov_sql      => x_strat_asgmt_lov_sql,
508 	    x_user_defined_flag        => x_user_defined_flag,
509 	    x_attribute_category       => x_attribute_category ,
510 	    x_attribute1 	       => x_attribute1         ,
511 	    x_attribute2 	       => x_attribute2         ,
512 	    x_attribute3 	       => x_attribute3         ,
513 	    x_attribute4 	       => x_attribute4         ,
514 	    x_attribute5 	       => x_attribute5         ,
515 	    x_attribute6 	       => x_attribute6         ,
516 	    x_attribute7 	       => x_attribute7         ,
517 	    x_attribute8 	       => x_attribute8         ,
518 	    x_attribute9 	       => x_attribute9         ,
519 	    x_attribute10 	       => x_attribute10        ,
520 	    x_attribute11 	       => x_attribute11        ,
521 	    x_attribute12 	       => x_attribute12        ,
522 	    x_attribute13 	       => x_attribute13        ,
523 	    x_attribute14 	       => x_attribute14        ,
524 	    x_attribute15 	       => x_attribute15        ,
525 	    x_name 		       => x_name ,
526 	    x_description 	       => x_description,
527 	    x_creation_date 	       => l_sysdate ,
528 	    x_created_by 	       => l_user_id ,
529 	    x_last_update_date	       => l_sysdate ,
530 	    x_last_updated_by 	       => l_user_id ,
531 	    x_last_update_login        => 0
532 	   );
533    END;
534 END load_row;
535 end WMS_OBJECTS_PKG;