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

Source


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