The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y' INTO l_dummy
FROM FUN_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 'Y' INTO l_dummy
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 'Y' INTO l_dummy
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 'Y' INTO l_dummy
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;
( create_update_flag IN VARCHAR2,
p_col_name IN VARCHAR2,
p_col_val IN VARCHAR2,
p_miss_allowed_in_c IN BOOLEAN,
p_miss_allowed_in_u IN BOOLEAN,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
BEGIN
IF (p_col_val = FND_API.G_MISS_CHAR) THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
IF (create_update_flag = 'C') THEN
IF ((NOT p_miss_allowed_in_c) AND
p_col_val IS NULL )
THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
( create_update_flag IN VARCHAR2,
p_col_name IN VARCHAR2,
p_col_val IN DATE,
p_miss_allowed_in_c IN BOOLEAN,
p_miss_allowed_in_u IN BOOLEAN,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
BEGIN
IF (p_col_val = FND_API.G_MISS_DATE) THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
IF (create_update_flag = 'C') THEN
IF ((NOT p_miss_allowed_in_c) AND
p_col_val IS NULL )
THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
( create_update_flag IN VARCHAR2,
p_col_name IN VARCHAR2,
p_col_val IN NUMBER,
p_miss_allowed_in_c IN BOOLEAN,
p_miss_allowed_in_u IN BOOLEAN,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
BEGIN
IF (p_col_val = FND_API.G_MISS_NUM) THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
IF (create_update_flag = 'C') THEN
IF ((NOT p_miss_allowed_in_c) AND
p_col_val IS NULL )
THEN
fnd_message.set_name('FUN', 'FUN_RULE_API_MISSING_COLUMN');
SELECT 'Y'
FROM fnd_lookup_values
WHERE lookup_type = p_lookup_type
AND lookup_code = p_column_value
AND ROWNUM = 1;
SELECT 'Y'
FROM FUN_RULE_OBJECTS_B
WHERE RULE_OBJECT_NAME = p_rule_object_name
AND APPLICATION_ID = p_application_id
AND ROWNUM = 1;
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_location_rec Location record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
PROCEDURE validate_rule_objects(
p_create_update_flag IN VARCHAR2,
p_rule_objects_rec IN FUN_RULE_OBJECTS_PUB.rule_objects_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT b.RULE_OBJECT_NAME,
b.RESULT_TYPE,
b.REQUIRED_FLAG,
A.DEFAULT_VALUE,
b.created_by_module,
b.use_instance_flag
INTO l_rule_object_name,
l_result_type,
l_required_flag,
l_default_value,
l_created_by_module,
l_use_instance_flag
FROM FUN_RULE_OBJECTS_B B, FUN_RULE_OBJ_ATTRIBUTES A
WHERE B.ROWID = p_rowid
AND B.RULE_OBJECT_ID = A.RULE_OBJECT_ID;
IF (p_create_update_flag = 'C') THEN
IF (p_rule_objects_rec.instance_label IS NULL AND
p_rule_objects_rec.org_id IS NULL AND
p_rule_objects_rec.parent_rule_object_id IS NULL) THEN
SELECT COUNT(1)
INTO l_present
FROM FUN_RULE_OBJECTS_B
WHERE RULE_OBJECT_NAME = p_rule_objects_rec.rule_object_name
AND APPLICATION_ID = p_rule_objects_rec.application_id;
SELECT COUNT(1)
INTO l_present
FROM FUN_RULE_OBJECTS_B
WHERE RULE_OBJECT_NAME = p_rule_objects_rec.rule_object_name
AND APPLICATION_ID = p_rule_objects_rec.application_id
AND
( (INSTANCE_LABEL IS NULL AND p_rule_objects_rec.instance_label IS NULL) OR
(INSTANCE_LABEL IS NOT NULL AND p_rule_objects_rec.instance_label IS NOT NULL AND INSTANCE_LABEL = p_rule_objects_rec.instance_label))
AND
( (ORG_ID IS NULL AND p_rule_objects_rec.org_id IS NULL) OR
(ORG_ID IS NOT NULL AND p_rule_objects_rec.org_id IS NOT NULL AND ORG_ID = p_rule_objects_rec.org_id))
AND PARENT_RULE_OBJECT_ID IS NOT NULL;
p_create_update_flag => p_create_update_flag,
p_column => 'RULE_OBJECT_NAME',
p_column_value => p_rule_objects_rec.rule_object_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'USER_RULE_OBJECT_NAME',
p_column_value => p_rule_objects_rec.user_rule_object_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'RESULT_TYPE',
p_column_value => p_rule_objects_rec.result_type,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'USE_INSTANCE_FLAG',
p_column_value => p_rule_objects_rec.use_instance_flag,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'MULTI_RULE_RESULT_FLAG',
p_column_value => p_rule_objects_rec.multi_rule_result_flag,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'DEFAULT_VALUE',
p_column_value => p_rule_objects_rec.default_value,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'DEFAULT_APPLICATION_ID',
p_column_value => p_rule_objects_rec.default_application_id,
x_return_status => x_return_status);
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rule_objects_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rule_objects_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rule_objects_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status);
IF p_create_update_flag = 'U'
THEN
validate_nonupdateable_atall (
p_column => 'use_instance_flag',
p_column_value => p_rule_objects_rec.use_instance_flag,
p_old_column_value => l_use_instance_flag,
p_restricted => 'N',
x_return_status => x_return_status);
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_location_rec Location record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 27-Dec-2005 Amulya Mishra Created.
*/
PROCEDURE validate_rule_object_instance(
p_create_update_flag IN VARCHAR2,
p_rule_object_instance_rec IN FUN_RULE_OBJECTS_PUB.rule_objects_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_present number;
IF (p_create_update_flag = 'C') THEN
IF (p_rule_object_instance_rec.instance_label IS NOT NULL) THEN
SELECT COUNT(1)
INTO l_present
FROM FUN_RULE_OBJECTS_B
WHERE RULE_OBJECT_NAME = p_rule_object_instance_rec.rule_object_name
AND APPLICATION_ID = p_rule_object_instance_rec.application_id
AND
( (INSTANCE_LABEL IS NULL AND p_rule_object_instance_rec.instance_label IS NULL) OR
(INSTANCE_LABEL IS NOT NULL AND p_rule_object_instance_rec.instance_label IS NOT NULL AND INSTANCE_LABEL = p_rule_object_instance_rec.instance_label))
AND
( (ORG_ID IS NULL AND p_rule_object_instance_rec.org_id IS NULL) OR
(ORG_ID IS NOT NULL AND p_rule_object_instance_rec.org_id IS NOT NULL AND ORG_ID = p_rule_object_instance_rec.org_id))
AND PARENT_RULE_OBJECT_ID IS NOT NULL;
p_create_update_flag => p_create_update_flag,
p_column => 'USE_INSTANCE_FLAG',
p_column_value => p_rule_object_instance_rec.use_instance_flag,
x_return_status => x_return_status);
IF (p_create_update_flag = 'U') THEN
validate_mandatory (
p_create_update_flag => 'U',
p_column => 'PARENT_RULE_OBJECT_ID',
p_column_value => p_rule_object_instance_rec.parent_rule_object_id,
x_return_status => x_return_status);
p_create_update_flag,
p_rule_object_instance_rec,
p_rowid,
x_return_status
);
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_rule_crit_params_rec Location record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
PROCEDURE validate_rule_criteria_params(
p_create_update_flag IN VARCHAR2,
p_rule_crit_params_rec IN FUN_RULE_CRIT_PARAMS_PUB.rule_crit_params_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT PARAM_NAME,
DATA_TYPE,
created_by_module
INTO l_param_name,
l_data_type,
l_created_by_module
FROM FUN_RULE_CRIT_PARAMS_B
WHERE ROWID = p_rowid;
SELECT RULE_OBJECT_ID INTO l_rule_object_id
FROM FUN_RULE_OBJECTS_B WHERE RULE_OBJECT_ID = p_rule_crit_params_rec.rule_object_id;
p_create_update_flag => p_create_update_flag,
p_column => 'PARAM_NAME',
p_column_value => p_rule_crit_params_rec.param_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'USER_PARAM_NAME',
p_column_value => p_rule_crit_params_rec.user_param_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'DATA_TYPE',
p_column_value => p_rule_crit_params_rec.data_type,
x_return_status => x_return_status);
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rule_crit_params_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rule_crit_params_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rule_crit_params_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status);
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_rule_details_rec Location record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
PROCEDURE validate_rule_details(
p_create_update_flag IN VARCHAR2,
p_rule_details_rec IN FUN_RULE_DETAILS_PUB.rule_details_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT RULE_NAME,
SEQ,
OPERATOR,
ENABLED_FLAG,
RESULT_APPLICATION_ID,
RESULT_VALUE,
CREATED_BY_MODULE
INTO 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 ROWID = p_rowid;
p_create_update_flag => p_create_update_flag,
p_column => 'RULE_NAME',
p_column_value => p_rule_details_rec.rule_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'SEQ',
p_column_value => p_rule_details_rec.seq,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'OPERATOR',
p_column_value => p_rule_details_rec.operator,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'ENABLED_FLAG',
p_column_value => p_rule_details_rec.enabled_flag,
x_return_status => x_return_status);
SELECT 'Y'
INTO l_dummy
FROM FUN_RULE_OBJECTS_B
WHERE RULE_OBJECT_ID = p_rule_details_rec.rule_object_id;
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rule_details_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rule_details_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rule_details_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status,
p_raise_error => 'N');
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_criteria_rec Location record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
PROCEDURE validate_rule_criteria(
p_create_update_flag IN VARCHAR2,
p_rule_criteria_rec IN FUN_RULE_CRITERIA_PUB.rule_criteria_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT CRITERIA_PARAM_ID,
CONDITION,
PARAM_VALUE,
CASE_SENSITIVE_FLAG,
created_by_module
INTO l_criteria_param_id,
l_condition,
l_param_value,
l_case_sensitive_flag,
l_created_by_module
FROM FUN_RULE_CRITERIA
WHERE ROWID = p_rowid;
p_create_update_flag => p_create_update_flag,
p_column => 'CRITERIA_PARAM_ID',
p_column_value => p_rule_criteria_rec.criteria_param_id,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'CONDITION',
p_column_value => p_rule_criteria_rec.condition,
x_return_status => x_return_status);
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rule_criteria_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rule_criteria_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rule_criteria_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status);
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_rich_messages_rec Rich Messages record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
/*
PROCEDURE validate_rich_messages(
p_create_update_flag IN VARCHAR2,
p_rich_messages_rec IN FUN_RICH_MESSAGES_PUB.rich_messages_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT message_name,
language_code,
application_id,
created_by_module
INTO l_message_name,
l_language_code,
l_application_id,
l_created_by_module
FROM FUN_RICH_MESSAGES_B
WHERE ROWID = p_rowid;
IF (p_create_update_flag = 'C') THEN
SELECT COUNT(1)
INTO l_present
FROM FUN_RICH_MESSAGES_B
WHERE MESSAGE_NAME = p_rich_messages_rec.message_name
AND APPLICATION_ID = p_rich_messages_rec.application_id
AND LANGUAGE_CODE = p_rich_messages_rec.language_code;
p_create_update_flag => p_create_update_flag,
p_column => 'MESSAGE_NAME',
p_column_value => p_rich_messages_rec.message_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'LANGUAGE_CODE',
p_column_value => p_rich_messages_rec.language_code,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'APPLICATION_ID',
p_column_value => p_rich_messages_rec.application_id,
x_return_status => x_return_status);
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rich_messages_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rich_messages_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rich_messages_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status,
p_raise_error => 'N');
p_create_update_flag IN VARCHAR2,
p_column IN VARCHAR2,
p_column_value IN VARCHAR2,
p_restricted IN VARCHAR2 DEFAULT 'N',
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_error BOOLEAN := FALSE;
IF (p_create_update_flag = 'C' AND
(p_column_value IS NULL OR
p_column_value = FND_API.G_MISS_CHAR)) OR
(p_create_update_flag = 'U' AND
p_column_value = FND_API.G_MISS_CHAR)
THEN
l_error := TRUE;
p_create_update_flag IN VARCHAR2,
p_column IN VARCHAR2,
p_column_value IN NUMBER,
p_restricted IN VARCHAR2 DEFAULT 'N',
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_error BOOLEAN := FALSE;
IF (p_create_update_flag = 'C' AND
(p_column_value IS NULL OR
p_column_value = FND_API.G_MISS_NUM)) OR
(p_create_update_flag = 'U' AND
p_column_value = FND_API.G_MISS_NUM)
THEN
l_error := TRUE;
p_create_update_flag IN VARCHAR2,
p_column IN VARCHAR2,
p_column_value IN DATE,
p_restricted IN VARCHAR2 DEFAULT 'N',
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_error BOOLEAN := FALSE;
IF (p_create_update_flag = 'C' AND
(p_column_value IS NULL OR
p_column_value = FND_API.G_MISS_DATE)) OR
(p_create_update_flag = 'U' AND
p_column_value = FND_API.G_MISS_DATE)
THEN
l_error := TRUE;
PROCEDURE validate_nonupdateable (
p_column IN VARCHAR2,
p_column_value IN VARCHAR2,
p_old_column_value IN VARCHAR2,
p_restricted IN VARCHAR2 DEFAULT 'Y',
x_return_status IN OUT NOCOPY VARCHAR2,
p_raise_error IN VARCHAR2 := 'Y'
) IS
l_error BOOLEAN := FALSE;
fnd_message.set_name('FUN', 'FUN_RULE_API_NONUPDATE_COLUMN');
END validate_nonupdateable;
PROCEDURE validate_nonupdateable_atall (
p_column IN VARCHAR2,
p_column_value IN VARCHAR2,
p_old_column_value IN VARCHAR2,
p_restricted IN VARCHAR2 DEFAULT 'Y',
x_return_status IN OUT NOCOPY VARCHAR2,
p_raise_error IN VARCHAR2 := 'Y'
) IS
l_error BOOLEAN := FALSE;
fnd_message.set_name('FUN', 'FUN_RULE_API_NONUPDATE_COLUMN');
END validate_nonupdateable_atall;
* non-updateable fields
* foreign key validations
* other validations
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
*
* ARGUMENTS
* IN:
* p_create_update_flag Create update flag. 'C' = create. 'U' = update.
* p_rich_messages_rec Rich Messages record.
* p_rowid Rowid of the record (used only in update mode).
* IN/OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* fnd_api.g_ret_sts_error (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
*
* MODIFICATION HISTORY
*
* 17-Sep-2004 Amulya Mishra Created.
*/
PROCEDURE validate_rich_messages(
p_create_update_flag IN VARCHAR2,
p_rich_messages_rec IN FUN_RICH_MESSAGES_PUB.rich_messages_rec_type,
p_rowid IN ROWID ,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF (p_create_update_flag = 'U') THEN
SELECT message_name,
application_id,
created_by_module
INTO l_message_name,
l_application_id,
l_created_by_module
FROM FUN_RICH_MESSAGES_B
WHERE ROWID = p_rowid;
IF (p_create_update_flag = 'C') THEN
SELECT COUNT(1)
INTO l_present
FROM FUN_RICH_MESSAGES_B
WHERE MESSAGE_NAME = p_rich_messages_rec.message_name
AND APPLICATION_ID = p_rich_messages_rec.application_id;
p_create_update_flag => p_create_update_flag,
p_column => 'MESSAGE_NAME',
p_column_value => p_rich_messages_rec.message_name,
x_return_status => x_return_status);
p_create_update_flag => p_create_update_flag,
p_column => 'APPLICATION_ID',
p_column_value => p_rich_messages_rec.application_id,
x_return_status => x_return_status);
IF p_create_update_flag = 'C' THEN
validate_mandatory (
p_create_update_flag => p_create_update_flag,
p_column => 'created_by_module',
p_column_value => p_rich_messages_rec.created_by_module,
x_return_status => x_return_status);
IF p_create_update_flag = 'U' AND
p_rich_messages_rec.created_by_module IS NOT NULL
THEN
validate_nonupdateable (
p_column => 'created_by_module',
p_column_value => p_rich_messages_rec.created_by_module,
p_old_column_value => l_created_by_module,
p_restricted => 'N',
x_return_status => x_return_status,
p_raise_error => 'N');
l_DFFSql VARCHAR2(1000) := 'SELECT count(1) FROM FND_DESCRIPTIVE_FLEXS FDF
WHERE FDF.DESCRIPTIVE_FLEXFIELD_NAME = :1
AND APPLICATION_ID IN (
SELECT APPLICATION_ID
FROM FND_APPLICATION_VL
WHERE APPLICATION_SHORT_NAME = :2)';
l_DFFSql VARCHAR2(1000) := 'SELECT count(1) FROM HR_OPERATING_UNITS
WHERE NVL(ORGANIZATION_ID,-1) = NVL(:1,-1)';
l_DFFSql VARCHAR2(1000) := 'SELECT count(1) FROM FND_APPLICATION
WHERE APPLICATION_ID = :1';
l_DFFSql VARCHAR2(1000) := 'SELECT count(1) FROM FND_FLEX_VALUE_SETS
WHERE FLEX_VALUE_SET_ID = :1';