113: WHEN Foreign_Key_Error THEN
114: ROLLBACK TO SAVEPOINT Insert_Row;
115: x_return_status := l_return_status;
116: x_oracle_error := l_oracle_error;
117: FND_MESSAGE.SET_NAME('GR',
118: 'GR_FOREIGN_KEY_ERROR');
119: FND_MESSAGE.SET_TOKEN('TEXT',
120: l_msg_data,
121: FALSE);
115: x_return_status := l_return_status;
116: x_oracle_error := l_oracle_error;
117: FND_MESSAGE.SET_NAME('GR',
118: 'GR_FOREIGN_KEY_ERROR');
119: FND_MESSAGE.SET_TOKEN('TEXT',
120: l_msg_data,
121: FALSE);
122: IF FND_API.To_Boolean(p_called_by_form) THEN
123: APP_EXCEPTION.Raise_Exception;
121: FALSE);
122: IF FND_API.To_Boolean(p_called_by_form) THEN
123: APP_EXCEPTION.Raise_Exception;
124: ELSE
125: x_msg_data := FND_MESSAGE.Get;
126: END IF;
127:
128: WHEN Item_Exists_Error THEN
129: ROLLBACK TO SAVEPOINT Insert_Row;
128: WHEN Item_Exists_Error THEN
129: ROLLBACK TO SAVEPOINT Insert_Row;
130: x_return_status := 'E';
131: x_oracle_error := APP_EXCEPTION.Get_Code;
132: FND_MESSAGE.SET_NAME('GR',
133: 'GR_RECORD_EXISTS');
134: FND_MESSAGE.SET_TOKEN('CODE',
135: p_european_index_number||' '||p_risk_phrase_code,
136: FALSE);
130: x_return_status := 'E';
131: x_oracle_error := APP_EXCEPTION.Get_Code;
132: FND_MESSAGE.SET_NAME('GR',
133: 'GR_RECORD_EXISTS');
134: FND_MESSAGE.SET_TOKEN('CODE',
135: p_european_index_number||' '||p_risk_phrase_code,
136: FALSE);
137: IF FND_API.To_Boolean(p_called_by_form) THEN
138: APP_EXCEPTION.Raise_Exception;
136: FALSE);
137: IF FND_API.To_Boolean(p_called_by_form) THEN
138: APP_EXCEPTION.Raise_Exception;
139: ELSE
140: x_msg_data := FND_MESSAGE.Get;
141: END IF;
142:
143: WHEN Row_Missing_Error THEN
144: ROLLBACK TO SAVEPOINT Insert_Row;
143: WHEN Row_Missing_Error THEN
144: ROLLBACK TO SAVEPOINT Insert_Row;
145: x_return_status := 'E';
146: x_oracle_error := APP_EXCEPTION.Get_Code;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_NO_RECORD_INSERTED');
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_european_index_number,
151: FALSE);
145: x_return_status := 'E';
146: x_oracle_error := APP_EXCEPTION.Get_Code;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_NO_RECORD_INSERTED');
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_european_index_number,
151: FALSE);
152: x_msg_data := FND_MESSAGE.Get;
153: IF FND_API.To_Boolean(p_called_by_form) THEN
148: 'GR_NO_RECORD_INSERTED');
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_european_index_number,
151: FALSE);
152: x_msg_data := FND_MESSAGE.Get;
153: IF FND_API.To_Boolean(p_called_by_form) THEN
154: APP_EXCEPTION.Raise_Exception;
155: ELSE
156: x_msg_data := FND_MESSAGE.Get;
152: x_msg_data := FND_MESSAGE.Get;
153: IF FND_API.To_Boolean(p_called_by_form) THEN
154: APP_EXCEPTION.Raise_Exception;
155: ELSE
156: x_msg_data := FND_MESSAGE.Get;
157: END IF;
158:
159: WHEN OTHERS THEN
160: ROLLBACK TO SAVEPOINT Insert_Row;
160: ROLLBACK TO SAVEPOINT Insert_Row;
161: x_return_status := 'U';
162: x_oracle_error := SQLCODE;
163: l_msg_data := SUBSTR(sqlerrm, 1, 200);
164: FND_MESSAGE.SET_NAME('GR',
165: 'GR_UNEXPECTED_ERROR');
166: FND_MESSAGE.SET_TOKEN('TEXT',
167: l_msg_data,
168: FALSE);
162: x_oracle_error := SQLCODE;
163: l_msg_data := SUBSTR(sqlerrm, 1, 200);
164: FND_MESSAGE.SET_NAME('GR',
165: 'GR_UNEXPECTED_ERROR');
166: FND_MESSAGE.SET_TOKEN('TEXT',
167: l_msg_data,
168: FALSE);
169: IF FND_API.To_Boolean(p_called_by_form) THEN
170: APP_EXCEPTION.Raise_Exception;
168: FALSE);
169: IF FND_API.To_Boolean(p_called_by_form) THEN
170: APP_EXCEPTION.Raise_Exception;
171: ELSE
172: x_msg_data := FND_MESSAGE.Get;
173: END IF;
174:
175: END Insert_Row;
176:
251: WHEN Foreign_Key_Error THEN
252: ROLLBACK TO SAVEPOINT Update_Row;
253: x_return_status := l_return_status;
254: x_oracle_error := l_oracle_error;
255: FND_MESSAGE.SET_NAME('GR',
256: 'GR_FOREIGN_KEY_ERROR');
257: FND_MESSAGE.SET_TOKEN('TEXT',
258: l_msg_data,
259: FALSE);
253: x_return_status := l_return_status;
254: x_oracle_error := l_oracle_error;
255: FND_MESSAGE.SET_NAME('GR',
256: 'GR_FOREIGN_KEY_ERROR');
257: FND_MESSAGE.SET_TOKEN('TEXT',
258: l_msg_data,
259: FALSE);
260: IF FND_API.To_Boolean(p_called_by_form) THEN
261: APP_EXCEPTION.Raise_Exception;
259: FALSE);
260: IF FND_API.To_Boolean(p_called_by_form) THEN
261: APP_EXCEPTION.Raise_Exception;
262: ELSE
263: x_msg_data := FND_MESSAGE.Get;
264: END IF;
265:
266: WHEN Row_Missing_Error THEN
267: ROLLBACK TO SAVEPOINT Update_Row;
266: WHEN Row_Missing_Error THEN
267: ROLLBACK TO SAVEPOINT Update_Row;
268: x_return_status := 'E';
269: x_oracle_error := APP_EXCEPTION.Get_Code;
270: FND_MESSAGE.SET_NAME('GR',
271: 'GR_NO_RECORD_INSERTED');
272: FND_MESSAGE.SET_TOKEN('CODE',
273: p_european_index_number||' '||p_risk_phrase_code,
274: FALSE);
268: x_return_status := 'E';
269: x_oracle_error := APP_EXCEPTION.Get_Code;
270: FND_MESSAGE.SET_NAME('GR',
271: 'GR_NO_RECORD_INSERTED');
272: FND_MESSAGE.SET_TOKEN('CODE',
273: p_european_index_number||' '||p_risk_phrase_code,
274: FALSE);
275: IF FND_API.To_Boolean(p_called_by_form) THEN
276: APP_EXCEPTION.Raise_Exception;
274: FALSE);
275: IF FND_API.To_Boolean(p_called_by_form) THEN
276: APP_EXCEPTION.Raise_Exception;
277: ELSE
278: x_msg_data := FND_MESSAGE.Get;
279: END IF;
280:
281: WHEN OTHERS THEN
282: ROLLBACK TO SAVEPOINT Update_Row;
282: ROLLBACK TO SAVEPOINT Update_Row;
283: x_return_status := 'U';
284: x_oracle_error := SQLCODE;
285: l_msg_data := SUBSTR(SQLERRM, 1, 200);
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_UNEXPECTED_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
284: x_oracle_error := SQLCODE;
285: l_msg_data := SUBSTR(SQLERRM, 1, 200);
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_UNEXPECTED_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
296:
297: END Update_Row;
298:
367:
368: WHEN No_Data_Found_Error THEN
369: ROLLBACK TO SAVEPOINT Lock_Row;
370: x_return_status := 'E';
371: FND_MESSAGE.SET_NAME('GR',
372: 'GR_RECORD_NOT_FOUND');
373: FND_MESSAGE.SET_TOKEN('CODE',
374: p_european_index_number||' '||p_risk_phrase_code,
375: FALSE);
369: ROLLBACK TO SAVEPOINT Lock_Row;
370: x_return_status := 'E';
371: FND_MESSAGE.SET_NAME('GR',
372: 'GR_RECORD_NOT_FOUND');
373: FND_MESSAGE.SET_TOKEN('CODE',
374: p_european_index_number||' '||p_risk_phrase_code,
375: FALSE);
376: IF FND_API.To_Boolean(p_called_by_form) THEN
377: APP_EXCEPTION.Raise_Exception;
375: FALSE);
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 RECORD_CHANGED_ERROR THEN
382: ROLLBACK TO SAVEPOINT Lock_Row;
383: X_return_status := 'E';
380: END IF;
381: WHEN RECORD_CHANGED_ERROR THEN
382: ROLLBACK TO SAVEPOINT Lock_Row;
383: X_return_status := 'E';
384: FND_MESSAGE.SET_NAME('FND',
385: 'FORM_RECORD_CHANGED');
386: IF FND_API.To_Boolean(p_called_by_form) THEN
387: APP_EXCEPTION.Raise_Exception;
388: ELSE
385: 'FORM_RECORD_CHANGED');
386: IF FND_API.To_Boolean(p_called_by_form) THEN
387: APP_EXCEPTION.Raise_Exception;
388: ELSE
389: x_msg_data := FND_MESSAGE.Get;
390: END IF;
391: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
392: ROLLBACK TO SAVEPOINT Lock_Row;
393: x_return_status := 'L';
392: ROLLBACK TO SAVEPOINT Lock_Row;
393: x_return_status := 'L';
394: x_oracle_error := APP_EXCEPTION.Get_Code;
395: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
396: FND_MESSAGE.SET_NAME('GR',
397: 'GR_ROW_IS_LOCKED');
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
400: WHEN OTHERS THEN
394: x_oracle_error := APP_EXCEPTION.Get_Code;
395: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
396: FND_MESSAGE.SET_NAME('GR',
397: 'GR_ROW_IS_LOCKED');
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
400: WHEN OTHERS THEN
401: ROLLBACK TO SAVEPOINT Lock_Row;
402: x_return_status := 'U';
401: ROLLBACK TO SAVEPOINT Lock_Row;
402: x_return_status := 'U';
403: x_oracle_error := SQLCODE;
404: l_msg_data := SUBSTR(sqlerrm, 1, 200);
405: FND_MESSAGE.SET_NAME('GR',
406: 'GR_UNEXPECTED_ERROR');
407: FND_MESSAGE.SET_TOKEN('TEXT',
408: l_msg_data,
409: FALSE);
403: x_oracle_error := SQLCODE;
404: l_msg_data := SUBSTR(sqlerrm, 1, 200);
405: FND_MESSAGE.SET_NAME('GR',
406: 'GR_UNEXPECTED_ERROR');
407: FND_MESSAGE.SET_TOKEN('TEXT',
408: l_msg_data,
409: FALSE);
410: IF FND_API.To_Boolean(p_called_by_form) THEN
411: APP_EXCEPTION.Raise_Exception;
409: FALSE);
410: IF FND_API.To_Boolean(p_called_by_form) THEN
411: APP_EXCEPTION.Raise_Exception;
412: ELSE
413: x_msg_data := FND_MESSAGE.Get;
414: END IF;
415:
416: END Lock_Row;
417:
480: x_oracle_error := l_oracle_error;
481: IF FND_API.To_Boolean(p_called_by_form) THEN
482: APP_EXCEPTION.Raise_Exception;
483: ELSE
484: x_msg_data := FND_MESSAGE.Get;
485: END IF;
486:
487: WHEN Row_Missing_Error THEN
488: ROLLBACK TO SAVEPOINT Delete_Row;
487: WHEN Row_Missing_Error THEN
488: ROLLBACK TO SAVEPOINT Delete_Row;
489: x_return_status := 'E';
490: x_oracle_error := APP_EXCEPTION.Get_Code;
491: FND_MESSAGE.SET_NAME('GR',
492: 'GR_RECORD_NOT_FOUND');
493: FND_MESSAGE.SET_TOKEN('CODE',
494: p_european_index_number||' '||p_risk_phrase_code,
495: FALSE);
489: x_return_status := 'E';
490: x_oracle_error := APP_EXCEPTION.Get_Code;
491: FND_MESSAGE.SET_NAME('GR',
492: 'GR_RECORD_NOT_FOUND');
493: FND_MESSAGE.SET_TOKEN('CODE',
494: p_european_index_number||' '||p_risk_phrase_code,
495: FALSE);
496: IF FND_API.To_Boolean(p_called_by_form) THEN
497: APP_EXCEPTION.Raise_Exception;
495: FALSE);
496: IF FND_API.To_Boolean(p_called_by_form) THEN
497: APP_EXCEPTION.Raise_Exception;
498: ELSE
499: x_msg_data := FND_MESSAGE.Get;
500: END IF;
501:
502: WHEN OTHERS THEN
503: ROLLBACK TO SAVEPOINT Delete_Row;
503: ROLLBACK TO SAVEPOINT Delete_Row;
504: x_return_status := 'U';
505: x_oracle_error := SQLCODE;
506: l_msg_data := SUBSTR(sqlerrm, 1, 200);
507: FND_MESSAGE.SET_NAME('GR',
508: 'GR_UNEXPECTED_ERROR');
509: FND_MESSAGE.SET_TOKEN('TEXT',
510: l_msg_data,
511: FALSE);
505: x_oracle_error := SQLCODE;
506: l_msg_data := SUBSTR(sqlerrm, 1, 200);
507: FND_MESSAGE.SET_NAME('GR',
508: 'GR_UNEXPECTED_ERROR');
509: FND_MESSAGE.SET_TOKEN('TEXT',
510: l_msg_data,
511: FALSE);
512: IF FND_API.To_Boolean(p_called_by_form) THEN
513: APP_EXCEPTION.Raise_Exception;
511: FALSE);
512: IF FND_API.To_Boolean(p_called_by_form) THEN
513: APP_EXCEPTION.Raise_Exception;
514: ELSE
515: x_msg_data := FND_MESSAGE.Get;
516: END IF;
517:
518: END Delete_Row;
519:
561: ROLLBACK TO SAVEPOINT Delete_Rows;
562: x_return_status := 'U';
563: x_oracle_error := SQLCODE;
564: l_msg_data := SUBSTR(sqlerrm, 1, 200);
565: FND_MESSAGE.SET_NAME('GR',
566: 'GR_UNEXPECTED_ERROR');
567: FND_MESSAGE.SET_TOKEN('TEXT',
568: l_msg_token,
569: FALSE);
563: x_oracle_error := SQLCODE;
564: l_msg_data := SUBSTR(sqlerrm, 1, 200);
565: FND_MESSAGE.SET_NAME('GR',
566: 'GR_UNEXPECTED_ERROR');
567: FND_MESSAGE.SET_TOKEN('TEXT',
568: l_msg_token,
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
572: ELSE
573: x_msg_data := FND_MESSAGE.Get;
574: END IF;
575:
576: END Delete_Rows;
577:
620: IF c_get_risk%NOTFOUND THEN
621: l_msg_token := p_risk_phrase_code;
622: x_return_status := 'E';
623: x_oracle_error := APP_EXCEPTION.Get_Code;
624: FND_MESSAGE.SET_NAME('GR',
625: 'GR_RECORD_NOT_FOUND');
626: FND_MESSAGE.SET_TOKEN('CODE',
627: l_msg_token,
628: FALSE);
622: x_return_status := 'E';
623: x_oracle_error := APP_EXCEPTION.Get_Code;
624: FND_MESSAGE.SET_NAME('GR',
625: 'GR_RECORD_NOT_FOUND');
626: FND_MESSAGE.SET_TOKEN('CODE',
627: l_msg_token,
628: FALSE);
629: l_msg_data := FND_MESSAGE.Get;
630: END IF;
625: 'GR_RECORD_NOT_FOUND');
626: FND_MESSAGE.SET_TOKEN('CODE',
627: l_msg_token,
628: FALSE);
629: l_msg_data := FND_MESSAGE.Get;
630: END IF;
631: CLOSE c_get_risk;
632:
633: IF x_return_status <> 'S' THEN
640: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
641: x_return_status := 'U';
642: x_oracle_error := SQLCODE;
643: l_msg_data := SUBSTR(sqlerrm, 1, 200);
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_UNEXPECTED_ERROR');
646: FND_MESSAGE.SET_TOKEN('TEXT',
647: l_msg_data,
648: FALSE);
642: x_oracle_error := SQLCODE;
643: l_msg_data := SUBSTR(sqlerrm, 1, 200);
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_UNEXPECTED_ERROR');
646: FND_MESSAGE.SET_TOKEN('TEXT',
647: l_msg_data,
648: FALSE);
649: x_msg_data := FND_MESSAGE.Get;
650:
645: 'GR_UNEXPECTED_ERROR');
646: FND_MESSAGE.SET_TOKEN('TEXT',
647: l_msg_data,
648: FALSE);
649: x_msg_data := FND_MESSAGE.Get;
650:
651: END Check_Foreign_Keys;
652:
653: PROCEDURE Check_Integrity
689: EXCEPTION
690:
691: WHEN INTEGRITY_ERROR THEN
692: x_return_status := 'E';
693: FND_MESSAGE.SET_NAME('GR',
694: 'GR_INTEGRITY_HEADER');
695: FND_MESSAGE.SET_TOKEN('CODE',
696: p_european_index_number||' '||p_risk_phrase_code,
697: FALSE);
691: WHEN INTEGRITY_ERROR THEN
692: x_return_status := 'E';
693: FND_MESSAGE.SET_NAME('GR',
694: 'GR_INTEGRITY_HEADER');
695: FND_MESSAGE.SET_TOKEN('CODE',
696: p_european_index_number||' '||p_risk_phrase_code,
697: FALSE);
698: FND_MESSAGE.SET_TOKEN('TABLES',
699: l_msg_data,
694: 'GR_INTEGRITY_HEADER');
695: FND_MESSAGE.SET_TOKEN('CODE',
696: p_european_index_number||' '||p_risk_phrase_code,
697: FALSE);
698: FND_MESSAGE.SET_TOKEN('TABLES',
699: l_msg_data,
700: FALSE);
701: IF FND_API.To_Boolean(p_called_by_form) THEN
702: APP_EXCEPTION.Raise_Exception;
700: FALSE);
701: IF FND_API.To_Boolean(p_called_by_form) THEN
702: APP_EXCEPTION.Raise_Exception;
703: ELSE
704: x_msg_data := FND_MESSAGE.Get;
705: END IF;
706: WHEN OTHERS THEN
707: ROLLBACK TO SAVEPOINT Check_Integrity;
708: x_return_status := 'U';
707: ROLLBACK TO SAVEPOINT Check_Integrity;
708: x_return_status := 'U';
709: x_oracle_error := SQLCODE;
710: l_msg_data := SUBSTR(sqlerrm, 1, 200);
711: FND_MESSAGE.SET_NAME('GR',
712: 'GR_UNEXPECTED_ERROR');
713: FND_MESSAGE.SET_TOKEN('TEXT',
714: l_msg_data,
715: FALSE);
709: x_oracle_error := SQLCODE;
710: l_msg_data := SUBSTR(sqlerrm, 1, 200);
711: FND_MESSAGE.SET_NAME('GR',
712: 'GR_UNEXPECTED_ERROR');
713: FND_MESSAGE.SET_TOKEN('TEXT',
714: l_msg_data,
715: FALSE);
716: IF FND_API.To_Boolean(p_called_by_form) THEN
717: APP_EXCEPTION.Raise_Exception;
715: FALSE);
716: IF FND_API.To_Boolean(p_called_by_form) THEN
717: APP_EXCEPTION.Raise_Exception;
718: ELSE
719: x_msg_data := FND_MESSAGE.Get;
720: END IF;
721:
722: END Check_Integrity;
723:
756: EXCEPTION
757:
758: WHEN Others THEN
759: l_msg_data := sqlerrm;
760: FND_MESSAGE.SET_NAME('GR',
761: 'GR_UNEXPECTED_ERROR');
762: FND_MESSAGE.SET_TOKEN('TEXT',
763: l_msg_data,
764: FALSE);
758: WHEN Others THEN
759: l_msg_data := sqlerrm;
760: FND_MESSAGE.SET_NAME('GR',
761: 'GR_UNEXPECTED_ERROR');
762: FND_MESSAGE.SET_TOKEN('TEXT',
763: l_msg_data,
764: FALSE);
765: IF FND_API.To_Boolean(p_called_by_form) THEN
766: APP_EXCEPTION.Raise_Exception;