The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'T'
FROM FPA_LOOKUPS_V
WHERE LOOKUP_TYPE = VALIDATION_SET
AND LOOKUP_CODE = OBJ_VALIDATION_TYPE;
SELECT 'T'
FROM FPA_LOOKUPS_V
WHERE LOOKUP_TYPE = VALIDATION_SET;
SELECT 'T'
FROM FPA_LOOKUPS_V
WHERE LOOKUP_TYPE = 'FPA_SEVERITY_TYPES'
AND LOOKUP_CODE = SEV_CODE;
select fpa_validation_lines_s.nextval into
l_validation_lines_rec.validation_id from dual;
l_validation_lines_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_validation_lines_rec.last_update_date := SYSDATE;
l_validation_lines_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
INSERT INTO FPA_VALIDATION_LINES(
validation_id,
header_id,
object_id,
object_type,
validation_type,
message_id,
severity,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_validation_lines_rec.validation_id,
l_validation_lines_rec.header_id,
l_validation_lines_rec.object_id,
l_validation_lines_rec.object_type,
l_validation_lines_rec.validation_type,
l_validation_lines_rec.message_id,
l_validation_lines_rec.severity,
l_validation_lines_rec.created_by,
l_validation_lines_rec.creation_date,
l_validation_lines_rec.last_updated_by,
l_validation_lines_rec.last_update_date,
l_validation_lines_rec.last_update_login);
Validations.DELETE;
Validations.DELETE;
SELECT 'T'
FROM FPA_VALIDATION_LINES FPA
WHERE
FPA.VALIDATION_TYPE = P_VALIDATIONS_TYPE
AND FPA.HEADER_ID = P_OBJECT_HEADER_ID
AND FPA.OBJECT_ID = P_OBJECT_ID
AND FPA.OBJECT_TYPE = P_OBJECT_TYPE;
SELECT 'T'
FROM FPA_VALIDATION_LINES HDR, FPA_VALIDATION_LINES OBJ
WHERE
HDR.VALIDATION_TYPE = G_VALIDATION_SET
AND HDR.OBJECT_ID = G_HEADER_ID
AND OBJ.HEADER_ID = HDR.OBJECT_ID
AND OBJ.OBJECT_ID = P_OBJECT_ID
AND OBJ.OBJECT_TYPE = P_OBJECT_TYPE
AND OBJ.SEVERITY = P_SEVERITY;
SELECT VALIDATION_ID
FROM FPA_VALIDATION_LINES
WHERE OBJECT_ID = P_HEADER_OBJECT_ID
AND OBJECT_TYPE = P_HEADER_OBJECT_TYPE
AND VALIDATION_TYPE = P_VALIDATIONS_TYPE
FOR UPDATE OF LAST_UPDATE_DATE NOWAIT;
DELETE FROM FPA_VALIDATION_LINES FL
WHERE FL.HEADER_ID IN (
SELECT OBJECT_ID FROM FPA_VALIDATION_LINES FH
WHERE FH.VALIDATION_TYPE = P_VALIDATION_SET
AND FH.OBJECT_TYPE = P_HEADER_OBJECT_TYPE
AND FH.OBJECT_ID = P_HEADER_OBJECT_ID);
UPDATE FPA_VALIDATION_LINES
SET LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
WHERE VALIDATION_ID = L_HEADER_ID;