330: l_location := 'final_exception';
331: error (l_module_name, l_location, SQLCODE||':'||p_errbuf);
332: END;
333:
334: PROCEDURE ins_fnd_lookup_values
335: (
336: p_lookup_type IN VARCHAR2,
337: p_lookup_code IN VARCHAR2,
338: p_lookup_meaning IN VARCHAR2,
343: IS
344: l_module_name VARCHAR2(200);
345: l_location VARCHAR2(200);
346: BEGIN
347: l_module_name := g_module_name || 'ins_fnd_lookup_values';
348: p_retcode := g_SUCCESS;
349: p_errbuf := NULL;
350: log ('ENTER *** '||l_module_name||' ***');
351:
350: log ('ENTER *** '||l_module_name||' ***');
351:
352: log ('Inserting '||p_lookup_type||':'||p_lookup_code);
353:
354: INSERT INTO fnd_lookup_values
355: (
356: lookup_type,
357: language,
358: lookup_code,
387: 0,
388: 0
389: FROM sys.dual
390: WHERE NOT EXISTS (SELECT 1
391: FROM fnd_lookup_values
392: WHERE lookup_type = p_lookup_type
393: AND language = 'US'
394: AND lookup_code = p_lookup_code
395: AND security_group_id = 0
422:
423:
424:
425: log ('Inserting lookup value Fund');
426: ins_fnd_lookup_values
427: (
428: p_lookup_type => 'IND_COMPANY',
429: p_lookup_code => 'G',
430: p_lookup_meaning => 'Fund',
434: );
435:
436: IF (p_retcode = g_SUCCESS) THEN
437: log ('Inserting lookup value Revenue');
438: ins_fnd_lookup_values
439: (
440: p_lookup_type => 'IND_SALES',
441: p_lookup_code => 'G',
442: p_lookup_meaning => 'Revenue',
447: END IF;
448:
449: IF (p_retcode = g_SUCCESS) THEN
450: log ('Inserting lookup value Fund Balance');
451: ins_fnd_lookup_values
452: (
453: p_lookup_type => 'IND_EQUITY',
454: p_lookup_code => 'G',
455: p_lookup_meaning => 'Fund Balance',
460: END IF;
461:
462: IF (p_retcode = g_SUCCESS) THEN
463: log ('Inserting lookup value Net Revenue');
464: ins_fnd_lookup_values
465: (
466: p_lookup_type => 'IND_EARNING',
467: p_lookup_code => 'G',
468: p_lookup_meaning => 'Net Revenue',
473: END IF;
474:
475: IF (p_retcode = g_SUCCESS) THEN
476: log ('Inserting lookup value Order');
477: ins_fnd_lookup_values
478: (
479: p_lookup_type => 'IND_SALES_ORDER',
480: p_lookup_code => 'G',
481: p_lookup_meaning => 'Order',
486: END IF;
487:
488: IF (p_retcode = g_SUCCESS) THEN
489: log ('Inserting lookup value Agent');
490: ins_fnd_lookup_values
491: (
492: p_lookup_type => 'IND_SALES_REP',
493: p_lookup_code => 'G',
494: p_lookup_meaning => 'Agent',
499: END IF;
500:
501: IF (p_retcode = g_SUCCESS) THEN
502: log ('Inserting lookup value Agent');
503: ins_fnd_lookup_values
504: (
505: p_lookup_type => 'IND_SALES_TERRITORY',
506: p_lookup_code => 'G',
507: p_lookup_meaning => 'Territory',
512: END IF;
513:
514: IF (p_retcode = g_SUCCESS) THEN
515: log ('Inserting lookup value Agent');
516: ins_fnd_lookup_values
517: (
518: p_lookup_type => 'IND_SALES_CREDIT',
519: p_lookup_code => 'G',
520: p_lookup_meaning => 'Credit',
523: p_retcode => p_retcode
524: );
525: END IF;
526:
527: fnd_lookup_values_pkg.add_language;
528: log ('LEAVE *** '||l_module_name||' ***');
529:
530: EXCEPTION
531: WHEN OTHERS THEN