The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_UPDATE CONSTANT VARCHAR2(30) := 'UPDATE';
p_SELECT_TYPE IN VARCHAR2,
p_SELECT_BLOCK_ID IN NUMBER ,
p_DATA_TYPE IN VARCHAR2,
p_FORMAT_MASK IN VARCHAR2,
p_THRESHOLD_GRADE IN VARCHAR2,
p_THRESHOLD_RATING_CODE IN VARCHAR2,
p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2,
p_THRESHOLD_COLOR_CODE IN VARCHAR2,
p_CHECK_LEVEL IN VARCHAR2,
p_CREATED_BY IN NUMBER ,
p_CREATION_DATE IN DATE ,
p_LAST_UPDATED_BY IN NUMBER ,
p_LAST_UPDATE_DATE IN DATE ,
p_LAST_UPDATE_LOGIN IN NUMBER ,
p_OBJECT_VERSION_NUMBER IN NUMBER DEFAULT NULL,
p_APPLICATION_ID IN NUMBER ,
X_Check_Rec OUT NOCOPY Check_Rec_Type
)
IS
BEGIN
X_Check_Rec.CHECK_ID := p_CHECK_ID;
X_Check_Rec.SELECT_TYPE := p_SELECT_TYPE;
X_Check_Rec.SELECT_BLOCK_ID := p_SELECT_BLOCK_ID;
X_Check_Rec.LAST_UPDATED_BY := p_LAST_UPDATED_BY;
X_Check_Rec.LAST_UPDATE_DATE := p_LAST_UPDATE_DATE;
X_Check_Rec.LAST_UPDATE_LOGIN := p_LAST_UPDATE_LOGIN;
p_SELECT_TYPE IN VARCHAR2 DEFAULT NULL,
p_SELECT_BLOCK_ID IN NUMBER DEFAULT NULL,
p_DATA_TYPE IN VARCHAR2 DEFAULT NULL,
p_FORMAT_MASK IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_GRADE IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_RATING_CODE IN VARCHAR2 DEFAULT NULL,
p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_COLOR_CODE IN VARCHAR2 DEFAULT NULL,
p_CHECK_LEVEL IN VARCHAR2 DEFAULT NULL,
p_CREATED_BY IN NUMBER DEFAULT NULL,
p_CREATION_DATE IN DATE DEFAULT NULL,
p_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
p_LAST_UPDATE_DATE IN DATE DEFAULT NULL,
p_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL,
X_CHECK_ID OUT NOCOPY NUMBER,
X_Object_Version_Number OUT NOCOPY NUMBER,
p_APPLICATION_ID IN NUMBER DEFAULT NULL,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
l_Check_Rec Check_Rec_Type;
p_SELECT_TYPE => p_SELECT_TYPE,
p_SELECT_BLOCK_ID => p_SELECT_BLOCK_ID,
p_DATA_TYPE => p_DATA_TYPE,
p_FORMAT_MASK => p_FORMAT_MASK,
p_THRESHOLD_GRADE => p_THRESHOLD_GRADE,
p_THRESHOLD_RATING_CODE => p_THRESHOLD_RATING_CODE,
p_CHECK_UPPER_LOWER_FLAG => p_CHECK_UPPER_LOWER_FLAG,
p_THRESHOLD_COLOR_CODE => p_THRESHOLD_COLOR_CODE,
p_CHECK_LEVEL => p_CHECK_LEVEL,
p_CREATED_BY => p_CREATED_BY,
p_CREATION_DATE => p_CREATION_DATE,
p_LAST_UPDATED_BY => p_LAST_UPDATED_BY,
p_LAST_UPDATE_DATE => p_LAST_UPDATE_DATE,
p_LAST_UPDATE_LOGIN => p_LAST_UPDATE_LOGIN,
p_APPLICATION_ID => p_APPLICATION_ID,
X_Check_Rec => l_Check_rec
);
CSC_PROF_CHECKS_PKG.Insert_Row(
px_CHECK_ID => x_CHECK_ID,
p_CHECK_NAME => p_Check_rec.CHECK_NAME,
p_CHECK_NAME_CODE => p_Check_rec.CHECK_NAME_CODE,
p_DESCRIPTION => p_Check_rec.DESCRIPTION,
p_START_DATE_ACTIVE => p_Check_rec.START_DATE_ACTIVE,
p_END_DATE_ACTIVE => p_Check_rec.END_DATE_ACTIVE,
p_SEEDED_FLAG => p_Check_rec.SEEDED_FLAG,
p_SELECT_TYPE => p_Check_rec.SELECT_TYPE,
p_SELECT_BLOCK_ID => p_Check_rec.SELECT_BLOCK_ID,
p_DATA_TYPE => p_Check_rec.DATA_TYPE,
p_FORMAT_MASK => p_Check_rec.FORMAT_MASK,
p_THRESHOLD_GRADE => p_Check_rec.THRESHOLD_GRADE,
p_THRESHOLD_RATING_CODE => p_Check_rec.THRESHOLD_RATING_CODE,
p_CHECK_UPPER_LOWER_FLAG => p_Check_rec.CHECK_UPPER_LOWER_FLAG,
p_THRESHOLD_COLOR_CODE => p_Check_rec.THRESHOLD_COLOR_CODE,
p_CHECK_LEVEL => p_Check_rec.CHECK_LEVEL,
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 => p_Check_rec.LAST_UPDATE_LOGIN,
x_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
p_APPLICATION_ID => p_Check_rec.APPLICATION_ID);
PROCEDURE Update_Profile_Check(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
P_Commit IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
p_validation_level IN NUMBER := CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
p_CHECK_ID IN NUMBER DEFAULT NULL,
p_CHECK_NAME IN VARCHAR2 DEFAULT NULL,
p_CHECK_NAME_CODE IN VARCHAR2 DEFAULT NULL,
p_DESCRIPTION IN VARCHAR2 DEFAULT NULL,
p_START_DATE_ACTIVE IN DATE DEFAULT NULL,
p_END_DATE_ACTIVE IN DATE DEFAULT NULL,
p_SEEDED_FLAG IN VARCHAR2 DEFAULT NULL,
p_SELECT_TYPE IN VARCHAR2 DEFAULT NULL,
p_SELECT_BLOCK_ID IN NUMBER DEFAULT NULL,
p_DATA_TYPE IN VARCHAR2 DEFAULT NULL,
p_FORMAT_MASK IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_GRADE IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_RATING_CODE IN VARCHAR2 DEFAULT NULL,
p_CHECK_UPPER_LOWER_FLAG IN VARCHAR2 DEFAULT NULL,
p_THRESHOLD_COLOR_CODE IN VARCHAR2 DEFAULT NULL,
p_CHECK_LEVEL IN VARCHAR2 DEFAULT NULL,
p_CREATED_BY IN NUMBER DEFAULT NULL,
p_CREATION_DATE IN DATE DEFAULT NULL,
p_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
p_LAST_UPDATE_DATE IN DATE DEFAULT NULL,
p_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL,
px_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER,
p_APPLICATION_ID IN NUMBER DEFAULT NULL,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
l_Check_Rec Check_Rec_Type;
p_SELECT_TYPE => p_SELECT_TYPE,
p_SELECT_BLOCK_ID => p_SELECT_BLOCK_ID,
p_DATA_TYPE => p_DATA_TYPE,
p_FORMAT_MASK => p_FORMAT_MASK,
p_THRESHOLD_GRADE => p_THRESHOLD_GRADE,
p_THRESHOLD_RATING_CODE => p_THRESHOLD_RATING_CODE,
p_CHECK_UPPER_LOWER_FLAG => p_CHECK_UPPER_LOWER_FLAG,
p_THRESHOLD_COLOR_CODE => p_THRESHOLD_COLOR_CODE,
p_CHECK_LEVEL => p_CHECK_LEVEL,
p_CREATED_BY => p_CREATED_BY,
p_CREATION_DATE => p_CREATION_DATE,
p_LAST_UPDATED_BY => p_LAST_UPDATED_BY,
p_LAST_UPDATE_DATE => p_LAST_UPDATE_DATE,
p_LAST_UPDATE_LOGIN => p_LAST_UPDATE_LOGIN,
p_APPLICATION_ID => p_APPLICATION_ID,
X_Check_Rec => l_Check_rec
);
Update_Profile_check(
P_Api_Version_Number => P_Api_Version_Number,
P_Init_Msg_List => P_Init_Msg_List,
P_Commit => P_Commit,
p_validation_level => p_validation_level,
P_CHECK_REC => l_CHECK_REC,
PX_OBJECT_VERSION_NUMBER => px_OBJECT_VERSION_NUMBER,
X_Return_Status => X_Return_Status,
X_Msg_Count => X_Msg_Count,
X_Msg_Data => X_Msg_Data
);
PROCEDURE Update_Profile_check(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
P_Commit IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
p_validation_level IN NUMBER := CSC_CORE_UTILS_PVT.G_VALID_LEVEL_FULL,
P_Check_Rec IN Check_Rec_Type,
PX_Object_Version_Number IN OUT NOCOPY NUMBER,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
Cursor C_Get_check(c_CHECK_ID Number,c_object_version_number NUMBER) IS
Select rowid,
CHECK_ID,
CHECK_NAME,
CHECK_NAME_CODE,
DESCRIPTION,
START_DATE_ACTIVE,
END_DATE_ACTIVE,
SEEDED_FLAG,
SELECT_TYPE,
SELECT_BLOCK_ID,
DATA_TYPE,
FORMAT_MASK,
THRESHOLD_GRADE,
THRESHOLD_RATING_CODE,
CHECK_UPPER_LOWER_FLAG,
THRESHOLD_COLOR_CODE,
CHECK_LEVEL,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER,
APPLICATION_ID
From CSC_PROF_CHECKS_VL
where check_id = c_check_id
and object_version_number = c_object_version_number
For Update NOWAIT;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Profile_check';
SAVEPOINT UPDATE_PROFILE_CHECK_PVT;
l_ref_Check_rec.SELECT_TYPE,
l_ref_Check_rec.SELECT_BLOCK_ID,
l_ref_Check_rec.DATA_TYPE,
l_ref_Check_rec.FORMAT_MASK,
l_ref_Check_rec.THRESHOLD_GRADE,
l_ref_Check_rec.THRESHOLD_RATING_CODE,
l_ref_Check_rec.CHECK_UPPER_LOWER_FLAG,
l_ref_Check_rec.THRESHOLD_COLOR_CODE,
l_ref_Check_rec.CHECK_LEVEL,
l_ref_Check_rec.CREATED_BY,
l_ref_Check_rec.CREATION_DATE,
l_ref_Check_rec.LAST_UPDATED_BY,
l_ref_Check_rec.LAST_UPDATE_DATE,
l_ref_Check_rec.LAST_UPDATE_LOGIN,
l_ref_Check_rec.OBJECT_VERSION_NUMBER,
l_ref_Check_rec.APPLICATION_ID;
p_validation_mode => CSC_CORE_UTILS_PVT.G_UPDATE,
P_Check_Rec => P_Check_Rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
CSC_PROF_CHECKS_PKG.Update_Row(
p_CHECK_ID => csc_core_utils_pvt.get_g_miss_num(p_Check_rec.CHECK_ID,l_ref_Check_rec.CHECK_ID),
p_CHECK_NAME => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.CHECK_NAME,l_ref_Check_rec.CHECK_NAME),
p_CHECK_NAME_CODE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.CHECK_NAME_CODE,l_ref_Check_rec.CHECK_NAME_CODE),
p_DESCRIPTION => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.DESCRIPTION,l_ref_Check_rec.DESCRIPTION),
p_START_DATE_ACTIVE => csc_core_utils_pvt.get_g_miss_date(p_Check_rec.START_DATE_ACTIVE,l_ref_Check_rec.START_DATE_ACTIVE),
p_END_DATE_ACTIVE => csc_core_utils_pvt.get_g_miss_date(p_Check_rec.END_DATE_ACTIVE,l_ref_Check_rec.END_DATE_ACTIVE),
p_SEEDED_FLAG => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.SEEDED_FLAG,l_ref_Check_rec.SEEDED_FLAG),
p_SELECT_TYPE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.SELECT_TYPE,l_ref_Check_rec.SELECT_TYPE),
p_SELECT_BLOCK_ID => csc_core_utils_pvt.get_g_miss_num(p_Check_rec.SELECT_BLOCK_ID,l_ref_Check_rec.SELECT_BLOCK_ID),
p_DATA_TYPE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.DATA_TYPE,l_ref_Check_rec.DATA_TYPE),
p_FORMAT_MASK => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.FORMAT_MASK,l_ref_Check_rec.FORMAT_MASK),
p_THRESHOLD_GRADE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.THRESHOLD_GRADE,l_ref_Check_rec.THRESHOLD_GRADE),
p_THRESHOLD_RATING_CODE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.THRESHOLD_RATING_CODE,l_ref_Check_rec.THRESHOLD_RATING_CODE),
p_CHECK_UPPER_LOWER_FLAG => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.CHECK_UPPER_LOWER_FLAG,l_ref_Check_rec.CHECK_UPPER_LOWER_FLAG),
p_THRESHOLD_COLOR_CODE => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.THRESHOLD_COLOR_CODE,l_ref_Check_rec.THRESHOLD_COLOR_CODE),
p_CHECK_LEVEL => csc_core_utils_pvt.get_g_miss_char(p_Check_rec.CHECK_LEVEL,l_ref_Check_rec.CHECK_LEVEL),
p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATE_LOGIN => p_Check_rec.LAST_UPDATE_LOGIN,
px_OBJECT_VERSION_NUMBER => px_OBJECT_VERSION_NUMBER,
p_APPLICATION_ID => csc_core_utils_pvt.get_g_miss_num(p_Check_rec.APPLICATION_ID,l_ref_Check_rec.APPLICATION_ID));
ROLLBACK TO Update_Profile_check_PVT;
ROLLBACK TO Update_Profile_check_PVT;
ROLLBACK TO Update_Profile_check_PVT;
End Update_Profile_check;
PROCEDURE Delete_profile_check(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_Check_Id IN NUMBER,
p_OBJECT_VERSION_NUMBER IN NUMBER,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_profile_check';
SAVEPOINT DELETE_Profile_Checks_PVT;
CSC_PROF_CHECKS_PKG.Delete_Row(
p_CHECK_ID => p_CHECK_ID,
p_OBJECT_VERSION_NUMBER => p_OBJECT_VERSION_NUMBER );
ROLLBACK TO DELETE_Profile_Checks_PVT;
ROLLBACK TO DELETE_Profile_Checks_PVT;
ROLLBACK TO DELETE_Profile_Checks_PVT;
End Delete_profile_check;
Select check_id
from csc_prof_checks_tl
where check_name = p_check_name
and language = userenv('LANG');
ELSIF(p_validation_mode = G_UPDATE)
THEN
-- if the check name is passed in and as NULL then
-- its a mandatory argument error.
if ( p_check_name IS NULL ) then
x_return_status := FND_API.G_RET_STS_ERROR;
Select check_id
from csc_prof_checks_b
where check_name_code = p_check_name_code;
ELSIF(p_validation_mode = G_UPDATE)
THEN
-- if the check name code is passed in and as NULL then
-- its a mandatory argument error.
if ( p_check_name_code IS NULL ) then
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Validate_SELECT_TYPE (
p_Api_Name IN VARCHAR2,
P_Init_Msg_List IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
P_Validation_mode IN VARCHAR2,
P_SELECT_TYPE IN VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
BEGIN
-- Initialize message list if p_init_msg_list is set to TRUE.
IF FND_API.to_Boolean( p_init_msg_list )
THEN
FND_MSG_PUB.initialize;
IF NOT p_select_type in ('B','T') THEN
x_return_status := FND_API.G_RET_STS_ERROR;
p_argument => 'P_SELECT_TYPE',
p_argument_value => p_select_type);
END Validate_SELECT_TYPE;
PROCEDURE Validate_SELECT_BLOCK_ID (
P_Api_Name IN VARCHAR2,
P_Init_Msg_List IN VARCHAR2 := CSC_CORE_UTILS_PVT.G_FALSE,
P_Validation_mode IN VARCHAR2,
P_SELECT_BLOCK_ID IN NUMBER,
P_SELECT_TYPE IN VARCHAR2,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
Cursor C2 is
Select NULL
from csc_prof_blocks_b
where block_id = p_select_block_id;
IF p_SELECT_TYPE = 'B' THEN
-- validate NOT NULL column
IF(p_SELECT_BLOCK_ID is NULL)
THEN
-- Mandatory argument error..
x_return_status := FND_API.G_RET_STS_ERROR;
p_argument => 'p_select_block_id',
p_argument_value => p_select_block_id);
IF (p_SELECT_BLOCK_ID IS NOT NULL) AND (p_SELECT_BLOCK_ID <> CSC_CORE_UTILS_PVT.G_MISS_NUM)
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
p_argument_value => p_select_block_id,
p_argument => 'p_select_block_id');
IF p_SELECT_TYPE = 'B' THEN
IF (p_SELECT_BLOCK_ID <> CSC_CORE_UTILS_PVT.G_MISS_NUM)
THEN
Open C2;
p_argument_value => p_select_block_id,
p_argument => 'p_select_block_id');
p_argument => 'p_select_block_id',
p_argument_value => p_select_block_id);
ELSIF(p_validation_mode = G_UPDATE)
THEN
-- if the select block id is passed in and as NULL then
-- its a mandatory argument error.
-- added the outer if condition to fix the bug 1563264
IF(p_SELECT_TYPE = 'B') THEN
if ( p_select_block_id IS NULL ) then
x_return_status := FND_API.G_RET_STS_ERROR;
p_argument => 'p_select_block_id',
p_argument_value => p_select_block_id);
ELSIF p_SELECT_BLOCK_ID <> CSC_CORE_UTILS_PVT.G_MISS_NUM
THEN
Open C2;
p_argument_value => p_select_block_id,
p_argument => 'p_select_block_id');
END Validate_SELECT_BLOCK_ID;
ELSIF(p_validation_mode = CSC_CORE_UTILS_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_THRESHOLD_GRADE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
Validate_SELECT_TYPE(
p_Api_Name => p_Api_Name,
p_init_msg_list => CSC_CORE_UTILS_PVT.G_FALSE,
p_validation_mode => p_validation_mode,
p_SELECT_TYPE => P_Check_Rec.SELECT_TYPE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Validate_SELECT_BLOCK_ID(
p_Api_Name => p_Api_Name,
p_init_msg_list => CSC_CORE_UTILS_PVT.G_FALSE,
p_validation_mode => p_validation_mode,
p_SELECT_BLOCK_ID => P_Check_Rec.SELECT_BLOCK_ID,
p_SELECT_TYPE => P_Check_Rec.SELECT_TYPE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);