121: WHEN Foreign_Key_Error THEN
122: ROLLBACK TO SAVEPOINT Insert_Row;
123: x_return_status := l_return_status;
124: x_oracle_error := l_oracle_error;
125: FND_MESSAGE.SET_NAME('GR',
126: 'GR_FOREIGN_KEY_ERROR');
127: FND_MESSAGE.SET_TOKEN('TEXT',
128: l_msg_data,
129: FALSE);
123: x_return_status := l_return_status;
124: x_oracle_error := l_oracle_error;
125: FND_MESSAGE.SET_NAME('GR',
126: 'GR_FOREIGN_KEY_ERROR');
127: FND_MESSAGE.SET_TOKEN('TEXT',
128: l_msg_data,
129: FALSE);
130: IF FND_API.To_Boolean(p_called_by_form) THEN
131: APP_EXCEPTION.Raise_Exception;
129: FALSE);
130: IF FND_API.To_Boolean(p_called_by_form) THEN
131: APP_EXCEPTION.Raise_Exception;
132: ELSE
133: x_msg_data := FND_MESSAGE.Get;
134: END IF;
135:
136: WHEN Item_Exists_Error THEN
137: ROLLBACK TO SAVEPOINT Insert_Row;
137: ROLLBACK TO SAVEPOINT Insert_Row;
138: l_msg_token := p_exposure_authority_code || ' ' || p_language;
139: x_return_status := 'E';
140: x_oracle_error := APP_EXCEPTION.Get_Code;
141: FND_MESSAGE.SET_NAME('GR',
142: 'GR_RECORD_EXISTS');
143: FND_MESSAGE.SET_TOKEN('CODE',
144: l_msg_token,
145: FALSE);
139: x_return_status := 'E';
140: x_oracle_error := APP_EXCEPTION.Get_Code;
141: FND_MESSAGE.SET_NAME('GR',
142: 'GR_RECORD_EXISTS');
143: FND_MESSAGE.SET_TOKEN('CODE',
144: l_msg_token,
145: FALSE);
146: IF FND_API.To_Boolean(p_called_by_form) THEN
147: APP_EXCEPTION.Raise_Exception;
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;
151:
152: WHEN Row_Missing_Error THEN
153: ROLLBACK TO SAVEPOINT Insert_Row;
153: ROLLBACK TO SAVEPOINT Insert_Row;
154: l_msg_token := p_exposure_authority_code || ' ' || p_language;
155: x_return_status := 'E';
156: x_oracle_error := APP_EXCEPTION.Get_Code;
157: FND_MESSAGE.SET_NAME('GR',
158: 'GR_NO_RECORD_INSERTED');
159: FND_MESSAGE.SET_TOKEN('CODE',
160: l_msg_token,
161: FALSE);
155: x_return_status := 'E';
156: x_oracle_error := APP_EXCEPTION.Get_Code;
157: FND_MESSAGE.SET_NAME('GR',
158: 'GR_NO_RECORD_INSERTED');
159: FND_MESSAGE.SET_TOKEN('CODE',
160: l_msg_token,
161: FALSE);
162: IF FND_API.To_Boolean(p_called_by_form) THEN
163: APP_EXCEPTION.Raise_Exception;
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;
167:
168: WHEN OTHERS THEN
169: ROLLBACK TO SAVEPOINT Insert_Row;
170: l_msg_token := p_exposure_authority_code || ' ' || p_language;
171: x_return_status := 'U';
172: x_oracle_error := SQLCODE;
173: l_msg_data := SUBSTR(SQLERRM, 1, 200);
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_UNEXPECTED_ERROR');
176: FND_MESSAGE.SET_TOKEN('TEXT',
177: l_msg_token,
178: FALSE);
172: x_oracle_error := SQLCODE;
173: l_msg_data := SUBSTR(SQLERRM, 1, 200);
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_UNEXPECTED_ERROR');
176: FND_MESSAGE.SET_TOKEN('TEXT',
177: l_msg_token,
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
181: ELSE
182: x_msg_data := FND_MESSAGE.Get;
183: END IF;
184:
185: END Insert_Row;
186:
267: WHEN Foreign_Key_Error THEN
268: ROLLBACK TO SAVEPOINT Update_Row;
269: x_return_status := l_return_status;
270: x_oracle_error := l_oracle_error;
271: FND_MESSAGE.SET_NAME('GR',
272: 'GR_FOREIGN_KEY_ERROR');
273: FND_MESSAGE.SET_TOKEN('TEXT',
274: l_msg_data,
275: FALSE);
269: x_return_status := l_return_status;
270: x_oracle_error := l_oracle_error;
271: FND_MESSAGE.SET_NAME('GR',
272: 'GR_FOREIGN_KEY_ERROR');
273: FND_MESSAGE.SET_TOKEN('TEXT',
274: l_msg_data,
275: FALSE);
276: IF FND_API.To_Boolean(p_called_by_form) THEN
277: APP_EXCEPTION.Raise_Exception;
275: FALSE);
276: IF FND_API.To_Boolean(p_called_by_form) THEN
277: APP_EXCEPTION.Raise_Exception;
278: ELSE
279: x_msg_data := FND_MESSAGE.Get;
280: END IF;
281:
282: WHEN Row_Missing_Error THEN
283: ROLLBACK TO SAVEPOINT Update_Row;
282: WHEN Row_Missing_Error THEN
283: ROLLBACK TO SAVEPOINT Update_Row;
284: x_return_status := 'E';
285: x_oracle_error := APP_EXCEPTION.Get_Code;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_NO_RECORD_INSERTED');
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
290: FALSE);
284: x_return_status := 'E';
285: x_oracle_error := APP_EXCEPTION.Get_Code;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_NO_RECORD_INSERTED');
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
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: WHEN OTHERS THEN
298: ROLLBACK TO SAVEPOINT Update_Row;
298: ROLLBACK TO SAVEPOINT Update_Row;
299: x_return_status := 'U';
300: x_oracle_error := SQLCODE;
301: l_msg_data := SUBSTR(SQLERRM, 1, 200);
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_UNEXPECTED_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_token,
306: FALSE);
300: x_oracle_error := SQLCODE;
301: l_msg_data := SUBSTR(SQLERRM, 1, 200);
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_UNEXPECTED_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_token,
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
309: ELSE
310: x_msg_data := FND_MESSAGE.Get;
311: END IF;
312:
313: END Update_Row;
314:
483: WHEN Language_Missing_Error THEN
484: ROLLBACK TO SAVEPOINT Add_Language;
485: x_return_status := 'E';
486: x_oracle_error := APP_EXCEPTION.Get_Code;
487: FND_MESSAGE.SET_NAME('GR',
488: 'GR_RECORD_NOT_FOUND');
489: FND_MESSAGE.SET_TOKEN('CODE',
490: l_msg_token,
491: FALSE);
485: x_return_status := 'E';
486: x_oracle_error := APP_EXCEPTION.Get_Code;
487: FND_MESSAGE.SET_NAME('GR',
488: 'GR_RECORD_NOT_FOUND');
489: FND_MESSAGE.SET_TOKEN('CODE',
490: l_msg_token,
491: FALSE);
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
491: FALSE);
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
494: ELSE
495: x_msg_data := FND_MESSAGE.Get;
496: END IF;
497:
498: WHEN OTHERS THEN
499: ROLLBACK TO SAVEPOINT Add_Language;
499: ROLLBACK TO SAVEPOINT Add_Language;
500: x_return_status := 'U';
501: x_oracle_error := SQLCODE;
502: l_msg_data := SUBSTR(SQLERRM, 1, 200);
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_token,
507: FALSE);
501: x_oracle_error := SQLCODE;
502: l_msg_data := SUBSTR(SQLERRM, 1, 200);
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_token,
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
510: ELSE
511: x_msg_data := FND_MESSAGE.Get;
512: END IF;
513:
514: END Add_Language;
515:
587:
588: WHEN No_Data_Found_Error THEN
589: ROLLBACK TO SAVEPOINT Lock_Row;
590: x_return_status := 'E';
591: FND_MESSAGE.SET_NAME('GR',
592: 'GR_RECORD_NOT_FOUND');
593: FND_MESSAGE.SET_TOKEN('CODE',
594: l_msg_token,
595: FALSE);
589: ROLLBACK TO SAVEPOINT Lock_Row;
590: x_return_status := 'E';
591: FND_MESSAGE.SET_NAME('GR',
592: 'GR_RECORD_NOT_FOUND');
593: FND_MESSAGE.SET_TOKEN('CODE',
594: l_msg_token,
595: FALSE);
596: IF FND_API.To_Boolean(p_called_by_form) THEN
597: APP_EXCEPTION.Raise_Exception;
595: FALSE);
596: IF FND_API.To_Boolean(p_called_by_form) THEN
597: APP_EXCEPTION.Raise_Exception;
598: ELSE
599: x_msg_data := FND_MESSAGE.Get;
600: END IF;
601:
602: WHEN RECORD_CHANGED_ERROR THEN
603: ROLLBACK TO SAVEPOINT Lock_Row;
601:
602: WHEN RECORD_CHANGED_ERROR THEN
603: ROLLBACK TO SAVEPOINT Lock_Row;
604: X_return_status := 'E';
605: FND_MESSAGE.SET_NAME('FND',
606: 'FORM_RECORD_CHANGED');
607: IF FND_API.To_Boolean(p_called_by_form) THEN
608: APP_EXCEPTION.Raise_Exception;
609: ELSE
606: 'FORM_RECORD_CHANGED');
607: IF FND_API.To_Boolean(p_called_by_form) THEN
608: APP_EXCEPTION.Raise_Exception;
609: ELSE
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'L';
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'L';
615: x_oracle_error := APP_EXCEPTION.Get_Code;
616: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
617: FND_MESSAGE.SET_NAME('GR',
618: 'GR_ROW_IS_LOCKED');
619: x_msg_data := FND_MESSAGE.Get;
620: END IF;
621:
615: x_oracle_error := APP_EXCEPTION.Get_Code;
616: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
617: FND_MESSAGE.SET_NAME('GR',
618: 'GR_ROW_IS_LOCKED');
619: x_msg_data := FND_MESSAGE.Get;
620: END IF;
621:
622: WHEN OTHERS THEN
623: ROLLBACK TO SAVEPOINT Lock_Row;
623: ROLLBACK TO SAVEPOINT Lock_Row;
624: x_return_status := 'U';
625: x_oracle_error := SQLCODE;
626: l_msg_data := SUBSTR(SQLERRM, 1, 200);
627: FND_MESSAGE.SET_NAME('GR',
628: 'GR_UNEXPECTED_ERROR');
629: FND_MESSAGE.SET_TOKEN('TEXT',
630: l_msg_token,
631: FALSE);
625: x_oracle_error := SQLCODE;
626: l_msg_data := SUBSTR(SQLERRM, 1, 200);
627: FND_MESSAGE.SET_NAME('GR',
628: 'GR_UNEXPECTED_ERROR');
629: FND_MESSAGE.SET_TOKEN('TEXT',
630: l_msg_token,
631: FALSE);
632: IF FND_API.To_Boolean(p_called_by_form) THEN
633: APP_EXCEPTION.Raise_Exception;
631: FALSE);
632: IF FND_API.To_Boolean(p_called_by_form) THEN
633: APP_EXCEPTION.Raise_Exception;
634: ELSE
635: x_msg_data := FND_MESSAGE.Get;
636: END IF;
637:
638: END Lock_Row;
639:
718: x_oracle_error := l_oracle_error;
719: IF FND_API.To_Boolean(p_called_by_form) THEN
720: APP_EXCEPTION.Raise_Exception;
721: ELSE
722: x_msg_data := FND_MESSAGE.Get;
723: END IF;
724:
725: WHEN Row_Missing_Error THEN
726: ROLLBACK TO SAVEPOINT Delete_Row;
725: WHEN Row_Missing_Error THEN
726: ROLLBACK TO SAVEPOINT Delete_Row;
727: x_return_status := 'E';
728: x_oracle_error := APP_EXCEPTION.Get_Code;
729: FND_MESSAGE.SET_NAME('GR',
730: 'GR_RECORD_NOT_FOUND');
731: FND_MESSAGE.SET_TOKEN('CODE',
732: l_msg_token,
733: FALSE);
727: x_return_status := 'E';
728: x_oracle_error := APP_EXCEPTION.Get_Code;
729: FND_MESSAGE.SET_NAME('GR',
730: 'GR_RECORD_NOT_FOUND');
731: FND_MESSAGE.SET_TOKEN('CODE',
732: l_msg_token,
733: FALSE);
734: x_msg_data := FND_MESSAGE.Get;
735: IF FND_API.To_Boolean(p_called_by_form) THEN
730: 'GR_RECORD_NOT_FOUND');
731: FND_MESSAGE.SET_TOKEN('CODE',
732: l_msg_token,
733: FALSE);
734: x_msg_data := FND_MESSAGE.Get;
735: IF FND_API.To_Boolean(p_called_by_form) THEN
736: APP_EXCEPTION.Raise_Exception;
737: ELSE
738: x_msg_data := FND_MESSAGE.Get;
734: x_msg_data := FND_MESSAGE.Get;
735: IF FND_API.To_Boolean(p_called_by_form) THEN
736: APP_EXCEPTION.Raise_Exception;
737: ELSE
738: x_msg_data := FND_MESSAGE.Get;
739: END IF;
740:
741: WHEN OTHERS THEN
742: ROLLBACK TO SAVEPOINT Delete_Row;
742: ROLLBACK TO SAVEPOINT Delete_Row;
743: x_return_status := 'U';
744: x_oracle_error := SQLCODE;
745: l_msg_data := SUBSTR(SQLERRM, 1, 200);
746: FND_MESSAGE.SET_NAME('GR',
747: 'GR_UNEXPECTED_ERROR');
748: FND_MESSAGE.SET_TOKEN('TEXT',
749: l_msg_token,
750: FALSE);
744: x_oracle_error := SQLCODE;
745: l_msg_data := SUBSTR(SQLERRM, 1, 200);
746: FND_MESSAGE.SET_NAME('GR',
747: 'GR_UNEXPECTED_ERROR');
748: FND_MESSAGE.SET_TOKEN('TEXT',
749: l_msg_token,
750: FALSE);
751: IF FND_API.To_Boolean(p_called_by_form) THEN
752: APP_EXCEPTION.Raise_Exception;
750: FALSE);
751: IF FND_API.To_Boolean(p_called_by_form) THEN
752: APP_EXCEPTION.Raise_Exception;
753: ELSE
754: x_msg_data := FND_MESSAGE.Get;
755: END IF;
756:
757: END Delete_Row;
758:
800: ROLLBACK TO SAVEPOINT Delete_Rows;
801: x_return_status := 'U';
802: x_oracle_error := SQLCODE;
803: l_msg_data := SUBSTR(SQLERRM, 1, 200);
804: FND_MESSAGE.SET_NAME('GR',
805: 'GR_UNEXPECTED_ERROR');
806: FND_MESSAGE.SET_TOKEN('TEXT',
807: l_msg_token,
808: FALSE);
802: x_oracle_error := SQLCODE;
803: l_msg_data := SUBSTR(SQLERRM, 1, 200);
804: FND_MESSAGE.SET_NAME('GR',
805: 'GR_UNEXPECTED_ERROR');
806: FND_MESSAGE.SET_TOKEN('TEXT',
807: l_msg_token,
808: FALSE);
809: IF FND_API.To_Boolean(p_called_by_form) THEN
810: APP_EXCEPTION.Raise_Exception;
808: FALSE);
809: IF FND_API.To_Boolean(p_called_by_form) THEN
810: APP_EXCEPTION.Raise_Exception;
811: ELSE
812: x_msg_data := FND_MESSAGE.Get;
813: END IF;
814:
815: END Delete_Rows;
816:
862: IF c_get_language%NOTFOUND THEN
863: l_msg_token := l_language_code;
864: x_return_status := 'E';
865: x_oracle_error := APP_EXCEPTION.Get_Code;
866: FND_MESSAGE.SET_NAME('GR',
867: 'GR_RECORD_NOT_FOUND');
868: FND_MESSAGE.SET_TOKEN('CODE',
869: l_msg_token,
870: FALSE);
864: x_return_status := 'E';
865: x_oracle_error := APP_EXCEPTION.Get_Code;
866: FND_MESSAGE.SET_NAME('GR',
867: 'GR_RECORD_NOT_FOUND');
868: FND_MESSAGE.SET_TOKEN('CODE',
869: l_msg_token,
870: FALSE);
871: l_msg_data := FND_MESSAGE.Get;
872: END IF;
867: 'GR_RECORD_NOT_FOUND');
868: FND_MESSAGE.SET_TOKEN('CODE',
869: l_msg_token,
870: FALSE);
871: l_msg_data := FND_MESSAGE.Get;
872: END IF;
873: CLOSE c_get_language;
874:
875: l_language_code := p_source_lang;
878: IF c_get_language%NOTFOUND THEN
879: l_msg_token := l_language_code;
880: x_return_status := 'E';
881: x_oracle_error := APP_EXCEPTION.Get_Code;
882: FND_MESSAGE.SET_NAME('GR',
883: 'GR_RECORD_NOT_FOUND');
884: FND_MESSAGE.SET_TOKEN('CODE',
885: l_msg_token,
886: FALSE);
880: x_return_status := 'E';
881: x_oracle_error := APP_EXCEPTION.Get_Code;
882: FND_MESSAGE.SET_NAME('GR',
883: 'GR_RECORD_NOT_FOUND');
884: FND_MESSAGE.SET_TOKEN('CODE',
885: l_msg_token,
886: FALSE);
887: l_msg_data := FND_MESSAGE.Get;
888: END IF;
883: 'GR_RECORD_NOT_FOUND');
884: FND_MESSAGE.SET_TOKEN('CODE',
885: l_msg_token,
886: FALSE);
887: l_msg_data := FND_MESSAGE.Get;
888: END IF;
889: CLOSE c_get_language;
890:
891: IF x_return_status <> 'S' THEN
898: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
899: x_return_status := 'U';
900: x_oracle_error := SQLCODE;
901: l_msg_data := SUBSTR(SQLERRM, 1, 200);
902: FND_MESSAGE.SET_NAME('GR',
903: 'GR_UNEXPECTED_ERROR');
904: FND_MESSAGE.SET_TOKEN('TEXT',
905: l_msg_token,
906: FALSE);
900: x_oracle_error := SQLCODE;
901: l_msg_data := SUBSTR(SQLERRM, 1, 200);
902: FND_MESSAGE.SET_NAME('GR',
903: 'GR_UNEXPECTED_ERROR');
904: FND_MESSAGE.SET_TOKEN('TEXT',
905: l_msg_token,
906: FALSE);
907: x_msg_data := FND_MESSAGE.Get;
908:
903: 'GR_UNEXPECTED_ERROR');
904: FND_MESSAGE.SET_TOKEN('TEXT',
905: l_msg_token,
906: FALSE);
907: x_msg_data := FND_MESSAGE.Get;
908:
909: END Check_Foreign_Keys;
910:
911: PROCEDURE Check_Integrity
967:
968: WHEN Installed_Language_Error THEN
969: ROLLBACK TO SAVEPOINT Check_Integrity;
970: x_return_status := 'E';
971: FND_MESSAGE.SET_NAME('GR',
972: 'GR_INSTALLED_LANG');
973: FND_MESSAGE.SET_TOKEN('CODE',
974: p_language,
975: FALSE);
969: ROLLBACK TO SAVEPOINT Check_Integrity;
970: x_return_status := 'E';
971: FND_MESSAGE.SET_NAME('GR',
972: 'GR_INSTALLED_LANG');
973: FND_MESSAGE.SET_TOKEN('CODE',
974: p_language,
975: FALSE);
976: IF FND_API.To_Boolean(p_called_by_form) THEN
977: APP_EXCEPTION.Raise_Exception;
975: FALSE);
976: IF FND_API.To_Boolean(p_called_by_form) THEN
977: APP_EXCEPTION.Raise_Exception;
978: ELSE
979: x_msg_data := FND_MESSAGE.Get;
980: END IF;
981:
982: WHEN OTHERS THEN
983: ROLLBACK TO SAVEPOINT Check_Integrity;
983: ROLLBACK TO SAVEPOINT Check_Integrity;
984: x_return_status := 'U';
985: x_oracle_error := SQLCODE;
986: l_msg_data := SUBSTR(SQLERRM, 1, 200);
987: FND_MESSAGE.SET_NAME('GR',
988: 'GR_UNEXPECTED_ERROR');
989: FND_MESSAGE.SET_TOKEN('TEXT',
990: l_msg_data,
991: FALSE);
985: x_oracle_error := SQLCODE;
986: l_msg_data := SUBSTR(SQLERRM, 1, 200);
987: FND_MESSAGE.SET_NAME('GR',
988: 'GR_UNEXPECTED_ERROR');
989: FND_MESSAGE.SET_TOKEN('TEXT',
990: l_msg_data,
991: FALSE);
992: IF FND_API.To_Boolean(p_called_by_form) THEN
993: APP_EXCEPTION.Raise_Exception;
991: FALSE);
992: IF FND_API.To_Boolean(p_called_by_form) THEN
993: APP_EXCEPTION.Raise_Exception;
994: ELSE
995: x_msg_data := FND_MESSAGE.Get;
996: END IF;
997:
998: END Check_Integrity;
999:
1043: EXCEPTION
1044:
1045: WHEN Others THEN
1046: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1047: FND_MESSAGE.SET_NAME('GR',
1048: 'GR_UNEXPECTED_ERROR');
1049: FND_MESSAGE.SET_TOKEN('TEXT',
1050: l_msg_data,
1051: FALSE);
1045: WHEN Others THEN
1046: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1047: FND_MESSAGE.SET_NAME('GR',
1048: 'GR_UNEXPECTED_ERROR');
1049: FND_MESSAGE.SET_TOKEN('TEXT',
1050: l_msg_data,
1051: FALSE);
1052: IF FND_API.To_Boolean(p_called_by_form) THEN
1053: APP_EXCEPTION.Raise_Exception;