The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT INTO IEC_G_AGTLESS_CPN_RT_INFO
(
AGTLESS_CPN_RT_INFO_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
SERVER_ID,
CAMPAIGN_ID,
EXECUTION,
STATUS
)
VALUES
(
IEC_G_AGTLESS_CPN_RT_INFO_S.NEXTVAL,
1,
1,
SYSDATE,
1,
SYSDATE,
P_SERVER_ID,
P_CAMPAIGN_ID,
L_EXECUTION_START,
L_STATUS_STARTING
);
END; -- END INSERT BLOCK
l_last_update_date DATE;
SELECT SERVER_ID, LAST_UPDATE_DATE, EXECUTION
INTO l_curr_server_id, l_last_update_date, l_execution
FROM IEC_G_AGTLESS_CPN_RT_INFO
WHERE CAMPAIGN_ID = P_CAMPAIGN_ID
FOR UPDATE;
END; -- END SELECT BLOCK
IF l_curr_server_id = P_SERVER_ID OR l_curr_server_id = NULL OR SYSDATE - l_last_update_date > 1/720 THEN
UPDATE IEC_G_AGTLESS_CPN_RT_INFO
SET SERVER_ID = P_SERVER_ID, LAST_UPDATE_DATE = SYSDATE, STATUS = L_STATUS_STARTED, EXECUTION = l_execution, LAST_UPDATED_BY = 1
WHERE CAMPAIGN_ID = P_CAMPAIGN_ID;
UPDATE IEC_G_AGTLESS_CPN_RT_INFO
SET SERVER_ID = '', LAST_UPDATE_DATE = SYSDATE, STATUS = L_STATUS_STOPPED, LAST_UPDATED_BY = 1
WHERE CAMPAIGN_ID = P_CAMPAIGN_ID AND SERVER_ID = P_SERVER_ID;