The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT MEANING
INTO l_default_subset_name
FROM IEC_LOOKUPS
WHERE LOOKUP_TYPE = G_DEFAULT_SUBSET_NAME
AND LOOKUP_CODE = G_DEFAULT_SUBSET_NAME;
SELECT SUBSET_NAME
INTO L_SUBSET_NAME
FROM IEC_G_LIST_SUBSETS
WHERE LIST_HEADER_ID = P_LIST_ID
AND DEFAULT_SUBSET_FLAG = 'Y';
INSERT INTO IEC_G_LIST_SUBSETS
( LIST_SUBSET_ID
, LIST_HEADER_ID
, SUBSET_NAME
, QUANTUM
, PRIORITY
, STATUS_CODE
, DEFAULT_SUBSET_FLAG
, QUOTA
, QUOTA_RESET
, RELEASE_STRATEGY
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_DATE
, OBJECT_VERSION_NUMBER
)
VALUES
( IEC_G_LIST_SUBSETS_S.NEXTVAL
, P_LIST_ID
, l_default_subset_name
, 10
, 1
, 'ACTIVE'
, 'Y'
, 0
, 0
, 'QUA'
, l_user_id
, SYSDATE
, l_login_id
, SYSDATE
, 1
);
END; -- END INSERT BLOCK
END; -- END SELECT BLOCK