The following lines contain the word 'select', 'insert', 'update' or 'delete':
who_last_update_login number;
SELECT qa_ss_import_workflow_s.nextval
FROM dual;
X_LAST_UPDATE_LOGIN NUMBER;
X_LAST_UPDATE_LOGIN := who_last_update_login;
FOR REC IN (SELECT ROWID, PLAN_NAME, SOURCE_CODE
FROM QA_RESULTS_INTERFACE
WHERE PROCESS_STATUS = 1
AND GROUP_ID IS NULL
AND ((VALIDATE_FLAG <> 2) OR (VALIDATE_FLAG IS NULL))
AND NVL(INSERT_TYPE,1) = TYPE_OF_TXN
ORDER BY PLAN_NAME
FOR UPDATE OF GROUP_ID) LOOP
I := I + 1;
FOR REC IN (SELECT ROWID, PLAN_NAME
FROM QA_RESULTS_INTERFACE
WHERE PROCESS_STATUS = 1
AND GROUP_ID IS NULL
AND VALIDATE_FLAG = 2
AND NVL(INSERT_TYPE,1) = TYPE_OF_TXN
ORDER BY PLAN_NAME
FOR UPDATE OF GROUP_ID) LOOP
I := I + 1;
SELECT QA_GROUP_S.NEXTVAL INTO X_GROUP_ID FROM DUAL;
UPDATE QA_RESULTS_INTERFACE
SET GROUP_ID = X_GROUP_ID,
REQUEST_ID = X_REQUEST_ID,
CREATION_DATE = NVL(CREATION_DATE, who_creation_date),
CREATED_BY = NVL(CREATED_BY, who_created_by),
LAST_UPDATE_DATE = who_creation_date,
LAST_UPDATED_BY = X_USER_ID,
LAST_UPDATE_LOGIN = who_last_update_login,
PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
PROGRAM_ID = X_PROGRAM_ID,
PROGRAM_UPDATE_DATE = who_creation_date
WHERE ROWID = ROWID_TABLE(I);
UPDATE QA_RESULTS_INTERFACE
SET TRANSACTION_INTERFACE_ID = QA_TXN_INTERFACE_S.NEXTVAL
WHERE ROWID = ROWID_TABLE(I)
AND TRANSACTION_INTERFACE_ID IS NULL;
who_last_update_login := to_number(argument3);