The following lines contain the word 'select', 'insert', 'update' or 'delete':
ASO_QUOTE_RELATED_OBJECTS_PKG.Insert_Row(
px_RELATED_OBJECT_ID => x_RELATED_OBJECT_ID,
p_CREATION_DATE => SYSDATE,
p_CREATED_BY => G_USER_ID,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATED_BY => G_USER_ID,
p_LAST_UPDATE_LOGIN => G_LOGIN_ID,
p_REQUEST_ID => p_RELATED_OBJ_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => p_RELATED_OBJ_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => p_RELATED_OBJ_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => p_RELATED_OBJ_rec.PROGRAM_UPDATE_DATE,
p_QUOTE_OBJECT_TYPE_CODE => p_RELATED_OBJ_rec.QUOTE_OBJECT_TYPE_CODE,
p_QUOTE_OBJECT_ID => p_RELATED_OBJ_rec.QUOTE_OBJECT_ID,
p_OBJECT_TYPE_CODE => p_RELATED_OBJ_rec.OBJECT_TYPE_CODE,
p_OBJECT_ID => p_RELATED_OBJ_rec.OBJECT_ID,
p_RELATIONSHIP_TYPE_CODE => p_RELATED_OBJ_rec.RELATIONSHIP_TYPE_CODE,
p_RECIPROCAL_FLAG => p_RELATED_OBJ_rec.RECIPROCAL_FLAG,
p_OBJECT_VERSION_NUMBER => p_RELATED_OBJ_rec.OBJECT_VERSION_NUMBER);
PROCEDURE Update_related_obj(
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_RELATED_OBJ_Rec IN ASO_QUOTE_PUB.RELATED_OBJ_Rec_Type,
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
)
IS
Cursor C_Get_related_obj(RELATED_OBJECT_ID Number) IS
Select --rowid,
RELATED_OBJECT_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
QUOTE_OBJECT_TYPE_CODE,
QUOTE_OBJECT_ID,
OBJECT_TYPE_CODE,
OBJECT_ID,
RELATIONSHIP_TYPE_CODE,
RECIPROCAL_FLAG
-- QUOTE_OBJECT_CODE
From ASO_QUOTE_RELATED_OBJECTS
where related_object_id = P_RELATED_OBJ_Rec.related_object_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_related_obj';
SAVEPOINT UPDATE_RELATED_OBJ_PVT;
l_ref_RELATED_OBJ_rec.LAST_UPDATE_DATE,
l_ref_RELATED_OBJ_rec.LAST_UPDATED_BY,
l_ref_RELATED_OBJ_rec.LAST_UPDATE_LOGIN,
l_ref_RELATED_OBJ_rec.REQUEST_ID,
l_ref_RELATED_OBJ_rec.PROGRAM_APPLICATION_ID,
l_ref_RELATED_OBJ_rec.PROGRAM_ID,
l_ref_RELATED_OBJ_rec.PROGRAM_UPDATE_DATE,
l_ref_RELATED_OBJ_rec.QUOTE_OBJECT_TYPE_CODE,
l_ref_RELATED_OBJ_rec.QUOTE_OBJECT_ID,
l_ref_RELATED_OBJ_rec.OBJECT_TYPE_CODE,
l_ref_RELATED_OBJ_rec.OBJECT_ID,
l_ref_RELATED_OBJ_rec.RELATIONSHIP_TYPE_CODE,
l_ref_RELATED_OBJ_rec.RECIPROCAL_FLAG;
FND_MESSAGE.Set_Name('aso', 'API_MISSING_UPDATE_TARGET');
If (l_tar_RELATED_OBJ_rec.last_update_date is NULL or
l_tar_RELATED_OBJ_rec.last_update_date = FND_API.G_MISS_Date ) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('aso', 'API_MISSING_ID');
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
If (l_tar_RELATED_OBJ_rec.last_update_date <> l_ref_RELATED_OBJ_rec.last_update_date) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('aso', 'API_RECORD_CHANGED');
aso_debug_pub.add('update_related_obj: l_x_status: '|| l_x_status);
ASO_QUOTE_RELATED_OBJECTS_PKG.Update_Row(
p_RELATED_OBJECT_ID => p_RELATED_OBJ_rec.RELATED_OBJECT_ID,
p_CREATION_DATE => SYSDATE,
p_CREATED_BY => G_USER_ID,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATED_BY => G_USER_ID,
p_LAST_UPDATE_LOGIN => G_LOGIN_ID,
p_REQUEST_ID => p_RELATED_OBJ_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => p_RELATED_OBJ_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => p_RELATED_OBJ_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => p_RELATED_OBJ_rec.PROGRAM_UPDATE_DATE,
p_QUOTE_OBJECT_TYPE_CODE => p_RELATED_OBJ_rec.QUOTE_OBJECT_TYPE_CODE,
p_QUOTE_OBJECT_ID => p_RELATED_OBJ_rec.QUOTE_OBJECT_ID,
p_OBJECT_TYPE_CODE => p_RELATED_OBJ_rec.OBJECT_TYPE_CODE,
p_OBJECT_ID => p_RELATED_OBJ_rec.OBJECT_ID,
p_RELATIONSHIP_TYPE_CODE => p_RELATED_OBJ_rec.RELATIONSHIP_TYPE_CODE,
p_RECIPROCAL_FLAG => p_RELATED_OBJ_rec.RECIPROCAL_FLAG,
p_OBJECT_VERSION_NUMBER => p_RELATED_OBJ_rec.OBJECT_VERSION_NUMBER);
End Update_related_obj;
PROCEDURE Delete_related_obj(
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_RELATED_OBJ_Rec IN ASO_QUOTE_PUB.RELATED_OBJ_Rec_Type,
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_related_obj';
select quote_object_type_code, quote_object_id
from aso_quote_related_objects
where related_object_id = p_related_obj_rec.related_object_id;
SAVEPOINT DELETE_RELATED_OBJ_PVT;
aso_debug_pub.add('delete_related_obj: l_x_status: '|| l_x_status);
ASO_QUOTE_RELATED_OBJECTS_PKG.Delete_Row(
p_RELATED_OBJECT_ID => p_RELATED_OBJ_rec.RELATED_OBJECT_ID);
End Delete_related_obj;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_RELATED_OBJECT_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_REQUEST_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_PROGRAM_APPLICATION_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_PROGRAM_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Validate_PROGRAM_UPDATE_DATE (
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Validation_mode IN VARCHAR2,
P_PROGRAM_UPDATE_DATE IN DATE,
-- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ ASO_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ 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;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_PROGRAM_UPDATE_DATE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
END Validate_PROGRAM_UPDATE_DATE;
select count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_QUOTE_OBJECT_TYPE'
and lookup_code = p_QUOTE_OBJECT_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_QUOTE_OBJECT_TYPE_CODE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
select count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_QUOTE_OBJECT_TYPE'
and lookup_code = p_QUOTE_OBJECT_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_QUOTE_OBJECT_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
select count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_RELATED_OBJECT_TYPE'
and lookup_code = p_OBJECT_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_OBJECT_TYPE_CODE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
select count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_RELATED_OBJECT_TYPE'
and lookup_code = p_OBJECT_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_OBJECT_ID <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
SELECT count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_OBJECT_RELATIONSHIP_TYPE'
and lookup_code = p_RELATIONSHIP_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_RELATIONSHIP_TYPE_CODE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
SELECT count(*) into l_count
from aso_lookups
where lookup_type = 'ASO_OBJECT_RELATIONSHIP_TYPE'
and lookup_code = p_RELATIONSHIP_TYPE_CODE;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_RECIPROCAL_FLAG <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
THEN
-- Hint: Validate data
-- IF p_QUOTE_OBJECT_CODE <> G_MISS_CHAR
-- verify if data is valid
-- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
select count(*) into l_count
from aso_quote_headers_all
where quote_header_id = P_RELATED_OBJ_Rec.quote_object_id;
select count(*) into l_count
from aso_quote_lines_all
where quote_line_id = P_RELATED_OBJ_Rec.quote_object_id;
select count(*) into l_count
from aso_shipments
where shipment_id = P_RELATED_OBJ_Rec.quote_object_id;
Validate_PROGRAM_UPDATE_DATE(
p_init_msg_list => FND_API.G_FALSE,
p_validation_mode => p_validation_mode,
p_PROGRAM_UPDATE_DATE => P_RELATED_OBJ_Rec.PROGRAM_UPDATE_DATE,
-- Hint: You may add x_item_property_rec as one of your OUT NOCOPY /* file.sql.39 change */ parameter if you'd like to pass back item property.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);