1: PACKAGE BODY GMD_CUSTOMER_SPEC_VRS_PVT AS
2: /* $Header: GMDVCVRB.pls 120.1 2005/10/04 06:56:25 svankada noship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVCVRB.pls |
11: --| Package Name : GMD_CUSTOMER_SPEC_VRS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for Customer VR. |
23: --+==========================================================================+
24: -- End of comments
25:
26: FUNCTION insert_row (
27: p_customer_spec_vrs IN GMD_CUSTOMER_SPEC_VRS%ROWTYPE
28: , x_customer_spec_vrs OUT NOCOPY GMD_CUSTOMER_SPEC_VRS%ROWTYPE
29: )
30: RETURN BOOLEAN IS
31: BEGIN
24: -- End of comments
25:
26: FUNCTION insert_row (
27: p_customer_spec_vrs IN GMD_CUSTOMER_SPEC_VRS%ROWTYPE
28: , x_customer_spec_vrs OUT NOCOPY GMD_CUSTOMER_SPEC_VRS%ROWTYPE
29: )
30: RETURN BOOLEAN IS
31: BEGIN
32:
31: BEGIN
32:
33: x_customer_spec_vrs := p_customer_spec_vrs;
34:
35: INSERT INTO GMD_CUSTOMER_SPEC_VRS
36: (
37: SPEC_VR_ID
38: ,SPEC_ID
39: ,ORGANIZATION_ID
164: END IF;
165:
166: EXCEPTION
167: WHEN OTHERS THEN
168: fnd_msg_pub.add_exc_msg ('GMD_CUSTOMER_SPEC_VRS_PVT', 'INSERT_ROW');
169: RETURN FALSE;
170:
171: END insert_row;
172:
188: BEGIN
189: IF p_spec_vr_id IS NOT NULL THEN
190: SELECT 1
191: INTO dummy
192: FROM gmd_customer_spec_vrs
193: WHERE spec_vr_id = p_spec_vr_id
194: FOR UPDATE NOWAIT;
195:
196: UPDATE gmd_customer_spec_vrs
192: FROM gmd_customer_spec_vrs
193: WHERE spec_vr_id = p_spec_vr_id
194: FOR UPDATE NOWAIT;
195:
196: UPDATE gmd_customer_spec_vrs
197: SET delete_mark = 1,
198: last_update_date = NVL(p_last_update_date,SYSDATE),
199: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
200: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
200: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
201: WHERE spec_vr_id = p_spec_vr_id
202: ;
203: ELSE
204: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
205: RETURN FALSE;
206: END IF;
207:
208: IF (SQL%FOUND) THEN
207:
208: IF (SQL%FOUND) THEN
209: RETURN TRUE;
210: ELSE
211: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
212: RETURN FALSE;
213: END IF;
214:
215: EXCEPTION
214:
215: EXCEPTION
216: WHEN locked_by_other_user THEN
217: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
218: 'TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS',
219: 'RECORD','Customer Spec Validity Rule',
220: 'KEY', p_spec_vr_id);
221: RETURN FALSE;
222:
220: 'KEY', p_spec_vr_id);
221: RETURN FALSE;
222:
223: WHEN OTHERS THEN
224: fnd_msg_pub.add_exc_msg ('GMD_CUSTOMER_SPEC_VRS_PVT', 'DELETE_ROW');
225: RETURN FALSE;
226:
227: END delete_row;
228:
240: BEGIN
241: IF p_spec_vr_id IS NOT NULL THEN
242: SELECT 1
243: INTO dummy
244: FROM gmd_customer_spec_vrs
245: WHERE spec_vr_id = p_spec_vr_id
246: FOR UPDATE NOWAIT;
247: ELSE
248: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
244: FROM gmd_customer_spec_vrs
245: WHERE spec_vr_id = p_spec_vr_id
246: FOR UPDATE NOWAIT;
247: ELSE
248: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
249: RETURN FALSE;
250: END IF;
251:
252: RETURN TRUE;
253:
254: EXCEPTION
255: WHEN locked_by_other_user THEN
256: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
257: 'TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS',
258: 'RECORD','Customer Spec Validity Rule',
259: 'KEY', p_spec_vr_id);
260: RETURN FALSE;
261:
259: 'KEY', p_spec_vr_id);
260: RETURN FALSE;
261:
262: WHEN OTHERS THEN
263: fnd_msg_pub.add_exc_msg ('GMD_CUSTOMER_SPEC_VRS_PVT', 'DELETE_ROW');
264: RETURN FALSE;
265:
266: END lock_row;
267:
267:
268:
269:
270: FUNCTION fetch_row (
271: p_customer_spec_vrs IN GMD_CUSTOMER_SPEC_VRS%ROWTYPE
272: , x_customer_spec_vrs OUT NOCOPY GMD_CUSTOMER_SPEC_VRS%ROWTYPE
273: )
274: RETURN BOOLEAN
275: IS
268:
269:
270: FUNCTION fetch_row (
271: p_customer_spec_vrs IN GMD_CUSTOMER_SPEC_VRS%ROWTYPE
272: , x_customer_spec_vrs OUT NOCOPY GMD_CUSTOMER_SPEC_VRS%ROWTYPE
273: )
274: RETURN BOOLEAN
275: IS
276: BEGIN
277:
278: IF (p_customer_spec_vrs.spec_vr_id IS NOT NULL) THEN
279: SELECT *
280: INTO x_customer_spec_vrs
281: FROM gmd_customer_spec_vrs
282: WHERE spec_vr_id = p_customer_spec_vrs.spec_vr_id
283: ;
284: ELSE
285: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
281: FROM gmd_customer_spec_vrs
282: WHERE spec_vr_id = p_customer_spec_vrs.spec_vr_id
283: ;
284: ELSE
285: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
286: RETURN FALSE;
287: END IF;
288:
289: RETURN TRUE;
290:
291: EXCEPTION
292: WHEN NO_DATA_FOUND
293: THEN
294: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
295: RETURN FALSE;
296: WHEN OTHERS
297: THEN
298: fnd_msg_pub.add_exc_msg ('GMD_CUSTOMER_SPEC_VRS_PVT', 'FETCH_ROW');
294: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_SPEC_VRS');
295: RETURN FALSE;
296: WHEN OTHERS
297: THEN
298: fnd_msg_pub.add_exc_msg ('GMD_CUSTOMER_SPEC_VRS_PVT', 'FETCH_ROW');
299: RETURN FALSE;
300:
301: END fetch_row;
302:
299: RETURN FALSE;
300:
301: END fetch_row;
302:
303: END GMD_CUSTOMER_SPEC_VRS_PVT;