DECLARE
l_concat_segments_out VARCHAR2 (500) := NULL;
l_job_definition_id NUMBER := NULL;
CURSOR c1
IS
SELECT DISTINCT lookup_code
FROM
fnd_lookup_values
WHERE lookup_type =
'XXX_JOBS'
AND
NOT EXISTS
(SELECT 'X'
FROM per_job_definitions pjd
WHERE id_flex_num =
50414 AND segment1 =
lookup_code);
BEGIN
FOR
i IN c1
LOOP
hr_kflex_utility.upd_or_sel_keyflex_comb
(
p_appl_short_name => 'PER',
p_flex_code => 'JOB',
p_flex_num => 50414,
-- Job KFF ID
p_segment1 => i.lookup_code,
p_ccid => l_job_definition_id,
p_concat_segments_out => l_concat_segments_out);
DBMS_OUTPUT.put_line
(
'Job Definition Segment Updated: '
||
l_concat_segments_out
||
'--> Job Definition ID: '
||
l_job_definition_id);
END
LOOP;
END;
No comments:
Post a Comment