[Home] [Help]
1: PACKAGE BODY GMD_COMPOSITE_RESULT_ASSOC_PVT AS
2: /* $Header: GMDVCRAB.pls 115.1 2002/11/04 10:19:45 kxhunt ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDVCRAB.pls |
11: --| Package Name : GMD_COMPOSITE_RESULT_ASSOC_PVT |
12: --| Type : Private |
13: --| |
14: --| Notes |
15: --| This package contains private layer APIs for Composite Result Assoc. |
20: --+==========================================================================+
21: -- End of comments
22:
23: FUNCTION insert_row (
24: p_composite_result_assoc IN GMD_COMPOSITE_RESULT_ASSOC%ROWTYPE
25: ) RETURN BOOLEAN IS
26: BEGIN
27:
28: INSERT INTO GMD_COMPOSITE_RESULT_ASSOC
24: p_composite_result_assoc IN GMD_COMPOSITE_RESULT_ASSOC%ROWTYPE
25: ) RETURN BOOLEAN IS
26: BEGIN
27:
28: INSERT INTO GMD_COMPOSITE_RESULT_ASSOC
29: (
30: COMPOSITE_RESULT_ID
31: ,RESULT_ID
32: ,EXCLUDE_IND
56: END IF;
57:
58: EXCEPTION
59: WHEN OTHERS THEN
60: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'INSERT_ROW');
61: RETURN FALSE;
62:
63: END insert_row;
64:
84: p_result_id IS NOT NULL THEN
85:
86: SELECT 1
87: INTO dummy
88: FROM gmd_composite_result_assoc
89: WHERE composite_result_id = p_composite_result_id
90: AND result_id = p_result_id
91: FOR UPDATE NOWAIT;
92:
89: WHERE composite_result_id = p_composite_result_id
90: AND result_id = p_result_id
91: FOR UPDATE NOWAIT;
92:
93: UPDATE gmd_composite_result_assoc
94: SET delete_mark = 1,
95: last_update_date = NVL(p_last_update_date,SYSDATE),
96: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
97: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
98: WHERE composite_result_id = p_composite_result_id
99: AND result_id = p_result_id
100: ;
101: ELSE
102: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
103: RETURN FALSE;
104: END IF;
105:
106: IF (SQL%FOUND) THEN
105:
106: IF (SQL%FOUND) THEN
107: RETURN TRUE;
108: ELSE
109: GMD_API_PUB.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
110: RETURN FALSE;
111: END IF;
112:
113: EXCEPTION
112:
113: EXCEPTION
114: WHEN locked_by_other_user THEN
115: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
116: 'TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC',
117: 'RECORD','Inventory Spec Validity Rule',
118: 'KEY', p_composite_result_id);
119: RETURN FALSE;
120:
118: 'KEY', p_composite_result_id);
119: RETURN FALSE;
120:
121: WHEN OTHERS THEN
122: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'DELETE_ROW');
123: RETURN FALSE;
124:
125: END delete_row;
126: */
140: IF p_composite_result_id IS NOT NULL AND
141: p_result_id IS NOT NULL THEN
142: SELECT 1
143: INTO dummy
144: FROM gmd_composite_result_assoc
145: WHERE composite_result_id = p_composite_result_id
146: AND result_id = p_result_id
147: FOR UPDATE NOWAIT;
148: ELSE
145: WHERE composite_result_id = p_composite_result_id
146: AND result_id = p_result_id
147: FOR UPDATE NOWAIT;
148: ELSE
149: GMD_API_PUB.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
150: RETURN FALSE;
151: END IF;
152:
153: RETURN TRUE;
154:
155: EXCEPTION
156: WHEN locked_by_other_user THEN
157: GMD_API_PUB.log_message('GMD_RECORD_LOCKED',
158: 'TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC',
159: 'RECORD','Inventory Spec Validity Rule',
160: 'KEY', p_composite_result_id);
161: RETURN FALSE;
162:
160: 'KEY', p_composite_result_id);
161: RETURN FALSE;
162:
163: WHEN OTHERS THEN
164: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'DELETE_ROW');
165: RETURN FALSE;
166:
167: END lock_row;
168:
168:
169:
170:
171: FUNCTION fetch_row (
172: p_composite_result_assoc IN gmd_composite_result_assoc%ROWTYPE
173: , x_composite_result_assoc OUT NOCOPY gmd_composite_result_assoc%ROWTYPE
174: )
175: RETURN BOOLEAN
176: IS
169:
170:
171: FUNCTION fetch_row (
172: p_composite_result_assoc IN gmd_composite_result_assoc%ROWTYPE
173: , x_composite_result_assoc OUT NOCOPY gmd_composite_result_assoc%ROWTYPE
174: )
175: RETURN BOOLEAN
176: IS
177: BEGIN
179: IF p_composite_result_assoc.composite_result_id IS NOT NULL AND
180: p_composite_result_assoc.result_id IS NOT NULL THEN
181: SELECT *
182: INTO x_composite_result_assoc
183: FROM gmd_composite_result_assoc
184: WHERE composite_result_id = p_composite_result_assoc.composite_result_id
185: AND result_id = p_composite_result_assoc.result_id
186: ;
187: ELSE
184: WHERE composite_result_id = p_composite_result_assoc.composite_result_id
185: AND result_id = p_composite_result_assoc.result_id
186: ;
187: ELSE
188: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
189: RETURN FALSE;
190: END IF;
191:
192: RETURN TRUE;
193:
194: EXCEPTION
195: WHEN NO_DATA_FOUND
196: THEN
197: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
198: RETURN FALSE;
199: WHEN OTHERS
200: THEN
201: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'FETCH_ROW');
197: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_COMPOSITE_RESULT_ASSOC');
198: RETURN FALSE;
199: WHEN OTHERS
200: THEN
201: fnd_msg_pub.add_exc_msg ('GMD_COMPOSITE_RESULT_ASSOC_PVT', 'FETCH_ROW');
202: RETURN FALSE;
203:
204: END fetch_row;
205:
202: RETURN FALSE;
203:
204: END fetch_row;
205:
206: END GMD_COMPOSITE_RESULT_ASSOC_PVT;