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;
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: l_msg_token := p_toxic_effect_code || ' ' || p_language;
138: x_return_status := 'E';
139: x_oracle_error := APP_EXCEPTION.Get_Code;
140: FND_MESSAGE.SET_NAME('GR',
141: 'GR_RECORD_EXISTS');
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
144: FALSE);
138: x_return_status := 'E';
139: x_oracle_error := APP_EXCEPTION.Get_Code;
140: FND_MESSAGE.SET_NAME('GR',
141: 'GR_RECORD_EXISTS');
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
144: FALSE);
145: IF FND_API.To_Boolean(p_called_by_form) THEN
146: APP_EXCEPTION.Raise_Exception;
144: FALSE);
145: IF FND_API.To_Boolean(p_called_by_form) THEN
146: APP_EXCEPTION.Raise_Exception;
147: ELSE
148: x_msg_data := FND_MESSAGE.Get;
149: END IF;
150:
151: WHEN Row_Missing_Error THEN
152: ROLLBACK TO SAVEPOINT Insert_Row;
152: ROLLBACK TO SAVEPOINT Insert_Row;
153: l_msg_token := p_toxic_effect_code || ' ' || p_language;
154: x_return_status := 'E';
155: x_oracle_error := APP_EXCEPTION.Get_Code;
156: FND_MESSAGE.SET_NAME('GR',
157: 'GR_NO_RECORD_INSERTED');
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
160: FALSE);
154: x_return_status := 'E';
155: x_oracle_error := APP_EXCEPTION.Get_Code;
156: FND_MESSAGE.SET_NAME('GR',
157: 'GR_NO_RECORD_INSERTED');
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
160: FALSE);
161: IF FND_API.To_Boolean(p_called_by_form) THEN
162: APP_EXCEPTION.Raise_Exception;
160: FALSE);
161: IF FND_API.To_Boolean(p_called_by_form) THEN
162: APP_EXCEPTION.Raise_Exception;
163: ELSE
164: x_msg_data := FND_MESSAGE.Get;
165: END IF;
166:
167: WHEN OTHERS THEN
168: ROLLBACK TO SAVEPOINT Insert_Row;
169: l_msg_token := p_toxic_effect_code || ' ' || p_language;
170: x_return_status := 'U';
171: x_oracle_error := SQLCODE;
172: l_msg_data := SUBSTR(SQLERRM, 1, 200);
173: FND_MESSAGE.SET_NAME('GR',
174: 'GR_UNEXPECTED_ERROR');
175: FND_MESSAGE.SET_TOKEN('TEXT',
176: l_msg_token,
177: FALSE);
171: x_oracle_error := SQLCODE;
172: l_msg_data := SUBSTR(SQLERRM, 1, 200);
173: FND_MESSAGE.SET_NAME('GR',
174: 'GR_UNEXPECTED_ERROR');
175: FND_MESSAGE.SET_TOKEN('TEXT',
176: l_msg_token,
177: FALSE);
178: IF FND_API.To_Boolean(p_called_by_form) THEN
179: APP_EXCEPTION.Raise_Exception;
177: FALSE);
178: IF FND_API.To_Boolean(p_called_by_form) THEN
179: APP_EXCEPTION.Raise_Exception;
180: ELSE
181: x_msg_data := FND_MESSAGE.Get;
182: END IF;
183:
184: END Insert_Row;
185:
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:
481: WHEN Language_Missing_Error THEN
482: ROLLBACK TO SAVEPOINT Add_Language;
483: x_return_status := 'E';
484: x_oracle_error := APP_EXCEPTION.Get_Code;
485: FND_MESSAGE.SET_NAME('GR',
486: 'GR_RECORD_NOT_FOUND');
487: FND_MESSAGE.SET_TOKEN('CODE',
488: l_msg_token,
489: FALSE);
483: x_return_status := 'E';
484: x_oracle_error := APP_EXCEPTION.Get_Code;
485: FND_MESSAGE.SET_NAME('GR',
486: 'GR_RECORD_NOT_FOUND');
487: FND_MESSAGE.SET_TOKEN('CODE',
488: l_msg_token,
489: FALSE);
490: IF FND_API.To_Boolean(p_called_by_form) THEN
491: APP_EXCEPTION.Raise_Exception;
489: FALSE);
490: IF FND_API.To_Boolean(p_called_by_form) THEN
491: APP_EXCEPTION.Raise_Exception;
492: ELSE
493: x_msg_data := FND_MESSAGE.Get;
494: END IF;
495:
496: WHEN OTHERS THEN
497: ROLLBACK TO SAVEPOINT Add_Language;
497: ROLLBACK TO SAVEPOINT Add_Language;
498: x_return_status := 'U';
499: x_oracle_error := SQLCODE;
500: l_msg_data := SUBSTR(SQLERRM, 1, 200);
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_token,
505: FALSE);
499: x_oracle_error := SQLCODE;
500: l_msg_data := SUBSTR(SQLERRM, 1, 200);
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_token,
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
508: ELSE
509: x_msg_data := FND_MESSAGE.Get;
510: END IF;
511:
512: END Add_Language;
513:
586:
587: WHEN No_Data_Found_Error THEN
588: ROLLBACK TO SAVEPOINT Lock_Row;
589: x_return_status := 'E';
590: FND_MESSAGE.SET_NAME('GR',
591: 'GR_RECORD_NOT_FOUND');
592: FND_MESSAGE.SET_TOKEN('CODE',
593: l_msg_token,
594: FALSE);
588: ROLLBACK TO SAVEPOINT Lock_Row;
589: x_return_status := 'E';
590: FND_MESSAGE.SET_NAME('GR',
591: 'GR_RECORD_NOT_FOUND');
592: FND_MESSAGE.SET_TOKEN('CODE',
593: l_msg_token,
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
597: ELSE
598: x_msg_data := FND_MESSAGE.Get;
599: END IF;
600:
601: WHEN RECORD_CHANGED_ERROR THEN
602: ROLLBACK TO SAVEPOINT Lock_Row;
600:
601: WHEN RECORD_CHANGED_ERROR THEN
602: ROLLBACK TO SAVEPOINT Lock_Row;
603: X_return_status := 'E';
604: FND_MESSAGE.SET_NAME('FND',
605: 'FORM_RECORD_CHANGED');
606: IF FND_API.To_Boolean(p_called_by_form) THEN
607: APP_EXCEPTION.Raise_Exception;
608: ELSE
605: 'FORM_RECORD_CHANGED');
606: IF FND_API.To_Boolean(p_called_by_form) THEN
607: APP_EXCEPTION.Raise_Exception;
608: ELSE
609: x_msg_data := FND_MESSAGE.Get;
610: END IF;
611: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
612: ROLLBACK TO SAVEPOINT Lock_Row;
613: x_return_status := 'L';
612: ROLLBACK TO SAVEPOINT Lock_Row;
613: x_return_status := 'L';
614: x_oracle_error := APP_EXCEPTION.Get_Code;
615: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
616: FND_MESSAGE.SET_NAME('GR',
617: 'GR_ROW_IS_LOCKED');
618: x_msg_data := FND_MESSAGE.Get;
619: END IF;
620:
614: x_oracle_error := APP_EXCEPTION.Get_Code;
615: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
616: FND_MESSAGE.SET_NAME('GR',
617: 'GR_ROW_IS_LOCKED');
618: x_msg_data := FND_MESSAGE.Get;
619: END IF;
620:
621: WHEN OTHERS THEN
622: ROLLBACK TO SAVEPOINT Lock_Row;
622: ROLLBACK TO SAVEPOINT Lock_Row;
623: x_return_status := 'U';
624: x_oracle_error := SQLCODE;
625: l_msg_data := SUBSTR(SQLERRM, 1, 200);
626: FND_MESSAGE.SET_NAME('GR',
627: 'GR_UNEXPECTED_ERROR');
628: FND_MESSAGE.SET_TOKEN('TEXT',
629: l_msg_token,
630: FALSE);
624: x_oracle_error := SQLCODE;
625: l_msg_data := SUBSTR(SQLERRM, 1, 200);
626: FND_MESSAGE.SET_NAME('GR',
627: 'GR_UNEXPECTED_ERROR');
628: FND_MESSAGE.SET_TOKEN('TEXT',
629: l_msg_token,
630: FALSE);
631: IF FND_API.To_Boolean(p_called_by_form) THEN
632: APP_EXCEPTION.Raise_Exception;
630: FALSE);
631: IF FND_API.To_Boolean(p_called_by_form) THEN
632: APP_EXCEPTION.Raise_Exception;
633: ELSE
634: x_msg_data := FND_MESSAGE.Get;
635: END IF;
636:
637: END Lock_Row;
638:
717: x_oracle_error := l_oracle_error;
718: IF FND_API.To_Boolean(p_called_by_form) THEN
719: APP_EXCEPTION.Raise_Exception;
720: ELSE
721: x_msg_data := FND_MESSAGE.Get;
722: END IF;
723:
724: WHEN Row_Missing_Error THEN
725: ROLLBACK TO SAVEPOINT Delete_Row;
724: WHEN Row_Missing_Error THEN
725: ROLLBACK TO SAVEPOINT Delete_Row;
726: x_return_status := 'E';
727: x_oracle_error := APP_EXCEPTION.Get_Code;
728: FND_MESSAGE.SET_NAME('GR',
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: l_msg_token,
732: FALSE);
726: x_return_status := 'E';
727: x_oracle_error := APP_EXCEPTION.Get_Code;
728: FND_MESSAGE.SET_NAME('GR',
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: l_msg_token,
732: FALSE);
733: IF FND_API.To_Boolean(p_called_by_form) THEN
734: APP_EXCEPTION.Raise_Exception;
732: FALSE);
733: IF FND_API.To_Boolean(p_called_by_form) THEN
734: APP_EXCEPTION.Raise_Exception;
735: ELSE
736: x_msg_data := FND_MESSAGE.Get;
737: END IF;
738:
739: WHEN OTHERS THEN
740: ROLLBACK TO SAVEPOINT Delete_Row;
740: ROLLBACK TO SAVEPOINT Delete_Row;
741: x_return_status := 'U';
742: x_oracle_error := SQLCODE;
743: l_msg_data := SUBSTR(SQLERRM, 1, 200);
744: FND_MESSAGE.SET_NAME('GR',
745: 'GR_UNEXPECTED_ERROR');
746: FND_MESSAGE.SET_TOKEN('TEXT',
747: l_msg_token,
748: FALSE);
742: x_oracle_error := SQLCODE;
743: l_msg_data := SUBSTR(SQLERRM, 1, 200);
744: FND_MESSAGE.SET_NAME('GR',
745: 'GR_UNEXPECTED_ERROR');
746: FND_MESSAGE.SET_TOKEN('TEXT',
747: l_msg_token,
748: FALSE);
749: IF FND_API.To_Boolean(p_called_by_form) THEN
750: APP_EXCEPTION.Raise_Exception;
748: FALSE);
749: IF FND_API.To_Boolean(p_called_by_form) THEN
750: APP_EXCEPTION.Raise_Exception;
751: ELSE
752: x_msg_data := FND_MESSAGE.Get;
753: END IF;
754:
755: END Delete_Row;
756:
798: ROLLBACK TO SAVEPOINT Delete_Rows;
799: x_return_status := 'U';
800: x_oracle_error := SQLCODE;
801: l_msg_data := SUBSTR(SQLERRM, 1, 200);
802: FND_MESSAGE.SET_NAME('GR',
803: 'GR_UNEXPECTED_ERROR');
804: FND_MESSAGE.SET_TOKEN('TEXT',
805: l_msg_token,
806: FALSE);
800: x_oracle_error := SQLCODE;
801: l_msg_data := SUBSTR(SQLERRM, 1, 200);
802: FND_MESSAGE.SET_NAME('GR',
803: 'GR_UNEXPECTED_ERROR');
804: FND_MESSAGE.SET_TOKEN('TEXT',
805: l_msg_token,
806: FALSE);
807: IF FND_API.To_Boolean(p_called_by_form) THEN
808: APP_EXCEPTION.Raise_Exception;
806: FALSE);
807: IF FND_API.To_Boolean(p_called_by_form) THEN
808: APP_EXCEPTION.Raise_Exception;
809: ELSE
810: x_msg_data := FND_MESSAGE.Get;
811: END IF;
812:
813: END Delete_Rows;
814:
860: IF c_get_language%NOTFOUND THEN
861: l_msg_token := l_language_code;
862: x_return_status := 'E';
863: x_oracle_error := APP_EXCEPTION.Get_Code;
864: FND_MESSAGE.SET_NAME('GR',
865: 'GR_RECORD_NOT_FOUND');
866: FND_MESSAGE.SET_TOKEN('CODE',
867: l_msg_token,
868: FALSE);
862: x_return_status := 'E';
863: x_oracle_error := APP_EXCEPTION.Get_Code;
864: FND_MESSAGE.SET_NAME('GR',
865: 'GR_RECORD_NOT_FOUND');
866: FND_MESSAGE.SET_TOKEN('CODE',
867: l_msg_token,
868: FALSE);
869: l_msg_data := FND_MESSAGE.Get;
870: END IF;
865: 'GR_RECORD_NOT_FOUND');
866: FND_MESSAGE.SET_TOKEN('CODE',
867: l_msg_token,
868: FALSE);
869: l_msg_data := FND_MESSAGE.Get;
870: END IF;
871: CLOSE c_get_language;
872:
873: l_language_code := p_source_lang;
876: IF c_get_language%NOTFOUND THEN
877: l_msg_token := l_language_code;
878: x_return_status := 'E';
879: x_oracle_error := APP_EXCEPTION.Get_Code;
880: FND_MESSAGE.SET_NAME('GR',
881: 'GR_RECORD_NOT_FOUND');
882: FND_MESSAGE.SET_TOKEN('CODE',
883: l_msg_token,
884: FALSE);
878: x_return_status := 'E';
879: x_oracle_error := APP_EXCEPTION.Get_Code;
880: FND_MESSAGE.SET_NAME('GR',
881: 'GR_RECORD_NOT_FOUND');
882: FND_MESSAGE.SET_TOKEN('CODE',
883: l_msg_token,
884: FALSE);
885: l_msg_data := FND_MESSAGE.Get;
886: END IF;
881: 'GR_RECORD_NOT_FOUND');
882: FND_MESSAGE.SET_TOKEN('CODE',
883: l_msg_token,
884: FALSE);
885: l_msg_data := FND_MESSAGE.Get;
886: END IF;
887: CLOSE c_get_language;
888:
889: IF x_return_status <> 'S' THEN
896: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
897: x_return_status := 'U';
898: x_oracle_error := SQLCODE;
899: l_msg_data := SUBSTR(SQLERRM, 1, 200);
900: FND_MESSAGE.SET_NAME('GR',
901: 'GR_UNEXPECTED_ERROR');
902: FND_MESSAGE.SET_TOKEN('TEXT',
903: l_msg_token,
904: FALSE);
898: x_oracle_error := SQLCODE;
899: l_msg_data := SUBSTR(SQLERRM, 1, 200);
900: FND_MESSAGE.SET_NAME('GR',
901: 'GR_UNEXPECTED_ERROR');
902: FND_MESSAGE.SET_TOKEN('TEXT',
903: l_msg_token,
904: FALSE);
905: x_msg_data := FND_MESSAGE.Get;
906:
901: 'GR_UNEXPECTED_ERROR');
902: FND_MESSAGE.SET_TOKEN('TEXT',
903: l_msg_token,
904: FALSE);
905: x_msg_data := FND_MESSAGE.Get;
906:
907: END Check_Foreign_Keys;
908:
909: PROCEDURE Check_Integrity
963:
964: WHEN Installed_Language_Error THEN
965: ROLLBACK TO SAVEPOINT Check_Integrity;
966: x_return_status := 'E';
967: FND_MESSAGE.SET_NAME('GR',
968: 'GR_INSTALLED_LANG');
969: FND_MESSAGE.SET_TOKEN('CODE',
970: p_language,
971: FALSE);
965: ROLLBACK TO SAVEPOINT Check_Integrity;
966: x_return_status := 'E';
967: FND_MESSAGE.SET_NAME('GR',
968: 'GR_INSTALLED_LANG');
969: FND_MESSAGE.SET_TOKEN('CODE',
970: p_language,
971: FALSE);
972: IF FND_API.To_Boolean(p_called_by_form) THEN
973: APP_EXCEPTION.Raise_Exception;
971: FALSE);
972: IF FND_API.To_Boolean(p_called_by_form) THEN
973: APP_EXCEPTION.Raise_Exception;
974: ELSE
975: x_msg_data := FND_MESSAGE.Get;
976: END IF;
977:
978: WHEN OTHERS THEN
979: ROLLBACK TO SAVEPOINT Check_Integrity;
979: ROLLBACK TO SAVEPOINT Check_Integrity;
980: x_return_status := 'U';
981: x_oracle_error := SQLCODE;
982: l_msg_data := SUBSTR(SQLERRM, 1, 200);
983: FND_MESSAGE.SET_NAME('GR',
984: 'GR_UNEXPECTED_ERROR');
985: FND_MESSAGE.SET_TOKEN('TEXT',
986: l_msg_data,
987: FALSE);
981: x_oracle_error := SQLCODE;
982: l_msg_data := SUBSTR(SQLERRM, 1, 200);
983: FND_MESSAGE.SET_NAME('GR',
984: 'GR_UNEXPECTED_ERROR');
985: FND_MESSAGE.SET_TOKEN('TEXT',
986: l_msg_data,
987: FALSE);
988: IF FND_API.To_Boolean(p_called_by_form) THEN
989: APP_EXCEPTION.Raise_Exception;
987: FALSE);
988: IF FND_API.To_Boolean(p_called_by_form) THEN
989: APP_EXCEPTION.Raise_Exception;
990: ELSE
991: x_msg_data := FND_MESSAGE.Get;
992: END IF;
993:
994: END Check_Integrity;
995:
1039: EXCEPTION
1040:
1041: WHEN Others THEN
1042: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1043: FND_MESSAGE.SET_NAME('GR',
1044: 'GR_UNEXPECTED_ERROR');
1045: FND_MESSAGE.SET_TOKEN('TEXT',
1046: l_msg_data,
1047: FALSE);
1041: WHEN Others THEN
1042: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1043: FND_MESSAGE.SET_NAME('GR',
1044: 'GR_UNEXPECTED_ERROR');
1045: FND_MESSAGE.SET_TOKEN('TEXT',
1046: l_msg_data,
1047: FALSE);
1048: IF FND_API.To_Boolean(p_called_by_form) THEN
1049: APP_EXCEPTION.Raise_Exception;