[Home] [Help]
1: PACKAGE BODY GMD_COMPOSITE_RESULTS_PVT AS
2: /* $Header: GMDVCRSB.pls 115.3 2002/11/04 10:21:34 kxhunt ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVCRSB.pls |
11: --| Package Name : GMD_COMPOSITE_RESULTS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for Composite Results. |
20: --+==========================================================================+
21: -- End of comments
22:
23: FUNCTION insert_row (
24: p_composite_results IN GMD_COMPOSITE_RESULTS%ROWTYPE
25: , x_composite_results OUT NOCOPY GMD_COMPOSITE_RESULTS%ROWTYPE
26: )
27: RETURN BOOLEAN IS
28: BEGIN
21: -- End of comments
22:
23: FUNCTION insert_row (
24: p_composite_results IN GMD_COMPOSITE_RESULTS%ROWTYPE
25: , x_composite_results OUT NOCOPY GMD_COMPOSITE_RESULTS%ROWTYPE
26: )
27: RETURN BOOLEAN IS
28: BEGIN
29:
28: BEGIN
29:
30: x_composite_results := p_composite_results;
31:
32: INSERT INTO GMD_COMPOSITE_RESULTS
33: (
34: COMPOSITE_RESULT_ID
35: ,TEST_ID
36: ,MEAN
161: END IF;
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULTS_PVT', 'INSERT_ROW');
166: RETURN FALSE;
167:
168: END insert_row;
169:
185: IF p_composite_result_id IS NOT NULL THEN
186:
187: SELECT 1
188: INTO dummy
189: FROM gmd_composite_results
190: WHERE composite_result_id = p_composite_result_id
191: FOR UPDATE NOWAIT;
192:
193: UPDATE gmd_composite_results
189: FROM gmd_composite_results
190: WHERE composite_result_id = p_composite_result_id
191: FOR UPDATE NOWAIT;
192:
193: UPDATE gmd_composite_results
194: SET delete_mark = 1,
195: last_update_date = NVL(p_last_update_date,SYSDATE),
196: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
197: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
197: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
198: WHERE composite_result_id = p_composite_result_id
199: ;
200: ELSE
201: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
202: RETURN FALSE;
203: END IF;
204:
205: IF (SQL%FOUND) THEN
204:
205: IF (SQL%FOUND) THEN
206: RETURN TRUE;
207: ELSE
208: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
209: RETURN FALSE;
210: END IF;
211:
212: EXCEPTION
211:
212: EXCEPTION
213: WHEN locked_by_other_user THEN
214: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
215: 'TABLE_NAME', 'GMD_COMPOSITE_RESULTS',
216: 'RECORD','Inventory Spec Validity Rule',
217: 'KEY', p_composite_result_id);
218: RETURN FALSE;
219:
217: 'KEY', p_composite_result_id);
218: RETURN FALSE;
219:
220: WHEN OTHERS THEN
221: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULTS_PVT', 'DELETE_ROW');
222: RETURN FALSE;
223:
224: END delete_row;
225:
236: BEGIN
237: IF p_composite_result_id IS NOT NULL THEN
238: SELECT 1
239: INTO dummy
240: FROM gmd_composite_results
241: WHERE composite_result_id = p_composite_result_id
242: FOR UPDATE NOWAIT;
243: ELSE
244: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
240: FROM gmd_composite_results
241: WHERE composite_result_id = p_composite_result_id
242: FOR UPDATE NOWAIT;
243: ELSE
244: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
245: RETURN FALSE;
246: END IF;
247:
248: RETURN TRUE;
249:
250: EXCEPTION
251: WHEN locked_by_other_user THEN
252: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
253: 'TABLE_NAME', 'GMD_COMPOSITE_RESULTS',
254: 'RECORD','Inventory Spec Validity Rule',
255: 'KEY', p_composite_result_id);
256: RETURN FALSE;
257:
255: 'KEY', p_composite_result_id);
256: RETURN FALSE;
257:
258: WHEN OTHERS THEN
259: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULTS_PVT', 'DELETE_ROW');
260: RETURN FALSE;
261:
262: END lock_row;
263:
263:
264:
265:
266: FUNCTION fetch_row (
267: p_composite_results IN gmd_composite_results%ROWTYPE
268: , x_composite_results OUT NOCOPY gmd_composite_results%ROWTYPE
269: )
270: RETURN BOOLEAN
271: IS
264:
265:
266: FUNCTION fetch_row (
267: p_composite_results IN gmd_composite_results%ROWTYPE
268: , x_composite_results OUT NOCOPY gmd_composite_results%ROWTYPE
269: )
270: RETURN BOOLEAN
271: IS
272: BEGIN
273:
274: IF (p_composite_results.composite_result_id IS NOT NULL) THEN
275: SELECT *
276: INTO x_composite_results
277: FROM gmd_composite_results
278: WHERE composite_result_id = p_composite_results.composite_result_id
279: ;
280: ELSE
281: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
277: FROM gmd_composite_results
278: WHERE composite_result_id = p_composite_results.composite_result_id
279: ;
280: ELSE
281: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
282: RETURN FALSE;
283: END IF;
284:
285: RETURN TRUE;
286:
287: EXCEPTION
288: WHEN NO_DATA_FOUND
289: THEN
290: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
291: RETURN FALSE;
292: WHEN OTHERS
293: THEN
294: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULTS_PVT', 'FETCH_ROW');
290: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULTS');
291: RETURN FALSE;
292: WHEN OTHERS
293: THEN
294: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULTS_PVT', 'FETCH_ROW');
295: RETURN FALSE;
296:
297: END fetch_row;
298:
295: RETURN FALSE;
296:
297: END fetch_row;
298:
299: END GMD_COMPOSITE_RESULTS_PVT;