3137:
3138: FOR i IN l_add_prog_name.FIRST..l_add_prog_name.LAST
3139: LOOP
3140:
3141: l_exists := fnd_program.program_in_group(
3142: program_short_name => l_add_prog_name(i),
3143: program_application => l_add_prog_app_name,
3144: request_group => l_req_grp_name,
3145: group_application => l_grp_app_name);
3146:
3147: IF (NOT l_exists)
3148: THEN
3149:
3150: fnd_program.add_to_group(
3151: program_short_name => l_add_prog_name(i),
3152: program_application => l_add_prog_app_name,
3153: request_group => l_req_grp_name,
3154: group_application => l_grp_app_name);
3168:
3169: FOR i IN l_del_prog_name.FIRST..l_del_prog_name.LAST
3170: LOOP
3171:
3172: l_exists := fnd_program.program_in_group(
3173: program_short_name => l_del_prog_name(i),
3174: program_application => l_add_prog_app_name,
3175: request_group => l_req_grp_name,
3176: group_application => l_grp_app_name);
3177:
3178: IF (l_exists)
3179: THEN
3180:
3181: fnd_program.remove_from_group(
3182: program_short_name => l_del_prog_name(i),
3183: program_application => l_add_prog_app_name,
3184: request_group => l_req_grp_name,
3185: group_application => l_grp_app_name);