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_LABEL_FIELDS_PKG

Source


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