The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_SQL_Rule(
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2 ,
p_rel_type_code IN VARCHAR2 ,
p_sql_statement IN VARCHAR2
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_SQL_Rule';
SAVEPOINT Insert_SQL_Rule_PVT;
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Insert_SQL_Rule(+)');
INSERT INTO IBE_CT_RELATION_RULES(
relation_rule_id, object_version_number, created_by,
creation_date, last_updated_by, last_update_date,
relation_type_code, origin_object_type,
dest_object_type, sql_statement
)
VALUES(
IBE_CT_RELATION_RULES_S1.NEXTVAL, 1, L_USER_ID,
SYSDATE, L_USER_ID, SYSDATE,
p_rel_type_code, 'N',
'N', p_sql_statement
);
IBE_UTIL.debug('Failed to insert the SQL rule.');
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Insert_SQL_Rule(-)');
ROLLBACK TO Insert_SQL_Rule_PVT;
ROLLBACK TO Insert_SQL_Rule_PVT;
ROLLBACK TO Insert_SQL_Rule_PVT;
END Insert_SQL_Rule;
PROCEDURE Insert_Mapping_Rules(
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2 ,
p_rel_type_code IN VARCHAR2 ,
p_origin_object_type_tbl IN JTF_Varchar2_Table_100 ,
p_dest_object_type_tbl IN JTF_Varchar2_Table_100 ,
p_origin_object_id_tbl IN JTF_Number_Table ,
p_dest_object_id_tbl IN JTF_Number_Table ,
p_preview IN VARCHAR2 := FND_API.G_FALSE
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_Mapping_Rules';
SAVEPOINT Insert_Mapping_Rules_PVT;
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Insert_Mapping_Rules(+)');
IBE_UTIL.debug('Inserting the mapping rules from the Preview page.');
INSERT INTO IBE_CT_RELATION_RULES(
relation_rule_id, object_version_number, created_by,
creation_date, last_updated_by, last_update_date,
relation_type_code, origin_object_type,
dest_object_type, origin_object_id, dest_object_id
)
VALUES(
ibe_ct_relation_rules_s1.nextval, 1, L_USER_ID,
SYSDATE, L_USER_ID, SYSDATE,
p_rel_type_code, p_origin_object_type_tbl(i),
p_dest_object_type_tbl(i), p_origin_object_id_tbl(i), p_dest_object_id_tbl(i)
)
RETURNING relation_rule_id INTO l_rule_id;
IBE_Prod_Relation_PVT.Insert_Related_Items_Rows(
p_rel_type_code => p_rel_type_code ,
p_rel_rule_id => l_rule_id ,
p_origin_object_type => p_origin_object_type_tbl(i),
p_dest_object_type => p_dest_object_type_tbl(i) ,
p_origin_object_id => p_origin_object_id_tbl(i) ,
p_dest_object_id => p_dest_object_id_tbl(i) );
IBE_UTIL.debug('Inserting the mapping rules from the Create Rules page.');
INSERT INTO IBE_CT_RELATION_RULES(
relation_rule_id, object_version_number, created_by,
creation_date, last_updated_by, last_update_date,
relation_type_code, origin_object_type,
dest_object_type, origin_object_id, dest_object_id
)
VALUES(
ibe_ct_relation_rules_s1.nextval, 1, L_USER_ID,
SYSDATE, L_USER_ID, SYSDATE,
p_rel_type_code, p_origin_object_type_tbl(i),
p_dest_object_type_tbl(j), p_origin_object_id_tbl(i), p_dest_object_id_tbl(j)
)
RETURNING relation_rule_id INTO l_rule_id;
IBE_Prod_Relation_PVT.Insert_Related_Items_Rows(
p_rel_type_code => p_rel_type_code ,
p_rel_rule_id => l_rule_id ,
p_origin_object_type => p_origin_object_type_tbl(i),
p_dest_object_type => p_dest_object_type_tbl(j) ,
p_origin_object_id => p_origin_object_id_tbl(i) ,
p_dest_object_id => p_dest_object_id_tbl(j) );
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Insert_Mapping_Rules(-)');
ROLLBACK TO Insert_Mapping_Rules_PVT;
ROLLBACK TO Insert_Mapping_Rules_PVT;
ROLLBACK TO Insert_Mapping_Rules_PVT;
END Insert_Mapping_Rules;
PROCEDURE Update_Rule(
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2 ,
p_rel_rule_id IN NUMBER ,
p_obj_ver_num IN NUMBER ,
p_sql_statement IN VARCHAR2 := NULL
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Rule';
SAVEPOINT Update_Rule_PVT;
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Update_Rule(+)');
UPDATE IBE_CT_RELATION_RULES
SET object_version_number = object_version_number + 1,
sql_statement = p_sql_statement
WHERE relation_rule_id = p_rel_rule_id
AND object_version_number = p_obj_ver_num;
IBE_UTIL.debug('Update statement failed.');
FND_MESSAGE.Set_Name('IBE', 'IBE_CT_REL_RULE_NOT_UPDATED');
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Update_Rule(-)');
ROLLBACK TO Update_Rule_PVT;
ROLLBACK TO Update_Rule_PVT;
ROLLBACK TO Update_Rule_PVT;
END Update_Rule;
PROCEDURE Delete_Rules(
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2 ,
p_rel_rule_id_tbl IN JTF_Varchar2_Table_100 ,
p_obj_ver_num_tbl IN JTF_Varchar2_Table_100
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Rule';
SAVEPOINT Delete_Rule_PVT;
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Delete_Rule(+)');
DELETE
FROM ibe_ct_relation_rules
WHERE relation_rule_id = p_rel_rule_id_tbl(i)
AND object_version_number = p_obj_ver_num_tbl(i);
IBE_UTIL.debug('Failed delete statement for IBE_CT_RELATION_RULES.');
FND_MESSAGE.Set_Name('IBE', 'IBE_CT_REL_RULE_NOT_DELETED');
DELETE
FROM ibe_ct_related_items
WHERE relation_rule_id = p_rel_rule_id_tbl(i);
IBE_UTIL.debug('IBE_Prod_Relation_Rule_PVT.Delete_Rule(-)');
ROLLBACK TO Delete_Rule_PVT;
ROLLBACK TO Delete_Rule_PVT;
ROLLBACK TO Delete_Rule_PVT;
END Delete_Rules;
SELECT meaning
INTO l_rule_type
FROM fnd_lookups
WHERE lookup_type = 'IBE_REL_MAPPING_RULE_TYPES'
AND lookup_code = l_rule_type_code;
SELECT MCV.description
INTO l_display_name
FROM mtl_categories_vl MCV
WHERE MCV.category_id = p_object_id;
SELECT JMB.msite_id
INTO l_master_msite_id
FROM ibe_msites_b JMB
WHERE JMB.master_msite_flag = 'Y' AND JMB.site_type = 'I';
'SELECT JDMSS.parent_section_id ' ||
'FROM ibe_dsp_msite_sct_sects JDMSS ' ||
'START WITH JDMSS.child_section_id = :section_id ' ||
'AND JDMSS.mini_site_id = :master_mini_site_id1 ' ||
'CONNECT BY JDMSS.child_section_id = PRIOR JDMSS.parent_section_id ' ||
'AND JDMSS.mini_site_id = :master_mini_site_id2 ' ||
'AND JDMSS.parent_section_id IS NOT NULL'
USING p_object_id, l_master_msite_id, l_master_msite_id;
SELECT JDSV.display_name
INTO l_section_disp_name
FROM ibe_dsp_sections_vl JDSV
WHERE JDSV.section_id = l_section_id;
SELECT JDSV.display_name
INTO l_section_disp_name
FROM ibe_dsp_sections_vl JDSV
WHERE JDSV.section_id = p_object_id;
SELECT MSIV.description
INTO l_display_name
FROM mtl_system_items_vl MSIV
WHERE inventory_item_id = p_object_id
AND organization_id = L_ORGANIZATION_ID;