82:
83: /*
84: IF l_org_id is NULL or l_org_id = -99 THEN
85:
86: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
87: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
88: FND_MSG_PUB.ADD;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
83: /*
84: IF l_org_id is NULL or l_org_id = -99 THEN
85:
86: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
87: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
88: FND_MSG_PUB.ADD;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
91: */
93: -- check the required fields:
94: IF p_location_id IS NULL OR
95: p_location_id = FND_API.G_MISS_NUM THEN
96:
97: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
98: FND_MESSAGE.SET_TOKEN('COLUMN', 'p_location_id');
99: FND_MSG_PUB.ADD;
100: RAISE FND_API.G_EXC_ERROR;
101: END IF;
94: IF p_location_id IS NULL OR
95: p_location_id = FND_API.G_MISS_NUM THEN
96:
97: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
98: FND_MESSAGE.SET_TOKEN('COLUMN', 'p_location_id');
99: FND_MSG_PUB.ADD;
100: RAISE FND_API.G_EXC_ERROR;
101: END IF;
102:
126: WHERE location_id = p_location_id
127: FOR UPDATE OF location_id NOWAIT;
128:
129: EXCEPTION WHEN NO_DATA_FOUND THEN
130: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
131: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
132: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
133: FND_MSG_PUB.ADD;
134: x_return_status := FND_API.G_RET_STS_ERROR;
127: FOR UPDATE OF location_id NOWAIT;
128:
129: EXCEPTION WHEN NO_DATA_FOUND THEN
130: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
131: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
132: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
133: FND_MSG_PUB.ADD;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135:
128:
129: EXCEPTION WHEN NO_DATA_FOUND THEN
130: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
131: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
132: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
133: FND_MSG_PUB.ADD;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135:
136: END; -- end of SELECT
152: FROM HZ_LOCATIONS
153: WHERE location_id = p_location_id;
154:
155: EXCEPTION WHEN NO_DATA_FOUND THEN
156: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
157: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
158: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
159: FND_MSG_PUB.ADD;
160: x_return_status := FND_API.G_RET_STS_ERROR;
153: WHERE location_id = p_location_id;
154:
155: EXCEPTION WHEN NO_DATA_FOUND THEN
156: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
157: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
158: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
159: FND_MSG_PUB.ADD;
160: x_return_status := FND_API.G_RET_STS_ERROR;
161:
154:
155: EXCEPTION WHEN NO_DATA_FOUND THEN
156: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
157: FND_MESSAGE.SET_TOKEN('RECORD', 'hz_locations');
158: FND_MESSAGE.SET_TOKEN('VALUE', to_char(p_location_id));
159: FND_MSG_PUB.ADD;
160: x_return_status := FND_API.G_RET_STS_ERROR;
161:
162: END; -- end of SELECT ;
169: l_allow_update_std := nvl(fnd_profile.value('HZ_UPDATE_STD_ADDRESS'), 'Y');
170: IF(l_allow_update_std = 'N' AND
171: l_date_validated IS NOT NULL AND
172: l_validation_status_code IS NOT NULL) THEN
173: FND_MESSAGE.SET_NAME('AR', 'HZ_LOC_NO_UPDATE');
174: FND_MSG_PUB.ADD;
175: RAISE fnd_api.g_exc_error;
176: END IF;
177: -- ACNG
529:
530: WHEN APP_EXCEPTION THEN
531: ROLLBACK TO create_loc_assignment_pub;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
534: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
535: FND_MSG_PUB.ADD;
536: FND_MSG_PUB.Count_And_Get(
537: p_encoded => FND_API.G_FALSE,
530: WHEN APP_EXCEPTION THEN
531: ROLLBACK TO create_loc_assignment_pub;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
534: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
535: FND_MSG_PUB.ADD;
536: FND_MSG_PUB.Count_And_Get(
537: p_encoded => FND_API.G_FALSE,
538: p_count => x_msg_count,
540: WHEN OTHERS THEN
541: ROLLBACK TO create_loc_assignment_pub;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543:
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547:
548: FND_MSG_PUB.Count_And_Get(
541: ROLLBACK TO create_loc_assignment_pub;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543:
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547:
548: FND_MSG_PUB.Count_And_Get(
549: p_encoded => FND_API.G_FALSE,
648:
649: WHEN APP_EXCEPTION THEN
650: ROLLBACK TO update_loc_assignment_pub;
651: x_return_status := FND_API.G_RET_STS_ERROR;
652: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
653: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
654: FND_MSG_PUB.ADD;
655: FND_MSG_PUB.Count_And_Get(
656: p_encoded => FND_API.G_FALSE,
649: WHEN APP_EXCEPTION THEN
650: ROLLBACK TO update_loc_assignment_pub;
651: x_return_status := FND_API.G_RET_STS_ERROR;
652: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
653: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
654: FND_MSG_PUB.ADD;
655: FND_MSG_PUB.Count_And_Get(
656: p_encoded => FND_API.G_FALSE,
657: p_count => x_msg_count,
660: WHEN OTHERS THEN
661: ROLLBACK TO update_loc_assignment_pub;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663:
664: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
665: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
666: FND_MSG_PUB.ADD;
667:
668: FND_MSG_PUB.Count_And_Get(
661: ROLLBACK TO update_loc_assignment_pub;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663:
664: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
665: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
666: FND_MSG_PUB.ADD;
667:
668: FND_MSG_PUB.Count_And_Get(
669: p_encoded => FND_API.G_FALSE,