[Home] [Help]
1: PACKAGE BODY GMD_INVENTORY_SPEC_VRS_PVT AS
2: /* $Header: GMDVIVRB.pls 120.1.12010000.2 2009/03/18 21:29:13 plowe ship $ */
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. |
29: --+==========================================================================+
30: -- End of comments
31:
32: FUNCTION insert_row (
33: p_inventory_spec_vrs IN GMD_INVENTORY_SPEC_VRS%ROWTYPE
34: , x_inventory_spec_vrs OUT NOCOPY GMD_INVENTORY_SPEC_VRS%ROWTYPE
35: )
36: RETURN BOOLEAN IS
37: BEGIN
30: -- End of comments
31:
32: FUNCTION insert_row (
33: p_inventory_spec_vrs IN GMD_INVENTORY_SPEC_VRS%ROWTYPE
34: , x_inventory_spec_vrs OUT NOCOPY GMD_INVENTORY_SPEC_VRS%ROWTYPE
35: )
36: RETURN BOOLEAN IS
37: BEGIN
38:
37: BEGIN
38:
39: x_inventory_spec_vrs := p_inventory_spec_vrs;
40:
41: INSERT INTO GMD_INVENTORY_SPEC_VRS
42: (
43: SPEC_VR_ID
44: ,SPEC_ID
45: ,ORGANIZATION_ID
180: END IF;
181:
182: EXCEPTION
183: WHEN OTHERS THEN
184: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'INSERT_ROW');
185: RETURN FALSE;
186:
187: END insert_row;
188:
202: BEGIN
203: IF p_spec_vr_id IS NOT NULL THEN
204: SELECT 1
205: INTO dummy
206: FROM gmd_inventory_spec_vrs
207: WHERE spec_vr_id = p_spec_vr_id
208: FOR UPDATE NOWAIT;
209:
210: UPDATE gmd_inventory_spec_vrs
206: FROM gmd_inventory_spec_vrs
207: WHERE spec_vr_id = p_spec_vr_id
208: FOR UPDATE NOWAIT;
209:
210: UPDATE gmd_inventory_spec_vrs
211: SET delete_mark = 1,
212: last_update_date = NVL(p_last_update_date,SYSDATE),
213: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
214: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
214: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
215: WHERE spec_vr_id = p_spec_vr_id
216: ;
217: ELSE
218: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
219: RETURN FALSE;
220: END IF;
221:
222: IF (SQL%FOUND) THEN
221:
222: IF (SQL%FOUND) THEN
223: RETURN TRUE;
224: ELSE
225: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
226: RETURN FALSE;
227: END IF;
228:
229: EXCEPTION
228:
229: EXCEPTION
230: WHEN locked_by_other_user THEN
231: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
232: 'TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS',
233: 'RECORD','Inventory Spec Validity Rule',
234: 'KEY', p_spec_vr_id);
235: RETURN FALSE;
236:
234: 'KEY', p_spec_vr_id);
235: RETURN FALSE;
236:
237: WHEN OTHERS THEN
238: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'DELETE_ROW');
239: RETURN FALSE;
240:
241: END delete_row;
242:
253: BEGIN
254: IF p_spec_vr_id IS NOT NULL THEN
255: SELECT 1
256: INTO dummy
257: FROM gmd_inventory_spec_vrs
258: WHERE spec_vr_id = p_spec_vr_id
259: FOR UPDATE NOWAIT;
260: ELSE
261: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
257: FROM gmd_inventory_spec_vrs
258: WHERE spec_vr_id = p_spec_vr_id
259: FOR UPDATE NOWAIT;
260: ELSE
261: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
262: RETURN FALSE;
263: END IF;
264:
265: RETURN TRUE;
266:
267: EXCEPTION
268: WHEN locked_by_other_user THEN
269: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
270: 'TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS',
271: 'RECORD','Inventory Spec Validity Rule',
272: 'KEY', p_spec_vr_id);
273: RETURN FALSE;
274:
272: 'KEY', p_spec_vr_id);
273: RETURN FALSE;
274:
275: WHEN OTHERS THEN
276: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'DELETE_ROW');
277: RETURN FALSE;
278:
279: END lock_row;
280:
280:
281:
282:
283: FUNCTION fetch_row (
284: p_inventory_spec_vrs IN gmd_inventory_spec_vrs%ROWTYPE
285: , x_inventory_spec_vrs OUT NOCOPY gmd_inventory_spec_vrs%ROWTYPE
286: )
287: RETURN BOOLEAN
288: IS
281:
282:
283: FUNCTION fetch_row (
284: p_inventory_spec_vrs IN gmd_inventory_spec_vrs%ROWTYPE
285: , x_inventory_spec_vrs OUT NOCOPY gmd_inventory_spec_vrs%ROWTYPE
286: )
287: RETURN BOOLEAN
288: IS
289: BEGIN
290:
291: IF (p_inventory_spec_vrs.spec_vr_id IS NOT NULL) THEN
292: SELECT *
293: INTO x_inventory_spec_vrs
294: FROM gmd_inventory_spec_vrs
295: WHERE spec_vr_id = p_inventory_spec_vrs.spec_vr_id
296: ;
297: ELSE
298: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
294: FROM gmd_inventory_spec_vrs
295: WHERE spec_vr_id = p_inventory_spec_vrs.spec_vr_id
296: ;
297: ELSE
298: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
299: RETURN FALSE;
300: END IF;
301:
302: RETURN TRUE;
303:
304: EXCEPTION
305: WHEN NO_DATA_FOUND
306: THEN
307: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
308: RETURN FALSE;
309: WHEN OTHERS
310: THEN
311: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'FETCH_ROW');
307: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_INVENTORY_SPEC_VRS');
308: RETURN FALSE;
309: WHEN OTHERS
310: THEN
311: fnd_msg_pub.add_exc_msg ('GMD_INVENTORY_SPEC_VRS_PVT', 'FETCH_ROW');
312: RETURN FALSE;
313:
314: END fetch_row;
315:
312: RETURN FALSE;
313:
314: END fetch_row;
315:
316: END GMD_INVENTORY_SPEC_VRS_PVT;