The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag IN VARCHAR2,
p_credit_rating_rec IN HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE,
x_credit_rating_rec OUT NOCOPY HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE
) IS
BEGIN
IF p_credit_rating_rec.credit_rating_id IS NULL THEN
x_credit_rating_rec.credit_rating_id := FND_API.G_MISS_NUM;
IF p_credit_rating_rec.spcl_event_update_date IS NULL THEN
x_credit_rating_rec.spcl_event_update_date := FND_API.G_MISS_DATE;
ELSIF p_credit_rating_rec.spcl_event_update_date <> FND_API.G_MISS_DATE THEN
x_credit_rating_rec.spcl_event_update_date := p_credit_rating_rec.spcl_event_update_date;
IF p_create_update_flag = 'C' THEN
x_credit_rating_rec.created_by_module := DEFAULT_CREATED_BY_MODULE;
PROCEDURE v2_update_credit_rating (
p_credit_rating_rec IN HZ_PARTY_INFO_PUB.CREDIT_RATINGS_REC_TYPE,
p_last_update_date IN OUT NOCOPY DATE,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_credit_rating_rec HZ_PARTY_INFO_V2PUB.CREDIT_RATING_REC_TYPE;
l_last_update_date DATE;
IF p_last_update_date IS NULL OR
p_last_update_date = FND_API.G_MISS_DATE
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
FND_MESSAGE.SET_TOKEN('COLUMN', 'p_last_update_date');
SELECT ROWID, OBJECT_VERSION_NUMBER, LAST_UPDATE_DATE
INTO l_rowid, l_object_version_number, l_last_update_date
FROM HZ_CREDIT_RATINGS
WHERE CREDIT_RATING_ID = p_credit_rating_rec.credit_rating_id;
IF TO_CHAR( p_last_update_date, 'DD-MON-YYYY HH:MI:SS') <>
TO_CHAR( l_last_update_date, 'DD-MON-YYYY HH:MI:SS')
THEN
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
HZ_PARTY_INFO_V2PUB.update_credit_rating (
p_credit_rating_rec => l_credit_rating_rec,
p_object_version_number => l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END v2_update_credit_rating;