The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT effective_end_date
INTO l_eff_end_date
FROM eam_failure_codes
WHERE failure_code = p_failurecode_rec.code;
SELECT effective_end_date
INTO l_eff_end_date
FROM eam_cause_codes
WHERE cause_code = p_failurecode_rec.code;
SELECT effective_end_date
INTO l_eff_end_date
FROM eam_resolution_codes
WHERE resolution_code = p_failurecode_rec.code;
SELECT count(1)
INTO l_code_in_use
FROM eam_failure_combinations
WHERE failure_code = p_failurecode_rec.code
AND rownum < 2;
SELECT count(1)
INTO l_code_in_use
FROM eam_failure_combinations
WHERE cause_code = p_failurecode_rec.code
AND rownum < 2;
SELECT count(1)
INTO l_code_in_use
FROM eam_failure_combinations
WHERE resolution_code = p_failurecode_rec.code
AND rownum < 2;
SELECT min(set_id)
INTO l_set_id
FROM eam_failure_sets
WHERE set_name = p_combination_rec.set_name;
SELECT min(effective_end_date)
INTO l_set_end_date
FROM eam_failure_sets
WHERE set_id = l_set_id;
SELECT effective_end_date
INTO l_failure_end_date
FROM eam_failure_codes
WHERE failure_code = p_combination_rec.failure_code;
SELECT effective_end_date
INTO l_cause_end_date
FROM eam_cause_codes
WHERE cause_code = p_combination_rec.cause_code;
SELECT effective_end_date
INTO l_resolution_end_date
FROM eam_resolution_codes
WHERE resolution_code = p_combination_rec.resolution_code;
SELECT count(1)
INTO l_combination_exists
FROM eam_failure_combinations
WHERE combination_id = p_combination_rec.combination_id;
SELECT combination_id
INTO l_combination_id
FROM eam_failure_combinations
WHERE set_id = l_set_id
AND failure_code = p_combination_rec.failure_code
AND cause_code = p_combination_rec.cause_code
AND resolution_code = p_combination_rec.resolution_code;
SELECT min(combination_id)
INTO l_combination_id
FROM eam_failure_combinations
WHERE set_id = l_set_id
AND failure_code = p_combination_rec.failure_code
AND cause_code = p_combination_rec.cause_code
AND resolution_code = p_combination_rec.resolution_code;
SELECT count(1)
INTO l_combination_used
FROM eam_asset_failure_codes
WHERE combination_id = l_combination_id
AND rownum < 2;
SELECT description, effective_end_date
FROM eam_failure_codes
WHERE failure_code = l_code
FOR UPDATE NOWAIT;
SELECT description, effective_end_date
FROM eam_cause_codes
WHERE cause_code = l_code
FOR UPDATE NOWAIT;
SELECT description, effective_end_date
FROM eam_resolution_codes
WHERE resolution_code = l_code
FOR UPDATE NOWAIT;
-- Insert into eam failure codes
INSERT INTO eam_failure_codes
(failure_code ,
description ,
effective_end_date,
created_by ,
creation_date ,
last_update_date ,
last_updated_by ,
last_update_login)
VALUES (p_failurecode_rec.code ,
p_failurecode_rec.description ,
p_failurecode_rec.effective_end_date,
fnd_global.user_id,
SYSDATE,
SYSDATE,
fnd_global.user_id,
NULL);
-- Insert into eam cause codes
INSERT INTO eam_cause_codes
(cause_code ,
description ,
effective_end_date,
created_by ,
creation_date ,
last_update_date ,
last_updated_by ,
last_update_login)
VALUES (p_failurecode_rec.code ,
p_failurecode_rec.description ,
p_failurecode_rec.effective_end_date,
fnd_global.user_id,
SYSDATE,
SYSDATE,
fnd_global.user_id,
NULL);
-- Insert into eam resolution codes
INSERT INTO eam_resolution_codes
(resolution_code ,
description ,
effective_end_date,
created_by ,
creation_date ,
last_update_date ,
last_updated_by ,
last_update_login)
VALUES (p_failurecode_rec.code ,
p_failurecode_rec.description ,
p_failurecode_rec.effective_end_date,
fnd_global.user_id,
SYSDATE,
SYSDATE,
fnd_global.user_id,
NULL);
UPDATE eam_failure_codes
SET description = decode(p_failurecode_rec.description,
NULL,description,
FND_API.G_MISS_CHAR, NULL,
p_failurecode_rec.description),
effective_end_date = decode(
p_failurecode_rec.effective_end_date,
NULL,effective_end_date,
FND_API.G_MISS_DATE,NULL,
p_failurecode_rec.effective_end_date)
WHERE failure_code = l_code;
UPDATE eam_cause_codes
SET description = decode(p_failurecode_rec.description,
NULL,description,
FND_API.G_MISS_CHAR, NULL,
p_failurecode_rec.description),
effective_end_date = decode(
p_failurecode_rec.effective_end_date,
NULL,effective_end_date,
FND_API.G_MISS_DATE,NULL,
p_failurecode_rec.effective_end_date)
WHERE cause_code = l_code;
UPDATE eam_resolution_codes
SET description = decode(p_failurecode_rec.description,
NULL,description,
FND_API.G_MISS_CHAR, NULL,
p_failurecode_rec.description),
effective_end_date = decode(
p_failurecode_rec.effective_end_date,
NULL,effective_end_date,
FND_API.G_MISS_DATE,NULL,
p_failurecode_rec.effective_end_date)
WHERE resolution_code = l_code;
DELETE FROM eam_failure_codes
WHERE failure_code = l_code;
DELETE FROM eam_cause_codes
WHERE cause_code = l_code;
DELETE FROM eam_resolution_codes
WHERE resolution_code = l_code;
l_last_update_date DATE;
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
SELECT effective_end_date
FROM eam_failure_combinations
WHERE combination_id = l_combination_id
FOR UPDATE NOWAIT;
IF (p_combination_rec.last_update_date is null) THEN
l_created_by := fnd_global.user_id;
l_last_update_date := SYSDATE;
l_last_updated_by := fnd_global.user_id;
l_last_update_login := NULL;
l_last_update_date := p_combination_rec.last_update_date;
l_last_updated_by := p_combination_rec.last_updated_by;
l_last_update_login := p_combination_rec.last_update_login;
-- Insert into eam failure combinations
INSERT INTO eam_failure_combinations
(combination_id ,
set_id ,
failure_code ,
cause_code ,
resolution_code ,
effective_end_date ,
created_by ,
creation_date ,
last_update_date ,
last_updated_by ,
last_update_login)
VALUES (eam_failure_combinations_s.nextval ,
l_set_id ,
p_combination_rec.failure_code ,
p_combination_rec.cause_code ,
p_combination_rec.resolution_code ,
p_combination_rec.effective_end_date,
l_created_by ,
l_creation_date ,
l_last_update_date ,
l_last_updated_by ,
l_last_update_login)
RETURNING combination_id INTO l_combination_id;
UPDATE eam_failure_combinations
SET effective_end_date =
decode(p_combination_rec.effective_end_date,
NULL, effective_end_date,
FND_API.G_MISS_DATE, NULL,
p_combination_rec.effective_end_date),
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE combination_id = l_combination_id;
DELETE FROM eam_failure_combinations
WHERE combination_id = l_combination_id;
INSERT INTO eam_failure_combinations
(combination_id ,
set_id ,
failure_code ,
cause_code ,
resolution_code ,
effective_end_date ,
created_by ,
creation_date ,
last_update_date ,
last_updated_by ,
last_update_login)
SELECT eam_failure_combinations_s.nextval,
p_destination_set_id ,
efc.failure_code ,
efc.cause_code ,
efc.resolution_code ,
efc.effective_end_date,
fnd_global.user_id,
SYSDATE,
SYSDATE,
fnd_global.user_id,
NULL
FROM eam_failure_combinations efc
WHERE set_id = p_source_set_id
AND effective_end_date IS NULL
AND NOT EXISTS
(SELECT 1
FROM eam_failure_combinations efc2
WHERE efc2.set_id = p_destination_set_id
AND efc2.failure_code = efc.failure_code
AND efc2.cause_code = efc.cause_code
AND efc2.resolution_code = efc2.resolution_code);
p_last_update_date IN DATE ,
p_last_updated_by IN NUMBER ,
p_last_update_login IN NUMBER ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2,
x_combination_id OUT NOCOPY NUMBER
) IS
l_combination_rec EAM_FailureCodes_PUB.eam_combination_rec_type;
l_combination_rec.last_update_date := p_last_update_date;
l_combination_rec.last_updated_by := p_last_updated_by;
l_combination_rec.last_update_login := p_last_update_login;
p_last_update_date IN DATE ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
) IS
CURSOR lock_fc IS
SELECT description, effective_end_date, last_update_date
FROM eam_failure_codes
WHERE failure_code = p_code
FOR UPDATE NOWAIT;
SELECT description, effective_end_date, last_update_date
FROM eam_cause_codes
WHERE cause_code = p_code
FOR UPDATE NOWAIT;
SELECT description, effective_end_date, last_update_date
FROM eam_resolution_codes
WHERE resolution_code = p_code
FOR UPDATE NOWAIT;
l_last_update_date DATE;
INTO l_description, l_end_date, l_last_update_date;
INTO l_description, l_end_date, l_last_update_date;
INTO l_description, l_end_date, l_last_update_date;
IF (p_last_update_date <> l_last_update_date) THEN
FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_CHANGED_ERROR');
FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_DELETED_ERROR');
p_last_update_date IN DATE ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
) IS
CURSOR lock_combination IS
SELECT effective_end_date,last_update_date
FROM eam_failure_combinations
WHERE combination_id = p_combination_id
FOR UPDATE NOWAIT;
l_last_update_date DATE;
INTO l_end_date, l_last_update_date;
IF (p_last_update_date <> l_last_update_date) THEN
FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_CHANGED_ERROR');
FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_DELETED_ERROR');