DBA Data[Home] [Help]

APPS.GMD_WIP_SPEC_VRS_PVT dependencies on GMD_WIP_SPEC_VRS

Line 1: PACKAGE BODY GMD_WIP_SPEC_VRS_PVT AS

1: PACKAGE BODY GMD_WIP_SPEC_VRS_PVT AS
2: /* $Header: GMDVWVRB.pls 120.3.12010000.2 2009/03/18 16:14:26 rnalla ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+

Line 11: --| Package Name : GMD_WIP_SPEC_VRS_PVT |

7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVWVRB.pls |
11: --| Package Name : GMD_WIP_SPEC_VRS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for WIP VR. |

Line 34: p_wip_spec_vrs IN GMD_WIP_SPEC_VRS%ROWTYPE

30: --+==========================================================================+
31: -- End of comments
32:
33: FUNCTION insert_row (
34: p_wip_spec_vrs IN GMD_WIP_SPEC_VRS%ROWTYPE
35: , x_wip_spec_vrs OUT NOCOPY GMD_WIP_SPEC_VRS%ROWTYPE) RETURN BOOLEAN IS
36: BEGIN
37:
38: x_wip_spec_vrs := p_wip_spec_vrs;

Line 35: , x_wip_spec_vrs OUT NOCOPY GMD_WIP_SPEC_VRS%ROWTYPE) RETURN BOOLEAN IS

31: -- End of comments
32:
33: FUNCTION insert_row (
34: p_wip_spec_vrs IN GMD_WIP_SPEC_VRS%ROWTYPE
35: , x_wip_spec_vrs OUT NOCOPY GMD_WIP_SPEC_VRS%ROWTYPE) RETURN BOOLEAN IS
36: BEGIN
37:
38: x_wip_spec_vrs := p_wip_spec_vrs;
39:

Line 40: INSERT INTO GMD_WIP_SPEC_VRS

36: BEGIN
37:
38: x_wip_spec_vrs := p_wip_spec_vrs;
39:
40: INSERT INTO GMD_WIP_SPEC_VRS
41: (
42: SPEC_VR_ID
43: ,SPEC_ID
44: ,ORGANIZATION_ID

Line 213: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'INSERT_ROW');

209: END IF;
210:
211: EXCEPTION
212: WHEN OTHERS THEN
213: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'INSERT_ROW');
214: RETURN FALSE;
215:
216: END insert_row;
217:

Line 237: FROM gmd_wip_spec_vrs

233: BEGIN
234: IF p_spec_vr_id IS NOT NULL THEN
235: SELECT 1
236: INTO dummy
237: FROM gmd_wip_spec_vrs
238: WHERE spec_vr_id = p_spec_vr_id
239: FOR UPDATE NOWAIT;
240:
241: UPDATE gmd_wip_spec_vrs

Line 241: UPDATE gmd_wip_spec_vrs

237: FROM gmd_wip_spec_vrs
238: WHERE spec_vr_id = p_spec_vr_id
239: FOR UPDATE NOWAIT;
240:
241: UPDATE gmd_wip_spec_vrs
242: SET delete_mark = 1,
243: last_update_date = NVL(p_last_update_date,SYSDATE),
244: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
245: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 249: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

245: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
246: WHERE spec_vr_id = p_spec_vr_id
247: ;
248: ELSE
249: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
250: RETURN FALSE;
251: END IF;
252:
253: IF (SQL%FOUND) THEN

Line 256: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

252:
253: IF (SQL%FOUND) THEN
254: RETURN TRUE;
255: ELSE
256: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
257: RETURN FALSE;
258: END IF;
259:
260: EXCEPTION

Line 263: 'TABLE_NAME', 'GMD_WIP_SPEC_VRS',

259:
260: EXCEPTION
261: WHEN locked_by_other_user THEN
262: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
263: 'TABLE_NAME', 'GMD_WIP_SPEC_VRS',
264: 'RECORD','WIP Spec Validity Rule',
265: 'KEY', p_spec_vr_id);
266: RETURN FALSE;
267:

Line 269: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'DELETE_ROW');

265: 'KEY', p_spec_vr_id);
266: RETURN FALSE;
267:
268: WHEN OTHERS THEN
269: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'DELETE_ROW');
270: RETURN FALSE;
271:
272: END delete_row;
273:

Line 289: FROM gmd_wip_spec_vrs

285: BEGIN
286: IF p_spec_vr_id IS NOT NULL THEN
287: SELECT 1
288: INTO dummy
289: FROM gmd_wip_spec_vrs
290: WHERE spec_vr_id = p_spec_vr_id
291: FOR UPDATE NOWAIT;
292: ELSE
293: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

Line 293: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

289: FROM gmd_wip_spec_vrs
290: WHERE spec_vr_id = p_spec_vr_id
291: FOR UPDATE NOWAIT;
292: ELSE
293: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
294: RETURN FALSE;
295: END IF;
296:
297: RETURN TRUE;

Line 302: 'TABLE_NAME', 'GMD_WIP_SPEC_VRS',

298:
299: EXCEPTION
300: WHEN locked_by_other_user THEN
301: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
302: 'TABLE_NAME', 'GMD_WIP_SPEC_VRS',
303: 'RECORD','WIP Spec Validity Rule',
304: 'KEY', p_spec_vr_id);
305: RETURN FALSE;
306:

Line 308: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'DELETE_ROW');

304: 'KEY', p_spec_vr_id);
305: RETURN FALSE;
306:
307: WHEN OTHERS THEN
308: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'DELETE_ROW');
309: RETURN FALSE;
310:
311: END lock_row;
312:

Line 316: p_wip_spec_vrs IN gmd_wip_spec_vrs%ROWTYPE

312:
313:
314:
315: FUNCTION fetch_row (
316: p_wip_spec_vrs IN gmd_wip_spec_vrs%ROWTYPE
317: , x_wip_spec_vrs OUT NOCOPY gmd_wip_spec_vrs%ROWTYPE
318: )
319: RETURN BOOLEAN
320: IS

Line 317: , x_wip_spec_vrs OUT NOCOPY gmd_wip_spec_vrs%ROWTYPE

313:
314:
315: FUNCTION fetch_row (
316: p_wip_spec_vrs IN gmd_wip_spec_vrs%ROWTYPE
317: , x_wip_spec_vrs OUT NOCOPY gmd_wip_spec_vrs%ROWTYPE
318: )
319: RETURN BOOLEAN
320: IS
321: BEGIN

Line 326: FROM gmd_wip_spec_vrs

322:
323: IF (p_wip_spec_vrs.spec_vr_id IS NOT NULL) THEN
324: SELECT *
325: INTO x_wip_spec_vrs
326: FROM gmd_wip_spec_vrs
327: WHERE spec_vr_id = p_wip_spec_vrs.spec_vr_id
328: ;
329: ELSE
330: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

Line 330: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

326: FROM gmd_wip_spec_vrs
327: WHERE spec_vr_id = p_wip_spec_vrs.spec_vr_id
328: ;
329: ELSE
330: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
331: RETURN FALSE;
332: END IF;
333:
334: RETURN TRUE;

Line 339: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_WIP_SPEC_VRS');

335:
336: EXCEPTION
337: WHEN NO_DATA_FOUND
338: THEN
339: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
340: RETURN FALSE;
341: WHEN OTHERS
342: THEN
343: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'FETCH_ROW');

Line 343: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'FETCH_ROW');

339: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_WIP_SPEC_VRS');
340: RETURN FALSE;
341: WHEN OTHERS
342: THEN
343: fnd_msg_pub.add_exc_msg ('GMD_WIP_SPEC_VRS_PVT', 'FETCH_ROW');
344: RETURN FALSE;
345:
346: END fetch_row;
347:

Line 348: END GMD_WIP_SPEC_VRS_PVT;

344: RETURN FALSE;
345:
346: END fetch_row;
347:
348: END GMD_WIP_SPEC_VRS_PVT;