The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_PARTIES_ACC (p_party_id hz_parties.party_id%TYPE,
p_user_id fnd_user.user_id%TYPE,
x_access_id OUT NOCOPY number)
IS
l_sysdate date;
INSERT INTO csm_parties_acc (party_id,
user_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
access_id,
counter
)
VALUES (p_party_id,
p_user_id,
fnd_global.user_id,
l_sysdate,
fnd_global.user_id,
l_sysdate,
fnd_global.login_id,
csm_parties_acc_s.nextval,
1
)
RETURNING access_id INTO x_access_id;
END INSERT_PARTIES_ACC;
CSM_ACC_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_SEQ_NAME => g_acc_sequence_name1
,P_PK1_NAME => g_pk1_name1
,P_PK1_NUM_VALUE => p_party_id
,P_USER_ID => p_user_id
);
SELECT 1
FROM csm_parties_acc p
WHERE p.party_id = l_party_id
AND p.user_id = l_user_id
AND NOT EXISTS
(
SELECT 1
FROM csm_incidents_all_acc acc,
CS_INCIDENTS_ALL_B csi
WHERE acc.incident_id = csi.incident_id
AND acc.user_id = p.user_id
AND csi.customer_id = p.party_id
)
AND NOT EXISTS
(
SELECT 1
From CSM_PARTY_SITES_ACC ps
WHERE ps.USER_ID = p.USER_ID
AND ps.PARTY_ID= p.PARTY_ID
)
AND NOT EXISTS
(
SELECT 1
From CS_HZ_SR_CONTACT_POINTS cont,
CSM_SR_CONTACTS_ACC src
WHERE src.USER_ID = p.USER_ID
AND cont.PARTY_ID = p.PARTY_ID
AND src.sr_contact_point_id = cont.sr_contact_point_id
);
SELECT count(*)
FROM csm_parties_acc
WHERE party_id = l_party_id
AND user_id = l_user_id;
CSM_ACC_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_PK1_NAME => g_pk1_name1
,P_PK1_NUM_VALUE => p_party_id
,P_USER_ID => p_user_id
);
CSM_ACC_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_PK1_NAME => g_pk1_name1
,P_PK1_NUM_VALUE => p_party_id
,P_USER_ID => p_user_id
);
SELECT access_id, user_id
FROM csm_parties_acc
WHERE party_id = p_party_id;
SELECT access_id, user_id
FROM csm_party_sites_acc
WHERE party_id = p_party_id;
CSM_ACC_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
,P_ACC_TABLE_NAME => g_acc_table_name1
,P_USER_ID => r_parties_rec.user_id
,P_ACCESS_ID => r_parties_rec.access_id
);
CSM_ACC_PKG.Update_Acc
( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
,P_ACC_TABLE_NAME => g_acc_table_name2
,P_USER_ID => r_party_sites_rec.user_id
,P_ACCESS_ID => r_party_sites_rec.access_id
);
SELECT /*+ INDEX (p CSM_PARTIES_ACC_U1) */ p.party_id,p.USER_ID
FROM CSM_PARTIES_ACC p
WHERE NOT EXISTS
(
SELECT /*+INDEX (csi CS_INCIDENTS_U1) */ 1
FROM csm_incidents_all_acc acc,
CS_INCIDENTS_ALL_B csi
WHERE acc.incident_id = csi.incident_id
AND acc.user_id=p.user_id
AND csi.customer_id=p.party_id
)
AND NOT EXISTS
(
SELECT 1
From CSM_PARTY_SITES_ACC ps
WHERE ps.USER_ID=p.USER_ID
AND ps.PARTY_ID=p.PARTY_ID
)
AND NOT EXISTS
(
SELECT 1
From CS_HZ_SR_CONTACT_POINTS cont,
CSM_SR_CONTACTS_ACC src
WHERE src.USER_ID = p.USER_ID
AND cont.PARTY_ID = p.PARTY_ID
AND src.sr_contact_point_id = cont.sr_contact_point_id
);
SELECT /*+ INDEX (p CSM_PARTIES_ACC_U1) */
P.ACCESS_ID
FROM CSM_PARTIES_ACC P
WHERE P.PARTY_ID = b_party_id
AND P.USER_ID = b_user_id;
l_userid_tbl.DELETE;
l_partyid_tbl.DELETE;
DELETE FROM CSM_PARTIES_ACC WHERE ACCESS_ID=l_accessid_tbl(I);
UPDATE jtm_con_request_data
SET last_run_date = SYSDATE
WHERE product_code = 'CSM'
AND package_name = 'CSM_PARTY_EVENT_PKG'
AND procedure_name = 'PURGE_PARTY_CONC';