The following lines contain the word 'select', 'insert', 'update' or 'delete':
P_LAST_UPDATE_LOGIN IN NUMBER,
P_PROGRAM_ID IN NUMBER,
P_PROGRAM_APPLICATION_ID IN NUMBER,
P_REQUEST_ID IN NUMBER,
P_APPLICATION_ID IN NUMBER,
P_GMISS_CHAR IN VARCHAR2,
P_GMISS_NUM IN NUMBER,
P_GMISS_DATE IN DATE,
P_FLEX_VALIDATION IN VARCHAR2,
P_DSS_SECURITY IN VARCHAR2,
P_ALLOW_DISABLED_LOOKUP IN VARCHAR2,
P_PROFILE_VERSION IN VARCHAR2,
P_UPDATE_STR_ADDR IN VARCHAR2,
P_MAINTAIN_LOC_HIST IN VARCHAR2,
P_ALLOW_ADDR_CORR IN VARCHAR2
) IS
l_dml_record HZ_IMP_LOAD_WRAPPER.DML_RECORD_TYPE;
l_dml_record.LAST_UPDATE_LOGIN := P_LAST_UPDATE_LOGIN;
SELECT count(rowid) INTO l_orig_error_count
FROM HZ_IMP_TMP_ERRORS
WHERE BATCH_ID = l_dml_record.BATCH_ID
AND REQUEST_ID = l_dml_record.REQUEST_ID;
SELECT hz_imp_errors_s.NEXTVAL INTO l_start_error_id FROM dual;
SELECT hz_imp_errors_s.CURRVAL INTO l_current_error_id FROM dual;
SELECT count(rowid) INTO l_real_error_count
FROM HZ_IMP_TMP_ERRORS
WHERE BATCH_ID = l_dml_record.BATCH_ID
AND REQUEST_ID = l_dml_record.REQUEST_ID;
UPDATE HZ_IMP_WORK_UNITS
SET STATUS = 'C', STAGE = STAGE-1
WHERE BATCH_ID = l_dml_record.BATCH_ID
AND FROM_ORIG_SYSTEM_REF = l_dml_record.FROM_OSR;
SELECT HWM_STAGE INTO l_hwm_stage
FROM HZ_IMP_WORK_UNITS
WHERE BATCH_ID = l_dml_record.BATCH_ID
AND FROM_ORIG_SYSTEM_REF = l_dml_record.FROM_OSR;
select 'Y' into l_batch_run_before
from hz_imp_batch_details
where batch_id = P_BATCH_ID
AND ( import_status = 'COMPL_ERRORS' OR import_status = 'COMPLETED')
AND rownum = 1;
P_UPDATE_STR_ADDR => P_UPDATE_STR_ADDR,
P_MAINTAIN_LOC_HIST => P_MAINTAIN_LOC_HIST,
P_ALLOW_ADDR_CORR => P_ALLOW_ADDR_CORR,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
UPDATE HZ_IMP_WORK_UNITS
SET STATUS = 'C'
WHERE BATCH_ID = P_BATCH_ID
AND FROM_ORIG_SYSTEM_REF = l_dml_record.FROM_OSR;
delete hz_imp_work_units where batch_id = P_BATCH_ID;
FND_FILE.PUT_LINE(FND_FILE.LOG, 'debug: work united deleted');
update hz_imp_batch_summary
set IMPORT_STATUS = 'COMPLETED'
where BATCH_ID = P_BATCH_ID;
FND_FILE.PUT_LINE(FND_FILE.LOG, 'debug: Summary table updated');
UPDATE hz_imp_batch_summary
SET import_status = 'ERROR'
WHERE batch_id = P_BATCH_ID;
UPDATE hz_imp_batch_details
SET import_status = 'ERROR'
WHERE batch_id = P_BATCH_ID
AND run_number = (SELECT max(run_number)
FROM hz_imp_batch_details
WHERE batch_id = P_BATCH_ID);