80:
81: IF NOT((p_object_version_number IS NULL AND l_ovn IS NULL) OR
82: (p_object_version_number IS NOT NULL AND l_ovn IS NOT NULL AND
83: p_object_version_number = l_ovn)) THEN
84: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
85: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_BUS_OBJ_DEFINITIONS');
86: FND_MSG_PUB.ADD;
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
81: IF NOT((p_object_version_number IS NULL AND l_ovn IS NULL) OR
82: (p_object_version_number IS NOT NULL AND l_ovn IS NOT NULL AND
83: p_object_version_number = l_ovn)) THEN
84: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
85: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_BUS_OBJ_DEFINITIONS');
86: FND_MSG_PUB.ADD;
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: EXCEPTION
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: EXCEPTION
90: WHEN NO_DATA_FOUND THEN
91: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
92: FND_MESSAGE.SET_TOKEN('RECORD', 'business object definition');
93: FND_MESSAGE.SET_TOKEN('VALUE', 'Business Object Code: '||p_business_object_code||' Entity Name: '||p_entity_name||' Child BO Code: '||p_child_bo_code);
94: FND_MSG_PUB.ADD;
95: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: EXCEPTION
90: WHEN NO_DATA_FOUND THEN
91: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
92: FND_MESSAGE.SET_TOKEN('RECORD', 'business object definition');
93: FND_MESSAGE.SET_TOKEN('VALUE', 'Business Object Code: '||p_business_object_code||' Entity Name: '||p_entity_name||' Child BO Code: '||p_child_bo_code);
94: FND_MSG_PUB.ADD;
95: RAISE FND_API.G_EXC_ERROR;
96: END;
89: EXCEPTION
90: WHEN NO_DATA_FOUND THEN
91: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
92: FND_MESSAGE.SET_TOKEN('RECORD', 'business object definition');
93: FND_MESSAGE.SET_TOKEN('VALUE', 'Business Object Code: '||p_business_object_code||' Entity Name: '||p_entity_name||' Child BO Code: '||p_child_bo_code);
94: FND_MSG_PUB.ADD;
95: RAISE FND_API.G_EXC_ERROR;
96: END;
97:
98: p_object_version_number := nvl(l_ovn, 1) + 1;
99:
100: IF(l_tmf = 'Y') THEN
101: IF(p_child_bo_code IS NULL) THEN
102: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_ENT_ERROR');
103: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', p_entity_name);
104: ELSE
105: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_OBJ_ERROR');
106: FND_MESSAGE.SET_TOKEN('CHILD_BO_CODE', p_child_bo_code);
99:
100: IF(l_tmf = 'Y') THEN
101: IF(p_child_bo_code IS NULL) THEN
102: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_ENT_ERROR');
103: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', p_entity_name);
104: ELSE
105: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_OBJ_ERROR');
106: FND_MESSAGE.SET_TOKEN('CHILD_BO_CODE', p_child_bo_code);
107: END IF;
101: IF(p_child_bo_code IS NULL) THEN
102: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_ENT_ERROR');
103: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', p_entity_name);
104: ELSE
105: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_OBJ_ERROR');
106: FND_MESSAGE.SET_TOKEN('CHILD_BO_CODE', p_child_bo_code);
107: END IF;
108: FND_MESSAGE.SET_TOKEN('BO_CODE', p_business_object_code);
109: FND_MSG_PUB.ADD;
102: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_ENT_ERROR');
103: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', p_entity_name);
104: ELSE
105: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_OBJ_ERROR');
106: FND_MESSAGE.SET_TOKEN('CHILD_BO_CODE', p_child_bo_code);
107: END IF;
108: FND_MESSAGE.SET_TOKEN('BO_CODE', p_business_object_code);
109: FND_MSG_PUB.ADD;
110: RAISE FND_API.G_EXC_ERROR;
104: ELSE
105: FND_MESSAGE.SET_NAME('AR', 'HZ_BES_BO_BOD_MAND_OBJ_ERROR');
106: FND_MESSAGE.SET_TOKEN('CHILD_BO_CODE', p_child_bo_code);
107: END IF;
108: FND_MESSAGE.SET_TOKEN('BO_CODE', p_business_object_code);
109: FND_MSG_PUB.ADD;
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
157: 'AR', 'ARHBOGEN', 'TCA BES - Generate Infrastructure',
158: sysdate, FALSE);
159:
160: IF(l_req_id IS NULL or l_req_id = 0) THEN
161: FND_MESSAGE.SET_NAME('AR', 'AR_CUST_CONC_ERROR');
162: FND_MSG_PUB.ADD;
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: END IF;
231:
232: WHEN OTHERS THEN
233: ROLLBACK TO update_bod_pvt;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
236: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
237: FND_MSG_PUB.ADD;
238:
239: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
232: WHEN OTHERS THEN
233: ROLLBACK TO update_bod_pvt;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
236: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
237: FND_MSG_PUB.ADD;
238:
239: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
240: p_count => x_msg_count,