1: PACKAGE BODY GMD_INVENTORY_SPEC_VRS_PVT AS
2: /* $Header: GMDVIVRB.pls 120.1 2005/10/04 06:52:11 svankada noship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVIVRB.pls |
11: --| Package Name : GMD_INVENTORY_SPEC_VRS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for Inventory VR. |
28: --+==========================================================================+
29: -- End of comments
30:
31: FUNCTION insert_row (
32: p_inventory_spec_vrs IN GMD_INVENTORY_SPEC_VRS%ROWTYPE
33: , x_inventory_spec_vrs OUT NOCOPY GMD_INVENTORY_SPEC_VRS%ROWTYPE
34: )
35: RETURN BOOLEAN IS
36: BEGIN
29: -- End of comments
30:
31: FUNCTION insert_row (
32: p_inventory_spec_vrs IN GMD_INVENTORY_SPEC_VRS%ROWTYPE
33: , x_inventory_spec_vrs OUT NOCOPY GMD_INVENTORY_SPEC_VRS%ROWTYPE
34: )
35: RETURN BOOLEAN IS
36: BEGIN
37:
36: BEGIN
37:
38: x_inventory_spec_vrs := p_inventory_spec_vrs;
39:
40: INSERT INTO GMD_INVENTORY_SPEC_VRS
41: (
42: SPEC_VR_ID
43: ,SPEC_ID
44: ,ORGANIZATION_ID
177: END IF;
178:
179: EXCEPTION
180: WHEN OTHERS THEN
181: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'INSERT_ROW');
182: RETURN FALSE;
183:
184: END insert_row;
185:
199: BEGIN
200: IF p_spec_vr_id IS NOT NULL THEN
201: SELECT 1
202: INTO dummy
203: FROM gmd_inventory_spec_vrs
204: WHERE spec_vr_id = p_spec_vr_id
205: FOR UPDATE NOWAIT;
206:
207: UPDATE gmd_inventory_spec_vrs
203: FROM gmd_inventory_spec_vrs
204: WHERE spec_vr_id = p_spec_vr_id
205: FOR UPDATE NOWAIT;
206:
207: UPDATE gmd_inventory_spec_vrs
208: SET delete_mark = 1,
209: last_update_date = NVL(p_last_update_date,SYSDATE),
210: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
211: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
211: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
212: WHERE spec_vr_id = p_spec_vr_id
213: ;
214: ELSE
215: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
216: RETURN FALSE;
217: END IF;
218:
219: IF (SQL%FOUND) THEN
218:
219: IF (SQL%FOUND) THEN
220: RETURN TRUE;
221: ELSE
222: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
223: RETURN FALSE;
224: END IF;
225:
226: EXCEPTION
225:
226: EXCEPTION
227: WHEN locked_by_other_user THEN
228: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
229: 'TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS',
230: 'RECORD','Inventory Spec Validity Rule',
231: 'KEY', p_spec_vr_id);
232: RETURN FALSE;
233:
231: 'KEY', p_spec_vr_id);
232: RETURN FALSE;
233:
234: WHEN OTHERS THEN
235: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'DELETE_ROW');
236: RETURN FALSE;
237:
238: END delete_row;
239:
250: BEGIN
251: IF p_spec_vr_id IS NOT NULL THEN
252: SELECT 1
253: INTO dummy
254: FROM gmd_inventory_spec_vrs
255: WHERE spec_vr_id = p_spec_vr_id
256: FOR UPDATE NOWAIT;
257: ELSE
258: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
254: FROM gmd_inventory_spec_vrs
255: WHERE spec_vr_id = p_spec_vr_id
256: FOR UPDATE NOWAIT;
257: ELSE
258: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
259: RETURN FALSE;
260: END IF;
261:
262: RETURN TRUE;
263:
264: EXCEPTION
265: WHEN locked_by_other_user THEN
266: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
267: 'TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS',
268: 'RECORD','Inventory Spec Validity Rule',
269: 'KEY', p_spec_vr_id);
270: RETURN FALSE;
271:
269: 'KEY', p_spec_vr_id);
270: RETURN FALSE;
271:
272: WHEN OTHERS THEN
273: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'DELETE_ROW');
274: RETURN FALSE;
275:
276: END lock_row;
277:
277:
278:
279:
280: FUNCTION fetch_row (
281: p_inventory_spec_vrs IN gmd_inventory_spec_vrs%ROWTYPE
282: , x_inventory_spec_vrs OUT NOCOPY gmd_inventory_spec_vrs%ROWTYPE
283: )
284: RETURN BOOLEAN
285: IS
278:
279:
280: FUNCTION fetch_row (
281: p_inventory_spec_vrs IN gmd_inventory_spec_vrs%ROWTYPE
282: , x_inventory_spec_vrs OUT NOCOPY gmd_inventory_spec_vrs%ROWTYPE
283: )
284: RETURN BOOLEAN
285: IS
286: BEGIN
287:
288: IF (p_inventory_spec_vrs.spec_vr_id IS NOT NULL) THEN
289: SELECT *
290: INTO x_inventory_spec_vrs
291: FROM gmd_inventory_spec_vrs
292: WHERE spec_vr_id = p_inventory_spec_vrs.spec_vr_id
293: ;
294: ELSE
295: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
291: FROM gmd_inventory_spec_vrs
292: WHERE spec_vr_id = p_inventory_spec_vrs.spec_vr_id
293: ;
294: ELSE
295: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
296: RETURN FALSE;
297: END IF;
298:
299: RETURN TRUE;
300:
301: EXCEPTION
302: WHEN NO_DATA_FOUND
303: THEN
304: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
305: RETURN FALSE;
306: WHEN OTHERS
307: THEN
308: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'FETCH_ROW');
304: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
305: RETURN FALSE;
306: WHEN OTHERS
307: THEN
308: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'FETCH_ROW');
309: RETURN FALSE;
310:
311: END fetch_row;
312:
309: RETURN FALSE;
310:
311: END fetch_row;
312:
313: END GMD_INVENTORY_SPEC_VRS_PVT;