The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'X'
into l_dummy
from csd_diagnostic_codes_b
where diagnostic_code = UPPER(p_diagnostic_code_rec.diagnostic_code);
'Calling Insert_Row table handler');
CSD_DIAGNOSTIC_CODES_PKG.Insert_Row
(px_rowid => l_rowid,
px_diagnostic_code_id => x_diagnostic_code_id,
p_object_version_number => l_obj_ver_num,
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_diagnostic_code => p_diagnostic_code_rec.diagnostic_code,
p_name => p_diagnostic_code_rec.name,
p_description => p_diagnostic_code_rec.description,
p_active_from => p_diagnostic_code_rec.active_from,
p_active_to => p_diagnostic_code_rec.active_to,
p_attribute_category => p_diagnostic_code_rec.attribute_category,
p_attribute1 => p_diagnostic_code_rec.attribute1,
p_attribute2 => p_diagnostic_code_rec.attribute2,
p_attribute3 => p_diagnostic_code_rec.attribute3,
p_attribute4 => p_diagnostic_code_rec.attribute4,
p_attribute5 => p_diagnostic_code_rec.attribute5,
p_attribute6 => p_diagnostic_code_rec.attribute6,
p_attribute7 => p_diagnostic_code_rec.attribute7,
p_attribute8 => p_diagnostic_code_rec.attribute8,
p_attribute9 => p_diagnostic_code_rec.attribute9,
p_attribute10 => p_diagnostic_code_rec.attribute10,
p_attribute11 => p_diagnostic_code_rec.attribute11,
p_attribute12 => p_diagnostic_code_rec.attribute12,
p_attribute13 => p_diagnostic_code_rec.attribute13,
p_attribute14 => p_diagnostic_code_rec.attribute14,
p_attribute15 => p_diagnostic_code_rec.attribute15
);
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DIAGNOSTIC_CODES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
'Returned from Insert_Row table handler');
/* procedure name: Update_Diagnostic_Code */
/* description : procedure used to update */
/* diagnostic code */
/* */
/*--------------------------------------------------*/
PROCEDURE Update_Diagnostic_Code
(
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_diagnostic_code_rec IN DIAGNOSTIC_CODE_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_diagnostic_code';
lc_api_name CONSTANT VARCHAR2(30) := 'Update_Diagnostic_Code';
SAVEPOINT Update_Diagnostic_Code;
'Entered Update_Diagnostic_Code');
select 'X'
into l_dummy
from csd_diagnostic_codes_b
where diagnostic_code_id = p_diagnostic_code_rec.diagnostic_code_id;
select object_version_number
into l_obj_ver_num
from csd_diagnostic_codes_b
where diagnostic_code_id = p_diagnostic_code_rec.diagnostic_code_id;
select 'X'
into l_dummy
from csd_diagnostic_codes_b
where diagnostic_code = UPPER(p_diagnostic_code_rec.diagnostic_code)
and diagnostic_code_id <> p_diagnostic_code_rec.diagnostic_code_id;
'Calling Update_Row table handler');
CSD_DIAGNOSTIC_CODES_PKG.Update_Row
(p_diagnostic_code_id => p_diagnostic_code_rec.diagnostic_code_id,
p_object_version_number => l_obj_ver_num + 1,
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_diagnostic_code => p_diagnostic_code_rec.diagnostic_code,
p_name => p_diagnostic_code_rec.name,
p_description => p_diagnostic_code_rec.description,
p_active_from => p_diagnostic_code_rec.active_from,
p_active_to => p_diagnostic_code_rec.active_to,
p_attribute_category => p_diagnostic_code_rec.attribute_category,
p_attribute1 => p_diagnostic_code_rec.attribute1,
p_attribute2 => p_diagnostic_code_rec.attribute2,
p_attribute3 => p_diagnostic_code_rec.attribute3,
p_attribute4 => p_diagnostic_code_rec.attribute4,
p_attribute5 => p_diagnostic_code_rec.attribute5,
p_attribute6 => p_diagnostic_code_rec.attribute6,
p_attribute7 => p_diagnostic_code_rec.attribute7,
p_attribute8 => p_diagnostic_code_rec.attribute8,
p_attribute9 => p_diagnostic_code_rec.attribute9,
p_attribute10 => p_diagnostic_code_rec.attribute10,
p_attribute11 => p_diagnostic_code_rec.attribute11,
p_attribute12 => p_diagnostic_code_rec.attribute12,
p_attribute13 => p_diagnostic_code_rec.attribute13,
p_attribute14 => p_diagnostic_code_rec.attribute14,
p_attribute15 => p_diagnostic_code_rec.attribute15
);
FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_DIAGNOSTIC_CODES_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
'Returned from Update_Row table handler');
'Leaving Update_Diagnostic_Code');
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
ROLLBACK TO Update_Diagnostic_Code;
END Update_Diagnostic_Code;