The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_last_update_login NUMBER;
SELECT TYPEMAP.CONVERSION_TYPE,
PERIOD.PERIOD_NAME, PERIOD.PERIOD_TYPE,
PERIOD.START_DATE CONVERSION_DATE,
LOOKUP1.LOOKUP_CODE FROM_CURRENCY,
LOOKUP2.LOOKUP_CODE TO_CURRENCY
FROM AS_MC_TYPE_MAPPINGS TYPEMAP,
AS_PERIOD_DAYS PERIOD,
FND_LOOKUP_VALUES LOOKUP1,
FND_LOOKUP_VALUES LOOKUP2
WHERE TYPEMAP.PERIOD_SET_NAME = c_period_set_name
AND TYPEMAP.PERIOD_TYPE = PERIOD.PERIOD_TYPE
AND PERIOD.PERIOD_SET_NAME = c_period_set_name
AND PERIOD.PERIOD_DAY = PERIOD.START_DATE
AND LOOKUP1.LOOKUP_TYPE = 'REPORTING_CURRENCY'
AND LOOKUP1.ENABLED_FLAG = 'Y'
AND (LOOKUP1.START_DATE_ACTIVE <= SYSDATE OR LOOKUP1.START_DATE_ACTIVE IS NULL)
AND (LOOKUP1.END_DATE_ACTIVE >= SYSDATE OR LOOKUP1.END_DATE_ACTIVE IS NULL)
-- ffang 081303, bug 3096884, checking language
AND LOOKUP1.language = userenv('LANG')
-- end ffang 081303, bug 3096884
AND LOOKUP2.LOOKUP_TYPE = 'REPORTING_CURRENCY'
AND LOOKUP2.ENABLED_FLAG = 'Y'
AND (LOOKUP2.START_DATE_ACTIVE <= SYSDATE OR LOOKUP2.START_DATE_ACTIVE IS NULL)
AND (LOOKUP2.END_DATE_ACTIVE >= SYSDATE OR LOOKUP2.END_DATE_ACTIVE IS NULL)
-- ffang 081303, bug 3096884, checking language
AND LOOKUP2.language = userenv('LANG')
-- end ffang 081303, bug 3096884
;
SELECT TYPEMAP.CONVERSION_TYPE,
PERIOD.PERIOD_NAME, PERIOD.PERIOD_TYPE,
PERIOD.END_DATE CONVERSION_DATE,
LOOKUP1.LOOKUP_CODE FROM_CURRENCY,
LOOKUP2.LOOKUP_CODE TO_CURRENCY
FROM AS_MC_TYPE_MAPPINGS TYPEMAP,
AS_PERIOD_DAYS PERIOD,
FND_LOOKUP_VALUES LOOKUP1,
FND_LOOKUP_VALUES LOOKUP2
WHERE TYPEMAP.PERIOD_SET_NAME = c_period_set_name
AND TYPEMAP.PERIOD_TYPE = PERIOD.PERIOD_TYPE
AND PERIOD.PERIOD_SET_NAME = c_period_set_name
AND PERIOD.PERIOD_DAY = PERIOD.END_DATE
AND LOOKUP1.LOOKUP_TYPE = 'REPORTING_CURRENCY'
AND LOOKUP1.ENABLED_FLAG = 'Y'
AND (LOOKUP1.START_DATE_ACTIVE <= SYSDATE OR LOOKUP1.START_DATE_ACTIVE IS NULL)
AND (LOOKUP1.END_DATE_ACTIVE >= SYSDATE OR LOOKUP1.END_DATE_ACTIVE IS NULL)
-- ffang 081303, bug 3096884, checking language
AND LOOKUP1.language = userenv('LANG')
-- end ffang 081303, bug 3096884
AND LOOKUP2.LOOKUP_TYPE = 'REPORTING_CURRENCY'
AND LOOKUP2.ENABLED_FLAG = 'Y'
AND (LOOKUP2.START_DATE_ACTIVE <= SYSDATE OR LOOKUP2.START_DATE_ACTIVE IS NULL)
AND (LOOKUP2.END_DATE_ACTIVE >= SYSDATE OR LOOKUP2.END_DATE_ACTIVE IS NULL)
-- ffang 081303, bug 3096884, checking language
AND LOOKUP2.language = userenv('LANG')
-- end ffang 081303, bug 3096884
;
SELECT precision,
NVL(minimum_accountable_unit, power(10,-1*precision))
INTO l_precision, l_mau
FROM fnd_currencies
WHERE currency_code = l_to_currency;
SELECT AS_PERIOD_RATES_S.NEXTVAL INTO l_period_rate_id FROM DUAL;
INSERT INTO AS_PERIOD_RATES(
PERIOD_RATE_ID, FROM_CURRENCY, TO_CURRENCY,
CONVERSION_TYPE, CONVERSION_DATE, CONVERSION_RATE,
NUMERATOR_RATE, DENOMINATOR_RATE, PRECISION,
MINIMUM_ACCOUNTABLE_UNIT,
CONVERSION_STATUS_FLAG, PERIOD_TYPE, PERIOD_NAME,
PERIOD_SET_NAME,
LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE,
CREATED_BY, LAST_UPDATE_LOGIN, REQUEST_ID,
PROGRAM_APPLICATION_ID, PROGRAM_ID,
PROGRAM_UPDATE_DATE)
VALUES( l_period_rate_id, l_from_currency, l_to_currency,
l_conversion_type, l_conversion_date,
l_rate, l_numerator, l_denominator, l_precision,
l_mau, l_status_flag, l_period_type,
l_period_name, g_period_set_name,
SYSDATE, g_user_id, SYSDATE, g_user_id, g_last_update_login,
g_request_id, g_prog_appl_id, g_prog_id, SYSDATE);
g_last_update_login := NVL(TO_NUMBER(fnd_profile.value('CONC_LOGIN_ID')), -1);
as_debug(l_module, 'last_update_login: ' || g_last_update_login);