[Home] [Help]
1: PACKAGE BODY GMD_MONITORING_SPEC_VRS_PVT AS
2: /* $Header: GMDVMVRB.pls 120.2 2005/10/04 07:00:34 svankada noship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVMVRB.pls |
11: --| Package Name : GMD_MONITORING_SPEC_VRS_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for MONITORING VR. |
24: --+==========================================================================+
25: -- End of comments
26:
27: FUNCTION insert_row (
28: p_monitoring_spec_vrs IN GMD_MONITORING_SPEC_VRS%ROWTYPE
29: , x_monitoring_spec_vrs OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
30: )
31: RETURN BOOLEAN IS
32: BEGIN
25: -- End of comments
26:
27: FUNCTION insert_row (
28: p_monitoring_spec_vrs IN GMD_MONITORING_SPEC_VRS%ROWTYPE
29: , x_monitoring_spec_vrs OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
30: )
31: RETURN BOOLEAN IS
32: BEGIN
33:
32: BEGIN
33:
34: x_monitoring_spec_vrs := p_monitoring_spec_vrs;
35:
36: INSERT INTO GMD_MONITORING_SPEC_VRS
37: (SPEC_VR_ID
38: ,SPEC_ID
39: ,RULE_TYPE
40: ,LOCATOR_ORGANIZATION_ID
150: END IF;
151:
152: EXCEPTION
153: WHEN OTHERS THEN
154: fnd_msg_pub.add_exc_msg ('GMD_MONITORING_SPEC_VRS_PVT', 'INSERT_ROW');
155: RETURN FALSE;
156:
157: END insert_row;
158:
174: BEGIN
175: IF p_spec_vr_id IS NOT NULL THEN
176: SELECT 1
177: INTO dummy
178: FROM gmd_monitoring_spec_vrs
179: WHERE spec_vr_id = p_spec_vr_id
180: FOR UPDATE NOWAIT;
181:
182: UPDATE gmd_monitoring_spec_vrs
178: FROM gmd_monitoring_spec_vrs
179: WHERE spec_vr_id = p_spec_vr_id
180: FOR UPDATE NOWAIT;
181:
182: UPDATE gmd_monitoring_spec_vrs
183: SET delete_mark = 1,
184: last_update_date = NVL(p_last_update_date,SYSDATE),
185: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
186: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
186: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
187: WHERE spec_vr_id = p_spec_vr_id
188: ;
189: ELSE
190: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
191: RETURN FALSE;
192: END IF;
193:
194: IF (SQL%FOUND) THEN
193:
194: IF (SQL%FOUND) THEN
195: RETURN TRUE;
196: ELSE
197: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
198: RETURN FALSE;
199: END IF;
200:
201: EXCEPTION
200:
201: EXCEPTION
202: WHEN locked_by_other_user THEN
203: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
204: 'TABLE_NAME', 'GMD_MONITORING_SPEC_VRS',
205: 'RECORD','monitoring Spec Validity Rule',
206: 'KEY', p_spec_vr_id);
207: RETURN FALSE;
208:
206: 'KEY', p_spec_vr_id);
207: RETURN FALSE;
208:
209: WHEN OTHERS THEN
210: fnd_msg_pub.add_exc_msg ('GMD_MONITORING_SPEC_VRS_PVT', 'DELETE_ROW');
211: RETURN FALSE;
212:
213: END delete_row;
214:
226: BEGIN
227: IF p_spec_vr_id IS NOT NULL THEN
228: SELECT 1
229: INTO dummy
230: FROM gmd_monitoring_spec_vrs
231: WHERE spec_vr_id = p_spec_vr_id
232: FOR UPDATE NOWAIT;
233: ELSE
234: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
230: FROM gmd_monitoring_spec_vrs
231: WHERE spec_vr_id = p_spec_vr_id
232: FOR UPDATE NOWAIT;
233: ELSE
234: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
235: RETURN FALSE;
236: END IF;
237:
238: RETURN TRUE;
239:
240: EXCEPTION
241: WHEN locked_by_other_user THEN
242: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
243: 'TABLE_NAME', 'GMD_MONITORING_SPEC_VRS',
244: 'RECORD','monitoring Spec Validity Rule',
245: 'KEY', p_spec_vr_id);
246: RETURN FALSE;
247:
245: 'KEY', p_spec_vr_id);
246: RETURN FALSE;
247:
248: WHEN OTHERS THEN
249: fnd_msg_pub.add_exc_msg ('GMD_MONITORING_SPEC_VRS_PVT', 'DELETE_ROW');
250: RETURN FALSE;
251:
252: END lock_row;
253:
253:
254:
255:
256: FUNCTION fetch_row (
257: p_monitoring_spec_vrs IN GMD_monitoring_SPEC_VRS%ROWTYPE
258: , x_monitoring_spec_vrs OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
259: )
260: RETURN BOOLEAN
261: IS
254:
255:
256: FUNCTION fetch_row (
257: p_monitoring_spec_vrs IN GMD_monitoring_SPEC_VRS%ROWTYPE
258: , x_monitoring_spec_vrs OUT NOCOPY GMD_MONITORING_SPEC_VRS%ROWTYPE
259: )
260: RETURN BOOLEAN
261: IS
262: BEGIN
263:
264: IF (p_monitoring_spec_vrs.spec_vr_id IS NOT NULL) THEN
265: SELECT *
266: INTO x_monitoring_spec_vrs
267: FROM gmd_monitoring_spec_vrs
268: WHERE spec_vr_id = p_monitoring_spec_vrs.spec_vr_id
269: ;
270: ELSE
271: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
267: FROM gmd_monitoring_spec_vrs
268: WHERE spec_vr_id = p_monitoring_spec_vrs.spec_vr_id
269: ;
270: ELSE
271: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
272: RETURN FALSE;
273: END IF;
274:
275: RETURN TRUE;
276:
277: EXCEPTION
278: WHEN NO_DATA_FOUND
279: THEN
280: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
281: RETURN FALSE;
282: WHEN OTHERS
283: THEN
284: fnd_msg_pub.add_exc_msg ('GMD_MONITORING_SPEC_VRS_PVT', 'FETCH_ROW');
280: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_MONITORING_SPEC_VRS');
281: RETURN FALSE;
282: WHEN OTHERS
283: THEN
284: fnd_msg_pub.add_exc_msg ('GMD_MONITORING_SPEC_VRS_PVT', 'FETCH_ROW');
285: RETURN FALSE;
286:
287: END fetch_row;
288:
285: RETURN FALSE;
286:
287: END fetch_row;
288:
289: END GMD_MONITORING_SPEC_VRS_PVT;