The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT meaning INTO x_lookup_meaning
FROM AR_LOOKUPS
WHERE LOOKUP_TYPE = l_lookup_type
AND LOOKUP_CODE = l_lookup_code
AND ( ENABLED_FLAG = 'Y' AND
TRUNC( SYSDATE ) BETWEEN
TRUNC(NVL( START_DATE_ACTIVE,SYSDATE ) ) AND
TRUNC(NVL( END_DATE_ACTIVE,SYSDATE ) ) );
SELECT meaning INTO x_lookup_meaning
FROM SO_LOOKUPS
WHERE LOOKUP_TYPE = l_lookup_type
AND LOOKUP_CODE = l_lookup_code
AND ( ENABLED_FLAG = 'Y' AND
TRUNC( SYSDATE ) BETWEEN
TRUNC(NVL( START_DATE_ACTIVE,SYSDATE ) ) AND
TRUNC(NVL( END_DATE_ACTIVE,SYSDATE ) ) );
SELECT meaning INTO x_lookup_meaning
FROM OE_SHIP_METHODS_V
WHERE LOOKUP_TYPE = l_lookup_type
AND LOOKUP_CODE = l_lookup_code
AND ( ENABLED_FLAG = 'Y' AND
TRUNC( SYSDATE ) BETWEEN
TRUNC(NVL( START_DATE_ACTIVE,SYSDATE ) ) AND
TRUNC(NVL( END_DATE_ACTIVE,SYSDATE ) ) )
AND ROWNUM = 1;
SELECT meaning INTO x_lookup_meaning
FROM FND_LOOKUP_VALUES
WHERE LOOKUP_TYPE = l_lookup_type
AND LOOKUP_CODE = l_lookup_code
AND ( ENABLED_FLAG = 'Y' AND
TRUNC( SYSDATE ) BETWEEN
TRUNC(NVL( START_DATE_ACTIVE,SYSDATE ) ) AND
TRUNC(NVL( END_DATE_ACTIVE,SYSDATE ) ) )
AND ROWNUM = 1;
SELECT nls_language INTO x_lookup_meaning
FROM FND_LANGUAGES
WHERE LANGUAGE_CODE = l_lookup_code;
SELECT INCL_UNRELATED_ENTITIES INTO l_dummy
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE = l_relationship_type
AND ROWNUM = 1;
SELECT SPID INTO l_spid
FROM V$PROCESS
WHERE ADDR = (
SELECT PADDR
FROM V$SESSION
WHERE AUDSID = USERENV('SESSIONID') );
* last_updated_by
* last_update_date
* last_update_login
* request_id
* program_id
* program_application_id
* program_update_date
* user_id
* application_id
*
* DESCRIPTION
* Return standard who value.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
*
* NOTES
*
* MODIFICATION HISTORY
*
* 10-Sep-2004 Amulya Mishra Created.
*/
FUNCTION created_by RETURN NUMBER IS
BEGIN
RETURN NVL(FND_GLOBAL.user_id,-1);
FUNCTION last_updated_by RETURN NUMBER IS
BEGIN
RETURN NVL(FND_GLOBAL.user_id,-1);
END last_updated_by;
FUNCTION last_update_date RETURN DATE IS
BEGIN
RETURN SYSDATE;
END last_update_date;
FUNCTION last_update_login RETURN NUMBER IS
BEGIN
IF FND_GLOBAL.conc_login_id = -1 OR
FND_GLOBAL.conc_login_id IS NULL
THEN
RETURN FND_GLOBAL.login_id;
END last_update_login;
FUNCTION program_update_date RETURN DATE IS
BEGIN
IF program_id IS NULL THEN
RETURN NULL;
END program_update_date;
SELECT * FROM FUN_RULE_CRITERIA
WHERE RULE_DETAIL_ID = P_RULE_DETAIL_ID
FOR UPDATE NOWAIT;
SELECT FUN_RULE_DETAILS_S.NEXTVAL
INTO l_next_rule_detail_id
FROM DUAL;
SELECT
RULE_OBJECT_ID,
RULE_NAME,
SEQ,
OPERATOR,
ENABLED_FLAG,
RESULT_APPLICATION_ID,
RESULT_VALUE,
CREATED_BY_MODULE
INTO
l_rule_object_id,
l_rule_name,
l_seq,
l_operator,
l_enabled_flag,
l_result_application_id,
l_result_value,
l_created_by_module
FROM FUN_RULE_DETAILS
WHERE RULE_OBJECT_ID = p_rule_object_id
AND RULE_DETAIL_ID = p_rule_detail_id;
FUN_RULE_DETAILS_PKG.INSERT_ROW (
X_ROWID =>l_rowid,
X_RULE_DETAIL_ID =>l_next_rule_detail_id,
X_RULE_OBJECT_ID =>l_rule_object_id,
X_RULE_NAME =>l_rule_name,
X_SEQ =>l_seq,
X_OPERATOR =>l_operator,
X_ENABLED_FLAG =>l_enabled_flag,
X_RESULT_APPLICATION_ID =>l_result_application_id,
X_RESULT_VALUE =>l_result_value,
X_OBJECT_VERSION_NUMBER =>1,
X_CREATED_BY_MODULE =>l_created_by_module
);
FUN_RULE_CRITERIA_PKG.INSERT_ROW (
X_ROWID =>l_rowid,
X_CRITERIA_ID =>p_rule_criteria_rec.criteria_id,
X_RULE_DETAIL_ID =>l_next_rule_detail_id,
X_CRITERIA_PARAM_NAME =>p_rule_criteria_rec.criteria_param_name,
X_CONDITION =>p_rule_criteria_rec.condition,
X_PARAM_VALUE =>p_rule_criteria_rec.param_value,
X_CASE_SENSITIVE =>p_rule_criteria_rec.case_sensitive,
X_OBJECT_VERSION_NUMBER =>1,
X_CREATED_BY_MODULE =>p_rule_criteria_rec.created_by_module
);
SELECT MAX(SEQ)+1 INTO l_max_seq
FROM FUN_RULE_DETAILS
WHERE RULE_OBJECT_ID = P_RULE_OBJECT_ID;
SELECT nvl(application_id , 435)
INTO l_application_id
FROM fnd_application
WHERE application_short_name = p_AppShortName;
SELECT nvl(application_short_name, 'FUN')
INTO l_application_short_name
FROM fnd_application
WHERE application_id = p_ApplicationId;
l_ValueSetSql VARCHAR2(1000) := 'SELECT FORMAT_TYPE, MAXIMUM_SIZE FROM FND_FLEX_VALUE_SETS WHERE
FLEX_VALUE_SET_ID = :1';
l_sql VARCHAR2(1000) := 'SELECT PARENT_RULE_OBJECT_ID FROM FUN_RULE_OBJECTS_B WHERE
RULE_OBJECT_ID = :1';