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