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_hazard_classification_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_hazard_classification_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_hazard_classification_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:
266: WHEN Foreign_Key_Error THEN
267: ROLLBACK TO SAVEPOINT Update_Row;
268: x_return_status := l_return_status;
269: x_oracle_error := l_oracle_error;
270: FND_MESSAGE.SET_NAME('GR',
271: 'GR_FOREIGN_KEY_ERROR');
272: FND_MESSAGE.SET_TOKEN('TEXT',
273: l_msg_data,
274: FALSE);
268: x_return_status := l_return_status;
269: x_oracle_error := l_oracle_error;
270: FND_MESSAGE.SET_NAME('GR',
271: 'GR_FOREIGN_KEY_ERROR');
272: FND_MESSAGE.SET_TOKEN('TEXT',
273: l_msg_data,
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 Row_Missing_Error THEN
282: ROLLBACK TO SAVEPOINT Update_Row;
281: WHEN Row_Missing_Error THEN
282: ROLLBACK TO SAVEPOINT Update_Row;
283: x_return_status := 'E';
284: x_oracle_error := APP_EXCEPTION.Get_Code;
285: FND_MESSAGE.SET_NAME('GR',
286: 'GR_NO_RECORD_INSERTED');
287: FND_MESSAGE.SET_TOKEN('CODE',
288: l_msg_token,
289: FALSE);
283: x_return_status := 'E';
284: x_oracle_error := APP_EXCEPTION.Get_Code;
285: FND_MESSAGE.SET_NAME('GR',
286: 'GR_NO_RECORD_INSERTED');
287: FND_MESSAGE.SET_TOKEN('CODE',
288: l_msg_token,
289: FALSE);
290: IF FND_API.To_Boolean(p_called_by_form) THEN
291: APP_EXCEPTION.Raise_Exception;
289: FALSE);
290: IF FND_API.To_Boolean(p_called_by_form) THEN
291: APP_EXCEPTION.Raise_Exception;
292: ELSE
293: x_msg_data := FND_MESSAGE.Get;
294: END IF;
295:
296: WHEN OTHERS THEN
297: ROLLBACK TO SAVEPOINT Update_Row;
297: ROLLBACK TO SAVEPOINT Update_Row;
298: x_return_status := 'U';
299: x_oracle_error := SQLCODE;
300: l_msg_data := SUBSTR(SQLERRM, 1, 200);
301: FND_MESSAGE.SET_NAME('GR',
302: 'GR_UNEXPECTED_ERROR');
303: FND_MESSAGE.SET_TOKEN('TEXT',
304: l_msg_token,
305: FALSE);
299: x_oracle_error := SQLCODE;
300: l_msg_data := SUBSTR(SQLERRM, 1, 200);
301: FND_MESSAGE.SET_NAME('GR',
302: 'GR_UNEXPECTED_ERROR');
303: FND_MESSAGE.SET_TOKEN('TEXT',
304: l_msg_token,
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
308: ELSE
309: x_msg_data := FND_MESSAGE.Get;
310: END IF;
311:
312: END Update_Row;
313:
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: l_msg_data := SUBSTR(SQLERRM, 1, 200);
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_token,
504: FALSE);
498: x_oracle_error := SQLCODE;
499: l_msg_data := SUBSTR(SQLERRM, 1, 200);
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_token,
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: l_msg_token,
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: l_msg_token,
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:
599: WHEN RECORD_CHANGED_ERROR THEN
600: ROLLBACK TO SAVEPOINT Lock_Row;
598:
599: WHEN RECORD_CHANGED_ERROR THEN
600: ROLLBACK TO SAVEPOINT Lock_Row;
601: X_return_status := 'E';
602: FND_MESSAGE.SET_NAME('FND',
603: 'FORM_RECORD_CHANGED');
604: IF FND_API.To_Boolean(p_called_by_form) THEN
605: APP_EXCEPTION.Raise_Exception;
606: ELSE
603: 'FORM_RECORD_CHANGED');
604: IF FND_API.To_Boolean(p_called_by_form) THEN
605: APP_EXCEPTION.Raise_Exception;
606: ELSE
607: x_msg_data := FND_MESSAGE.Get;
608: END IF;
609: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
610: ROLLBACK TO SAVEPOINT Lock_Row;
611: x_return_status := 'L';
610: ROLLBACK TO SAVEPOINT Lock_Row;
611: x_return_status := 'L';
612: x_oracle_error := APP_EXCEPTION.Get_Code;
613: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
614: FND_MESSAGE.SET_NAME('GR',
615: 'GR_ROW_IS_LOCKED');
616: x_msg_data := FND_MESSAGE.Get;
617: END IF;
618:
612: x_oracle_error := APP_EXCEPTION.Get_Code;
613: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
614: FND_MESSAGE.SET_NAME('GR',
615: 'GR_ROW_IS_LOCKED');
616: x_msg_data := FND_MESSAGE.Get;
617: END IF;
618:
619:
620: WHEN OTHERS THEN
621: ROLLBACK TO SAVEPOINT Lock_Row;
622: x_return_status := 'U';
623: x_oracle_error := SQLCODE;
624: l_msg_data := SUBSTR(SQLERRM, 1, 200);
625: FND_MESSAGE.SET_NAME('GR',
626: 'GR_UNEXPECTED_ERROR');
627: FND_MESSAGE.SET_TOKEN('TEXT',
628: l_msg_token,
629: FALSE);
623: x_oracle_error := SQLCODE;
624: l_msg_data := SUBSTR(SQLERRM, 1, 200);
625: FND_MESSAGE.SET_NAME('GR',
626: 'GR_UNEXPECTED_ERROR');
627: FND_MESSAGE.SET_TOKEN('TEXT',
628: l_msg_token,
629: FALSE);
630: IF FND_API.To_Boolean(p_called_by_form) THEN
631: APP_EXCEPTION.Raise_Exception;
629: FALSE);
630: IF FND_API.To_Boolean(p_called_by_form) THEN
631: APP_EXCEPTION.Raise_Exception;
632: ELSE
633: x_msg_data := FND_MESSAGE.Get;
634: END IF;
635:
636: END Lock_Row;
637:
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
965:
966: WHEN Installed_Language_Error THEN
967: ROLLBACK TO SAVEPOINT Check_Integrity;
968: x_return_status := 'E';
969: FND_MESSAGE.SET_NAME('GR',
970: 'GR_INSTALLED_LANG');
971: FND_MESSAGE.SET_TOKEN('CODE',
972: p_language,
973: FALSE);
967: ROLLBACK TO SAVEPOINT Check_Integrity;
968: x_return_status := 'E';
969: FND_MESSAGE.SET_NAME('GR',
970: 'GR_INSTALLED_LANG');
971: FND_MESSAGE.SET_TOKEN('CODE',
972: p_language,
973: FALSE);
974: IF FND_API.To_Boolean(p_called_by_form) THEN
975: APP_EXCEPTION.Raise_Exception;
973: FALSE);
974: IF FND_API.To_Boolean(p_called_by_form) THEN
975: APP_EXCEPTION.Raise_Exception;
976: ELSE
977: x_msg_data := FND_MESSAGE.Get;
978: END IF;
979:
980: WHEN OTHERS THEN
981: ROLLBACK TO SAVEPOINT Check_Integrity;
981: ROLLBACK TO SAVEPOINT Check_Integrity;
982: x_return_status := 'U';
983: x_oracle_error := SQLCODE;
984: l_msg_data := SUBSTR(SQLERRM, 1, 200);
985: FND_MESSAGE.SET_NAME('GR',
986: 'GR_UNEXPECTED_ERROR');
987: FND_MESSAGE.SET_TOKEN('TEXT',
988: l_msg_data,
989: FALSE);
983: x_oracle_error := SQLCODE;
984: l_msg_data := SUBSTR(SQLERRM, 1, 200);
985: FND_MESSAGE.SET_NAME('GR',
986: 'GR_UNEXPECTED_ERROR');
987: FND_MESSAGE.SET_TOKEN('TEXT',
988: l_msg_data,
989: FALSE);
990: IF FND_API.To_Boolean(p_called_by_form) THEN
991: APP_EXCEPTION.Raise_Exception;
989: FALSE);
990: IF FND_API.To_Boolean(p_called_by_form) THEN
991: APP_EXCEPTION.Raise_Exception;
992: ELSE
993: x_msg_data := FND_MESSAGE.Get;
994: END IF;
995:
996: END Check_Integrity;
997:
1040: EXCEPTION
1041:
1042: WHEN Others THEN
1043: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1044: FND_MESSAGE.SET_NAME('GR',
1045: 'GR_UNEXPECTED_ERROR');
1046: FND_MESSAGE.SET_TOKEN('TEXT',
1047: l_msg_data,
1048: FALSE);
1042: WHEN Others THEN
1043: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1044: FND_MESSAGE.SET_NAME('GR',
1045: 'GR_UNEXPECTED_ERROR');
1046: FND_MESSAGE.SET_TOKEN('TEXT',
1047: l_msg_data,
1048: FALSE);
1049: IF FND_API.To_Boolean(p_called_by_form) THEN
1050: APP_EXCEPTION.Raise_Exception;