The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_relationship_type(
p_relationship_type_rec IN OUT NOCOPY RELATIONSHIP_TYPE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
SELECT 'Y'
FROM ar_lookups
WHERE lookup_type = p_lookup_type
AND ( lookup_code = p_column_value or
meaning = p_meaning )
AND rownum = 1;
SELECT 'Y'
INTO l_dummy
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = l_relationship_type_id;
p_create_update_flag => 'C',
p_relationship_type_rec => p_relationship_type_rec,
p_rowid => l_rowid,
x_return_status => x_return_status);
HZ_RELATIONSHIP_TYPES_PKG.Insert_Row (
X_RELATIONSHIP_TYPE_ID => l_relationship_type_id,
X_RELATIONSHIP_TYPE => l_relationship_type,
X_FORWARD_REL_CODE => p_relationship_type_rec.forward_rel_code,
X_BACKWARD_REL_CODE => p_relationship_type_rec.backward_rel_code,
X_DIRECTION_CODE => p_relationship_type_rec.direction_code,
X_HIERARCHICAL_FLAG => l_hierarchical_flag,
X_CREATE_PARTY_FLAG => l_create_party_flag,
X_ALLOW_RELATE_TO_SELF_FLAG => p_relationship_type_rec.allow_relate_to_self_flag,
X_SUBJECT_TYPE => p_relationship_type_rec.subject_type,
X_OBJECT_TYPE => p_relationship_type_rec.object_type,
X_STATUS => p_relationship_type_rec.status,
X_ALLOW_CIRCULAR_RELATIONSHIPS => l_allow_circular_relationships,
X_MULTIPLE_PARENT_ALLOWED => l_multiple_parent_allowed,
X_INCL_UNRELATED_ENTITIES => l_incl_unrelated_entities,
X_ROLE => p_relationship_type_rec.forward_role,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_relationship_type_rec.created_by_module,
X_APPLICATION_ID => p_relationship_type_rec.application_id
);
SELECT ROLE INTO l_role
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = x_relationship_type_id;
FND_LOOKUP_VALUES_PKG.INSERT_ROW (
X_ROWID => l_lookup_rowid,
X_LOOKUP_TYPE => 'HZ_RELATIONSHIP_ROLE',
X_SECURITY_GROUP_ID => 0,
X_VIEW_APPLICATION_ID => 222,
X_LOOKUP_CODE => l_role,
X_TAG => null,
X_ATTRIBUTE_CATEGORY => null,
X_ATTRIBUTE1 => null,
X_ATTRIBUTE2 => null,
X_ATTRIBUTE3 => null,
X_ATTRIBUTE4 => null,
X_ENABLED_FLAG => 'Y',
X_START_DATE_ACTIVE => SYSDATE,
X_END_DATE_ACTIVE => null,
X_TERRITORY_CODE => null,
X_ATTRIBUTE5 => null,
X_ATTRIBUTE6 => null,
X_ATTRIBUTE7 => null,
X_ATTRIBUTE8 => null,
X_ATTRIBUTE9 => null,
X_ATTRIBUTE10 => null,
X_ATTRIBUTE11 => null,
X_ATTRIBUTE12 => null,
X_ATTRIBUTE13 => null,
X_ATTRIBUTE14 => null,
X_ATTRIBUTE15 => null,
X_MEANING => l_role,
X_DESCRIPTION => l_role,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => HZ_UTILITY_V2PUB.CREATED_BY,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => null);
HZ_RELATIONSHIP_TYPES_PKG.Insert_Row (
X_RELATIONSHIP_TYPE_ID => l_relationship_type_id,
X_RELATIONSHIP_TYPE => l_relationship_type,
X_FORWARD_REL_CODE => p_relationship_type_rec.backward_rel_code,
X_BACKWARD_REL_CODE => p_relationship_type_rec.forward_rel_code,
X_DIRECTION_CODE => l_direction_code,
X_HIERARCHICAL_FLAG => l_hierarchical_flag,
X_CREATE_PARTY_FLAG => l_create_party_flag,
X_ALLOW_RELATE_TO_SELF_FLAG => p_relationship_type_rec.allow_relate_to_self_flag,
X_SUBJECT_TYPE => p_relationship_type_rec.object_type,
X_OBJECT_TYPE => p_relationship_type_rec.subject_type,
X_STATUS => p_relationship_type_rec.status,
X_ALLOW_CIRCULAR_RELATIONSHIPS => l_allow_circular_relationships,
X_MULTIPLE_PARENT_ALLOWED => l_multiple_parent_allowed,
X_INCL_UNRELATED_ENTITIES => l_incl_unrelated_entities,
X_ROLE => p_relationship_type_rec.backward_role,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_relationship_type_rec.created_by_module,
X_APPLICATION_ID => p_relationship_type_rec.application_id
);
SELECT ROLE INTO l_role
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = l_relationship_type_id;
FND_LOOKUP_VALUES_PKG.INSERT_ROW (
X_ROWID => l_lookup_rowid,
X_LOOKUP_TYPE => 'HZ_RELATIONSHIP_ROLE',
X_SECURITY_GROUP_ID => 0,
X_VIEW_APPLICATION_ID => 222,
X_LOOKUP_CODE => l_role,
X_TAG => null,
X_ATTRIBUTE_CATEGORY => null,
X_ATTRIBUTE1 => null,
X_ATTRIBUTE2 => null,
X_ATTRIBUTE3 => null,
X_ATTRIBUTE4 => null,
X_ENABLED_FLAG => 'Y',
X_START_DATE_ACTIVE => SYSDATE,
X_END_DATE_ACTIVE => null,
X_TERRITORY_CODE => null,
X_ATTRIBUTE5 => null,
X_ATTRIBUTE6 => null,
X_ATTRIBUTE7 => null,
X_ATTRIBUTE8 => null,
X_ATTRIBUTE9 => null,
X_ATTRIBUTE10 => null,
X_ATTRIBUTE11 => null,
X_ATTRIBUTE12 => null,
X_ATTRIBUTE13 => null,
X_ATTRIBUTE14 => null,
X_ATTRIBUTE15 => null,
X_MEANING => l_role,
X_DESCRIPTION => l_role,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => HZ_UTILITY_V2PUB.CREATED_BY,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => null);
SELECT 1 INTO l_temp_var
FROM AR_LOOKUPS
WHERE LOOKUP_TYPE = 'HZ_RELATIONSHIP_TYPE'
AND LOOKUP_CODE = l_relationship_type;
FND_LOOKUP_VALUES_PKG.INSERT_ROW (
X_ROWID => l_lookup_rowid,
X_LOOKUP_TYPE => 'HZ_RELATIONSHIP_TYPE',
X_SECURITY_GROUP_ID => 0,
X_VIEW_APPLICATION_ID => 222,
X_LOOKUP_CODE => l_relationship_type,
X_TAG => null,
X_ATTRIBUTE_CATEGORY => null,
X_ATTRIBUTE1 => null,
X_ATTRIBUTE2 => null,
X_ATTRIBUTE3 => null,
X_ATTRIBUTE4 => null,
X_ENABLED_FLAG => 'Y',
X_START_DATE_ACTIVE => SYSDATE,
X_END_DATE_ACTIVE => null,
X_TERRITORY_CODE => null,
X_ATTRIBUTE5 => null,
X_ATTRIBUTE6 => null,
X_ATTRIBUTE7 => null,
X_ATTRIBUTE8 => null,
X_ATTRIBUTE9 => null,
X_ATTRIBUTE10 => null,
X_ATTRIBUTE11 => null,
X_ATTRIBUTE12 => null,
X_ATTRIBUTE13 => null,
X_ATTRIBUTE14 => null,
X_ATTRIBUTE15 => null,
X_MEANING => l_relationship_type,
X_DESCRIPTION => l_relationship_type,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => HZ_UTILITY_V2PUB.CREATED_BY,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => null);
| do_update_relationship_type
|
| DESCRIPTION
| Updates a relation type.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_relationship_type_rec
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/ OUT:
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
+===========================================================================*/
PROCEDURE do_update_relationship_type(
p_relationship_type_rec IN OUT NOCOPY RELATIONSHIP_TYPE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_object_version_number NUMBER;
SELECT OBJECT_VERSION_NUMBER,
ROWID,
RELATIONSHIP_TYPE,
FORWARD_REL_CODE,
BACKWARD_REL_CODE,
SUBJECT_TYPE,
OBJECT_TYPE
INTO l_object_version_number,
l_rowid,
l_relationship_type,
l_forward_rel_code,
l_backward_rel_code,
l_subject_type,
l_object_type
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = p_relationship_type_rec.relationship_type_id
FOR UPDATE OF RELATIONSHIP_TYPE_ID NOWAIT;
the user to update the create_party_flag from Y to N . */
IF l_subject_type IN ('ORGANIZATION','PERSON','GROUP') AND
l_object_type IN ('ORGANIZATION','PERSON','GROUP')
THEN
p_relationship_type_rec.create_party_flag := 'Y';
p_create_update_flag => 'U',
p_relationship_type_rec => p_relationship_type_rec,
p_rowid => l_rowid,
x_return_status => x_return_status);
HZ_RELATIONSHIP_TYPES_PKG.Update_Row (
X_Rowid => l_rowid,
X_RELATIONSHIP_TYPE_ID => NULL,
X_RELATIONSHIP_TYPE => NULL,
X_FORWARD_REL_CODE => NULL,
X_BACKWARD_REL_CODE => NULL,
X_DIRECTION_CODE => NULL,
X_HIERARCHICAL_FLAG => p_relationship_type_rec.hierarchical_flag,
X_CREATE_PARTY_FLAG => p_relationship_type_rec.create_party_flag,
X_ALLOW_RELATE_TO_SELF_FLAG => NULL,
X_SUBJECT_TYPE => NULL,
X_OBJECT_TYPE => NULL,
X_STATUS => p_relationship_type_rec.status,
X_ALLOW_CIRCULAR_RELATIONSHIPS => NULL,
X_MULTIPLE_PARENT_ALLOWED => NULL,
X_INCL_UNRELATED_ENTITIES => p_relationship_type_rec.incl_unrelated_entities,
X_ROLE => p_relationship_type_rec.forward_role,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_relationship_type_rec.created_by_module,
X_APPLICATION_ID => p_relationship_type_rec.application_id
);
SELECT ROWID
INTO l_rowid
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE = l_relationship_type
AND FORWARD_REL_CODE = l_backward_rel_code
AND BACKWARD_REL_CODE = l_forward_rel_code
AND SUBJECT_TYPE = l_object_type
AND OBJECT_TYPE = l_subject_type;
HZ_RELATIONSHIP_TYPES_PKG.Update_Row (
X_Rowid => l_rowid,
X_RELATIONSHIP_TYPE_ID => NULL,
X_RELATIONSHIP_TYPE => NULL,
X_FORWARD_REL_CODE => NULL,
X_BACKWARD_REL_CODE => NULL,
X_DIRECTION_CODE => NULL,
X_HIERARCHICAL_FLAG => p_relationship_type_rec.hierarchical_flag,
X_CREATE_PARTY_FLAG => p_relationship_type_rec.create_party_flag,
X_ALLOW_RELATE_TO_SELF_FLAG => NULL,
X_SUBJECT_TYPE => NULL,
X_OBJECT_TYPE => NULL,
X_STATUS => p_relationship_type_rec.status,
X_ALLOW_CIRCULAR_RELATIONSHIPS => NULL,
X_MULTIPLE_PARENT_ALLOWED => NULL,
X_INCL_UNRELATED_ENTITIES => p_relationship_type_rec.incl_unrelated_entities,
X_ROLE => p_relationship_type_rec.backward_role,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_relationship_type_rec.created_by_module,
X_APPLICATION_ID => p_relationship_type_rec.application_id
);
END do_update_relationship_type;
| update_relationship_type
|
| DESCRIPTION
| Updates a party relation type.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_person_rec
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/ OUT:
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
+===========================================================================*/
PROCEDURE update_relationship_type (
p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
p_relationship_type_rec IN RELATIONSHIP_TYPE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_relationship_type';
SAVEPOINT update_relationship_type;
do_update_relationship_type(
l_relationship_type_rec,
p_object_version_number,
x_return_status);
ROLLBACK TO update_relationship_type;
ROLLBACK TO update_relationship_type;
ROLLBACK TO update_relationship_type;
END update_relationship_type;
SELECT OBJ_NAME,
PK1_COLUMN_NAME,
PREDICATE
FROM FND_OBJECTS FO,
FND_OBJECT_INSTANCE_SETS FOIS
WHERE FOIS.INSTANCE_SET_NAME = p_instance_set_name
AND FOIS.OBJECT_ID = FO.OBJECT_ID;
SELECT 'Y' RESULT
FROM HZ_PARTIES
WHERE PARTY_ID = p_party_id
AND PARTY_TYPE = p_party_type;
l_str := 'select ''Y'' from '||l_object_name||' where '||l_column_name||' = :pid and '||l_predicate;
l_str := 'select ''Y'' from '||l_object_name||' where '||l_column_name||' = :pid and '||l_predicate;
l_str := 'select ''Y'' from '||l_object_name||' where '||l_column_name||' = :pid and '||l_predicate;
l_str := 'select ''Y'' from '||l_object_name||' where '||l_column_name||' = :pid';