The following lines contain the word 'select', 'insert', 'update' or 'delete':
select lengthb(p_string(i)) into l_length from dual;
x_insert_status VARCHAR2(10) ;
x_insert_status
);
x_insert_status
);
x_insert_status := 'E';
SELECT /*+ index(HZ_RELATIONSHIPS_N2) */ party_id
INTO x_party_id
FROM hz_relationships
WHERE object_id = p_Object_Id
AND object_type='ORGANIZATION'
AND subject_id = p_Subject_Id
AND subject_type ='PERSON'
AND relationship_code ='CONTACT_OF';
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_insert_status OUT NOCOPY VARCHAR2
)
AS
BEGIN
INSERT INTO ibu_multi_parties(USER_ID,
PARTY_ID,
ENABLE_FLAG,
CURRENT_PARTY,
END_DATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
VALUES (p_user_id,
p_party_id,
p_enable_flag,
p_current_party,
p_end_date,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login);
x_insert_status := 'S';
x_insert_status := 'E';
PROCEDURE update_ibu_multi_parties(p_user_id IN NUMBER,
p_loggedin_user_id IN NUMBER,
p_party_id IN SYSTEM.IBU_NUM_TBL_TYPE,
p_enable_flag IN SYSTEM.IBU_VAR_3_TBL_TYPE,
x_update_status OUT NOCOPY VARCHAR2
)
AS
i NUMBER;
select ENABLE_FLAG into l_temp from ibu_multi_parties where party_id=p_party_id(i) and user_id=p_user_id;
UPDATE ibu_multi_parties
SET ENABLE_FLAG = l_flag,last_update_date = SYSDATE,last_updated_by = p_loggedin_user_id,last_update_login = p_loggedin_user_id
WHERE USER_ID = p_user_id
AND PARTY_ID = l_party_id1;
x_update_status := 'S';
x_update_status := 'E';
END update_ibu_multi_parties;
CURSOR C1 IS SELECT phone_number FROM hz_contact_points where owner_table_id = party_site_id and owner_table_name = 'HZ_PARTY_SITES' and contact_point_type = 'PHONE' order by primary_flag desc,creation_date asc;