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 a,
cs_incidents_all_b b,
csm_incidents_all_acc c
WHERE a.party_id = l_party_id
AND a.user_id = l_user_id
AND a.counter = 1
AND a.party_id = b.customer_id
AND b.incident_id =c.incident_id
AND c.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
);