The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_DEL_CHNG VARCHAR2(50) := 'DELETE CHANGED ENTITY';
PROCEDURE DELETE_CHANGED_ENTITY(
p_entity IN VARCHAR2,
x_errbuf OUT NOCOPY VARCHAR2,
x_retcode OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2);
SELECT 'X'
FROM jty_changed_terrs
WHERE source_id = -1001
AND tap_request_id IS NULL ;
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('ALL_SALES',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('ALL_QUOTES',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('ALL_PROPOSALS',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('ACCOUNT',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('LEAD',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('OPPTY',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('QUOTE',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
DELETE_CHANGED_ENTITY('PROPOSAL',
x_errbuf =>l_errbuf
,x_retcode =>l_retcode
,x_return_status =>l_return_status);
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO AS_CHANGED_ACCOUNTS TABLE');
UPDATE AS_CHANGED_ACCOUNTS
SET REQUEST_ID = FND_GLOBAL.Conc_Request_Id
where REQUEST_ID IS NULL;
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO ASO_CHANGED_QUOTES TABLE');
update ASO_CHANGED_QUOTES
set CONC_REQUEST_ID = FND_GLOBAL.Conc_Request_Id
where CONC_REQUEST_ID IS NULL;
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO ASO_CHANGED_QUOTES TABLE');
update PRP_CHANGED_PROPOSALS
set REQUEST_ID = FND_GLOBAL.Conc_Request_Id
where REQUEST_ID IS NULL;
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 CHNG
WHERE CHNG.lead_id IS NULL
AND CHNG.sales_lead_id IS NULL
AND EXISTS (SELECT 'X' FROM JTF_TAE_1001_ACCOUNT_NM_TRANS TRANS
WHERE TRANS.TRANS_OBJECT_ID = CHNG.CUSTOMER_ID);
SELECT distinct sales_lead_id
FROM AS_CHANGED_ACCOUNTS_ALL CHNG
WHERE lead_id IS NULL
AND sales_lead_id IS NOT NULL
AND EXISTS (SELECT 'X' FROM JTF_TAE_1001_LEAD_NM_TRANS TRANS
WHERE TRANS.TRANS_OBJECT_ID = CHNG.SALES_LEAD_ID);
SELECT distinct lead_id
FROM AS_CHANGED_ACCOUNTS_ALL CHNG
WHERE lead_id IS NOT NULL
AND sales_lead_id IS NULL
AND EXISTS (SELECT 'X' FROM JTF_TAE_1001_OPPOR_NM_TRANS TRANS
WHERE TRANS.TRANS_OBJECT_ID = CHNG.LEAD_ID);
SELECT distinct proposal_id
FROM PRP_CHANGED_PROPOSALS CHNG
WHERE EXISTS (SELECT 'X' FROM JTF_TAE_1001_PROP_NM_TRANS TRANS
WHERE trans.trans_object_id = chng.proposal_id);
SELECT distinct quote_number
FROM ASO_CHANGED_QUOTES CHNG
WHERE EXISTS (SELECT 'X' FROM JTF_TAE_1001_QUOTE_NM_TRANS TRANS
WHERE trans.trans_object_id = chng.quote_number);
SELECT distinct customer_id
FROM AS_CHANGED_ACCOUNTS_ALL;
SELECT distinct quote_number
FROM ASO_CHANGED_QUOTES;
SELECT distinct proposal_id
FROM PRP_CHANGED_PROPOSALS;
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 ||
p_entity_id.FIRST || '-' ||
p_entity_id.LAST);
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=p_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=p_entity_id(i)
AND ACC.lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.lead_id=p_entity_id(i)
AND ACC.change_type = 'OPPORTUNITY';
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=p_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=p_entity_id(i);
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=p_entity_id(i);
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=p_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=p_entity_id(i);
AS_GAR.LOG('processing Individual Delete');
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=p_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=p_entity_id(i)
AND ACC.lead_id IS NULL;
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.lead_id=p_entity_id(i)
AND ACC.change_type = 'OPPORTUNITY';
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=p_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=p_entity_id(i);
DELETE FROM AS_CHANGED_ACCOUNTS_ALL ACC
WHERE ACC.customer_id=p_entity_id(i);
DELETE FROM ASO_CHANGED_QUOTES ACC
WHERE ACC.quote_number=p_entity_id(i);
DELETE FROM PRP_CHANGED_PROPOSALS ACC
WHERE ACC.proposal_id=p_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));
END DELETE_CHANGED_ENTITY;
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO AS_CHANGED_ACCOUNTS TABLE');
UPDATE AS_CHANGED_ACCOUNTS
SET REQUEST_ID = NULL
WHERE REQUEST_ID = FND_GLOBAL.Conc_Request_Id;
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO ASO_CHANGED_QUOTES TABLE');
update ASO_CHANGED_QUOTES
set CONC_REQUEST_ID = NULL
where CONC_REQUEST_ID =FND_GLOBAL.Conc_Request_Id;
AS_GAR.LOG(G_ENTITY || AS_GAR.G_PROCESS || G_PREATA || 'UPDATE REQUEST ID INTO ASO_CHANGED_QUOTES TABLE');
update PRP_CHANGED_PROPOSALS
set REQUEST_ID = NULL
where REQUEST_ID = FND_GLOBAL.Conc_Request_Id;