The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT REPLACE(substr(version, 1, instr(version, '.', 1, 3)),'.')
INTO i
FROM v$instance;
SELECT main_conc_status INTO l_status
FROM hz_imp_batch_summary
WHERE batch_id = p_batch_id;
DELETE HZ_IMP_INT_DEDUP_RESULTS WHERE batch_id = p_batch_id;
DELETE HZ_IMP_DUP_PARTIES WHERE batch_id = p_batch_id;
DELETE HZ_IMP_DUP_DETAILS WHERE batch_id = p_batch_id;
DELETE HZ_IMP_PARTIES_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_ADDRESSES_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_ADDRESSUSES_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTPTS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_RELSHIPS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTROLES_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CREDITRTNGS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CLASSIFICS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_FINNUMBERS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_FINREPORTS_INT WHERE batch_id = p_batch_id;
DELETE HZ_IMP_PARTIES_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_ADDRESSES_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_ADDRESSUSES_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTPTS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_RELSHIPS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CONTACTROLES_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CREDITRTNGS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_CLASSIFICS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_FINNUMBERS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_FINREPORTS_SG WHERE batch_id = p_batch_id;
DELETE HZ_IMP_ERRORS WHERE batch_id = p_batch_id;
DELETE HZ_IMP_TMP_ERRORS WHERE batch_id = p_batch_id;
DELETE HZ_IMP_WORK_UNITS WHERE batch_id = p_batch_id;
DELETE HZ_IMP_OSR_CHANGE WHERE batch_id = p_batch_id;
FND_FILE.put_line(fnd_file.log,' Update hz_imp_batch_summary table (+)');
UPDATE HZ_IMP_BATCH_SUMMARY
SET BATCH_STATUS = 'PURGED',
PURGE_DATE = SYSDATE,
PURGED_BY_USER_ID = HZ_UTILITY_V2PUB.user_id
WHERE batch_id = p_batch_id;
FND_FILE.put_line(fnd_file.log,' Update hz_imp_batch_summary table (-)');