DECLARE
l_code_combination_id NUMBER;
l_boolean BOOLEAN;
l_segment_array APPS.FND_FLEX_EXT.SEGMENTARRAY;
l_structure_number APPS.FND_ID_FLEX_STRUCTURES.id_flex_num%TYPE;
l_id_flex_code APPS.FND_ID_FLEX_STRUCTURES.id_flex_code%TYPE;
BEGIN
APPS.FND_GLOBAL.APPS_INITIALIZE(USER_ID => FND_PROFILE.VALUE('USER_ID'),
RESP_ID => FND_PROFILE.VALUE('RESP_ID'),
RESP_APPL_ID => FND_PROFILE.VALUE('RESP_APPL_ID'));
SELECT fifs.id_flex_num ,
fifs.id_flex_code
INTO l_structure_number ,
l_id_flex_code
FROM APPS.FND_ID_FLEX_STRUCTURES fifs
WHERE fifs.id_flex_code = 'GL#'
AND fifs.id_flex_structure_code = 'XX_ACCOUNTING_FLEXFIELD';
l_segment_array(1) := '00000';
l_segment_array(2) := '10000';
l_segment_array(3) := '10324';
l_segment_array(4) := '00000';
l_segment_array(5) := '00000';
l_segment_array(6) := '00000';
l_boolean := APPS.FND_FLEX_EXT.GET_COMBINATION_ID( APPLICATION_SHORT_NAME =>'SQLGL',
KEY_FLEX_CODE => l_id_flex_code,
STRUCTURE_NUMBER => l_structure_number,
VALIDATION_DATE => SYSDATE,
N_SEGMENTS => 6,
SEGMENTS => l_segment_array,
COMBINATION_ID => l_code_combination_id,
DATA_SET => -1);
x_ccid := l_code_combination_id;
IF l_code_combination_id IS NULL THEN
RAISE;
ELSE
dbms_output.put_line(l_code_combination_id);
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(sqlerrm);
END;
l_code_combination_id NUMBER;
l_boolean BOOLEAN;
l_segment_array APPS.FND_FLEX_EXT.SEGMENTARRAY;
l_structure_number APPS.FND_ID_FLEX_STRUCTURES.id_flex_num%TYPE;
l_id_flex_code APPS.FND_ID_FLEX_STRUCTURES.id_flex_code%TYPE;
BEGIN
APPS.FND_GLOBAL.APPS_INITIALIZE(USER_ID => FND_PROFILE.VALUE('USER_ID'),
RESP_ID => FND_PROFILE.VALUE('RESP_ID'),
RESP_APPL_ID => FND_PROFILE.VALUE('RESP_APPL_ID'));
SELECT fifs.id_flex_num ,
fifs.id_flex_code
INTO l_structure_number ,
l_id_flex_code
FROM APPS.FND_ID_FLEX_STRUCTURES fifs
WHERE fifs.id_flex_code = 'GL#'
AND fifs.id_flex_structure_code = 'XX_ACCOUNTING_FLEXFIELD';
l_segment_array(1) := '00000';
l_segment_array(2) := '10000';
l_segment_array(3) := '10324';
l_segment_array(4) := '00000';
l_segment_array(5) := '00000';
l_segment_array(6) := '00000';
l_boolean := APPS.FND_FLEX_EXT.GET_COMBINATION_ID( APPLICATION_SHORT_NAME =>'SQLGL',
KEY_FLEX_CODE => l_id_flex_code,
STRUCTURE_NUMBER => l_structure_number,
VALIDATION_DATE => SYSDATE,
N_SEGMENTS => 6,
SEGMENTS => l_segment_array,
COMBINATION_ID => l_code_combination_id,
DATA_SET => -1);
x_ccid := l_code_combination_id;
IF l_code_combination_id IS NULL THEN
RAISE;
ELSE
dbms_output.put_line(l_code_combination_id);
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(sqlerrm);
END;