62: 'F',
63: l_rowid,
64: l_key_exists);
65:
66: IF FND_API.To_Boolean(l_key_exists) THEN
67: RAISE Item_Exists_Error;
68: END IF;
69:
70: INSERT INTO gr_exposure_types_b
89: 'F',
90: l_rowid,
91: l_key_exists);
92:
93: IF FND_API.To_Boolean(l_key_exists) THEN
94: x_rowid := l_rowid;
95: ELSE
96: RAISE Row_Missing_Error;
97: END IF;
97: END IF;
98:
99: /* Check the commit flag and if set, then commit the work. */
100:
101: IF FND_API.To_Boolean(p_commit) THEN
102: COMMIT WORK;
103: END IF;
104:
105: EXCEPTION
112: 'GR_FOREIGN_KEY_ERROR');
113: FND_MESSAGE.SET_TOKEN('TEXT',
114: l_msg_data,
115: FALSE);
116: IF FND_API.To_Boolean(p_called_by_form) THEN
117: APP_EXCEPTION.Raise_Exception;
118: ELSE
119: x_msg_data := FND_MESSAGE.Get;
120: END IF;
127: 'GR_RECORD_EXISTS');
128: FND_MESSAGE.SET_TOKEN('CODE',
129: p_exposure_type_code,
130: FALSE);
131: IF FND_API.To_Boolean(p_called_by_form) THEN
132: APP_EXCEPTION.Raise_Exception;
133: ELSE
134: x_msg_data := FND_MESSAGE.Get;
135: END IF;
142: 'GR_NO_RECORD_INSERTED');
143: FND_MESSAGE.SET_TOKEN('CODE',
144: p_exposure_type_code,
145: FALSE);
146: IF FND_API.To_Boolean(p_called_by_form) THEN
147: APP_EXCEPTION.Raise_Exception;
148: ELSE
149: x_msg_data := FND_MESSAGE.Get;
150: END IF;
158: 'GR_UNEXPECTED_ERROR');
159: FND_MESSAGE.SET_TOKEN('TEXT',
160: l_msg_data,
161: FALSE);
162: IF FND_API.To_Boolean(p_called_by_form) THEN
163: APP_EXCEPTION.Raise_Exception;
164: ELSE
165: x_msg_data := FND_MESSAGE.Get;
166: END IF;
230: END IF;
231:
232: /* Check if do the commit */
233:
234: IF FND_API.To_Boolean(p_commit) THEN
235: COMMIT WORK;
236: END IF;
237:
238: EXCEPTION
245: 'GR_FOREIGN_KEY_ERROR');
246: FND_MESSAGE.SET_TOKEN('TEXT',
247: l_msg_data,
248: FALSE);
249: IF FND_API.To_Boolean(p_called_by_form) THEN
250: APP_EXCEPTION.Raise_Exception;
251: ELSE
252: x_msg_data := FND_MESSAGE.Get;
253: END IF;
260: 'GR_NO_RECORD_INSERTED');
261: FND_MESSAGE.SET_TOKEN('CODE',
262: p_exposure_type_code,
263: FALSE);
264: IF FND_API.To_Boolean(p_called_by_form) THEN
265: APP_EXCEPTION.Raise_Exception;
266: ELSE
267: x_msg_data := FND_MESSAGE.Get;
268: END IF;
276: 'GR_UNEXPECTED_ERROR');
277: FND_MESSAGE.SET_TOKEN('TEXT',
278: l_msg_data,
279: FALSE);
280: IF FND_API.To_Boolean(p_called_by_form) THEN
281: APP_EXCEPTION.Raise_Exception;
282: ELSE
283: x_msg_data := FND_MESSAGE.Get;
284: END IF;
345: IF LockExposureRcd.last_update_date <> p_last_update_date THEN
346: RAISE RECORD_CHANGED_ERROR;
347: END IF;
348:
349: IF FND_API.To_Boolean(p_commit) THEN
350: COMMIT WORK;
351: END IF;
352:
353: EXCEPTION
359: 'GR_RECORD_NOT_FOUND');
360: FND_MESSAGE.SET_TOKEN('CODE',
361: p_exposure_type_code,
362: FALSE);
363: IF FND_API.To_Boolean(p_called_by_form) THEN
364: APP_EXCEPTION.Raise_Exception;
365: ELSE
366: x_msg_data := FND_MESSAGE.Get;
367: END IF;
370: ROLLBACK TO SAVEPOINT Lock_Row;
371: X_return_status := 'E';
372: FND_MESSAGE.SET_NAME('FND',
373: 'FORM_RECORD_CHANGED');
374: IF FND_API.To_Boolean(p_called_by_form) THEN
375: APP_EXCEPTION.Raise_Exception;
376: ELSE
377: x_msg_data := FND_MESSAGE.Get;
378: END IF;
379: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
380: ROLLBACK TO SAVEPOINT Lock_Row;
381: x_return_status := 'L';
382: x_oracle_error := APP_EXCEPTION.Get_Code;
383: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
384: FND_MESSAGE.SET_NAME('GR',
385: 'GR_ROW_IS_LOCKED');
386: x_msg_data := FND_MESSAGE.Get;
387: END IF;
395: 'GR_UNEXPECTED_ERROR');
396: FND_MESSAGE.SET_TOKEN('TEXT',
397: l_msg_data,
398: FALSE);
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
459: WHERE rowid = p_rowid;
460:
461: /* Check the commit flag and if set, then commit the work. */
462:
463: IF FND_API.TO_Boolean(p_commit) THEN
464: COMMIT WORK;
465: END IF;
466:
467: EXCEPTION
469: WHEN Check_Integrity_Error THEN
470: ROLLBACK TO SAVEPOINT Delete_Row;
471: x_return_status := l_return_status;
472: x_oracle_error := l_oracle_error;
473: IF FND_API.To_Boolean(p_called_by_form) THEN
474: APP_EXCEPTION.Raise_Exception;
475: ELSE
476: x_msg_data := FND_MESSAGE.Get;
477: END IF;
484: 'GR_RECORD_NOT_FOUND');
485: FND_MESSAGE.SET_TOKEN('CODE',
486: p_exposure_type_code,
487: FALSE);
488: IF FND_API.To_Boolean(p_called_by_form) THEN
489: APP_EXCEPTION.Raise_Exception;
490: ELSE
491: x_msg_data := FND_MESSAGE.Get;
492: END IF;
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_data,
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
622: FALSE);
623: FND_MESSAGE.SET_TOKEN('TABLES',
624: l_msg_data,
625: FALSE);
626: IF FND_API.To_Boolean(p_called_by_form) THEN
627: APP_EXCEPTION.Raise_Exception;
628: ELSE
629: x_msg_data := FND_MESSAGE.Get;
630: END IF;
637: 'GR_UNEXPECTED_ERROR');
638: FND_MESSAGE.SET_TOKEN('TEXT',
639: l_msg_data,
640: FALSE);
641: IF FND_API.To_Boolean(p_called_by_form) THEN
642: APP_EXCEPTION.Raise_Exception;
643: ELSE
644: x_msg_data := FND_MESSAGE.Get;
645: END IF;
684: 'GR_UNEXPECTED_ERROR');
685: FND_MESSAGE.SET_TOKEN('TEXT',
686: l_msg_data,
687: FALSE);
688: IF FND_API.To_Boolean(p_called_by_form) THEN
689: APP_EXCEPTION.Raise_Exception;
690: END IF;
691:
692: END Check_Primary_Key;