1: PACKAGE BODY GMD_SAMPLING_EVENTS_PVT AS
2: /* $Header: GMDVSEVB.pls 120.4 2009/03/18 15:55:19 rnalla ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVSEVB.pls |
11: --| Package Name : GMD_SAMPLING_EVENTS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for Sampling Events |
23: -- End of comments
24:
25:
26: FUNCTION insert_row (
27: p_sampling_events IN GMD_SAMPLING_EVENTS%ROWTYPE
28: , x_sampling_events OUT NOCOPY GMD_SAMPLING_EVENTS%ROWTYPE) RETURN BOOLEAN IS
29: BEGIN
30:
31: x_sampling_events := p_sampling_events;
24:
25:
26: FUNCTION insert_row (
27: p_sampling_events IN GMD_SAMPLING_EVENTS%ROWTYPE
28: , x_sampling_events OUT NOCOPY GMD_SAMPLING_EVENTS%ROWTYPE) RETURN BOOLEAN IS
29: BEGIN
30:
31: x_sampling_events := p_sampling_events;
32:
29: BEGIN
30:
31: x_sampling_events := p_sampling_events;
32:
33: INSERT INTO GMD_SAMPLING_EVENTS
34: (
35: SAMPLING_EVENT_ID
36: ,ORIGINAL_SPEC_VR_ID
37: ,ORGANIZATION_ID
162: END IF;
163:
164: EXCEPTION
165: WHEN OTHERS THEN
166: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_EVENTS_PVT', 'INSERT_ROW');
167: RETURN FALSE;
168: END insert_row;
169:
170:
182: BEGIN
183: IF p_sampling_event_id IS NOT NULL THEN
184: SELECT 1
185: INTO dummy
186: FROM gmd_sampling_events
187: WHERE sampling_event_id = p_sampling_event_id
188: FOR UPDATE NOWAIT;
189:
190: DELETE gmd_sampling_events
186: FROM gmd_sampling_events
187: WHERE sampling_event_id = p_sampling_event_id
188: FOR UPDATE NOWAIT;
189:
190: DELETE gmd_sampling_events
191: WHERE sampling_event_id = p_sampling_event_id
192: ;
193: ELSE
194: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
190: DELETE gmd_sampling_events
191: WHERE sampling_event_id = p_sampling_event_id
192: ;
193: ELSE
194: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
195: RETURN FALSE;
196: END IF;
197:
198: IF (SQL%FOUND) THEN
197:
198: IF (SQL%FOUND) THEN
199: RETURN TRUE;
200: ELSE
201: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
202: RETURN FALSE;
203: END IF;
204:
205: EXCEPTION
204:
205: EXCEPTION
206: WHEN locked_by_other_user THEN
207: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
208: 'TABLE_NAME', 'GMD_SAMPLING_EVENTS',
209: 'RECORD','Sampling Event',
210: 'KEY', p_sampling_event_id);
211: RETURN FALSE;
212:
210: 'KEY', p_sampling_event_id);
211: RETURN FALSE;
212:
213: WHEN OTHERS THEN
214: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_EVENTS_PVT', 'DELETE_ROW');
215: RETURN FALSE;
216:
217: END delete_row;
218:
230: BEGIN
231: IF p_sampling_event_id IS NOT NULL THEN
232: SELECT 1
233: INTO dummy
234: FROM gmd_sampling_events
235: WHERE sampling_event_id = p_sampling_event_id
236: FOR UPDATE NOWAIT;
237: ELSE
238: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
234: FROM gmd_sampling_events
235: WHERE sampling_event_id = p_sampling_event_id
236: FOR UPDATE NOWAIT;
237: ELSE
238: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
239: RETURN FALSE;
240: END IF;
241:
242: RETURN TRUE;
243:
244: EXCEPTION
245: WHEN locked_by_other_user THEN
246: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
247: 'TABLE_NAME', 'GMD_SAMPLING_EVENTS',
248: 'RECORD','Sampling Event',
249: 'KEY', p_sampling_event_id);
250: RETURN FALSE;
251:
249: 'KEY', p_sampling_event_id);
250: RETURN FALSE;
251:
252: WHEN OTHERS THEN
253: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_EVENTS_PVT', 'DELETE_ROW');
254: RETURN FALSE;
255:
256: END lock_row;
257:
257:
258:
259:
260: FUNCTION fetch_row (
261: p_sampling_events IN gmd_sampling_events%ROWTYPE
262: , x_sampling_events OUT NOCOPY gmd_sampling_events%ROWTYPE
263: )
264: RETURN BOOLEAN
265: IS
258:
259:
260: FUNCTION fetch_row (
261: p_sampling_events IN gmd_sampling_events%ROWTYPE
262: , x_sampling_events OUT NOCOPY gmd_sampling_events%ROWTYPE
263: )
264: RETURN BOOLEAN
265: IS
266: BEGIN
267:
268: IF (p_sampling_events.sampling_event_id IS NOT NULL) THEN
269: SELECT *
270: INTO x_sampling_events
271: FROM gmd_sampling_events
272: WHERE sampling_event_id = p_sampling_events.sampling_event_id
273: ;
274: RETURN TRUE;
275: ELSE
272: WHERE sampling_event_id = p_sampling_events.sampling_event_id
273: ;
274: RETURN TRUE;
275: ELSE
276: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
277: RETURN FALSE;
278: END IF;
279:
280: EXCEPTION
279:
280: EXCEPTION
281: WHEN NO_DATA_FOUND
282: THEN
283: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
284: RETURN FALSE;
285: WHEN OTHERS
286: THEN
287: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_EVENTS_PVT', 'FETCH_ROW');
283: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SAMPLING_EVENTS');
284: RETURN FALSE;
285: WHEN OTHERS
286: THEN
287: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_EVENTS_PVT', 'FETCH_ROW');
288: RETURN FALSE;
289:
290: END fetch_row;
291:
288: RETURN FALSE;
289:
290: END fetch_row;
291:
292: END GMD_SAMPLING_EVENTS_PVT;
293: