116: WHEN Foreign_Key_Error THEN
117: ROLLBACK TO SAVEPOINT Insert_Row;
118: x_return_status := l_return_status;
119: x_oracle_error := l_oracle_error;
120: FND_MESSAGE.SET_NAME('GR',
121: 'GR_FOREIGN_KEY_ERROR');
122: FND_MESSAGE.SET_TOKEN('TEXT',
123: l_msg_data,
124: FALSE);
118: x_return_status := l_return_status;
119: x_oracle_error := l_oracle_error;
120: FND_MESSAGE.SET_NAME('GR',
121: 'GR_FOREIGN_KEY_ERROR');
122: FND_MESSAGE.SET_TOKEN('TEXT',
123: l_msg_data,
124: FALSE);
125: IF FND_API.To_Boolean(p_called_by_form) THEN
126: APP_EXCEPTION.Raise_Exception;
124: FALSE);
125: IF FND_API.To_Boolean(p_called_by_form) THEN
126: APP_EXCEPTION.Raise_Exception;
127: ELSE
128: x_msg_data := FND_MESSAGE.Get;
129: END IF;
130:
131: WHEN Item_Exists_Error THEN
132: ROLLBACK TO SAVEPOINT Insert_Row;
131: WHEN Item_Exists_Error THEN
132: ROLLBACK TO SAVEPOINT Insert_Row;
133: x_return_status := 'E';
134: x_oracle_error := APP_EXCEPTION.Get_Code;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_RECORD_EXISTS');
137: FND_MESSAGE.SET_TOKEN('CODE',
138: p_european_index_number,
139: FALSE);
133: x_return_status := 'E';
134: x_oracle_error := APP_EXCEPTION.Get_Code;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_RECORD_EXISTS');
137: FND_MESSAGE.SET_TOKEN('CODE',
138: p_european_index_number,
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
142: ELSE
143: x_msg_data := FND_MESSAGE.Get;
144: END IF;
145:
146: WHEN Row_Missing_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
146: WHEN Row_Missing_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_european_index_number,
154: FALSE);
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_european_index_number,
154: FALSE);
155: x_msg_data := FND_MESSAGE.Get;
156: IF FND_API.To_Boolean(p_called_by_form) THEN
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_european_index_number,
154: FALSE);
155: x_msg_data := FND_MESSAGE.Get;
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
158: ELSE
159: x_msg_data := FND_MESSAGE.Get;
155: x_msg_data := FND_MESSAGE.Get;
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
158: ELSE
159: x_msg_data := FND_MESSAGE.Get;
160: END IF;
161:
162: WHEN OTHERS THEN
163: ROLLBACK TO SAVEPOINT Insert_Row;
163: ROLLBACK TO SAVEPOINT Insert_Row;
164: x_return_status := 'U';
165: x_oracle_error := SQLCODE;
166: l_msg_data := SUBSTR(SQLERRM, 1, 200);
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_UNEXPECTED_ERROR');
169: FND_MESSAGE.SET_TOKEN('TEXT',
170: l_msg_data,
171: FALSE);
165: x_oracle_error := SQLCODE;
166: l_msg_data := SUBSTR(SQLERRM, 1, 200);
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_UNEXPECTED_ERROR');
169: FND_MESSAGE.SET_TOKEN('TEXT',
170: l_msg_data,
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
174: ELSE
175: x_msg_data := FND_MESSAGE.Get;
176: END IF;
177:
178: END Insert_Row;
179:
257: WHEN Foreign_Key_Error THEN
258: ROLLBACK TO SAVEPOINT Update_Row;
259: x_return_status := l_return_status;
260: x_oracle_error := l_oracle_error;
261: FND_MESSAGE.SET_NAME('GR',
262: 'GR_FOREIGN_KEY_ERROR');
263: FND_MESSAGE.SET_TOKEN('TEXT',
264: l_msg_data,
265: FALSE);
259: x_return_status := l_return_status;
260: x_oracle_error := l_oracle_error;
261: FND_MESSAGE.SET_NAME('GR',
262: 'GR_FOREIGN_KEY_ERROR');
263: FND_MESSAGE.SET_TOKEN('TEXT',
264: l_msg_data,
265: FALSE);
266: IF FND_API.To_Boolean(p_called_by_form) THEN
267: APP_EXCEPTION.Raise_Exception;
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:
272: WHEN Row_Missing_Error THEN
273: ROLLBACK TO SAVEPOINT Update_Row;
272: WHEN Row_Missing_Error THEN
273: ROLLBACK TO SAVEPOINT Update_Row;
274: x_return_status := 'E';
275: x_oracle_error := APP_EXCEPTION.Get_Code;
276: FND_MESSAGE.SET_NAME('GR',
277: 'GR_NO_RECORD_INSERTED');
278: FND_MESSAGE.SET_TOKEN('CODE',
279: p_european_index_number,
280: FALSE);
274: x_return_status := 'E';
275: x_oracle_error := APP_EXCEPTION.Get_Code;
276: FND_MESSAGE.SET_NAME('GR',
277: 'GR_NO_RECORD_INSERTED');
278: FND_MESSAGE.SET_TOKEN('CODE',
279: p_european_index_number,
280: FALSE);
281: IF FND_API.To_Boolean(p_called_by_form) THEN
282: APP_EXCEPTION.Raise_Exception;
280: FALSE);
281: IF FND_API.To_Boolean(p_called_by_form) THEN
282: APP_EXCEPTION.Raise_Exception;
283: ELSE
284: x_msg_data := FND_MESSAGE.Get;
285: END IF;
286:
287: WHEN OTHERS THEN
288: ROLLBACK TO SAVEPOINT Update_Row;
288: ROLLBACK TO SAVEPOINT Update_Row;
289: x_return_status := 'U';
290: x_oracle_error := SQLCODE;
291: l_msg_data := SUBSTR(SQLERRM, 1, 200);
292: FND_MESSAGE.SET_NAME('GR',
293: 'GR_UNEXPECTED_ERROR');
294: FND_MESSAGE.SET_TOKEN('TEXT',
295: l_msg_data,
296: FALSE);
290: x_oracle_error := SQLCODE;
291: l_msg_data := SUBSTR(SQLERRM, 1, 200);
292: FND_MESSAGE.SET_NAME('GR',
293: 'GR_UNEXPECTED_ERROR');
294: FND_MESSAGE.SET_TOKEN('TEXT',
295: l_msg_data,
296: FALSE);
297: IF FND_API.To_Boolean(p_called_by_form) THEN
298: APP_EXCEPTION.Raise_Exception;
296: FALSE);
297: IF FND_API.To_Boolean(p_called_by_form) THEN
298: APP_EXCEPTION.Raise_Exception;
299: ELSE
300: x_msg_data := FND_MESSAGE.Get;
301: END IF;
302:
303: END Update_Row;
304:
375:
376: WHEN No_Data_Found_Error THEN
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: p_european_index_number,
383: FALSE);
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: p_european_index_number,
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
386: ELSE
387: x_msg_data := FND_MESSAGE.Get;
388: END IF;
389: WHEN RECORD_CHANGED_ERROR THEN
390: ROLLBACK TO SAVEPOINT Lock_Row;
391: X_return_status := 'E';
388: END IF;
389: WHEN RECORD_CHANGED_ERROR THEN
390: ROLLBACK TO SAVEPOINT Lock_Row;
391: X_return_status := 'E';
392: FND_MESSAGE.SET_NAME('FND',
393: 'FORM_RECORD_CHANGED');
394: IF FND_API.To_Boolean(p_called_by_form) THEN
395: APP_EXCEPTION.Raise_Exception;
396: ELSE
393: 'FORM_RECORD_CHANGED');
394: IF FND_API.To_Boolean(p_called_by_form) THEN
395: APP_EXCEPTION.Raise_Exception;
396: ELSE
397: x_msg_data := FND_MESSAGE.Get;
398: END IF;
399: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
400: ROLLBACK TO SAVEPOINT Lock_Row;
401: x_return_status := 'L';
400: ROLLBACK TO SAVEPOINT Lock_Row;
401: x_return_status := 'L';
402: x_oracle_error := APP_EXCEPTION.Get_Code;
403: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
404: FND_MESSAGE.SET_NAME('GR',
405: 'GR_ROW_IS_LOCKED');
406: x_msg_data := FND_MESSAGE.Get;
407: END IF;
408: WHEN OTHERS THEN
402: x_oracle_error := APP_EXCEPTION.Get_Code;
403: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
404: FND_MESSAGE.SET_NAME('GR',
405: 'GR_ROW_IS_LOCKED');
406: x_msg_data := FND_MESSAGE.Get;
407: END IF;
408: WHEN OTHERS THEN
409: ROLLBACK TO SAVEPOINT Lock_Row;
410: x_return_status := 'U';
409: ROLLBACK TO SAVEPOINT Lock_Row;
410: x_return_status := 'U';
411: x_oracle_error := SQLCODE;
412: l_msg_data := SUBSTR(SQLERRM, 1, 200);
413: FND_MESSAGE.SET_NAME('GR',
414: 'GR_UNEXPECTED_ERROR');
415: FND_MESSAGE.SET_TOKEN('TEXT',
416: l_msg_data,
417: FALSE);
411: x_oracle_error := SQLCODE;
412: l_msg_data := SUBSTR(SQLERRM, 1, 200);
413: FND_MESSAGE.SET_NAME('GR',
414: 'GR_UNEXPECTED_ERROR');
415: FND_MESSAGE.SET_TOKEN('TEXT',
416: l_msg_data,
417: FALSE);
418: IF FND_API.To_Boolean(p_called_by_form) THEN
419: APP_EXCEPTION.Raise_Exception;
417: FALSE);
418: IF FND_API.To_Boolean(p_called_by_form) THEN
419: APP_EXCEPTION.Raise_Exception;
420: ELSE
421: x_msg_data := FND_MESSAGE.Get;
422: END IF;
423:
424: END Lock_Row;
425:
486: x_oracle_error := l_oracle_error;
487: IF FND_API.To_Boolean(p_called_by_form) THEN
488: APP_EXCEPTION.Raise_Exception;
489: ELSE
490: x_msg_data := FND_MESSAGE.Get;
491: END IF;
492:
493: WHEN Row_Missing_Error THEN
494: ROLLBACK TO SAVEPOINT Delete_Row;
493: WHEN Row_Missing_Error THEN
494: ROLLBACK TO SAVEPOINT Delete_Row;
495: x_return_status := 'E';
496: x_oracle_error := APP_EXCEPTION.Get_Code;
497: FND_MESSAGE.SET_NAME('GR',
498: 'GR_RECORD_NOT_FOUND');
499: FND_MESSAGE.SET_TOKEN('CODE',
500: p_european_index_number,
501: FALSE);
495: x_return_status := 'E';
496: x_oracle_error := APP_EXCEPTION.Get_Code;
497: FND_MESSAGE.SET_NAME('GR',
498: 'GR_RECORD_NOT_FOUND');
499: FND_MESSAGE.SET_TOKEN('CODE',
500: p_european_index_number,
501: FALSE);
502: IF FND_API.To_Boolean(p_called_by_form) THEN
503: APP_EXCEPTION.Raise_Exception;
501: FALSE);
502: IF FND_API.To_Boolean(p_called_by_form) THEN
503: APP_EXCEPTION.Raise_Exception;
504: ELSE
505: x_msg_data := FND_MESSAGE.Get;
506: END IF;
507:
508: WHEN OTHERS THEN
509: ROLLBACK TO SAVEPOINT Delete_Row;
509: ROLLBACK TO SAVEPOINT Delete_Row;
510: x_return_status := 'U';
511: x_oracle_error := SQLCODE;
512: l_msg_data := SUBSTR(SQLERRM, 1, 200);
513: FND_MESSAGE.SET_NAME('GR',
514: 'GR_UNEXPECTED_ERROR');
515: FND_MESSAGE.SET_TOKEN('TEXT',
516: l_msg_data,
517: FALSE);
511: x_oracle_error := SQLCODE;
512: l_msg_data := SUBSTR(SQLERRM, 1, 200);
513: FND_MESSAGE.SET_NAME('GR',
514: 'GR_UNEXPECTED_ERROR');
515: FND_MESSAGE.SET_TOKEN('TEXT',
516: l_msg_data,
517: FALSE);
518: IF FND_API.To_Boolean(p_called_by_form) THEN
519: APP_EXCEPTION.Raise_Exception;
517: FALSE);
518: IF FND_API.To_Boolean(p_called_by_form) THEN
519: APP_EXCEPTION.Raise_Exception;
520: ELSE
521: x_msg_data := FND_MESSAGE.Get;
522: END IF;
523:
524: END Delete_Row;
525:
558: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
559: x_return_status := 'U';
560: x_oracle_error := SQLCODE;
561: l_msg_data := SUBSTR(SQLERRM, 1, 200);
562: FND_MESSAGE.SET_NAME('GR',
563: 'GR_UNEXPECTED_ERROR');
564: FND_MESSAGE.SET_TOKEN('TEXT',
565: l_msg_data,
566: FALSE);
560: x_oracle_error := SQLCODE;
561: l_msg_data := SUBSTR(SQLERRM, 1, 200);
562: FND_MESSAGE.SET_NAME('GR',
563: 'GR_UNEXPECTED_ERROR');
564: FND_MESSAGE.SET_TOKEN('TEXT',
565: l_msg_data,
566: FALSE);
567: x_msg_data := FND_MESSAGE.Get;
568:
563: 'GR_UNEXPECTED_ERROR');
564: FND_MESSAGE.SET_TOKEN('TEXT',
565: l_msg_data,
566: FALSE);
567: x_msg_data := FND_MESSAGE.Get;
568:
569: END Check_Foreign_Keys;
570:
571: PROCEDURE Check_Integrity
625: EXCEPTION
626:
627: WHEN INTEGRITY_ERROR THEN
628: x_return_status := 'E';
629: FND_MESSAGE.SET_NAME('GR',
630: 'GR_INTEGRITY_HEADER');
631: FND_MESSAGE.SET_TOKEN('CODE',
632: p_european_index_number,
633: FALSE);
627: WHEN INTEGRITY_ERROR THEN
628: x_return_status := 'E';
629: FND_MESSAGE.SET_NAME('GR',
630: 'GR_INTEGRITY_HEADER');
631: FND_MESSAGE.SET_TOKEN('CODE',
632: p_european_index_number,
633: FALSE);
634: FND_MESSAGE.SET_TOKEN('TABLES',
635: l_msg_data,
630: 'GR_INTEGRITY_HEADER');
631: FND_MESSAGE.SET_TOKEN('CODE',
632: p_european_index_number,
633: FALSE);
634: FND_MESSAGE.SET_TOKEN('TABLES',
635: l_msg_data,
636: FALSE);
637: IF FND_API.To_Boolean(p_called_by_form) THEN
638: APP_EXCEPTION.Raise_Exception;
636: FALSE);
637: IF FND_API.To_Boolean(p_called_by_form) THEN
638: APP_EXCEPTION.Raise_Exception;
639: ELSE
640: x_msg_data := FND_MESSAGE.Get;
641: END IF;
642: WHEN OTHERS THEN
643: /* ROLLBACK TO SAVEPOINT Check_Integrity; */
644: x_return_status := 'U';
643: /* ROLLBACK TO SAVEPOINT Check_Integrity; */
644: x_return_status := 'U';
645: x_oracle_error := SQLCODE;
646: l_msg_data := SUBSTR(SQLERRM, 1, 200);
647: FND_MESSAGE.SET_NAME('GR',
648: 'GR_UNEXPECTED_ERROR');
649: FND_MESSAGE.SET_TOKEN('TEXT',
650: l_msg_data,
651: FALSE);
645: x_oracle_error := SQLCODE;
646: l_msg_data := SUBSTR(SQLERRM, 1, 200);
647: FND_MESSAGE.SET_NAME('GR',
648: 'GR_UNEXPECTED_ERROR');
649: FND_MESSAGE.SET_TOKEN('TEXT',
650: l_msg_data,
651: FALSE);
652: IF FND_API.To_Boolean(p_called_by_form) THEN
653: APP_EXCEPTION.Raise_Exception;
651: FALSE);
652: IF FND_API.To_Boolean(p_called_by_form) THEN
653: APP_EXCEPTION.Raise_Exception;
654: ELSE
655: x_msg_data := FND_MESSAGE.Get;
656: END IF;
657:
658: END Check_Integrity;
659:
690: EXCEPTION
691:
692: WHEN Others THEN
693: l_msg_data := SUBSTR(SQLERRM, 1, 200);
694: FND_MESSAGE.SET_NAME('GR',
695: 'GR_UNEXPECTED_ERROR');
696: FND_MESSAGE.SET_TOKEN('TEXT',
697: l_msg_data,
698: FALSE);
692: WHEN Others THEN
693: l_msg_data := SUBSTR(SQLERRM, 1, 200);
694: FND_MESSAGE.SET_NAME('GR',
695: 'GR_UNEXPECTED_ERROR');
696: FND_MESSAGE.SET_TOKEN('TEXT',
697: l_msg_data,
698: FALSE);
699: IF FND_API.To_Boolean(p_called_by_form) THEN
700: APP_EXCEPTION.Raise_Exception;