The following lines contain the word 'select', 'insert', 'update' or 'delete':
X_Insert_Count OUT NOCOPY NUMBER,
X_Update_Count OUT NOCOPY NUMBER,
p_level_tbl IN level_tbl_type) AS
l_result VARCHAR2(10);
SELECT party_preference_id, object_version_number FROM hz_party_preferences
WHERE party_id = c_party_id
AND category = 'COLLECTIONS LEVEL'
AND preference_code = 'PARTY_ID'
AND module = 'COLLECTIONS';
DELETE from hz_party_preferences
where party_preference_id = R_level_prefids(m)
and module = 'COLLECTIONS'
and category = 'COLLECTIONS LEVEL'
and preference_code = 'PARTY_ID';
x_update_count := R_level_prefids.count;
x_update_count := 0;
UPDATE hz_party_preferences
set
--value_varchar2 = U_level_tbl(m).ObjectCode
--,object_version_number = U_level_tbl(m).version
value_varchar2 = U_level_ObjectCodes(m)
,object_version_number = U_level_versions(m)
,last_updated_by = G_user_id
,last_update_date = sysdate
,last_update_login = G_user_id
--where party_id = U_level_tbl(m).party_id
where party_id = U_level_partyids(m)
and module = 'COLLECTIONS'
and category = 'COLLECTIONS LEVEL'
and preference_code = 'PARTY_ID';
x_update_count := U_level_tbl.count;
x_update_count := 0;
INSERT into HZ_PARTY_PREFERENCES (
PARTY_PREFERENCE_ID,
PARTY_ID,
MODULE,
CATEGORY,
PREFERENCE_CODE,
VALUE_VARCHAR2,
VALUE_NUMBER,
VALUE_DATE,
VALUE_NAME,
ADDITIONAL_VALUE1,
ADDITIONAL_VALUE2,
ADDITIONAL_VALUE3,
ADDITIONAL_VALUE4,
ADDITIONAL_VALUE5,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
VALUES (
hz_party_preferences_s.nextval,
--I_level_tbl(n).party_id,
I_level_partyids(n),
'COLLECTIONS',
'COLLECTIONS LEVEL',
'PARTY_ID',
--I_level_tbl(n).ObjectCode,
I_level_ObjectCodes(n),
null,
null,
null,
null,
null,
null,
null,
null,
1,
G_user_id,
sysdate,
G_user_id,
sysdate,
G_user_id);
x_insert_count := I_level_tbl.count;
iex_debug_pub.logmessage (' IEX_PARTY_PREF_PUB.assign_collection_level - Inserting - Exception = ' ||SQLERRM);
x_msg_data := SQLERRM||'Inserting Party ';
x_insert_count := 0;