The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT employee_id
INTO l_EmployeeId
FROM (
SELECT h.employee_id
FROM per_employees_current_x h,
financials_system_params_all f
WHERE h.employee_num = P_EmployeeNum
AND AP_WEB_DB_HR_INT_PKG.isPersonCwk(h.employee_id)='N'
AND h.business_group_id = f.business_group_id
AND f.org_id = P_OrgId
UNION ALL
SELECT h.person_id employee_id
FROM PER_CONT_WORKERS_CURRENT_X h,
financials_system_params_all f
WHERE h.npw_number = P_EmployeeNum
AND h.business_group_id = f.business_group_id
AND f.org_id = P_OrgId
);
l_LastUpdatedBy NUMBER;
l_LastUpdateLogin NUMBER;
l_LastUpdatedBy := to_number(FND_GLOBAL.USER_ID);
l_LastUpdateLogin := to_number(FND_GLOBAL.LOGIN_ID);
PutLine('Calling bulk insert for '||to_char(l_RowIndex)||' records ...');
INSERT INTO ap_web_employee_info_all
( employee_id,
value_type,
numeric_value,
period_id,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
org_id)
VALUES( l_EmployeeIdTab(i),
'CUM_REIMB_DISTANCE',
l_AccumMilesTab(i),
P_PeriodId,
sysdate,
l_LastUpdatedBy,
sysdate,
l_LastUpdatedBy,
l_LastUpdateLogin,
P_OrgId );
PutLine('Errors reported during insert: ');
END; -- end of bulk insert