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;
121:
121:
122: WHEN Item_Exists_Error THEN
123: ROLLBACK TO SAVEPOINT Insert_Row;
124: x_return_status := 'E';
125: x_oracle_error := APP_EXCEPTION.Get_Code;
126: FND_MESSAGE.SET_NAME('GR',
127: 'GR_RECORD_EXISTS');
128: FND_MESSAGE.SET_TOKEN('CODE',
129: p_exposure_authority_code,
128: FND_MESSAGE.SET_TOKEN('CODE',
129: p_exposure_authority_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;
136:
136:
137: WHEN Row_Missing_Error THEN
138: ROLLBACK TO SAVEPOINT Insert_Row;
139: x_return_status := 'E';
140: x_oracle_error := APP_EXCEPTION.Get_Code;
141: FND_MESSAGE.SET_NAME('GR',
142: 'GR_NO_RECORD_INSERTED');
143: FND_MESSAGE.SET_TOKEN('CODE',
144: p_exposure_authority_code,
144: p_exposure_authority_code,
145: FALSE);
146: x_msg_data := FND_MESSAGE.Get;
147: IF FND_API.To_Boolean(p_called_by_form) THEN
148: APP_EXCEPTION.Raise_Exception;
149: ELSE
150: x_msg_data := FND_MESSAGE.Get;
151: END IF;
152:
152:
153: WHEN OTHERS THEN
154: ROLLBACK TO SAVEPOINT Insert_Row;
155: x_return_status := 'U';
156: x_oracle_error := APP_EXCEPTION.Get_Code;
157: l_msg_data := APP_EXCEPTION.Get_Text;
158: FND_MESSAGE.SET_NAME('GR',
159: 'GR_UNEXPECTED_ERROR');
160: FND_MESSAGE.SET_TOKEN('TEXT',
153: WHEN OTHERS THEN
154: ROLLBACK TO SAVEPOINT Insert_Row;
155: x_return_status := 'U';
156: x_oracle_error := APP_EXCEPTION.Get_Code;
157: l_msg_data := APP_EXCEPTION.Get_Text;
158: FND_MESSAGE.SET_NAME('GR',
159: 'GR_UNEXPECTED_ERROR');
160: FND_MESSAGE.SET_TOKEN('TEXT',
161: l_msg_data,
160: FND_MESSAGE.SET_TOKEN('TEXT',
161: l_msg_data,
162: FALSE);
163: IF FND_API.To_Boolean(p_called_by_form) THEN
164: APP_EXCEPTION.Raise_Exception;
165: ELSE
166: x_msg_data := FND_MESSAGE.Get;
167: END IF;
168:
248: FND_MESSAGE.SET_TOKEN('TEXT',
249: l_msg_data,
250: FALSE);
251: IF FND_API.To_Boolean(p_called_by_form) THEN
252: APP_EXCEPTION.Raise_Exception;
253: ELSE
254: x_msg_data := FND_MESSAGE.Get;
255: END IF;
256:
256:
257: WHEN Row_Missing_Error THEN
258: ROLLBACK TO SAVEPOINT Update_Row;
259: x_return_status := 'E';
260: x_oracle_error := APP_EXCEPTION.Get_Code;
261: FND_MESSAGE.SET_NAME('GR',
262: 'GR_NO_RECORD_INSERTED');
263: FND_MESSAGE.SET_TOKEN('CODE',
264: p_exposure_authority_code,
263: FND_MESSAGE.SET_TOKEN('CODE',
264: p_exposure_authority_code,
265: FALSE);
266: IF FND_API.To_Boolean(p_called_by_form) THEN
267: APP_EXCEPTION.Raise_Exception;
268: ELSE
269: x_msg_data := FND_MESSAGE.Get;
270: END IF;
271:
271:
272: WHEN OTHERS THEN
273: ROLLBACK TO SAVEPOINT Update_Row;
274: x_return_status := 'U';
275: x_oracle_error := APP_EXCEPTION.Get_Code;
276: l_msg_data := APP_EXCEPTION.Get_Text;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_UNEXPECTED_ERROR');
279: FND_MESSAGE.SET_TOKEN('TEXT',
272: WHEN OTHERS THEN
273: ROLLBACK TO SAVEPOINT Update_Row;
274: x_return_status := 'U';
275: x_oracle_error := APP_EXCEPTION.Get_Code;
276: l_msg_data := APP_EXCEPTION.Get_Text;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_UNEXPECTED_ERROR');
279: FND_MESSAGE.SET_TOKEN('TEXT',
280: l_msg_data,
279: FND_MESSAGE.SET_TOKEN('TEXT',
280: l_msg_data,
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
284: ELSE
285: x_msg_data := FND_MESSAGE.Get;
286: END IF;
287:
363: FND_MESSAGE.SET_TOKEN('CODE',
364: p_exposure_authority_code,
365: FALSE);
366: IF FND_API.To_Boolean(p_called_by_form) THEN
367: APP_EXCEPTION.Raise_Exception;
368: ELSE
369: x_msg_data := FND_MESSAGE.Get;
370: END IF;
371: WHEN RECORD_CHANGED_ERROR THEN
373: X_return_status := 'E';
374: FND_MESSAGE.SET_NAME('FND',
375: 'FORM_RECORD_CHANGED');
376: IF FND_API.To_Boolean(p_called_by_form) THEN
377: APP_EXCEPTION.Raise_Exception;
378: ELSE
379: x_msg_data := FND_MESSAGE.Get;
380: END IF;
381: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
377: APP_EXCEPTION.Raise_Exception;
378: ELSE
379: x_msg_data := FND_MESSAGE.Get;
380: END IF;
381: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
382: ROLLBACK TO SAVEPOINT Lock_Row;
383: x_return_status := 'L';
384: x_oracle_error := APP_EXCEPTION.Get_Code;
385: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
380: END IF;
381: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
382: ROLLBACK TO SAVEPOINT Lock_Row;
383: x_return_status := 'L';
384: x_oracle_error := APP_EXCEPTION.Get_Code;
385: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
386: FND_MESSAGE.SET_NAME('GR',
387: 'GR_ROW_IS_LOCKED');
388: x_msg_data := FND_MESSAGE.Get;
389: END IF;
390: WHEN OTHERS THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'U';
393: x_oracle_error := APP_EXCEPTION.Get_Code;
394: l_msg_data := APP_EXCEPTION.Get_Text;
395: FND_MESSAGE.SET_NAME('GR',
396: 'GR_UNEXPECTED_ERROR');
397: FND_MESSAGE.SET_TOKEN('TEXT',
390: WHEN OTHERS THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'U';
393: x_oracle_error := APP_EXCEPTION.Get_Code;
394: l_msg_data := APP_EXCEPTION.Get_Text;
395: FND_MESSAGE.SET_NAME('GR',
396: 'GR_UNEXPECTED_ERROR');
397: FND_MESSAGE.SET_TOKEN('TEXT',
398: l_msg_data,
397: FND_MESSAGE.SET_TOKEN('TEXT',
398: l_msg_data,
399: FALSE);
400: IF FND_API.To_Boolean(p_called_by_form) THEN
401: APP_EXCEPTION.Raise_Exception;
402: ELSE
403: x_msg_data := FND_MESSAGE.Get;
404: END IF;
405:
471: ROLLBACK TO SAVEPOINT Delete_Row;
472: x_return_status := l_return_status;
473: x_oracle_error := l_oracle_error;
474: IF FND_API.To_Boolean(p_called_by_form) THEN
475: APP_EXCEPTION.Raise_Exception;
476: ELSE
477: x_msg_data := FND_MESSAGE.Get;
478: END IF;
479:
479:
480: WHEN Row_Missing_Error THEN
481: ROLLBACK TO SAVEPOINT Delete_Row;
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: p_exposure_authority_code,
486: FND_MESSAGE.SET_TOKEN('CODE',
487: p_exposure_authority_code,
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
491: ELSE
492: x_msg_data := FND_MESSAGE.Get;
493: END IF;
494:
494:
495: WHEN OTHERS THEN
496: ROLLBACK TO SAVEPOINT Delete_Row;
497: x_return_status := 'U';
498: x_oracle_error := APP_EXCEPTION.Get_Code;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
495: WHEN OTHERS THEN
496: ROLLBACK TO SAVEPOINT Delete_Row;
497: x_return_status := 'U';
498: x_oracle_error := APP_EXCEPTION.Get_Code;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_data,
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;
510:
543:
544: WHEN OTHERS THEN
545: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
546: x_return_status := 'U';
547: x_oracle_error := APP_EXCEPTION.Get_Code;
548: l_msg_data := APP_EXCEPTION.Get_Text;
549: FND_MESSAGE.SET_NAME('GR',
550: 'GR_UNEXPECTED_ERROR');
551: FND_MESSAGE.SET_TOKEN('TEXT',
544: WHEN OTHERS THEN
545: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
546: x_return_status := 'U';
547: x_oracle_error := APP_EXCEPTION.Get_Code;
548: l_msg_data := APP_EXCEPTION.Get_Text;
549: FND_MESSAGE.SET_NAME('GR',
550: 'GR_UNEXPECTED_ERROR');
551: FND_MESSAGE.SET_TOKEN('TEXT',
552: l_msg_data,
621: FND_MESSAGE.SET_TOKEN('TABLES',
622: l_msg_data,
623: FALSE);
624: IF FND_API.To_Boolean(p_called_by_form) THEN
625: APP_EXCEPTION.Raise_Exception;
626: ELSE
627: x_msg_data := FND_MESSAGE.Get;
628: END IF;
629: WHEN OTHERS THEN
628: END IF;
629: WHEN OTHERS THEN
630: ROLLBACK TO SAVEPOINT Check_Integrity;
631: x_return_status := 'U';
632: x_oracle_error := APP_EXCEPTION.Get_Code;
633: l_msg_data := APP_EXCEPTION.Get_Text;
634: FND_MESSAGE.SET_NAME('GR',
635: 'GR_UNEXPECTED_ERROR');
636: FND_MESSAGE.SET_TOKEN('TEXT',
629: WHEN OTHERS THEN
630: ROLLBACK TO SAVEPOINT Check_Integrity;
631: x_return_status := 'U';
632: x_oracle_error := APP_EXCEPTION.Get_Code;
633: l_msg_data := APP_EXCEPTION.Get_Text;
634: FND_MESSAGE.SET_NAME('GR',
635: 'GR_UNEXPECTED_ERROR');
636: FND_MESSAGE.SET_TOKEN('TEXT',
637: l_msg_data,
636: FND_MESSAGE.SET_TOKEN('TEXT',
637: l_msg_data,
638: FALSE);
639: IF FND_API.To_Boolean(p_called_by_form) THEN
640: APP_EXCEPTION.Raise_Exception;
641: ELSE
642: x_msg_data := FND_MESSAGE.Get;
643: END IF;
644:
676:
677: EXCEPTION
678:
679: WHEN Others THEN
680: l_msg_data := APP_EXCEPTION.Get_Text;
681: FND_MESSAGE.SET_NAME('GR',
682: 'GR_UNEXPECTED_ERROR');
683: FND_MESSAGE.SET_TOKEN('TEXT',
684: l_msg_data,
683: FND_MESSAGE.SET_TOKEN('TEXT',
684: l_msg_data,
685: FALSE);
686: IF FND_API.To_Boolean(p_called_by_form) THEN
687: APP_EXCEPTION.Raise_Exception;
688: END IF;
689:
690: END Check_Primary_Key;
691: