875:
876: -- RAISE HELL WHEN return status is not success
877: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
878: THEN
879: FND_MESSAGE.SET_NAME('AR', 'HZ_CREATE_REL_SUB_OBJ_ERROR');
880: FND_MESSAGE.SET_TOKEN('RELATIONSHIP' ,p_relationship_code);
881: FND_MESSAGE.SET_TOKEN('REL_TYPE' , 'DNB_HIERARCHY');
882: FND_MESSAGE.SET_TOKEN('SUB' , to_char(p_subject_id));
883: FND_MESSAGE.SET_TOKEN('OBJ' , to_char(p_object_id));
876: -- RAISE HELL WHEN return status is not success
877: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
878: THEN
879: FND_MESSAGE.SET_NAME('AR', 'HZ_CREATE_REL_SUB_OBJ_ERROR');
880: FND_MESSAGE.SET_TOKEN('RELATIONSHIP' ,p_relationship_code);
881: FND_MESSAGE.SET_TOKEN('REL_TYPE' , 'DNB_HIERARCHY');
882: FND_MESSAGE.SET_TOKEN('SUB' , to_char(p_subject_id));
883: FND_MESSAGE.SET_TOKEN('OBJ' , to_char(p_object_id));
884: FND_MSG_PUB.ADD;
877: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
878: THEN
879: FND_MESSAGE.SET_NAME('AR', 'HZ_CREATE_REL_SUB_OBJ_ERROR');
880: FND_MESSAGE.SET_TOKEN('RELATIONSHIP' ,p_relationship_code);
881: FND_MESSAGE.SET_TOKEN('REL_TYPE' , 'DNB_HIERARCHY');
882: FND_MESSAGE.SET_TOKEN('SUB' , to_char(p_subject_id));
883: FND_MESSAGE.SET_TOKEN('OBJ' , to_char(p_object_id));
884: FND_MSG_PUB.ADD;
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: THEN
879: FND_MESSAGE.SET_NAME('AR', 'HZ_CREATE_REL_SUB_OBJ_ERROR');
880: FND_MESSAGE.SET_TOKEN('RELATIONSHIP' ,p_relationship_code);
881: FND_MESSAGE.SET_TOKEN('REL_TYPE' , 'DNB_HIERARCHY');
882: FND_MESSAGE.SET_TOKEN('SUB' , to_char(p_subject_id));
883: FND_MESSAGE.SET_TOKEN('OBJ' , to_char(p_object_id));
884: FND_MSG_PUB.ADD;
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886:
879: FND_MESSAGE.SET_NAME('AR', 'HZ_CREATE_REL_SUB_OBJ_ERROR');
880: FND_MESSAGE.SET_TOKEN('RELATIONSHIP' ,p_relationship_code);
881: FND_MESSAGE.SET_TOKEN('REL_TYPE' , 'DNB_HIERARCHY');
882: FND_MESSAGE.SET_TOKEN('SUB' , to_char(p_subject_id));
883: FND_MESSAGE.SET_TOKEN('OBJ' , to_char(p_object_id));
884: FND_MSG_PUB.ADD;
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886:
887: END IF;