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_document_code,
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_document_code,
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_document_code,
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_document_code,
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_document_code,
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_document_code,
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_document_code,
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:
480: WHEN Language_Missing_Error THEN
481: ROLLBACK TO SAVEPOINT Add_Language;
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: l_msg_token,
488: FALSE);
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: l_msg_token,
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
491: ELSE
492: x_msg_data := FND_MESSAGE.Get;
493: END IF;
494:
495: WHEN OTHERS THEN
496: ROLLBACK TO SAVEPOINT Add_Language;
496: ROLLBACK TO SAVEPOINT Add_Language;
497: x_return_status := 'U';
498: x_oracle_error := SQLCODE;
499:
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_token||SQLERRM,
504: FALSE);
498: x_oracle_error := SQLCODE;
499:
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_token||SQLERRM,
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
510:
511: END Add_Language;
512:
584:
585: WHEN No_Data_Found_Error THEN
586: ROLLBACK TO SAVEPOINT Lock_Row;
587: x_return_status := 'E';
588: FND_MESSAGE.SET_NAME('GR',
589: 'GR_RECORD_NOT_FOUND');
590: FND_MESSAGE.SET_TOKEN('CODE',
591: p_document_code,
592: FALSE);
586: ROLLBACK TO SAVEPOINT Lock_Row;
587: x_return_status := 'E';
588: FND_MESSAGE.SET_NAME('GR',
589: 'GR_RECORD_NOT_FOUND');
590: FND_MESSAGE.SET_TOKEN('CODE',
591: p_document_code,
592: FALSE);
593: IF FND_API.To_Boolean(p_called_by_form) THEN
594: APP_EXCEPTION.Raise_Exception;
592: FALSE);
593: IF FND_API.To_Boolean(p_called_by_form) THEN
594: APP_EXCEPTION.Raise_Exception;
595: ELSE
596: x_msg_data := FND_MESSAGE.Get;
597: END IF;
598: WHEN RECORD_CHANGED_ERROR THEN
599: ROLLBACK TO SAVEPOINT Lock_Row;
600: X_return_status := 'E';
597: END IF;
598: WHEN RECORD_CHANGED_ERROR THEN
599: ROLLBACK TO SAVEPOINT Lock_Row;
600: X_return_status := 'E';
601: FND_MESSAGE.SET_NAME('FND',
602: 'FORM_RECORD_CHANGED');
603: IF FND_API.To_Boolean(p_called_by_form) THEN
604: APP_EXCEPTION.Raise_Exception;
605: ELSE
602: 'FORM_RECORD_CHANGED');
603: IF FND_API.To_Boolean(p_called_by_form) THEN
604: APP_EXCEPTION.Raise_Exception;
605: ELSE
606: x_msg_data := FND_MESSAGE.Get;
607: END IF;
608: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
609: ROLLBACK TO SAVEPOINT Lock_Row;
610: x_return_status := 'L';
609: ROLLBACK TO SAVEPOINT Lock_Row;
610: x_return_status := 'L';
611: x_oracle_error := APP_EXCEPTION.Get_Code;
612: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
613: FND_MESSAGE.SET_NAME('GR',
614: 'GR_ROW_IS_LOCKED');
615: x_msg_data := FND_MESSAGE.Get;
616: END IF;
617: WHEN OTHERS THEN
611: x_oracle_error := APP_EXCEPTION.Get_Code;
612: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
613: FND_MESSAGE.SET_NAME('GR',
614: 'GR_ROW_IS_LOCKED');
615: x_msg_data := FND_MESSAGE.Get;
616: END IF;
617: WHEN OTHERS THEN
618: ROLLBACK TO SAVEPOINT Lock_Row;
619: x_return_status := 'U';
618: ROLLBACK TO SAVEPOINT Lock_Row;
619: x_return_status := 'U';
620: x_oracle_error := SQLCODE;
621: l_msg_data := SUBSTR(SQLERRM, 1, 200);
622: FND_MESSAGE.SET_NAME('GR',
623: 'GR_UNEXPECTED_ERROR');
624: FND_MESSAGE.SET_TOKEN('TEXT',
625: l_msg_data,
626: FALSE);
620: x_oracle_error := SQLCODE;
621: l_msg_data := SUBSTR(SQLERRM, 1, 200);
622: FND_MESSAGE.SET_NAME('GR',
623: 'GR_UNEXPECTED_ERROR');
624: FND_MESSAGE.SET_TOKEN('TEXT',
625: l_msg_data,
626: FALSE);
627: IF FND_API.To_Boolean(p_called_by_form) THEN
628: APP_EXCEPTION.Raise_Exception;
626: FALSE);
627: IF FND_API.To_Boolean(p_called_by_form) THEN
628: APP_EXCEPTION.Raise_Exception;
629: ELSE
630: x_msg_data := FND_MESSAGE.Get;
631: END IF;
632:
633: END Lock_Row;
634:
697: x_oracle_error := l_oracle_error;
698: IF FND_API.To_Boolean(p_called_by_form) THEN
699: APP_EXCEPTION.Raise_Exception;
700: ELSE
701: x_msg_data := FND_MESSAGE.Get;
702: END IF;
703:
704: WHEN Row_Missing_Error THEN
705: ROLLBACK TO SAVEPOINT Delete_Row;
704: WHEN Row_Missing_Error THEN
705: ROLLBACK TO SAVEPOINT Delete_Row;
706: x_return_status := 'E';
707: x_oracle_error := APP_EXCEPTION.Get_Code;
708: FND_MESSAGE.SET_NAME('GR',
709: 'GR_RECORD_NOT_FOUND');
710: FND_MESSAGE.SET_TOKEN('CODE',
711: p_document_code,
712: FALSE);
706: x_return_status := 'E';
707: x_oracle_error := APP_EXCEPTION.Get_Code;
708: FND_MESSAGE.SET_NAME('GR',
709: 'GR_RECORD_NOT_FOUND');
710: FND_MESSAGE.SET_TOKEN('CODE',
711: p_document_code,
712: FALSE);
713: IF FND_API.To_Boolean(p_called_by_form) THEN
714: APP_EXCEPTION.Raise_Exception;
712: FALSE);
713: IF FND_API.To_Boolean(p_called_by_form) THEN
714: APP_EXCEPTION.Raise_Exception;
715: ELSE
716: x_msg_data := FND_MESSAGE.Get;
717: END IF;
718:
719: WHEN OTHERS THEN
720: ROLLBACK TO SAVEPOINT Delete_Row;
720: ROLLBACK TO SAVEPOINT Delete_Row;
721: x_return_status := 'U';
722: x_oracle_error := SQLCODE;
723: l_msg_data := SUBSTR(SQLERRM, 1, 200);
724: FND_MESSAGE.SET_NAME('GR',
725: 'GR_UNEXPECTED_ERROR');
726: FND_MESSAGE.SET_TOKEN('TEXT',
727: l_msg_data,
728: FALSE);
722: x_oracle_error := SQLCODE;
723: l_msg_data := SUBSTR(SQLERRM, 1, 200);
724: FND_MESSAGE.SET_NAME('GR',
725: 'GR_UNEXPECTED_ERROR');
726: FND_MESSAGE.SET_TOKEN('TEXT',
727: l_msg_data,
728: FALSE);
729: IF FND_API.To_Boolean(p_called_by_form) THEN
730: APP_EXCEPTION.Raise_Exception;
728: FALSE);
729: IF FND_API.To_Boolean(p_called_by_form) THEN
730: APP_EXCEPTION.Raise_Exception;
731: ELSE
732: x_msg_data := FND_MESSAGE.Get;
733: END IF;
734:
735: END Delete_Row;
736:
778: ROLLBACK TO SAVEPOINT Delete_Rows;
779: x_return_status := 'U';
780: x_oracle_error := SQLCODE;
781: l_msg_data := SUBSTR(SQLERRM, 1, 200);
782: FND_MESSAGE.SET_NAME('GR',
783: 'GR_UNEXPECTED_ERROR');
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_token||SQLERRM,
786: FALSE);
780: x_oracle_error := SQLCODE;
781: l_msg_data := SUBSTR(SQLERRM, 1, 200);
782: FND_MESSAGE.SET_NAME('GR',
783: 'GR_UNEXPECTED_ERROR');
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_token||SQLERRM,
786: FALSE);
787: IF FND_API.To_Boolean(p_called_by_form) THEN
788: APP_EXCEPTION.Raise_Exception;
786: FALSE);
787: IF FND_API.To_Boolean(p_called_by_form) THEN
788: APP_EXCEPTION.Raise_Exception;
789: ELSE
790: x_msg_data := FND_MESSAGE.Get;
791: END IF;
792:
793: END Delete_Rows;
794:
842: IF c_get_language%NOTFOUND THEN
843: l_msg_token := l_language_code;
844: x_return_status := 'E';
845: x_oracle_error := APP_EXCEPTION.Get_Code;
846: FND_MESSAGE.SET_NAME('GR',
847: 'GR_RECORD_NOT_FOUND');
848: FND_MESSAGE.SET_TOKEN('CODE',
849: l_msg_token,
850: FALSE);
844: x_return_status := 'E';
845: x_oracle_error := APP_EXCEPTION.Get_Code;
846: FND_MESSAGE.SET_NAME('GR',
847: 'GR_RECORD_NOT_FOUND');
848: FND_MESSAGE.SET_TOKEN('CODE',
849: l_msg_token,
850: FALSE);
851: l_msg_data := FND_MESSAGE.Get;
852: END IF;
847: 'GR_RECORD_NOT_FOUND');
848: FND_MESSAGE.SET_TOKEN('CODE',
849: l_msg_token,
850: FALSE);
851: l_msg_data := FND_MESSAGE.Get;
852: END IF;
853: CLOSE c_get_language;
854:
855: l_language_code := p_source_lang;
858: IF c_get_language%NOTFOUND THEN
859: l_msg_token := l_language_code;
860: x_return_status := 'E';
861: x_oracle_error := APP_EXCEPTION.Get_Code;
862: FND_MESSAGE.SET_NAME('GR',
863: 'GR_RECORD_NOT_FOUND');
864: FND_MESSAGE.SET_TOKEN('CODE',
865: l_msg_token,
866: FALSE);
860: x_return_status := 'E';
861: x_oracle_error := APP_EXCEPTION.Get_Code;
862: FND_MESSAGE.SET_NAME('GR',
863: 'GR_RECORD_NOT_FOUND');
864: FND_MESSAGE.SET_TOKEN('CODE',
865: l_msg_token,
866: FALSE);
867: l_msg_data := FND_MESSAGE.Get;
868: END IF;
863: 'GR_RECORD_NOT_FOUND');
864: FND_MESSAGE.SET_TOKEN('CODE',
865: l_msg_token,
866: FALSE);
867: l_msg_data := FND_MESSAGE.Get;
868: END IF;
869: CLOSE c_get_language;
870:
871: IF x_return_status <> 'S' THEN
879: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
880: x_return_status := 'U';
881: x_oracle_error := SQLCODE;
882: l_msg_data := SUBSTR(SQLERRM, 1, 200);
883: FND_MESSAGE.SET_NAME('GR',
884: 'GR_UNEXPECTED_ERROR');
885: FND_MESSAGE.SET_TOKEN('TEXT',
886: l_msg_data,
887: FALSE);
881: x_oracle_error := SQLCODE;
882: l_msg_data := SUBSTR(SQLERRM, 1, 200);
883: FND_MESSAGE.SET_NAME('GR',
884: 'GR_UNEXPECTED_ERROR');
885: FND_MESSAGE.SET_TOKEN('TEXT',
886: l_msg_data,
887: FALSE);
888: x_msg_data := FND_MESSAGE.Get;
889:
884: 'GR_UNEXPECTED_ERROR');
885: FND_MESSAGE.SET_TOKEN('TEXT',
886: l_msg_data,
887: FALSE);
888: x_msg_data := FND_MESSAGE.Get;
889:
890: END Check_Foreign_Keys;
891:
892: PROCEDURE Check_Integrity
942:
943: WHEN Installed_Language_Error THEN
944: ROLLBACK TO SAVEPOINT Check_Integrity;
945: x_return_status := 'E';
946: FND_MESSAGE.SET_NAME('GR',
947: 'GR_INSTALLED_LANG');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_language,
950: FALSE);
944: ROLLBACK TO SAVEPOINT Check_Integrity;
945: x_return_status := 'E';
946: FND_MESSAGE.SET_NAME('GR',
947: 'GR_INSTALLED_LANG');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_language,
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
953: ELSE
954: x_msg_data := FND_MESSAGE.Get;
955: END IF;
956:
957: WHEN OTHERS THEN
958: ROLLBACK TO SAVEPOINT Check_Integrity;
958: ROLLBACK TO SAVEPOINT Check_Integrity;
959: x_return_status := 'U';
960: x_oracle_error := SQLCODE;
961: l_msg_data := SUBSTR(SQLERRM, 1, 200);
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_UNEXPECTED_ERROR');
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
960: x_oracle_error := SQLCODE;
961: l_msg_data := SUBSTR(SQLERRM, 1, 200);
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_UNEXPECTED_ERROR');
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
969: ELSE
970: x_msg_data := FND_MESSAGE.Get;
971: END IF;
972:
973: END Check_Integrity;
974:
1007: EXCEPTION
1008:
1009: WHEN Others THEN
1010: l_msg_data := sqlerrm;
1011: FND_MESSAGE.SET_NAME('GR',
1012: 'GR_UNEXPECTED_ERROR');
1013: FND_MESSAGE.SET_TOKEN('TEXT',
1014: l_msg_data,
1015: FALSE);
1009: WHEN Others THEN
1010: l_msg_data := sqlerrm;
1011: FND_MESSAGE.SET_NAME('GR',
1012: 'GR_UNEXPECTED_ERROR');
1013: FND_MESSAGE.SET_TOKEN('TEXT',
1014: l_msg_data,
1015: FALSE);
1016: IF FND_API.To_Boolean(p_called_by_form) THEN
1017: APP_EXCEPTION.Raise_Exception;