1319: ,p_swap_segment_value in varchar
1320: ) return number
1321:
1322: is
1323: l_original_segments FND_FLEX_EXT.SEGMENTARRAY;
1324: l_new_segments FND_FLEX_EXT.SEGMENTARRAY;
1325: l_num_segments number;
1326: l_api_name varchar2(50);
1327: l_new_cc_id number;
1320: ) return number
1321:
1322: is
1323: l_original_segments FND_FLEX_EXT.SEGMENTARRAY;
1324: l_new_segments FND_FLEX_EXT.SEGMENTARRAY;
1325: l_num_segments number;
1326: l_api_name varchar2(50);
1327: l_new_cc_id number;
1328:
1336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_number = ' || p_swap_segment_number);
1337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1338:
1339: -- build the original code combination segments into array
1340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_SEGMENTS...');
1341: IF (NOT FND_FLEX_EXT.GET_SEGMENTS('SQLGL'
1342: ,'GL#'
1343: ,p_chart_of_accounts_id
1344: ,p_original_cc_id
1337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_swap_segment_value = ' || p_swap_segment_value);
1338:
1339: -- build the original code combination segments into array
1340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_SEGMENTS...');
1341: IF (NOT FND_FLEX_EXT.GET_SEGMENTS('SQLGL'
1342: ,'GL#'
1343: ,p_chart_of_accounts_id
1344: ,p_original_cc_id
1345: ,l_num_segments
1371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_new_segments(n));
1372: end loop;
1373:
1374: -------------------------- Get new ccid -------------------------------
1375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_COMBINATION_ID...');
1376: iF (NOT FND_FLEX_EXT.GET_COMBINATION_ID(
1377: 'SQLGL',
1378: 'GL#',
1379: p_chart_of_accounts_id,
1372: end loop;
1373:
1374: -------------------------- Get new ccid -------------------------------
1375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling FND_FLEX_EXT.GET_COMBINATION_ID...');
1376: iF (NOT FND_FLEX_EXT.GET_COMBINATION_ID(
1377: 'SQLGL',
1378: 'GL#',
1379: p_chart_of_accounts_id,
1380: SYSDATE,