The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row (
X_RELATIONSHIP_TYPE_ID IN OUT NOCOPY NUMBER,
X_RELATIONSHIP_TYPE IN VARCHAR2,
X_FORWARD_REL_CODE IN VARCHAR2,
X_BACKWARD_REL_CODE IN VARCHAR2,
X_DIRECTION_CODE IN VARCHAR2,
X_HIERARCHICAL_FLAG IN VARCHAR2,
X_CREATE_PARTY_FLAG IN VARCHAR2,
X_ALLOW_RELATE_TO_SELF_FLAG IN VARCHAR2,
X_SUBJECT_TYPE IN VARCHAR2,
X_OBJECT_TYPE IN VARCHAR2,
X_STATUS IN VARCHAR2,
X_ALLOW_CIRCULAR_RELATIONSHIPS IN VARCHAR2,
X_MULTIPLE_PARENT_ALLOWED IN VARCHAR2,
X_INCL_UNRELATED_ENTITIES IN VARCHAR2,
X_ROLE IN VARCHAR2,
X_OBJECT_VERSION_NUMBER IN NUMBER,
X_CREATED_BY_MODULE IN VARCHAR2,
X_APPLICATION_ID IN NUMBER
) IS
l_success VARCHAR2(1) := 'N';
INSERT INTO HZ_RELATIONSHIP_TYPES (
RELATIONSHIP_TYPE_ID,
RELATIONSHIP_TYPE,
FORWARD_REL_CODE,
BACKWARD_REL_CODE,
DIRECTION_CODE,
HIERARCHICAL_FLAG,
CREATE_PARTY_FLAG,
ALLOW_RELATE_TO_SELF_FLAG,
SUBJECT_TYPE,
OBJECT_TYPE,
STATUS,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
ALLOW_CIRCULAR_RELATIONSHIPS,
MULTIPLE_PARENT_ALLOWED,
INCL_UNRELATED_ENTITIES,
ROLE,
OBJECT_VERSION_NUMBER,
CREATED_BY_MODULE,
APPLICATION_ID
)
VALUES (
DECODE( X_RELATIONSHIP_TYPE_ID, FND_API.G_MISS_NUM, HZ_RELATIONSHIP_TYPES_S.NEXTVAL, NULL, HZ_RELATIONSHIP_TYPES_S.NEXTVAL, X_RELATIONSHIP_TYPE_ID ),
DECODE( X_RELATIONSHIP_TYPE, FND_API.G_MISS_CHAR, NULL, X_RELATIONSHIP_TYPE ),
DECODE( X_FORWARD_REL_CODE, FND_API.G_MISS_CHAR, NULL, X_FORWARD_REL_CODE ),
DECODE( X_BACKWARD_REL_CODE, FND_API.G_MISS_CHAR, NULL, X_BACKWARD_REL_CODE ),
DECODE( X_DIRECTION_CODE, FND_API.G_MISS_CHAR, NULL, X_DIRECTION_CODE ),
DECODE( X_HIERARCHICAL_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_HIERARCHICAL_FLAG ),
DECODE( X_CREATE_PARTY_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_CREATE_PARTY_FLAG ),
DECODE( X_ALLOW_RELATE_TO_SELF_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_ALLOW_RELATE_TO_SELF_FLAG ),
DECODE( X_SUBJECT_TYPE, FND_API.G_MISS_CHAR, NULL, X_SUBJECT_TYPE ),
DECODE( X_OBJECT_TYPE, FND_API.G_MISS_CHAR, NULL, X_OBJECT_TYPE ),
DECODE( X_STATUS, FND_API.G_MISS_CHAR, 'A', NULL, 'A', X_STATUS ),
HZ_UTILITY_V2PUB.CREATED_BY,
HZ_UTILITY_V2PUB.CREATION_DATE,
HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
DECODE( X_ALLOW_CIRCULAR_RELATIONSHIPS, FND_API.G_MISS_CHAR, 'Y', NULL, 'Y', X_ALLOW_CIRCULAR_RELATIONSHIPS ),
DECODE( X_MULTIPLE_PARENT_ALLOWED, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_MULTIPLE_PARENT_ALLOWED ),
DECODE( X_INCL_UNRELATED_ENTITIES, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_INCL_UNRELATED_ENTITIES ),
DECODE( X_ROLE,FND_API.G_MISS_CHAR,'USER_ROLE_'||TO_CHAR(HZ_RELATIONSHIP_TYPES_S.CURRVAL),NULL,'USER_ROLE_'||TO_CHAR(HZ_RELATIONSHIP_TYPES_S.CURRVAL),X_ROLE),
DECODE( X_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
DECODE( X_CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
DECODE( X_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID )
) RETURNING
RELATIONSHIP_TYPE_ID
INTO
X_RELATIONSHIP_TYPE_ID;
SELECT 'Y' INTO l_do_not_allow_convert
FROM dual
WHERE EXISTS (
SELECT 'Y'
FROM hz_relationship_types
WHERE relationship_type = X_RELATIONSHIP_TYPE
AND ( direction_code = 'N' OR
do_not_allow_convert = 'Y'));
UPDATE hz_relationship_types
SET do_not_allow_convert = l_do_not_allow_convert
WHERE relationship_type = X_RELATIONSHIP_TYPE;
SELECT HZ_RELATIONSHIP_TYPES_S.NEXTVAL
INTO X_RELATIONSHIP_TYPE_ID FROM dual;
SELECT 'Y' INTO l_dummy
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = X_RELATIONSHIP_TYPE_ID;
END Insert_Row;
PROCEDURE Update_Row (
X_Rowid IN OUT NOCOPY VARCHAR2,
X_RELATIONSHIP_TYPE_ID IN NUMBER,
X_RELATIONSHIP_TYPE IN VARCHAR2,
X_FORWARD_REL_CODE IN VARCHAR2,
X_BACKWARD_REL_CODE IN VARCHAR2,
X_DIRECTION_CODE IN VARCHAR2,
X_HIERARCHICAL_FLAG IN VARCHAR2,
X_CREATE_PARTY_FLAG IN VARCHAR2,
X_ALLOW_RELATE_TO_SELF_FLAG IN VARCHAR2,
X_SUBJECT_TYPE IN VARCHAR2,
X_OBJECT_TYPE IN VARCHAR2,
X_STATUS IN VARCHAR2,
X_ALLOW_CIRCULAR_RELATIONSHIPS IN VARCHAR2,
X_MULTIPLE_PARENT_ALLOWED IN VARCHAR2,
X_INCL_UNRELATED_ENTITIES IN VARCHAR2,
X_ROLE IN VARCHAR2,
X_OBJECT_VERSION_NUMBER IN NUMBER,
X_CREATED_BY_MODULE IN VARCHAR2,
X_APPLICATION_ID IN NUMBER
) IS
BEGIN
UPDATE HZ_RELATIONSHIP_TYPES SET
RELATIONSHIP_TYPE_ID = DECODE( X_RELATIONSHIP_TYPE_ID, NULL, RELATIONSHIP_TYPE_ID, FND_API.G_MISS_NUM, NULL, X_RELATIONSHIP_TYPE_ID ),
RELATIONSHIP_TYPE = DECODE( X_RELATIONSHIP_TYPE, NULL, RELATIONSHIP_TYPE, FND_API.G_MISS_CHAR, NULL, X_RELATIONSHIP_TYPE ),
FORWARD_REL_CODE = DECODE( X_FORWARD_REL_CODE, NULL, FORWARD_REL_CODE, FND_API.G_MISS_CHAR, NULL, X_FORWARD_REL_CODE ),
BACKWARD_REL_CODE = DECODE( X_BACKWARD_REL_CODE, NULL, BACKWARD_REL_CODE, FND_API.G_MISS_CHAR, NULL, X_BACKWARD_REL_CODE ),
DIRECTION_CODE = DECODE( X_DIRECTION_CODE, NULL, DIRECTION_CODE, FND_API.G_MISS_CHAR, NULL, X_DIRECTION_CODE ),
HIERARCHICAL_FLAG = DECODE( X_HIERARCHICAL_FLAG, NULL, HIERARCHICAL_FLAG, FND_API.G_MISS_CHAR, 'N', X_HIERARCHICAL_FLAG ),
CREATE_PARTY_FLAG = DECODE( X_CREATE_PARTY_FLAG, NULL, CREATE_PARTY_FLAG, FND_API.G_MISS_CHAR, 'N', X_CREATE_PARTY_FLAG ),
ALLOW_RELATE_TO_SELF_FLAG = DECODE( X_ALLOW_RELATE_TO_SELF_FLAG, NULL, ALLOW_RELATE_TO_SELF_FLAG, FND_API.G_MISS_CHAR, 'N', X_ALLOW_RELATE_TO_SELF_FLAG ),
SUBJECT_TYPE = DECODE( X_SUBJECT_TYPE, NULL, SUBJECT_TYPE, FND_API.G_MISS_CHAR, NULL, X_SUBJECT_TYPE ),
OBJECT_TYPE = DECODE( X_OBJECT_TYPE, NULL, OBJECT_TYPE, FND_API.G_MISS_CHAR, NULL, X_OBJECT_TYPE ),
STATUS = DECODE( X_STATUS, NULL, STATUS, FND_API.G_MISS_CHAR, 'A', X_STATUS ),
CREATED_BY = CREATED_BY,
CREATION_DATE = CREATION_DATE,
LAST_UPDATED_BY = HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
ALLOW_CIRCULAR_RELATIONSHIPS = DECODE( X_ALLOW_CIRCULAR_RELATIONSHIPS, NULL, ALLOW_CIRCULAR_RELATIONSHIPS, FND_API.G_MISS_CHAR, 'Y', X_ALLOW_CIRCULAR_RELATIONSHIPS ),
MULTIPLE_PARENT_ALLOWED = DECODE( X_MULTIPLE_PARENT_ALLOWED, NULL, MULTIPLE_PARENT_ALLOWED, FND_API.G_MISS_CHAR, NULL, X_MULTIPLE_PARENT_ALLOWED ),
INCL_UNRELATED_ENTITIES = DECODE( X_INCL_UNRELATED_ENTITIES, NULL, INCL_UNRELATED_ENTITIES, FND_API.G_MISS_CHAR, NULL, X_INCL_UNRELATED_ENTITIES ),
ROLE = DECODE( X_ROLE, NULL, ROLE, FND_API.G_MISS_CHAR, NULL, X_ROLE ),
OBJECT_VERSION_NUMBER = DECODE( X_OBJECT_VERSION_NUMBER, NULL, OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
CREATED_BY_MODULE = DECODE( X_CREATED_BY_MODULE, NULL, CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
APPLICATION_ID = DECODE( X_APPLICATION_ID, NULL, APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID )
WHERE ROWID = X_RowId;
END Update_Row;
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_ALLOW_CIRCULAR_RELATIONSHIPS IN VARCHAR2,
X_MULTIPLE_PARENT_ALLOWED IN VARCHAR2,
X_INCL_UNRELATED_ENTITIES IN VARCHAR2,
X_ROLE IN VARCHAR2,
X_OBJECT_VERSION_NUMBER IN NUMBER,
X_CREATED_BY_MODULE IN VARCHAR2,
X_APPLICATION_ID IN NUMBER
) IS
CURSOR C IS
SELECT * FROM HZ_RELATIONSHIP_TYPES
WHERE ROWID = x_Rowid
FOR UPDATE NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY )
OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
AND ( X_LAST_UPDATED_BY IS NULL ) ) )
AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
AND ( X_LAST_UPDATE_DATE IS NULL ) ) )
AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
AND ( X_LAST_UPDATE_LOGIN IS NULL ) ) )
AND ( ( Recinfo.ALLOW_CIRCULAR_RELATIONSHIPS = X_ALLOW_CIRCULAR_RELATIONSHIPS )
OR ( ( Recinfo.ALLOW_CIRCULAR_RELATIONSHIPS IS NULL )
AND ( X_ALLOW_CIRCULAR_RELATIONSHIPS IS NULL ) ) )
AND ( ( Recinfo.MULTIPLE_PARENT_ALLOWED = X_MULTIPLE_PARENT_ALLOWED )
OR ( ( Recinfo.MULTIPLE_PARENT_ALLOWED IS NULL )
AND ( X_MULTIPLE_PARENT_ALLOWED IS NULL ) ) )
AND ( ( Recinfo.INCL_UNRELATED_ENTITIES = X_INCL_UNRELATED_ENTITIES )
OR ( ( Recinfo.INCL_UNRELATED_ENTITIES IS NULL )
AND ( X_INCL_UNRELATED_ENTITIES IS NULL ) ) )
AND ( ( Recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER )
OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
AND ( X_OBJECT_VERSION_NUMBER IS NULL ) ) )
AND ( ( Recinfo.ROLE = X_ROLE )
OR ( ( Recinfo.ROLE IS NULL )
AND ( X_ROLE IS NULL ) ) )
AND ( ( Recinfo.CREATED_BY_MODULE = X_CREATED_BY_MODULE )
OR ( ( Recinfo.CREATED_BY_MODULE IS NULL )
AND ( X_CREATED_BY_MODULE IS NULL ) ) )
AND ( ( Recinfo.APPLICATION_ID = X_APPLICATION_ID )
OR ( ( Recinfo.APPLICATION_ID IS NULL )
AND ( X_APPLICATION_ID IS NULL ) ) )
) THEN
RETURN;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE Select_Row (
X_RELATIONSHIP_TYPE_ID IN OUT NOCOPY NUMBER,
X_RELATIONSHIP_TYPE OUT NOCOPY VARCHAR2,
X_FORWARD_REL_CODE OUT NOCOPY VARCHAR2,
X_BACKWARD_REL_CODE OUT NOCOPY VARCHAR2,
X_DIRECTION_CODE OUT NOCOPY VARCHAR2,
X_HIERARCHICAL_FLAG OUT NOCOPY VARCHAR2,
X_CREATE_PARTY_FLAG OUT NOCOPY VARCHAR2,
X_ALLOW_RELATE_TO_SELF_FLAG OUT NOCOPY VARCHAR2,
X_SUBJECT_TYPE OUT NOCOPY VARCHAR2,
X_OBJECT_TYPE OUT NOCOPY VARCHAR2,
X_STATUS OUT NOCOPY VARCHAR2,
X_ALLOW_CIRCULAR_RELATIONSHIPS OUT NOCOPY VARCHAR2,
X_MULTIPLE_PARENT_ALLOWED OUT NOCOPY VARCHAR2,
X_INCL_UNRELATED_ENTITIES OUT NOCOPY VARCHAR2,
X_ROLE OUT NOCOPY VARCHAR2,
X_CREATED_BY_MODULE OUT NOCOPY VARCHAR2,
X_APPLICATION_ID OUT NOCOPY NUMBER
) IS
BEGIN
SELECT
NVL( RELATIONSHIP_TYPE_ID, FND_API.G_MISS_NUM ),
NVL( RELATIONSHIP_TYPE, FND_API.G_MISS_CHAR ),
NVL( FORWARD_REL_CODE, FND_API.G_MISS_CHAR ),
NVL( BACKWARD_REL_CODE, FND_API.G_MISS_CHAR ),
NVL( DIRECTION_CODE, FND_API.G_MISS_CHAR ),
NVL( HIERARCHICAL_FLAG, FND_API.G_MISS_CHAR ),
NVL( CREATE_PARTY_FLAG, FND_API.G_MISS_CHAR ),
NVL( ALLOW_RELATE_TO_SELF_FLAG, FND_API.G_MISS_CHAR ),
NVL( SUBJECT_TYPE, FND_API.G_MISS_CHAR ),
NVL( OBJECT_TYPE, FND_API.G_MISS_CHAR ),
NVL( STATUS, FND_API.G_MISS_CHAR ),
NVL( ALLOW_CIRCULAR_RELATIONSHIPS, FND_API.G_MISS_CHAR ),
NVL( MULTIPLE_PARENT_ALLOWED, FND_API.G_MISS_CHAR ),
NVL( INCL_UNRELATED_ENTITIES, FND_API.G_MISS_CHAR ),
NVL(ROLE,FND_API.G_MISS_CHAR),
NVL( CREATED_BY_MODULE, FND_API.G_MISS_CHAR ),
NVL( APPLICATION_ID, FND_API.G_MISS_NUM )
INTO
X_RELATIONSHIP_TYPE_ID,
X_RELATIONSHIP_TYPE,
X_FORWARD_REL_CODE,
X_BACKWARD_REL_CODE,
X_DIRECTION_CODE,
X_HIERARCHICAL_FLAG,
X_CREATE_PARTY_FLAG,
X_ALLOW_RELATE_TO_SELF_FLAG,
X_SUBJECT_TYPE,
X_OBJECT_TYPE,
X_STATUS,
X_ALLOW_CIRCULAR_RELATIONSHIPS,
X_MULTIPLE_PARENT_ALLOWED,
X_INCL_UNRELATED_ENTITIES,
X_ROLE,
X_CREATED_BY_MODULE,
X_APPLICATION_ID
FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = X_RELATIONSHIP_TYPE_ID;
END Select_Row;
PROCEDURE Delete_Row (
X_RELATIONSHIP_TYPE_ID IN NUMBER
) IS
BEGIN
DELETE FROM HZ_RELATIONSHIP_TYPES
WHERE RELATIONSHIP_TYPE_ID = X_RELATIONSHIP_TYPE_ID;
END Delete_Row;