The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'X'
into l_dummy
from csd_dc_domains
where diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and (domain_type_code = p_dc_domain_rec.domain_type_code
and inventory_item_id = p_dc_domain_rec.inventory_item_id)
or (domain_type_code = p_dc_domain_rec.domain_type_code
and category_set_id = p_dc_domain_rec.category_set_id
and category_id = p_dc_domain_rec.category_id);
select 'X'
into l_dummy
from csd_dc_domains
where (diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and domain_type_code = p_dc_domain_rec.domain_type_code
and inventory_item_id = p_dc_domain_rec.inventory_item_id)
or (diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and domain_type_code = p_dc_domain_rec.domain_type_code
and category_set_id = p_dc_domain_rec.category_set_id
and category_id = p_dc_domain_rec.category_id);
select 'X'
into l_dummy
from mtl_system_items_kfv
where organization_id = cs_std.get_item_valdn_orgzn_id
and inventory_item_id = p_dc_domain_rec.inventory_item_id;
select 'X'
into l_dummy
from mtl_category_sets_vl
where category_set_id = p_dc_domain_rec.category_set_id;
select validate_flag
into l_valid_cat_flag
from mtl_category_sets_vl
where category_set_id = p_dc_domain_rec.category_set_id;
select 'X'
into l_dummy
from mtl_category_set_valid_cats_v
where category_set_id = p_dc_domain_rec.category_set_id
and category_id = p_dc_domain_rec.category_id;
select 'X'
into l_dummy
from mtl_category_sets_vl mcs, mtl_categories_v mc
where mcs.category_set_id = p_dc_domain_rec.category_set_id
and mcs.structure_id = mc.structure_id
and mc.category_id = p_dc_domain_rec.category_id;
'Calling Insert_Row table handler');
CSD_DC_DOMAINS_PKG.Insert_Row
(px_dc_domain_id => x_dc_domain_id,
p_object_version_number => l_obj_ver_num,
p_diagnostic_code_id => p_dc_domain_rec.diagnostic_code_id,
p_inventory_item_id => l_inventory_item_id,
p_category_id => l_category_id,
p_category_set_id => l_category_set_id,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.LOGIN_ID,
p_domain_type_code => p_dc_domain_rec.domain_type_code,
p_attribute_category => p_dc_domain_rec.attribute_category,
p_attribute1 => p_dc_domain_rec.attribute1,
p_attribute2 => p_dc_domain_rec.attribute2,
p_attribute3 => p_dc_domain_rec.attribute3,
p_attribute4 => p_dc_domain_rec.attribute4,
p_attribute5 => p_dc_domain_rec.attribute5,
p_attribute6 => p_dc_domain_rec.attribute6,
p_attribute7 => p_dc_domain_rec.attribute7,
p_attribute8 => p_dc_domain_rec.attribute8,
p_attribute9 => p_dc_domain_rec.attribute9,
p_attribute10 => p_dc_domain_rec.attribute10,
p_attribute11 => p_dc_domain_rec.attribute11,
p_attribute12 => p_dc_domain_rec.attribute12,
p_attribute13 => p_dc_domain_rec.attribute13,
p_attribute14 => p_dc_domain_rec.attribute14,
p_attribute15 => p_dc_domain_rec.attribute15
);
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
'Returned from Insert_Row table handler');
/* procedure name: Update_DC_Domain */
/* description : procedure used to update */
/* dc domain */
/* */
/*--------------------------------------------------*/
PROCEDURE Update_DC_Domain
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2,
p_init_msg_list IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_dc_domain_rec IN DC_DOMAIN_REC_TYPE,
x_obj_ver_number OUT NOCOPY NUMBER
) IS
-- CONSTANTS --
lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_diagnostic_codes_pvt.update_dc_domain';
lc_api_name CONSTANT VARCHAR2(30) := 'Update_DC_Domain';
SAVEPOINT Update_DC_Domain;
'Entered Update_DC_Domain');
select 'X'
into l_dummy
from csd_dc_domains
where dc_domain_id = p_dc_domain_rec.dc_domain_id;
select object_version_number
into l_obj_ver_num
from csd_dc_domains
where dc_domain_id = p_dc_domain_rec.dc_domain_id;
select 'X'
into l_dummy
from csd_dc_domains
where dc_domain_id <> p_dc_domain_rec.dc_domain_id
and diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and domain_type_code = p_dc_domain_rec.domain_type_code
and inventory_item_id = p_dc_domain_rec.inventory_item_id
and category_set_id = p_dc_domain_rec.category_set_id
and category_id = p_dc_domain_rec.category_id;
select 'X'
into l_dummy
from csd_dc_domains
where dc_domain_id <> p_dc_domain_rec.dc_domain_id
and (diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and domain_type_code = p_dc_domain_rec.domain_type_code
and inventory_item_id = p_dc_domain_rec.inventory_item_id)
or (diagnostic_code_id = p_dc_domain_rec.diagnostic_code_id
and domain_type_code = p_dc_domain_rec.domain_type_code
and category_set_id = p_dc_domain_rec.category_set_id
and category_id = p_dc_domain_rec.category_id);
select inventory_item_id
into l_inventory_item_id
from csd_dc_domains_v
where dc_domain_id = p_dc_domain_rec.dc_domain_id
and domain_type_code = p_dc_domain_rec.domain_type_code;
select inventory_item_id
into l_inventory_item_id
from mtl_system_items_kfv
where organization_id = cs_std.get_item_valdn_orgzn_id
and inventory_item_id = p_dc_domain_rec.inventory_item_id;
select category_set_id
into l_category_set_id
from csd_dc_domains_v
where dc_domain_id = p_dc_domain_rec.dc_domain_id
and domain_type_code = p_dc_domain_rec.domain_type_code;
select category_set_id
into l_category_set_id
from mtl_category_sets_vl
where category_set_id = p_dc_domain_rec.category_set_id;
select validate_flag
into l_valid_cat_flag
from mtl_category_sets_vl
where category_set_id = l_category_set_id;
select category_id
into l_category_id
from csd_dc_domains_v
where dc_domain_id = p_dc_domain_rec.dc_domain_id
and domain_type_code = p_dc_domain_rec.domain_type_code;
select 'X'
into l_dummy
from mtl_category_set_valid_cats_v
where category_set_id = l_category_set_id
and category_id = l_category_id;
select 'X'
into l_dummy
from mtl_category_sets_vl mcs, mtl_categories_v mc
where mcs.category_set_id = l_category_set_id
and mcs.structure_id = mc.structure_id
and mc.category_id = l_category_id;
'Calling Update_Row table handler');
CSD_DC_DOMAINS_PKG.Update_Row
(p_dc_domain_id => p_dc_domain_rec.dc_domain_id,
p_object_version_number => l_obj_ver_num + 1,
p_diagnostic_code_id => p_dc_domain_rec.diagnostic_code_id,
p_inventory_item_id => l_inventory_item_id,
p_category_id => l_category_id,
p_category_set_id => l_category_set_id,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.LOGIN_ID,
p_domain_type_code => p_dc_domain_rec.domain_type_code,
p_attribute_category => p_dc_domain_rec.attribute_category,
p_attribute1 => p_dc_domain_rec.attribute1,
p_attribute2 => p_dc_domain_rec.attribute2,
p_attribute3 => p_dc_domain_rec.attribute3,
p_attribute4 => p_dc_domain_rec.attribute4,
p_attribute5 => p_dc_domain_rec.attribute5,
p_attribute6 => p_dc_domain_rec.attribute6,
p_attribute7 => p_dc_domain_rec.attribute7,
p_attribute8 => p_dc_domain_rec.attribute8,
p_attribute9 => p_dc_domain_rec.attribute9,
p_attribute10 => p_dc_domain_rec.attribute10,
p_attribute11 => p_dc_domain_rec.attribute11,
p_attribute12 => p_dc_domain_rec.attribute12,
p_attribute13 => p_dc_domain_rec.attribute13,
p_attribute14 => p_dc_domain_rec.attribute14,
p_attribute15 => p_dc_domain_rec.attribute15
);
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
'Returned from Update_Row table handler');
'Leaving Update_DC_Domain');
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
ROLLBACK TO Update_DC_Domain;
END Update_DC_Domain;
/* procedure name: Delete_DC_Domain */
/* description : procedure used to delete */
/* dc domain */
/* */
/*--------------------------------------------------*/
PROCEDURE Delete_DC_Domain
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2,
p_init_msg_list IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_dc_domain_id IN NUMBER
) IS
-- CONSTANTS --
lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
lc_api_name CONSTANT VARCHAR2(30) := 'Delete_DC_Domain';
SAVEPOINT Delete_DC_Domain;
'Entered Delete_DC_Domain');
'Calling Delete_Row table handler');
CSD_DC_DOMAINS_PKG.Delete_Row
( p_dc_domain_id => p_dc_domain_id );
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
'Returned from Delete_Row table handler');
'Leaving Delete_DC_Domain');
ROLLBACK TO Delete_DC_Domain;
ROLLBACK TO Delete_DC_Domain;
ROLLBACK TO Delete_DC_Domain;
END Delete_DC_Domain;
p_last_updated_by => null,
p_last_update_date => null,
p_last_update_login => null,
p_domain_type_code => p_dc_domain_rec.domain_type_code,
p_attribute_category => p_dc_domain_rec.attribute_category,
p_attribute1 => p_dc_domain_rec.attribute1,
p_attribute2 => p_dc_domain_rec.attribute2,
p_attribute3 => p_dc_domain_rec.attribute3,
p_attribute4 => p_dc_domain_rec.attribute4,
p_attribute5 => p_dc_domain_rec.attribute5,
p_attribute6 => p_dc_domain_rec.attribute6,
p_attribute7 => p_dc_domain_rec.attribute7,
p_attribute8 => p_dc_domain_rec.attribute8,
p_attribute9 => p_dc_domain_rec.attribute9,
p_attribute10 => p_dc_domain_rec.attribute10,
p_attribute11 => p_dc_domain_rec.attribute11,
p_attribute12 => p_dc_domain_rec.attribute12,
p_attribute13 => p_dc_domain_rec.attribute13,
p_attribute14 => p_dc_domain_rec.attribute14,
p_attribute15 => p_dc_domain_rec.attribute15
*/
--
);
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DC_DOMAINS_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));