DBA Data[Home] [Help]

APPS.GMD_SUPPLIER_SPEC_VRS_PVT dependencies on GMD_SUPPLIER_SPEC_VRS

Line 1: PACKAGE BODY GMD_SUPPLIER_SPEC_VRS_PVT AS

1: PACKAGE BODY GMD_SUPPLIER_SPEC_VRS_PVT AS
2: /* $Header: GMDVSVRB.pls 120.1.12010000.2 2009/03/18 16:11:43 rnalla ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+

Line 11: --| Package Name : GMD_SUPPLIER_SPEC_VRS_PVT |

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. |

Line 37: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE

33: --+==========================================================================+
34: -- End of comments
35:
36: FUNCTION insert_row (
37: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE
38: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE
39: )
40: RETURN BOOLEAN IS
41: BEGIN

Line 38: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE

34: -- End of comments
35:
36: FUNCTION insert_row (
37: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE
38: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE
39: )
40: RETURN BOOLEAN IS
41: BEGIN
42:

Line 45: INSERT INTO GMD_SUPPLIER_SPEC_VRS

41: BEGIN
42:
43: x_supplier_spec_vrs := p_supplier_spec_vrs;
44:
45: INSERT INTO GMD_SUPPLIER_SPEC_VRS
46: (
47: SPEC_VR_ID
48: ,SPEC_ID
49: ,ORGANIZATION_ID

Line 188: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'INSERT_ROW');

184: END IF;
185:
186: EXCEPTION
187: WHEN OTHERS THEN
188: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'INSERT_ROW');
189: RETURN FALSE;
190:
191: END insert_row;
192:

Line 212: FROM gmd_supplier_spec_vrs

208: BEGIN
209: IF p_spec_vr_id IS NOT NULL THEN
210: SELECT 1
211: INTO dummy
212: FROM gmd_supplier_spec_vrs
213: WHERE spec_vr_id = p_spec_vr_id
214: FOR UPDATE NOWAIT;
215:
216: UPDATE gmd_supplier_spec_vrs

Line 216: UPDATE gmd_supplier_spec_vrs

212: FROM gmd_supplier_spec_vrs
213: WHERE spec_vr_id = p_spec_vr_id
214: FOR UPDATE NOWAIT;
215:
216: UPDATE gmd_supplier_spec_vrs
217: SET delete_mark = 1,
218: last_update_date = NVL(p_last_update_date,SYSDATE),
219: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
220: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 224: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

220: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
221: WHERE spec_vr_id = p_spec_vr_id
222: ;
223: ELSE
224: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
225: RETURN FALSE;
226: END IF;
227:
228: IF (SQL%FOUND) THEN

Line 231: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

227:
228: IF (SQL%FOUND) THEN
229: RETURN TRUE;
230: ELSE
231: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
232: RETURN FALSE;
233: END IF;
234:
235: EXCEPTION

Line 238: 'TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS',

234:
235: EXCEPTION
236: WHEN locked_by_other_user THEN
237: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
238: 'TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS',
239: 'RECORD','Supplier Spec Validity Rule',
240: 'KEY', p_spec_vr_id);
241: RETURN FALSE;
242:

Line 244: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');

240: 'KEY', p_spec_vr_id);
241: RETURN FALSE;
242:
243: WHEN OTHERS THEN
244: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');
245: RETURN FALSE;
246:
247: END delete_row;
248:

Line 264: FROM gmd_supplier_spec_vrs

260: BEGIN
261: IF p_spec_vr_id IS NOT NULL THEN
262: SELECT 1
263: INTO dummy
264: FROM gmd_supplier_spec_vrs
265: WHERE spec_vr_id = p_spec_vr_id
266: FOR UPDATE NOWAIT;
267: ELSE
268: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

Line 268: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

264: FROM gmd_supplier_spec_vrs
265: WHERE spec_vr_id = p_spec_vr_id
266: FOR UPDATE NOWAIT;
267: ELSE
268: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
269: RETURN FALSE;
270: END IF;
271:
272: RETURN TRUE;

Line 277: 'TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS',

273:
274: EXCEPTION
275: WHEN locked_by_other_user THEN
276: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
277: 'TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS',
278: 'RECORD','Supplier Spec Validity Rule',
279: 'KEY', p_spec_vr_id);
280: RETURN FALSE;
281:

Line 283: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');

279: 'KEY', p_spec_vr_id);
280: RETURN FALSE;
281:
282: WHEN OTHERS THEN
283: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');
284: RETURN FALSE;
285:
286: END lock_row;
287:

Line 291: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE

287:
288:
289:
290: FUNCTION fetch_row (
291: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE
292: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE
293: )
294: RETURN BOOLEAN
295: IS

Line 292: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE

288:
289:
290: FUNCTION fetch_row (
291: p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE
292: , x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE
293: )
294: RETURN BOOLEAN
295: IS
296: BEGIN

Line 301: FROM gmd_supplier_spec_vrs

297:
298: IF (p_supplier_spec_vrs.spec_vr_id IS NOT NULL) THEN
299: SELECT *
300: INTO x_supplier_spec_vrs
301: FROM gmd_supplier_spec_vrs
302: WHERE spec_vr_id = p_supplier_spec_vrs.spec_vr_id
303: ;
304: ELSE
305: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

Line 305: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

301: FROM gmd_supplier_spec_vrs
302: WHERE spec_vr_id = p_supplier_spec_vrs.spec_vr_id
303: ;
304: ELSE
305: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
306: RETURN FALSE;
307: END IF;
308:
309: RETURN TRUE;

Line 314: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');

310:
311: EXCEPTION
312: WHEN NO_DATA_FOUND
313: THEN
314: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
315: RETURN FALSE;
316: WHEN OTHERS
317: THEN
318: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'FETCH_ROW');

Line 318: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'FETCH_ROW');

314: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SUPPLIER_SPEC_VRS');
315: RETURN FALSE;
316: WHEN OTHERS
317: THEN
318: fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'FETCH_ROW');
319: RETURN FALSE;
320:
321: END fetch_row;
322:

Line 323: END GMD_SUPPLIER_SPEC_VRS_PVT;

319: RETURN FALSE;
320:
321: END fetch_row;
322:
323: END GMD_SUPPLIER_SPEC_VRS_PVT;