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

Source


1 package body IMC_THREE_SIXTY_QUERY_PKG as
2 /* $Header: ARHTSDVB.pls 120.3 2005/08/30 00:41:22 rnalluri noship $ */
3 
4 procedure INSERT_ROW (
5   X_QUERY_ID in out NOCOPY NUMBER,
6   X_APPLICATION_ID in NUMBER,
7   X_QUERY_TYPE_FLAG in VARCHAR2,
8   X_PRODUCT_QUERY1 in VARCHAR2,
9   X_PRODUCT_QUERY2 in VARCHAR2,
10   X_PRODUCT_QUERY3 in VARCHAR2,
11   X_PRODUCT_QUERY4 in VARCHAR2,
12   X_PRODUCT_QUERY5 in VARCHAR2,
13   X_SEQUENCE_NO in NUMBER,
14   X_SECURITY_FUNCTION in VARCHAR2,
15   X_DISPLAY_FLAG in VARCHAR2,
16   X_FILTER_COUNT     in NUMBER,
17   X_DISPLAY_COLUMN_COUNT in NUMBER,
18   X_PRODUCT_URL in VARCHAR2,
19   X_BE_CODE     in VARCHAR2,
20   X_CATEGORY_CODE in VARCHAR2,
21   X_OPERATING_UNIT_FLAG in VARCHAR2,
22   X_TRANSACTION_NAME in VARCHAR2,
23   X_HEADER_TEXT in VARCHAR2,
24   X_CREATION_DATE in DATE,
25   X_CREATED_BY in NUMBER,
26   X_LAST_UPDATE_DATE in DATE,
27   X_LAST_UPDATED_BY in NUMBER,
28   X_LAST_UPDATE_LOGIN in NUMBER,
29   X_OBJECT_VERSION_NUMBER in NUMBER
30 ) IS
31    CURSOR C2 IS SELECT  IMC_THREE_SIXTY_QUERY_S.nextval FROM sys.dual;
32 
33       begin
34 
35     IF ( X_QUERY_ID IS NULL) OR (X_QUERY_ID = FND_API.G_MISS_NUM) THEN
36         OPEN C2;
37         FETCH C2 INTO X_QUERY_ID;
38 
39         if (c2%notfound) then
40            close c2;
41            raise no_data_found;
42         end if;
43 
44         CLOSE C2;
45     END IF;
46  begin
47 insert into IMC_THREE_SIXTY_QUERY_B (
48     QUERY_ID,
49     APPLICATION_ID,
50     QUERY_TYPE_FLAG,
51     PRODUCT_QUERY1,
52     PRODUCT_QUERY2,
53     PRODUCT_QUERY3,
54     PRODUCT_QUERY4,
55     PRODUCT_QUERY5,
56     SEQUENCE_NO,
57     SECURITY_FUNCTION,
58     DISPLAY_FLAG,
59     FILTER_COUNT,
60     DISPLAY_COLUMN_COUNT,
61     PRODUCT_URL,
62     BE_CODE,
63     CATEGORY_CODE,
64     OPERATING_UNIT_FLAG,
65     CREATION_DATE,
66     CREATED_BY,
67     LAST_UPDATE_DATE,
68     LAST_UPDATED_BY,
69     LAST_UPDATE_LOGIN,
70     OBJECT_VERSION_NUMBER
71   ) values (
72     X_QUERY_ID,
73     X_APPLICATION_ID,
74     X_QUERY_TYPE_FLAG,
75     X_PRODUCT_QUERY1,
76     X_PRODUCT_QUERY2,
77     X_PRODUCT_QUERY3,
78     X_PRODUCT_QUERY4,
79     X_PRODUCT_QUERY5,
80     X_SEQUENCE_NO,
81     X_SECURITY_FUNCTION,
82     X_DISPLAY_FLAG,
83     X_FILTER_COUNT,
84     X_DISPLAY_COLUMN_COUNT,
85     X_PRODUCT_URL,
86     X_BE_CODE,
87     X_CATEGORY_CODE,
88     X_OPERATING_UNIT_FLAG,
89     X_CREATION_DATE,
90     X_CREATED_BY,
91     X_LAST_UPDATE_DATE,
92     X_LAST_UPDATED_BY,
93     X_LAST_UPDATE_LOGIN,
94     1
95   );
96 
97 
98   insert into IMC_THREE_SIXTY_QUERY_TL (
99     QUERY_ID,
100     TRANSACTION_NAME,
101     HEADER_TEXT,
102     LAST_UPDATE_DATE,
103     CREATION_DATE,
104     CREATED_BY,
105     LAST_UPDATED_BY,
106     LAST_UPDATE_LOGIN,
107     LANGUAGE,
108     SOURCE_LANG,
109     OBJECT_VERSION_NUMBER
110   ) select
111     X_QUERY_ID,
112     X_TRANSACTION_NAME,
113     X_HEADER_TEXT,
114     X_LAST_UPDATE_DATE,
115     X_CREATION_DATE,
116     X_CREATED_BY,
117     X_LAST_UPDATED_BY,
118     X_LAST_UPDATE_LOGIN,
119     L.LANGUAGE_CODE,
120     userenv('LANG'),
121     1
122   from FND_LANGUAGES L
123   where L.INSTALLED_FLAG in ('I', 'B')
124   and not exists
125     (select NULL
126     from IMC_THREE_SIXTY_QUERY_TL T
127     where T.QUERY_ID = X_QUERY_ID
128     and T.LANGUAGE = L.LANGUAGE_CODE);
129 
130     end;
131 end INSERT_ROW;
132 
133 procedure LOCK_ROW (
134   X_QUERY_ID in NUMBER,
135   X_APPLICATION_ID in NUMBER,
136   X_QUERY_TYPE_FLAG in VARCHAR2,
137   X_PRODUCT_QUERY1 in VARCHAR2,
138   X_PRODUCT_QUERY2 in VARCHAR2,
139   X_PRODUCT_QUERY3 in VARCHAR2,
140   X_PRODUCT_QUERY4 in VARCHAR2,
141   X_PRODUCT_QUERY5 in VARCHAR2,
142   X_SEQUENCE_NO in NUMBER,
143   X_SECURITY_FUNCTION in VARCHAR2,
144   X_DISPLAY_FLAG in VARCHAR2,
145   X_FILTER_COUNT     in NUMBER,
146   X_DISPLAY_COLUMN_COUNT in NUMBER,
147   X_PRODUCT_URL in VARCHAR2,
148   X_BE_CODE     in VARCHAR2,
149   X_CATEGORY_CODE in VARCHAR2,
150   X_OPERATING_UNIT_FLAG in VARCHAR2,
151   X_TRANSACTION_NAME in VARCHAR2,
152   X_HEADER_TEXT in VARCHAR2,
153   X_CREATION_DATE in DATE,
154   X_CREATED_BY in NUMBER,
155   X_LAST_UPDATE_DATE in DATE,
156   X_LAST_UPDATED_BY in NUMBER,
157   X_LAST_UPDATE_LOGIN in NUMBER,
158   X_OBJECT_VERSION_NUMBER in NUMBER
159 ) is
160   cursor c is select
161       APPLICATION_ID,
162       QUERY_TYPE_FLAG,
163       PRODUCT_QUERY1,
164       PRODUCT_QUERY2,
165       PRODUCT_QUERY3,
166       PRODUCT_QUERY4,
167       PRODUCT_QUERY5,
168       SEQUENCE_NO,
169       SECURITY_FUNCTION,
170       DISPLAY_FLAG,
171       FILTER_COUNT,
172       DISPLAY_COLUMN_COUNT,
173       PRODUCT_URL,
174       BE_CODE,
175       CATEGORY_CODE,
176       OPERATING_UNIT_FLAG,
177       OBJECT_VERSION_NUMBER
178     from IMC_THREE_SIXTY_QUERY_B
179     where QUERY_ID = X_QUERY_ID
180     for update of QUERY_ID nowait;
181   recinfo c%rowtype;
182 
183   cursor c1 is select
184       TRANSACTION_NAME,
185       HEADER_TEXT,
186       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
187     from IMC_THREE_SIXTY_QUERY_TL
188     where QUERY_ID = X_QUERY_ID
189     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
190     for update of QUERY_ID nowait;
191 begin
192   open c;
193   fetch c into recinfo;
194   if (c%notfound) then
195     close c;
196     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
197     app_exception.raise_exception;
198   end if;
199   close c;
200   if (    (recinfo.APPLICATION_ID = X_APPLICATION_ID)
201       AND (recinfo.QUERY_TYPE_FLAG = X_QUERY_TYPE_FLAG)
202       AND (recinfo.FILTER_COUNT = X_FILTER_COUNT)
203       AND (recinfo.DISPLAY_COLUMN_COUNT = X_DISPLAY_COLUMN_COUNT)
204       AND (recinfo.PRODUCT_QUERY1 = X_PRODUCT_QUERY1)
205       AND (recinfo.SEQUENCE_NO = X_SEQUENCE_NO)
206       AND (recinfo.DISPLAY_FLAG = X_DISPLAY_FLAG)
207       AND ( (recinfo.PRODUCT_URL = X_PRODUCT_URL) OR
208            ((recinfo.PRODUCT_URL is null) AND (X_PRODUCT_URL is null)))
209       AND ( (recinfo.BE_CODE = X_BE_CODE) OR
210            ((recinfo.BE_CODE is null) AND (X_BE_CODE is null   )))
211 		        AND ( (recinfo.OPERATING_UNIT_FLAG = X_OPERATING_UNIT_FLAG) OR
212            ((recinfo.OPERATING_UNIT_FLAG is null) AND (X_OPERATING_UNIT_FLAG is null)))
213       AND ((recinfo.SECURITY_FUNCTION = X_SECURITY_FUNCTION)
214      OR ((recinfo.SECURITY_FUNCTION is null) AND (X_SECURITY_FUNCTION is null)))
215       AND ((recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
216       OR ((recinfo.OBJECT_VERSION_NUMBER is null) AND
217           (X_OBJECT_VERSION_NUMBER is null)))
218   ) then
219     null;
220   else
221     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
222     app_exception.raise_exception;
223   end if;
224 
225   for tlinfo in c1 loop
226     if (tlinfo.BASELANG = 'Y') then
227       if (    (tlinfo.TRANSACTION_NAME = X_TRANSACTION_NAME)
228           AND ((tlinfo.HEADER_TEXT = X_HEADER_TEXT)
229                OR ((tlinfo.HEADER_TEXT is null) AND (X_HEADER_TEXT is null)))
230       ) then
231         null;
232       else
233         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
234         app_exception.raise_exception;
235       end if;
236     end if;
237   end loop;
238   return;
239 end LOCK_ROW;
240 
241 procedure UPDATE_ROW (
242   X_QUERY_ID in NUMBER,
243   X_APPLICATION_ID in NUMBER,
244   X_QUERY_TYPE_FLAG in VARCHAR2,
245   X_PRODUCT_QUERY1 in VARCHAR2,
246   X_PRODUCT_QUERY2 in VARCHAR2,
247   X_PRODUCT_QUERY3 in VARCHAR2,
248   X_PRODUCT_QUERY4 in VARCHAR2,
249   X_PRODUCT_QUERY5 in VARCHAR2,
250   X_SEQUENCE_NO in NUMBER,
251   X_SECURITY_FUNCTION in VARCHAR2,
252   X_DISPLAY_FLAG in VARCHAR2,
253   X_FILTER_COUNT     in NUMBER,
254   X_DISPLAY_COLUMN_COUNT in NUMBER,
255   X_PRODUCT_URL in VARCHAR2,
256   X_BE_CODE in VARCHAR2,
257   X_CATEGORY_CODE in VARCHAR2,
258  X_OPERATING_UNIT_FLAG in VARCHAR2,
259   X_TRANSACTION_NAME in VARCHAR2,
260   X_HEADER_TEXT in VARCHAR2,
261   X_LAST_UPDATE_DATE in DATE,
262   X_LAST_UPDATED_BY in NUMBER,
263   X_LAST_UPDATE_LOGIN in NUMBER,
264   X_OBJECT_VERSION_NUMBER in NUMBER
265 ) is
266 
267 begin
268   update IMC_THREE_SIXTY_QUERY_B set
269     APPLICATION_ID = X_APPLICATION_ID,
270     QUERY_TYPE_FLAG = X_QUERY_TYPE_FLAG,
271     PRODUCT_QUERY1 = X_PRODUCT_QUERY1,
272     PRODUCT_QUERY2 = X_PRODUCT_QUERY2,
273     PRODUCT_QUERY3 = X_PRODUCT_QUERY3,
274     PRODUCT_QUERY4 = X_PRODUCT_QUERY4,
275     PRODUCT_QUERY5 = X_PRODUCT_QUERY5,
276     SEQUENCE_NO = X_SEQUENCE_NO,
277     SECURITY_FUNCTION = X_SECURITY_FUNCTION,
278     DISPLAY_FLAG = X_DISPLAY_FLAG,
279     FILTER_COUNT     = X_FILTER_COUNT,
280     DISPLAY_COLUMN_COUNT = X_DISPLAY_COLUMN_COUNT,
281     PRODUCT_URL = X_PRODUCT_URL,
282     BE_CODE = X_BE_CODE,
283     CATEGORY_CODE = X_CATEGORY_CODE,
284     OPERATING_UNIT_FLAG = X_OPERATING_UNIT_FLAG,
285     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
286     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
287     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
288     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
289   where QUERY_ID = X_QUERY_ID;
290 
291   if (sql%notfound) then
292     raise no_data_found;
293   end if;
294 
295    update IMC_THREE_SIXTY_QUERY_TL set
296     TRANSACTION_NAME = X_TRANSACTION_NAME,
297     HEADER_TEXT = X_HEADER_TEXT,
298     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
299     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
300     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
301     SOURCE_LANG = userenv('LANG')
302   where QUERY_ID = X_QUERY_ID
303   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
304 
305   if (sql%notfound) then
306     raise no_data_found;
307   end if;
308 
309 end UPDATE_ROW;
310 
311 procedure DELETE_ROW (
312   X_QUERY_ID in NUMBER
313 ) is
314 begin
315   delete from IMC_THREE_SIXTY_QUERY_TL
316   where QUERY_ID = X_QUERY_ID;
317 
318   if (sql%notfound) then
319     raise no_data_found;
320   end if;
321 
322   delete from IMC_THREE_SIXTY_QUERY_B
323   where QUERY_ID = X_QUERY_ID;
324 
325   if (sql%notfound) then
326     raise no_data_found;
327   end if;
328 end DELETE_ROW;
329 
330 procedure ADD_LANGUAGE
331 is
332 begin
333   delete from IMC_THREE_SIXTY_QUERY_TL T
334   where not exists
335     (select NULL
336     from IMC_THREE_SIXTY_QUERY_B B
337     where B.QUERY_ID = T.QUERY_ID
338     );
339 
340   update IMC_THREE_SIXTY_QUERY_TL T set (
341       TRANSACTION_NAME,
342       HEADER_TEXT
343     ) = (select
344       B.TRANSACTION_NAME,
345       B.HEADER_TEXT
346     from IMC_THREE_SIXTY_QUERY_TL B
347     where B.QUERY_ID = T.QUERY_ID
348     and B.LANGUAGE = T.SOURCE_LANG)
349   where (
350       T.QUERY_ID,
351       T.LANGUAGE
352   ) in (select
353       SUBT.QUERY_ID,
354       SUBT.LANGUAGE
355     from IMC_THREE_SIXTY_QUERY_TL SUBB, IMC_THREE_SIXTY_QUERY_TL SUBT
356     where SUBB.QUERY_ID = SUBT.QUERY_ID
357     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
358     and (SUBB.TRANSACTION_NAME <> SUBT.TRANSACTION_NAME
359       or SUBB.HEADER_TEXT <> SUBT.HEADER_TEXT
360       or (SUBB.HEADER_TEXT is null and SUBT.HEADER_TEXT is not null)
361       or (SUBB.HEADER_TEXT is not null and SUBT.HEADER_TEXT is null)
362   ));
363 
364    insert into IMC_THREE_SIXTY_QUERY_TL (
365     QUERY_ID,
366     TRANSACTION_NAME,
367     HEADER_TEXT,
368     LAST_UPDATE_DATE,
369     CREATION_DATE,
370     CREATED_BY,
371     LAST_UPDATED_BY,
372     LAST_UPDATE_LOGIN,
373     OBJECT_VERSION_NUMBER,
374     LANGUAGE,
375     SOURCE_LANG
376   ) select
377     B.QUERY_ID,
378     B.TRANSACTION_NAME,
379     B.HEADER_TEXT,
380     B.LAST_UPDATE_DATE,
381     B.CREATION_DATE,
382     B.CREATED_BY,
383     B.LAST_UPDATED_BY,
384     B.LAST_UPDATE_LOGIN,
385     B.OBJECT_VERSION_NUMBER,
386     L.LANGUAGE_CODE,
387     B.SOURCE_LANG
388   from IMC_THREE_SIXTY_QUERY_TL B, FND_LANGUAGES L
389   where L.INSTALLED_FLAG in ('I', 'B')
390   and B.LANGUAGE = userenv('LANG')
391   and not exists
392     (select NULL
393     from IMC_THREE_SIXTY_QUERY_TL T
394     where T.QUERY_ID = B.QUERY_ID
395     and T.LANGUAGE = L.LANGUAGE_CODE);
396 end ADD_LANGUAGE;
397 
398 procedure TRANSLATE_ROW (
399   X_QUERY_ID in NUMBER,
400   X_TRANSACTION_NAME in VARCHAR2,
401   X_HEADER_TEXT in VARCHAR2,
402   X_OWNER in VARCHAR2) IS
403 
404 BEGIN
405     -- only update rows that have not been altered by user
406     update IMC_THREE_SIXTY_QUERY_TL set
407     TRANSACTION_NAME= X_TRANSACTION_NAME,
408     HEADER_TEXT = X_HEADER_TEXT,
409     source_lang = userenv('LANG'),
410     last_update_date = sysdate,
411     last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
412     last_update_login = 0
413     where QUERY_ID= X_QUERY_ID
414     and   userenv('LANG') in (language, source_lang);
415 
416 END;
417 
418  procedure LOAD_ROW(
419   X_QUERY_ID in out NOCOPY NUMBER,
420   X_APPLICATION_ID in NUMBER,
421   X_QUERY_TYPE_FLAG in VARCHAR2,
422   X_PRODUCT_QUERY1 in VARCHAR2,
423   X_PRODUCT_QUERY2 in VARCHAR2,
424   X_PRODUCT_QUERY3 in VARCHAR2,
425   X_PRODUCT_QUERY4 in VARCHAR2,
426   X_PRODUCT_QUERY5 in VARCHAR2,
427   X_SEQUENCE_NO in NUMBER,
428   X_SECURITY_FUNCTION in VARCHAR2,
429   X_DISPLAY_FLAG in VARCHAR2,
430   X_FILTER_COUNT     in NUMBER,
431   X_DISPLAY_COLUMN_COUNT in NUMBER,
432   X_PRODUCT_URL in VARCHAR2,
433   X_BE_CODE  in VARCHAR2,
434   X_CATEGORY_CODE in VARCHAR2,
435   X_OPERATING_UNIT_FLAG in VARCHAR2,
436   X_TRANSACTION_NAME in VARCHAR2,
437   X_HEADER_TEXT in VARCHAR2,
438   X_LAST_UPDATE_DATE in DATE,
439   X_LAST_UPDATED_BY in NUMBER,
440   X_LAST_UPDATE_LOGIN in NUMBER,
441   X_OBJECT_VERSION_NUMBER in NUMBER,
442   X_OWNER in VARCHAR2) IS
443 
444 begin
445   declare
446      user_id		number := 0;
447      row_id     	varchar2(64);
448      L_QUERY_ID  NUMBER := X_QUERY_ID;
449      L_OBJECT_VERSION_NUMBER number;
450      cnt number;
451 
452   begin
453 
454      if (X_OWNER = 'SEED') then
455         user_id := 1;
456      end if;
457 
458   BEGIN
459    IF X_BE_CODE IS NOT NULL then
460     select count(*) into cnt from fnd_lookup_values where
461 	lookup_type='IMC_TXN_BUSINESS_ENTITY'
462 	 and lookup_code = X_BE_CODE;
463     end if;
464      --dbms_output.put_line('count for lookup in load_row '||to_char(cnt));
465 
466       IF cnt = 0 then
467       --dbms_output.put_line('count for lookup in load_row if '||to_char(cnt));
468       fnd_message.set_name('IMC', 'IMC_INVALID_BUSINESS_ENTITY');
469       fnd_msg_pub.add;
470       goto raise_error;
471       end if;
472 
473       EXCEPTION WHEN NO_DATA_FOUND THEN
474       --dbms_output.put_line('count for lookup in load_row exception '||to_char(cnt));
475       fnd_message.set_name('IMC', 'IMC_INVALID_BUSINESS_ENTITY');
476       fnd_msg_pub.add;
477       goto raise_error;
478       END;
479 
480      L_OBJECT_VERSION_NUMBER := NVL(X_OBJECT_VERSION_NUMBER, 1) + 1;
481 
482      IMC_THREE_SIXTY_QUERY_PKG.UPDATE_ROW (
483      X_QUERY_ID => X_QUERY_ID,
484      X_APPLICATION_ID => X_APPLICATION_ID,
485      X_QUERY_TYPE_FLAG => X_QUERY_TYPE_FLAG,
486      X_PRODUCT_QUERY1 => X_PRODUCT_QUERY1,
487      X_PRODUCT_QUERY2 => X_PRODUCT_QUERY2,
488      X_PRODUCT_QUERY3 => X_PRODUCT_QUERY3,
489      X_PRODUCT_QUERY4 => X_PRODUCT_QUERY4,
490      X_PRODUCT_QUERY5 => X_PRODUCT_QUERY5,
491      X_SEQUENCE_NO => X_SEQUENCE_NO,
492      X_SECURITY_FUNCTION => X_SECURITY_FUNCTION,
493      X_DISPLAY_FLAG => X_DISPLAY_FLAG,
494      X_FILTER_COUNT     => X_FILTER_COUNT,
495      X_DISPLAY_COLUMN_COUNT => X_DISPLAY_COLUMN_COUNT,
496      X_PRODUCT_URL => X_PRODUCT_URL,
497      X_BE_CODE => X_BE_CODE,
498      X_CATEGORY_CODE => X_CATEGORY_CODE,
499      X_OPERATING_UNIT_FLAG => X_OPERATING_UNIT_FLAG,
500      X_TRANSACTION_NAME => X_TRANSACTION_NAME,
501      X_HEADER_TEXT => X_HEADER_TEXT,
502      X_LAST_UPDATE_DATE =>  sysdate,
503      X_LAST_UPDATED_BY => user_id,
504      X_LAST_UPDATE_LOGIN => 0,
505      X_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER );
506 
507     exception
508        when NO_DATA_FOUND then
509 
510      IMC_THREE_SIXTY_QUERY_PKG.INSERT_ROW (
511      X_QUERY_ID => L_QUERY_ID,
512      X_APPLICATION_ID => X_APPLICATION_ID,
513      X_QUERY_TYPE_FLAG => X_QUERY_TYPE_FLAG,
514      X_PRODUCT_QUERY1 => X_PRODUCT_QUERY1,
515      X_PRODUCT_QUERY2 => X_PRODUCT_QUERY2,
516      X_PRODUCT_QUERY3 => X_PRODUCT_QUERY3,
517      X_PRODUCT_QUERY4 => X_PRODUCT_QUERY4,
518      X_PRODUCT_QUERY5 => X_PRODUCT_QUERY5,
519      X_SEQUENCE_NO => X_SEQUENCE_NO,
520      X_SECURITY_FUNCTION => X_SECURITY_FUNCTION,
521      X_DISPLAY_FLAG => X_DISPLAY_FLAG,
522      X_FILTER_COUNT     => X_FILTER_COUNT,
523      X_DISPLAY_COLUMN_COUNT => X_DISPLAY_COLUMN_COUNT,
524      X_PRODUCT_URL => X_PRODUCT_URL,
525      X_BE_CODE => X_BE_CODE,
526      X_CATEGORY_CODE => X_CATEGORY_CODE,
527      X_OPERATING_UNIT_FLAG => X_OPERATING_UNIT_FLAG,
528      X_TRANSACTION_NAME => X_TRANSACTION_NAME,
529      X_HEADER_TEXT => X_HEADER_TEXT,
530      X_CREATION_DATE => sysdate,
531      X_CREATED_BY => user_id,
532      X_LAST_UPDATE_DATE => sysdate,
533      X_LAST_UPDATED_BY => user_id,
534      X_LAST_UPDATE_LOGIN => 0,
535      X_OBJECT_VERSION_NUMBER =>1);
536 end;
537 
538  <<raise_error>>
539  null;
540 end LOAD_ROW;
541 
542 end IMC_THREE_SIXTY_QUERY_PKG;