[Home] [Help]
1: package body Fnd_Product_Initialization_Pkg as
2: /* $Header: AFPINITB.pls 120.6 2007/01/17 18:01:23 rsheh ship $ */
3:
4: --
5: -- Register (PUBLIC)
27: -- x_init_function: re-initialization function
28: procedure Remove(x_apps_name in varchar2) is
29: begin
30: begin
31: delete from FND_PRODUCT_INITIALIZATION
32: where APPLICATION_SHORT_NAME = upper(x_apps_name);
33:
34: exception
35: when others then
37: fnd_message.set_token('ROUTINE', 'Remove');
38: fnd_message.set_token('ERRNO', to_char(sqlcode));
39: fnd_message.set_token('REASON', sqlerrm);
40: app_exception.raise_exception(NULL, NULL,
41: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.REMOVE');
42: raise;
43: end;
44:
45: end Remove;
87: fnd_message.set_token('ROUTINE', 'RemoveInitCondition');
88: fnd_message.set_token('ERRNO', to_char(sqlcode));
89: fnd_message.set_token('REASON', sqlerrm);
90: app_exception.raise_exception(NULL, NULL,
91: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.RemoveInitCondition');
92: raise;
93: end;
94:
95: end RemoveInitCondition;
137: fnd_message.set_token('ROUTINE', 'RemoveDependency');
138: fnd_message.set_token('ERRNO', to_char(sqlcode));
139: fnd_message.set_token('REASON', sqlerrm);
140: app_exception.raise_exception(NULL, NULL,
141: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.RemoveDependency');
142: raise;
143: end;
144:
145: end RemoveDependency;
195: -- Logging info
196: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.g_current_runtime_level) then
197: fnd_log.string(fnd_log.LEVEL_PROCEDURE,
198: 'PLSQL.FND.SECURITY.INIT.FND_INITIALIZATION_PKG',
199: 'Entering Fnd_Product_Initialization.ExecInitFunction');
200: tmpbuf := 'The current Apps and Context condition is'||
201: '('||x_apps_name||','||x_conditions||')';
202: fnd_log.string(fnd_log.LEVEL_PROCEDURE,
203: 'PLSQL.FND.SECURITY.INIT.FND_INITIALIZATION_PKG',tmpbuf);
206: -- Reformat the x_conditions so that we can use that in our IN clause.
207: conditions := replace(x_conditions, '_', ',');
208: initfunc_str := conditions;
209:
210: Fnd_Product_Initialization_Pkg.init_conditions := conditions;
211:
212: -- Added the following to fix Bug#3654609
213: -- determine first chuck of string
214: pos := instr(initfunc_str,p_delim,1,1);
269: init_function := null;
270:
271: -- Fix Bug#3654609 - Performance issue using dynamic sql
272: /* sqlbuf := 'select INIT_FUNCTION_NAME '||
273: 'from FND_PRODUCT_INITIALIZATION '||
274: 'where APPLICATION_SHORT_NAME = :v1 '||
275: 'and exists '||
276: '(select 1 '||
277: 'from FND_PRODUCT_INIT_CONDITION C '||
296:
297: if (n = 1) then
298: select INIT_FUNCTION_NAME
299: into init_function
300: from FND_PRODUCT_INITIALIZATION
301: where APPLICATION_SHORT_NAME = deparr(i)
302: and exists
303: (select 1
304: from FND_PRODUCT_INIT_CONDITION C
306: and C.RE_INIT_CONDITION in (strings(1)));
307: elsif (n = 2) then
308: select INIT_FUNCTION_NAME
309: into init_function
310: from FND_PRODUCT_INITIALIZATION
311: where APPLICATION_SHORT_NAME = deparr(i)
312: and exists
313: (select 1
314: from FND_PRODUCT_INIT_CONDITION C
316: and C.RE_INIT_CONDITION in (strings(1), strings(2)));
317: elsif (n = 3) then
318: select INIT_FUNCTION_NAME
319: into init_function
320: from FND_PRODUCT_INITIALIZATION
321: where APPLICATION_SHORT_NAME = deparr(i)
322: and exists
323: (select 1
324: from FND_PRODUCT_INIT_CONDITION C
326: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3)));
327: elsif (n = 4) then
328: select INIT_FUNCTION_NAME
329: into init_function
330: from FND_PRODUCT_INITIALIZATION
331: where APPLICATION_SHORT_NAME = deparr(i)
332: and exists
333: (select 1
334: from FND_PRODUCT_INIT_CONDITION C
336: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4)));
337: elsif (n = 5) then
338: select INIT_FUNCTION_NAME
339: into init_function
340: from FND_PRODUCT_INITIALIZATION
341: where APPLICATION_SHORT_NAME = deparr(i)
342: and exists
343: (select 1
344: from FND_PRODUCT_INIT_CONDITION C
346: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4), strings(5)));
347: elsif (n = 6) then
348: select INIT_FUNCTION_NAME
349: into init_function
350: from FND_PRODUCT_INITIALIZATION
351: where APPLICATION_SHORT_NAME = deparr(i)
352: and exists
353: (select 1
354: from FND_PRODUCT_INIT_CONDITION C
356: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4), strings(5), strings(6)));
357: elsif (n = 7) then
358: select INIT_FUNCTION_NAME
359: into init_function
360: from FND_PRODUCT_INITIALIZATION
361: where APPLICATION_SHORT_NAME = deparr(i)
362: and exists
363: (select 1
364: from FND_PRODUCT_INIT_CONDITION C
366: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4), strings(5), strings(6), strings(7)));
367: elsif (n = 8) then
368: select INIT_FUNCTION_NAME
369: into init_function
370: from FND_PRODUCT_INITIALIZATION
371: where APPLICATION_SHORT_NAME = deparr(i)
372: and exists
373: (select 1
374: from FND_PRODUCT_INIT_CONDITION C
376: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4), strings(5), strings(6), strings(7), strings(8)));
377: elsif (n = 9) then
378: select INIT_FUNCTION_NAME
379: into init_function
380: from FND_PRODUCT_INITIALIZATION
381: where APPLICATION_SHORT_NAME = deparr(i)
382: and exists
383: (select 1
384: from FND_PRODUCT_INIT_CONDITION C
386: and C.RE_INIT_CONDITION in (strings(1), strings(2), strings(3), strings(4), strings(5), strings(6), strings(7), strings(8), strings(9)));
387: elsif (n = 10) then
388: select INIT_FUNCTION_NAME
389: into init_function
390: from FND_PRODUCT_INITIALIZATION
391: where APPLICATION_SHORT_NAME = deparr(i)
392: and exists
393: (select 1
394: from FND_PRODUCT_INIT_CONDITION C
457:
458: procedure Test(x_apps_name in varchar2) is
459: begin
460:
461: fnd_product_initialization_pkg.execinitfunction(x_apps_name,
462: '''APPL''_''RESP''');
463: end Test;
464:
465: -- Register (PUBLIC)
486:
487: begin
488: select LAST_UPDATED_BY, LAST_UPDATE_DATE
489: into db_luby, db_ludate
490: from FND_PRODUCT_INITIALIZATION
491: where APPLICATION_SHORT_NAME = upper(x_apps_name);
492:
493: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
494: db_ludate, X_CUSTOM_MODE)) then
492:
493: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
494: db_ludate, X_CUSTOM_MODE)) then
495:
496: update FND_PRODUCT_INITIALIZATION
497: set INIT_FUNCTION_NAME = upper(x_init_function),
498: LAST_UPDATED_BY = f_luby,
499: LAST_UPDATE_DATE = f_ludate,
500: LAST_UPDATE_LOGIN = f_luby
502: end if;
503:
504: exception
505: when no_data_found then
506: insert into FND_PRODUCT_INITIALIZATION(
507: APPLICATION_SHORT_NAME,
508: INIT_FUNCTION_NAME,
509: LAST_UPDATED_BY,
510: LAST_UPDATE_DATE,
525: fnd_message.set_token('ROUTINE', 'Register');
526: fnd_message.set_token('ERRNO', to_char(sqlcode));
527: fnd_message.set_token('REASON', sqlerrm);
528: app_exception.raise_exception(NULL, NULL,
529: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.REGISTER');
530: end;
531: end Register;
532:
533: --
579: fnd_message.set_token('ROUTINE', 'AddDependency');
580: fnd_message.set_token('ERRNO', to_char(sqlcode));
581: fnd_message.set_token('REASON', sqlerrm);
582: app_exception.raise_exception(NULL, NULL,
583: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.AddDependency');
584: raise;
585: end;
586:
587: end AddDependency;
636: fnd_message.set_token('ROUTINE', 'AddInitCondition');
637: fnd_message.set_token('ERRNO', to_char(sqlcode));
638: fnd_message.set_token('REASON', sqlerrm);
639: app_exception.raise_exception(NULL, NULL,
640: 'Exception in FND_PRODUCT_INITIALIZATION_PKG.AddInitCondition');
641: end;
642:
643: end AddInitCondition;
644:
643: end AddInitCondition;
644:
645: -- DiscoInit (PUBLIC)
646: -- Called by Disco trigger to run all product initialization code inside
647: -- fnd_product_initialization table with all true conditions.
648: --
649: -- Input
650: -- no input argument
651: --
651: --
652: function DiscoInit return number is
653: begin
654:
655: fnd_product_initialization_pkg.ExecInitFunction(
656: fnd_global.application_short_name,
657: '''APPL''_''RESP''_''USER''_''NLS''_''ORG''');
658: return(ExecInitSuccess);
659:
677:
678: delete from fnd_product_init_condition
679: where application_short_name = apps_short_name;
680:
681: delete from fnd_product_initialization
682: where application_short_name = apps_short_name;
683:
684: end RemoveAll;
685:
684: end RemoveAll;
685:
686:
687:
688: end Fnd_Product_Initialization_Pkg;