51: p_retcode := g_SUCCESS;
52: p_errbuf := NULL;
53: log ('ENTER *** '||l_module_name||' ***');
54:
55: IF (fnd_program.program_exists
56: (
57: program => p_program_name,
58: application => l_gl_application
59: )) THEN
59: )) THEN
60: BEGIN
61: log ('Program '||p_program_name||' exists in fnd_concurrent_programs');
62:
63: fnd_program.enable_program
64: (
65: short_name => p_program_name,
66: application => l_gl_application,
67: enabled => 'Y'
66: application => l_gl_application,
67: enabled => 'Y'
68: );
69:
70: IF (fnd_program.program_in_group
71: (
72: program_short_name => p_program_name,
73: program_application => l_gl_application,
74: request_group => l_gl_request_group,
75: group_application => l_gl_application
76: ) = FALSE) THEN
77: log ('Program '||p_program_name||' does not exist in request_group');
78: log ('Inserting Program '||p_program_name||' into request_group');
79: fnd_program.add_to_group
80: (
81: program_short_name => p_program_name,
82: program_application => l_gl_application,
83: request_group => l_gl_request_group,