The following lines contain the word 'select', 'insert', 'update' or 'delete':
ASO_HEADER_RELATIONSHIPS_PKG.Insert_Row(
px_HEADER_RELATIONSHIP_ID => x_HEADER_RELATIONSHIP_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_HEADER_RLTSHIP_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => p_HEADER_RLTSHIP_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => p_HEADER_RLTSHIP_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => p_HEADER_RLTSHIP_rec.PROGRAM_UPDATE_DATE,
p_QUOTE_HEADER_ID => p_HEADER_RLTSHIP_rec.QUOTE_HEADER_ID,
p_RELATED_HEADER_ID => p_HEADER_RLTSHIP_rec.RELATED_HEADER_ID,
p_RELATIONSHIP_TYPE_CODE => p_HEADER_RLTSHIP_rec.RELATIONAL_TYPE_CODE,
p_RECIPROCAL_FLAG => p_HEADER_RLTSHIP_rec.RECIPROCAL_FLAG,
p_OBJECT_VERSION_NUMBER => p_HEADER_RLTSHIP_rec.OBJECT_VERSION_NUMBER
);
PROCEDURE Update_header_rltship(
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_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_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
G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
Select --rowid,
HEADER_RELATIONSHIP_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_HEADER_ID,
RELATED_HEADER_ID,
RELATIONSHIP_TYPE_CODE,
RECIPROCAL_FLAG
From ASO_HEADER_RELATIONSHIPS
where HEADER_RELATIONSHIP_ID = P_HEADER_RELATIONSHIP_ID;
l_api_name CONSTANT VARCHAR2(30) := 'Update_header_rltship';
SAVEPOINT UPDATE_HEADER_RLTSHIP_PVT;
l_ref_HEADER_RLTSHIP_rec.LAST_UPDATE_DATE,
l_ref_HEADER_RLTSHIP_rec.LAST_UPDATED_BY,
l_ref_HEADER_RLTSHIP_rec.LAST_UPDATE_LOGIN,
l_ref_HEADER_RLTSHIP_rec.REQUEST_ID,
l_ref_HEADER_RLTSHIP_rec.PROGRAM_APPLICATION_ID,
l_ref_HEADER_RLTSHIP_rec.PROGRAM_ID,
l_ref_HEADER_RLTSHIP_rec.PROGRAM_UPDATE_DATE,
l_ref_HEADER_RLTSHIP_rec.QUOTE_HEADER_ID,
l_ref_HEADER_RLTSHIP_rec.RELATED_HEADER_ID,
l_ref_HEADER_RLTSHIP_rec.RELATIONAL_TYPE_CODE,
l_ref_HEADER_RLTSHIP_rec.RECIPROCAL_FLAG;
FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
If (l_tar_HEADER_RLTSHIP_rec.last_update_date is NULL or
l_tar_HEADER_RLTSHIP_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_HEADER_RLTSHIP_rec.last_update_date <> l_ref_HEADER_RLTSHIP_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_HEADER_RELATIONSHIPS_PKG.Update_Row(
p_HEADER_RELATIONSHIP_ID => p_HEADER_RLTSHIP_rec.HEADER_RELATIONSHIP_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_HEADER_RLTSHIP_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => p_HEADER_RLTSHIP_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => p_HEADER_RLTSHIP_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => p_HEADER_RLTSHIP_rec.PROGRAM_UPDATE_DATE,
p_QUOTE_HEADER_ID => p_HEADER_RLTSHIP_rec.QUOTE_HEADER_ID,
p_RELATED_HEADER_ID => p_HEADER_RLTSHIP_rec.RELATED_HEADER_ID,
p_RELATIONSHIP_TYPE_CODE => p_HEADER_RLTSHIP_rec.RELATIONAL_TYPE_CODE,
p_RECIPROCAL_FLAG => p_HEADER_RLTSHIP_rec.RECIPROCAL_FLAG,
P_OBJECT_VERSION_NUMBER => p_HEADER_RLTSHIP_rec.OBJECT_VERSION_NUMBER
);
End Update_header_rltship;
PROCEDURE Delete_header_rltship(
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_HEADER_RLTSHIP_id IN NUMBER,
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_header_rltship';
SAVEPOINT DELETE_HEADER_RLTSHIP_PVT;
ASO_HEADER_RELATIONSHIPS_PKG.Delete_Row(
p_HEADER_RELATIONSHIP_ID => p_HEADER_RLTSHIP_ID);
End Delete_header_rltship;
PROCEDURE Delete_header_rltship(
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_HEADER_id IN NUMBER,
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 related_headers(p_header_id NUMBER) IS
SELECT header_relationship_id FROM
ASO_HEADER_RELATIONSHIPS
WHERE QUOTE_HEADER_ID = p_header_id
OR RELATED_HEADER_ID = p_header_id;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_header_rltship';
SAVEPOINT DELETE_HEADER_RLTSHIP_PVT;
Delete_header_rltship(
P_Api_Version_Number => 1.0,
p_validation_level => p_validation_level,
P_HEADER_RLTSHIP_id => i.header_relationship_id,
X_Return_Status => x_return_status,
X_Msg_Count => x_msg_count,
X_Msg_Data => x_msg_data
) ;
End Delete_header_rltship;
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,
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;
END Validate_PROGRAM_UPDATE_DATE;
IF((p_validation_mode = ASO_UTILITY_PVT.G_CREATE) OR (p_validation_mode = ASO_UTILITY_PVT.G_UPDATE and p_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR))
THEN
-- Hint: Validate data
-- IF p_RELATIONSHIP_TYPE_CODE is not NULL and 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_HEADER_RELATIONSHIP_TYPE'
and lookup_code = p_RELATIONSHIP_TYPE_CODE;