120: WHEN Foreign_Key_Error THEN
121: ROLLBACK TO SAVEPOINT Insert_Row;
122: x_return_status := l_return_status;
123: x_oracle_error := l_oracle_error;
124: FND_MESSAGE.SET_NAME('GR',
125: 'GR_FOREIGN_KEY_ERROR');
126: FND_MESSAGE.SET_TOKEN('TEXT',
127: l_msg_data,
128: FALSE);
122: x_return_status := l_return_status;
123: x_oracle_error := l_oracle_error;
124: FND_MESSAGE.SET_NAME('GR',
125: 'GR_FOREIGN_KEY_ERROR');
126: FND_MESSAGE.SET_TOKEN('TEXT',
127: l_msg_data,
128: FALSE);
129: IF FND_API.To_Boolean(p_called_by_form) THEN
130: APP_EXCEPTION.Raise_Exception;
128: FALSE);
129: IF FND_API.To_Boolean(p_called_by_form) THEN
130: APP_EXCEPTION.Raise_Exception;
131: ELSE
132: x_msg_data := FND_MESSAGE.Get;
133: END IF;
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: x_return_status := 'E';
138: x_oracle_error := APP_EXCEPTION.Get_Code;
139: FND_MESSAGE.SET_NAME('GR',
140: 'GR_RECORD_EXISTS');
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_european_index_number,
143: FALSE);
137: x_return_status := 'E';
138: x_oracle_error := APP_EXCEPTION.Get_Code;
139: FND_MESSAGE.SET_NAME('GR',
140: 'GR_RECORD_EXISTS');
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_european_index_number,
143: FALSE);
144: IF FND_API.To_Boolean(p_called_by_form) THEN
145: APP_EXCEPTION.Raise_Exception;
143: FALSE);
144: IF FND_API.To_Boolean(p_called_by_form) THEN
145: APP_EXCEPTION.Raise_Exception;
146: ELSE
147: x_msg_data := FND_MESSAGE.Get;
148: END IF;
149:
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: x_return_status := 'E';
153: x_oracle_error := APP_EXCEPTION.Get_Code;
154: FND_MESSAGE.SET_NAME('GR',
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_european_index_number,
158: FALSE);
152: x_return_status := 'E';
153: x_oracle_error := APP_EXCEPTION.Get_Code;
154: FND_MESSAGE.SET_NAME('GR',
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_european_index_number,
158: FALSE);
159: x_msg_data := FND_MESSAGE.Get;
160: IF FND_API.To_Boolean(p_called_by_form) THEN
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_european_index_number,
158: FALSE);
159: x_msg_data := FND_MESSAGE.Get;
160: IF FND_API.To_Boolean(p_called_by_form) THEN
161: APP_EXCEPTION.Raise_Exception;
162: ELSE
163: x_msg_data := FND_MESSAGE.Get;
159: x_msg_data := FND_MESSAGE.Get;
160: IF FND_API.To_Boolean(p_called_by_form) THEN
161: APP_EXCEPTION.Raise_Exception;
162: ELSE
163: x_msg_data := FND_MESSAGE.Get;
164: END IF;
165:
166: WHEN OTHERS THEN
167: ROLLBACK TO SAVEPOINT Insert_Row;
167: ROLLBACK TO SAVEPOINT Insert_Row;
168: x_return_status := 'U';
169: x_oracle_error := SQLCODE;
170: l_msg_data := SUBSTR(sqlerrm, 1, 200);
171: FND_MESSAGE.SET_NAME('GR',
172: 'GR_UNEXPECTED_ERROR');
173: FND_MESSAGE.SET_TOKEN('TEXT',
174: l_msg_data,
175: FALSE);
169: x_oracle_error := SQLCODE;
170: l_msg_data := SUBSTR(sqlerrm, 1, 200);
171: FND_MESSAGE.SET_NAME('GR',
172: 'GR_UNEXPECTED_ERROR');
173: FND_MESSAGE.SET_TOKEN('TEXT',
174: l_msg_data,
175: FALSE);
176: IF FND_API.To_Boolean(p_called_by_form) THEN
177: APP_EXCEPTION.Raise_Exception;
175: FALSE);
176: IF FND_API.To_Boolean(p_called_by_form) THEN
177: APP_EXCEPTION.Raise_Exception;
178: ELSE
179: x_msg_data := FND_MESSAGE.Get;
180: END IF;
181:
182: END Insert_Row;
183:
263: WHEN Foreign_Key_Error THEN
264: ROLLBACK TO SAVEPOINT Update_Row;
265: x_return_status := l_return_status;
266: x_oracle_error := l_oracle_error;
267: FND_MESSAGE.SET_NAME('GR',
268: 'GR_FOREIGN_KEY_ERROR');
269: FND_MESSAGE.SET_TOKEN('TEXT',
270: l_msg_data,
271: FALSE);
265: x_return_status := l_return_status;
266: x_oracle_error := l_oracle_error;
267: FND_MESSAGE.SET_NAME('GR',
268: 'GR_FOREIGN_KEY_ERROR');
269: FND_MESSAGE.SET_TOKEN('TEXT',
270: l_msg_data,
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
274: ELSE
275: x_msg_data := FND_MESSAGE.Get;
276: END IF;
277:
278: WHEN Row_Missing_Error THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
278: WHEN Row_Missing_Error THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'E';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_NO_RECORD_INSERTED');
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_european_index_number,
286: FALSE);
280: x_return_status := 'E';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_NO_RECORD_INSERTED');
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_european_index_number,
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
289: ELSE
290: x_msg_data := FND_MESSAGE.Get;
291: END IF;
292:
293: WHEN OTHERS THEN
294: ROLLBACK TO SAVEPOINT Update_Row;
294: ROLLBACK TO SAVEPOINT Update_Row;
295: x_return_status := 'U';
296: x_oracle_error := SQLCODE;
297: l_msg_data := SUBSTR(sqlerrm, 1, 200);
298: FND_MESSAGE.SET_NAME('GR',
299: 'GR_UNEXPECTED_ERROR');
300: FND_MESSAGE.SET_TOKEN('TEXT',
301: l_msg_data,
302: FALSE);
296: x_oracle_error := SQLCODE;
297: l_msg_data := SUBSTR(sqlerrm, 1, 200);
298: FND_MESSAGE.SET_NAME('GR',
299: 'GR_UNEXPECTED_ERROR');
300: FND_MESSAGE.SET_TOKEN('TEXT',
301: l_msg_data,
302: FALSE);
303: IF FND_API.To_Boolean(p_called_by_form) THEN
304: APP_EXCEPTION.Raise_Exception;
302: FALSE);
303: IF FND_API.To_Boolean(p_called_by_form) THEN
304: APP_EXCEPTION.Raise_Exception;
305: ELSE
306: x_msg_data := FND_MESSAGE.Get;
307: END IF;
308:
309: END Update_Row;
310:
475: WHEN Language_Missing_Error THEN
476: ROLLBACK TO SAVEPOINT Add_Language;
477: x_return_status := 'E';
478: x_oracle_error := APP_EXCEPTION.Get_Code;
479: FND_MESSAGE.SET_NAME('GR',
480: 'GR_RECORD_NOT_FOUND');
481: FND_MESSAGE.SET_TOKEN('CODE',
482: l_msg_token,
483: FALSE);
477: x_return_status := 'E';
478: x_oracle_error := APP_EXCEPTION.Get_Code;
479: FND_MESSAGE.SET_NAME('GR',
480: 'GR_RECORD_NOT_FOUND');
481: FND_MESSAGE.SET_TOKEN('CODE',
482: l_msg_token,
483: FALSE);
484: IF FND_API.To_Boolean(p_called_by_form) THEN
485: APP_EXCEPTION.Raise_Exception;
483: FALSE);
484: IF FND_API.To_Boolean(p_called_by_form) THEN
485: APP_EXCEPTION.Raise_Exception;
486: ELSE
487: x_msg_data := FND_MESSAGE.Get;
488: END IF;
489:
490: WHEN OTHERS THEN
491: ROLLBACK TO SAVEPOINT Add_Language;
491: ROLLBACK TO SAVEPOINT Add_Language;
492: x_return_status := 'U';
493: x_oracle_error := SQLCODE;
494: l_msg_data := SUBSTR(SQLERRM, 1, 200);
495: FND_MESSAGE.SET_NAME('GR',
496: 'GR_UNEXPECTED_ERROR');
497: FND_MESSAGE.SET_TOKEN('TEXT',
498: l_msg_token,
499: FALSE);
493: x_oracle_error := SQLCODE;
494: l_msg_data := SUBSTR(SQLERRM, 1, 200);
495: FND_MESSAGE.SET_NAME('GR',
496: 'GR_UNEXPECTED_ERROR');
497: FND_MESSAGE.SET_TOKEN('TEXT',
498: l_msg_token,
499: FALSE);
500: IF FND_API.To_Boolean(p_called_by_form) THEN
501: APP_EXCEPTION.Raise_Exception;
499: FALSE);
500: IF FND_API.To_Boolean(p_called_by_form) THEN
501: APP_EXCEPTION.Raise_Exception;
502: ELSE
503: x_msg_data := FND_MESSAGE.Get;
504: END IF;
505:
506: END Add_Language;
507:
579:
580: WHEN No_Data_Found_Error THEN
581: ROLLBACK TO SAVEPOINT Lock_Row;
582: x_return_status := 'E';
583: FND_MESSAGE.SET_NAME('GR',
584: 'GR_RECORD_NOT_FOUND');
585: FND_MESSAGE.SET_TOKEN('CODE',
586: p_european_index_number,
587: FALSE);
581: ROLLBACK TO SAVEPOINT Lock_Row;
582: x_return_status := 'E';
583: FND_MESSAGE.SET_NAME('GR',
584: 'GR_RECORD_NOT_FOUND');
585: FND_MESSAGE.SET_TOKEN('CODE',
586: p_european_index_number,
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
590: ELSE
591: x_msg_data := FND_MESSAGE.Get;
592: END IF;
593: WHEN RECORD_CHANGED_ERROR THEN
594: ROLLBACK TO SAVEPOINT Lock_Row;
595: X_return_status := 'E';
592: END IF;
593: WHEN RECORD_CHANGED_ERROR THEN
594: ROLLBACK TO SAVEPOINT Lock_Row;
595: X_return_status := 'E';
596: FND_MESSAGE.SET_NAME('FND',
597: 'FORM_RECORD_CHANGED');
598: IF FND_API.To_Boolean(p_called_by_form) THEN
599: APP_EXCEPTION.Raise_Exception;
600: ELSE
597: 'FORM_RECORD_CHANGED');
598: IF FND_API.To_Boolean(p_called_by_form) THEN
599: APP_EXCEPTION.Raise_Exception;
600: ELSE
601: x_msg_data := FND_MESSAGE.Get;
602: END IF;
603: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
604: ROLLBACK TO SAVEPOINT Lock_Row;
605: x_return_status := 'L';
604: ROLLBACK TO SAVEPOINT Lock_Row;
605: x_return_status := 'L';
606: x_oracle_error := APP_EXCEPTION.Get_Code;
607: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
608: FND_MESSAGE.SET_NAME('GR',
609: 'GR_ROW_IS_LOCKED');
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612: WHEN OTHERS THEN
606: x_oracle_error := APP_EXCEPTION.Get_Code;
607: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
608: FND_MESSAGE.SET_NAME('GR',
609: 'GR_ROW_IS_LOCKED');
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612: WHEN OTHERS THEN
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'U';
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'U';
615: x_oracle_error := SQLCODE;
616: l_msg_data := SUBSTR(sqlerrm, 1, 200);
617: FND_MESSAGE.SET_NAME('GR',
618: 'GR_UNEXPECTED_ERROR');
619: FND_MESSAGE.SET_TOKEN('TEXT',
620: l_msg_data,
621: FALSE);
615: x_oracle_error := SQLCODE;
616: l_msg_data := SUBSTR(sqlerrm, 1, 200);
617: FND_MESSAGE.SET_NAME('GR',
618: 'GR_UNEXPECTED_ERROR');
619: FND_MESSAGE.SET_TOKEN('TEXT',
620: l_msg_data,
621: FALSE);
622: IF FND_API.To_Boolean(p_called_by_form) THEN
623: APP_EXCEPTION.Raise_Exception;
621: FALSE);
622: IF FND_API.To_Boolean(p_called_by_form) THEN
623: APP_EXCEPTION.Raise_Exception;
624: ELSE
625: x_msg_data := FND_MESSAGE.Get;
626: END IF;
627:
628: END Lock_Row;
629:
692: x_oracle_error := l_oracle_error;
693: IF FND_API.To_Boolean(p_called_by_form) THEN
694: APP_EXCEPTION.Raise_Exception;
695: ELSE
696: x_msg_data := FND_MESSAGE.Get;
697: END IF;
698:
699: WHEN Row_Missing_Error THEN
700: ROLLBACK TO SAVEPOINT Delete_Row;
699: WHEN Row_Missing_Error THEN
700: ROLLBACK TO SAVEPOINT Delete_Row;
701: x_return_status := 'E';
702: x_oracle_error := APP_EXCEPTION.Get_Code;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_RECORD_NOT_FOUND');
705: FND_MESSAGE.SET_TOKEN('CODE',
706: p_european_index_number,
707: FALSE);
701: x_return_status := 'E';
702: x_oracle_error := APP_EXCEPTION.Get_Code;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_RECORD_NOT_FOUND');
705: FND_MESSAGE.SET_TOKEN('CODE',
706: p_european_index_number,
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
710: ELSE
711: x_msg_data := FND_MESSAGE.Get;
712: END IF;
713:
714: WHEN OTHERS THEN
715: ROLLBACK TO SAVEPOINT Delete_Row;
715: ROLLBACK TO SAVEPOINT Delete_Row;
716: x_return_status := 'U';
717: x_oracle_error := SQLCODE;
718: l_msg_data := SUBSTR(sqlerrm, 1, 200);
719: FND_MESSAGE.SET_NAME('GR',
720: 'GR_UNEXPECTED_ERROR');
721: FND_MESSAGE.SET_TOKEN('TEXT',
722: l_msg_data,
723: FALSE);
717: x_oracle_error := SQLCODE;
718: l_msg_data := SUBSTR(sqlerrm, 1, 200);
719: FND_MESSAGE.SET_NAME('GR',
720: 'GR_UNEXPECTED_ERROR');
721: FND_MESSAGE.SET_TOKEN('TEXT',
722: l_msg_data,
723: FALSE);
724: IF FND_API.To_Boolean(p_called_by_form) THEN
725: APP_EXCEPTION.Raise_Exception;
723: FALSE);
724: IF FND_API.To_Boolean(p_called_by_form) THEN
725: APP_EXCEPTION.Raise_Exception;
726: ELSE
727: x_msg_data := FND_MESSAGE.Get;
728: END IF;
729:
730: END Delete_Row;
731:
773: ROLLBACK TO SAVEPOINT Delete_Rows;
774: x_return_status := 'U';
775: x_oracle_error := SQLCODE;
776: l_msg_data := SUBSTR(sqlerrm, 1, 200);
777: FND_MESSAGE.SET_NAME('GR',
778: 'GR_UNEXPECTED_ERROR');
779: FND_MESSAGE.SET_TOKEN('TEXT',
780: l_msg_token,
781: FALSE);
775: x_oracle_error := SQLCODE;
776: l_msg_data := SUBSTR(sqlerrm, 1, 200);
777: FND_MESSAGE.SET_NAME('GR',
778: 'GR_UNEXPECTED_ERROR');
779: FND_MESSAGE.SET_TOKEN('TEXT',
780: l_msg_token,
781: FALSE);
782: IF FND_API.To_Boolean(p_called_by_form) THEN
783: APP_EXCEPTION.Raise_Exception;
781: FALSE);
782: IF FND_API.To_Boolean(p_called_by_form) THEN
783: APP_EXCEPTION.Raise_Exception;
784: ELSE
785: x_msg_data := FND_MESSAGE.Get;
786: END IF;
787:
788: END Delete_Rows;
789:
837: IF c_get_language%NOTFOUND THEN
838: l_msg_token := l_language_code;
839: x_return_status := 'E';
840: x_oracle_error := APP_EXCEPTION.Get_Code;
841: FND_MESSAGE.SET_NAME('GR',
842: 'GR_RECORD_NOT_FOUND');
843: FND_MESSAGE.SET_TOKEN('CODE',
844: l_msg_token,
845: FALSE);
839: x_return_status := 'E';
840: x_oracle_error := APP_EXCEPTION.Get_Code;
841: FND_MESSAGE.SET_NAME('GR',
842: 'GR_RECORD_NOT_FOUND');
843: FND_MESSAGE.SET_TOKEN('CODE',
844: l_msg_token,
845: FALSE);
846: l_msg_data := FND_MESSAGE.Get;
847: END IF;
842: 'GR_RECORD_NOT_FOUND');
843: FND_MESSAGE.SET_TOKEN('CODE',
844: l_msg_token,
845: FALSE);
846: l_msg_data := FND_MESSAGE.Get;
847: END IF;
848: CLOSE c_get_language;
849:
850: l_language_code := p_source_lang;
853: IF c_get_language%NOTFOUND THEN
854: l_msg_token := l_language_code;
855: x_return_status := 'E';
856: x_oracle_error := APP_EXCEPTION.Get_Code;
857: FND_MESSAGE.SET_NAME('GR',
858: 'GR_RECORD_NOT_FOUND');
859: FND_MESSAGE.SET_TOKEN('CODE',
860: l_msg_token,
861: FALSE);
855: x_return_status := 'E';
856: x_oracle_error := APP_EXCEPTION.Get_Code;
857: FND_MESSAGE.SET_NAME('GR',
858: 'GR_RECORD_NOT_FOUND');
859: FND_MESSAGE.SET_TOKEN('CODE',
860: l_msg_token,
861: FALSE);
862: l_msg_data := FND_MESSAGE.Get;
863: END IF;
858: 'GR_RECORD_NOT_FOUND');
859: FND_MESSAGE.SET_TOKEN('CODE',
860: l_msg_token,
861: FALSE);
862: l_msg_data := FND_MESSAGE.Get;
863: END IF;
864: CLOSE c_get_language;
865:
866: IF x_return_status <> 'S' THEN
874: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
875: x_return_status := 'U';
876: x_oracle_error := SQLCODE;
877: l_msg_data := SUBSTR(sqlerrm, 1, 200);
878: FND_MESSAGE.SET_NAME('GR',
879: 'GR_UNEXPECTED_ERROR');
880: FND_MESSAGE.SET_TOKEN('TEXT',
881: l_msg_data,
882: FALSE);
876: x_oracle_error := SQLCODE;
877: l_msg_data := SUBSTR(sqlerrm, 1, 200);
878: FND_MESSAGE.SET_NAME('GR',
879: 'GR_UNEXPECTED_ERROR');
880: FND_MESSAGE.SET_TOKEN('TEXT',
881: l_msg_data,
882: FALSE);
883: x_msg_data := FND_MESSAGE.Get;
884:
879: 'GR_UNEXPECTED_ERROR');
880: FND_MESSAGE.SET_TOKEN('TEXT',
881: l_msg_data,
882: FALSE);
883: x_msg_data := FND_MESSAGE.Get;
884:
885: END Check_Foreign_Keys;
886:
887: PROCEDURE Check_Integrity
937:
938: WHEN Installed_Language_Error THEN
939: ROLLBACK TO SAVEPOINT Check_Integrity;
940: x_return_status := 'E';
941: FND_MESSAGE.SET_NAME('GR',
942: 'GR_INSTALLED_LANG');
943: FND_MESSAGE.SET_TOKEN('CODE',
944: p_language,
945: FALSE);
939: ROLLBACK TO SAVEPOINT Check_Integrity;
940: x_return_status := 'E';
941: FND_MESSAGE.SET_NAME('GR',
942: 'GR_INSTALLED_LANG');
943: FND_MESSAGE.SET_TOKEN('CODE',
944: p_language,
945: FALSE);
946: IF FND_API.To_Boolean(p_called_by_form) THEN
947: APP_EXCEPTION.Raise_Exception;
945: FALSE);
946: IF FND_API.To_Boolean(p_called_by_form) THEN
947: APP_EXCEPTION.Raise_Exception;
948: ELSE
949: x_msg_data := FND_MESSAGE.Get;
950: END IF;
951:
952: WHEN OTHERS THEN
953: ROLLBACK TO SAVEPOINT Check_Integrity;
953: ROLLBACK TO SAVEPOINT Check_Integrity;
954: x_return_status := 'U';
955: x_oracle_error := SQLCODE;
956: l_msg_data := SUBSTR(SQLERRM, 1, 200);
957: FND_MESSAGE.SET_NAME('GR',
958: 'GR_UNEXPECTED_ERROR');
959: FND_MESSAGE.SET_TOKEN('TEXT',
960: l_msg_data,
961: FALSE);
955: x_oracle_error := SQLCODE;
956: l_msg_data := SUBSTR(SQLERRM, 1, 200);
957: FND_MESSAGE.SET_NAME('GR',
958: 'GR_UNEXPECTED_ERROR');
959: FND_MESSAGE.SET_TOKEN('TEXT',
960: l_msg_data,
961: FALSE);
962: IF FND_API.To_Boolean(p_called_by_form) THEN
963: APP_EXCEPTION.Raise_Exception;
961: FALSE);
962: IF FND_API.To_Boolean(p_called_by_form) THEN
963: APP_EXCEPTION.Raise_Exception;
964: ELSE
965: x_msg_data := FND_MESSAGE.Get;
966: END IF;
967:
968: END Check_Integrity;
969:
1002: EXCEPTION
1003:
1004: WHEN Others THEN
1005: l_msg_data := sqlerrm;
1006: FND_MESSAGE.SET_NAME('GR',
1007: 'GR_UNEXPECTED_ERROR');
1008: FND_MESSAGE.SET_TOKEN('TEXT',
1009: l_msg_data,
1010: FALSE);
1004: WHEN Others THEN
1005: l_msg_data := sqlerrm;
1006: FND_MESSAGE.SET_NAME('GR',
1007: 'GR_UNEXPECTED_ERROR');
1008: FND_MESSAGE.SET_TOKEN('TEXT',
1009: l_msg_data,
1010: FALSE);
1011: IF FND_API.To_Boolean(p_called_by_form) THEN
1012: APP_EXCEPTION.Raise_Exception;