[Home] [Help]
1: PACKAGE BODY CSI_HZ_LOCATIONS_PVT AS
2: /* $Header: csivhzlb.pls 120.2 2005/12/09 16:32:36 rmamidip noship $ */
3: -- Start of Comments
4: -- Package name : CSI_HZ_LOCATIONS_PVT
5: -- Purpose :
1: PACKAGE BODY CSI_HZ_LOCATIONS_PVT AS
2: /* $Header: csivhzlb.pls 120.2 2005/12/09 16:32:36 rmamidip noship $ */
3: -- Start of Comments
4: -- Package name : CSI_HZ_LOCATIONS_PVT
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
8: -- End of Comments
9:
10: -- Default number of records fetch per call
11:
12: g_pkg_name CONSTANT VARCHAR2(30) := 'csi_hz_locations_pvt';
13: g_file_name CONSTANT VARCHAR2(12) := 'csivhzlb.pls';
14:
15: --+=================================================================+
16: --| Create_location procedure written for calling it from CSI forms |
122: l_location_rec.clli_code <> FND_API.G_MISS_CHAR THEN
123: BEGIN
124: SELECT 'x'
125: INTO l_dummy
126: FROM hz_locations
127: WHERE clli_code = l_location_rec.clli_code;
128:
129: fnd_message.set_name('CSI', 'CSI_DUPLICATE_CLLI_CODE');
130: fnd_message.set_token('PARAMETER',l_location_rec.clli_code);
291:
292: BEGIN
293: SELECT object_version_number
294: INTO l_object_version_number
295: FROM hz_locations
296: WHERE location_id = l_location_rec.location_id;
297: EXCEPTION
298: WHEN NO_DATA_FOUND THEN
299: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
307: l_location_rec.clli_code <> FND_API.G_MISS_CHAR THEN
308: BEGIN
309: SELECT 'x'
310: INTO l_dummy
311: FROM hz_locations
312: WHERE clli_code = l_location_rec.clli_code
313: AND location_id <> l_location_rec.location_id;
314: fnd_message.set_name('CSI', 'CSI_DUPLICATE_CLLI_CODE');
315: fnd_message.set_token('PARAMETER',l_location_rec.clli_code);
385: )
386: IS
387: CURSOR C IS
388: SELECT *
389: FROM hz_locations
390: WHERE location_id = p_location_id
391: FOR UPDATE of location_id NOWAIT;
392: Recinfo C%ROWTYPE;
393: BEGIN
462: APP_EXCEPTION.RAISE_EXCEPTION;
463: END IF;
464: END Lock_location;
465:
466: END CSI_HZ_LOCATIONS_PVT;