The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
CP.USER_CONCURRENT_PROGRAM_NAME
INTO
L_REPORT_NAME
FROM
FND_CONCURRENT_PROGRAMS_VL CP,
FND_CONCURRENT_REQUESTS CR
WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
SELECT
--SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'"',1,1)+1,(INSTR(ARGUMENT1,'"',1,2)-INSTR(ARGUMENT1,'"',1,1) -1))
SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
INTO P_MASS_CHANGE_ID1
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT
MCH.BOOK_TYPE_CODE,
BC.BOOK_CLASS,
MCH.FROM_ASSET_NUMBER,
MCH.TO_ASSET_NUMBER,
MCH.FROM_DATE_PLACED_IN_SERVICE,
MCH.TO_DATE_PLACED_IN_SERVICE,
FM.RATE_SOURCE_RULE,
TM.RATE_SOURCE_RULE
INTO
BOOK
,BOOK_CLASS
,FROM_ASSET
,TO_ASSET
,FROM_DPIS
,TO_DPIS
,FROM_RULE
,TO_RULE
FROM
FA_MASS_CHANGES MCH,
FA_METHODS FM,
FA_METHODS TM,
FA_BOOK_CONTROLS BC
--WHERE MCH.MASS_CHANGE_ID = P_MASS_CHANGE_ID
WHERE MCH.MASS_CHANGE_ID = P_MASS_CHANGE_ID1
AND FM.METHOD_CODE (+) = MCH.FROM_METHOD_CODE
AND NVL(FM.LIFE_IN_MONTHS (+),
- 1) = NVL(MCH.FROM_LIFE_IN_MONTHS
,-1)
AND TM.METHOD_CODE (+) = MCH.TO_METHOD_CODE
AND NVL(TM.LIFE_IN_MONTHS (+),
- 1) = NVL(MCH.TO_LIFE_IN_MONTHS
,-1)
AND BC.BOOK_TYPE_CODE = MCH.BOOK_TYPE_CODE
AND BC.DATE_INEFFECTIVE IS NULL;
FUNCTION C_DO_UPDATEFORMULA(C_COUNT IN NUMBER) RETURN NUMBER IS
BEGIN
BEGIN
UPDATE
FA_MASS_CHANGES
SET
STATUS = 'PREVIEWED'
--WHERE MASS_CHANGE_ID = P_MASS_CHANGE_ID
WHERE MASS_CHANGE_ID = P_MASS_CHANGE_ID1
AND STATUS = 'PREVIEW';
END C_DO_UPDATEFORMULA;
SELECT
'PRODUCTION IN TAX'
INTO
TEMP
FROM
FA_BOOK_CONTROLS BC,
FA_BOOKS BK,
FA_METHODS ME
WHERE BK.BOOK_TYPE_CODE = BC.BOOK_TYPE_CODE
AND BK.ASSET_ID = ASSET_ID
AND BK.DATE_INEFFECTIVE IS NULL
AND BC.DISTRIBUTION_SOURCE_BOOK = C_BOOK
AND BC.DATE_INEFFECTIVE IS NULL
AND BC.BOOK_CLASS = 'TAX'
AND ME.METHOD_CODE = BK.DEPRN_METHOD_CODE
AND NVL(ME.LIFE_IN_MONTHS
,-1) = NVL(BK.LIFE_IN_MONTHS
,-1)
AND ME.RATE_SOURCE_RULE = 'PRODUCTION';
SELECT
UNIT_OF_MEASURE
INTO
NEW_UOM
FROM
FA_BOOK_CONTROLS BC,
FA_BOOKS BK
WHERE BK.BOOK_TYPE_CODE = BC.DISTRIBUTION_SOURCE_BOOK
AND BK.ASSET_ID = ASSET_ID
AND BK.DATE_INEFFECTIVE IS NULL
AND BC.BOOK_TYPE_CODE = C_BOOK
AND BC.DATE_INEFFECTIVE IS NULL;
SELECT
'PRODUCTION IN CORP'
INTO
TEMP
FROM
FA_BOOK_CONTROLS BC,
FA_BOOKS BK,
FA_METHODS ME
WHERE BK.BOOK_TYPE_CODE = BC.DISTRIBUTION_SOURCE_BOOK
AND BK.ASSET_ID = ASSET_ID
AND BK.DATE_INEFFECTIVE IS NULL
AND BC.BOOK_TYPE_CODE = C_BOOK
AND BC.DATE_INEFFECTIVE IS NULL
AND ME.METHOD_CODE = BK.DEPRN_METHOD_CODE
AND NVL(ME.LIFE_IN_MONTHS
,-1) = NVL(BK.LIFE_IN_MONTHS
,-1)
AND ME.RATE_SOURCE_RULE = 'PRODUCTION';