The following lines contain the word 'select', 'insert', 'update' or 'delete':
DELETE_CHANGED_ENTITY(p_entity => 'ACCOUNT',
x_errbuf => l_errbuf,
x_retcode => l_retcode,
x_return_status => l_return_status);
INSERT /*+ append parallel(AS_TERR_RESOURCES_TMP) */
INTO AS_TERR_RESOURCES_TMP
(RESOURCE_ID,
RESOURCE_TYPE,
PARTY_ID,
TERR_ID)
( SELECT DISTINCT USERS.EMPLOYEE_ID,
VAL.PROFILE_OPTION_VALUE,-1,-1
FROM FND_PROFILE_OPTION_VALUES VAL,
FND_PROFILE_OPTIONS OPTIONS,
FND_USER USERS
WHERE VAL.LEVEL_ID = 10004
AND USERS.EMPLOYEE_ID is not null
AND VAL.PROFILE_OPTION_VALUE is not null
AND USERS.USER_ID = VAL.LEVEL_VALUE
AND VAL.PROFILE_OPTION_VALUE is not null
AND OPTIONS.PROFILE_OPTION_ID = VAL.PROFILE_OPTION_ID
AND OPTIONS.APPLICATION_ID = VAL.APPLICATION_ID
AND OPTIONS.PROFILE_OPTION_NAME = 'AS_DEF_CUST_ST_ROLE'
);
DELETE_CHANGED_ENTITY(p_entity => 'LEAD',
x_errbuf => l_errbuf,
x_retcode => l_retcode,
x_return_status => l_return_status);
DELETE_CHANGED_ENTITY(p_entity => 'OPPTY',
x_errbuf => l_errbuf,
x_retcode => l_retcode,
x_return_status => l_return_status);
DELETE_CHANGED_ENTITY(p_entity => 'QUOTE',
x_errbuf => l_errbuf,
x_retcode => l_retcode,
x_return_status => l_return_status);
DELETE_CHANGED_ENTITY(p_entity => 'PROPOSAL',
x_errbuf => l_errbuf,
x_retcode => l_retcode,
x_return_status => l_return_status);
PROCEDURE DELETE_CHANGED_ENTITY(p_entity IN VARCHAR2,
x_errbuf OUT NOCOPY VARCHAR2,
x_retcode OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2)IS
TYPE entity_id_list is TABLE of NUMBER INDEX BY BINARY_INTEGER;
SELECT distinct customer_id
FROM AS_CHANGED_ACCOUNTS_ALL
WHERE lead_id IS NULL
AND sales_lead_id IS NULL;
SELECT distinct sales_lead_id
FROM AS_CHANGED_ACCOUNTS_ALL
WHERE lead_id IS NULL
AND sales_lead_id IS NOT NULL;
SELECT distinct lead_id
FROM AS_CHANGED_ACCOUNTS_ALL
WHERE lead_id IS NOT NULL
AND sales_lead_id IS NULL;
SELECT distinct proposal_id
FROM PRP_CHANGED_PROPOSALS;
SELECT distinct quote_number
FROM ASO_CHANGED_QUOTES;
AS_GAR.LOG(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || ': LOOPCOUNT :- ' ||l_loop_count);
AS_GAR.LOG(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || AS_GAR.G_N_ROWS_PROCESSED ||
l_entity_id.FIRST || '-' ||
l_entity_id.LAST);
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=l_entity_id(i)
AND ACC.lead_id IS NULL
AND ACC.sales_lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.sales_lead_id=l_entity_id(i)
AND ACC.lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.lead_id=l_entity_id(i)
AND ACC.change_type = 'OPPORTUNITY';
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=l_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=l_entity_id(i);
AS_GAR.LOG('processing Individual Delete');
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=l_entity_id(i)
AND ACC.lead_id IS NULL
AND ACC.sales_lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.sales_lead_id=l_entity_id(i)
AND ACC.lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.lead_id=l_entity_id(i)
AND ACC.change_type = 'OPPORTUNITY';
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=l_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=l_entity_id(i);
AS_GAR.LOG(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || AS_GAR.G_IND_DEL || AS_GAR.G_GENERAL_EXCEPTION);
AS_GAR.LOG_EXCEPTION(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || AS_GAR.G_GENERAL_EXCEPTION, SQLERRM, TO_CHAR(SQLCODE));
AS_GAR.LOG(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || AS_GAR.G_N_ROWS_PROCESSED || l_first || '-' || l_last);
AS_GAR.LOG(G_ENTITY ||'DELETE FROM CHANGED ENTITY::' || AS_GAR.G_END);
AS_GAR.LOG_EXCEPTION(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity || AS_GAR.G_GENERAL_EXCEPTION, SQLERRM, TO_CHAR(SQLCODE));
AS_GAR.LOG_EXCEPTION(G_ENTITY || 'DELETE FROM CHANGED ENTITY::' || p_entity , SQLERRM, TO_CHAR(SQLCODE));