119: WHEN Foreign_Key_Error THEN
120: ROLLBACK TO SAVEPOINT Insert_Row;
121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);
121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);
128: IF FND_API.To_Boolean(p_called_by_form) THEN
129: APP_EXCEPTION.Raise_Exception;
127: FALSE);
128: IF FND_API.To_Boolean(p_called_by_form) THEN
129: APP_EXCEPTION.Raise_Exception;
130: ELSE
131: x_msg_data := FND_MESSAGE.Get;
132: END IF;
133:
134: WHEN Item_Exists_Error THEN
135: ROLLBACK TO SAVEPOINT Insert_Row;
135: ROLLBACK TO SAVEPOINT Insert_Row;
136: l_msg_token := p_exposure_type_code || ' ' || p_language;
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: l_msg_token,
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: l_msg_token,
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;
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: l_msg_token := p_exposure_type_code || ' ' || p_language;
153: x_return_status := 'E';
154: x_oracle_error := APP_EXCEPTION.Get_Code;
155: FND_MESSAGE.SET_NAME('GR',
156: 'GR_NO_RECORD_INSERTED');
157: FND_MESSAGE.SET_TOKEN('CODE',
158: l_msg_token,
159: FALSE);
153: x_return_status := 'E';
154: x_oracle_error := APP_EXCEPTION.Get_Code;
155: FND_MESSAGE.SET_NAME('GR',
156: 'GR_NO_RECORD_INSERTED');
157: FND_MESSAGE.SET_TOKEN('CODE',
158: l_msg_token,
159: FALSE);
160: IF FND_API.To_Boolean(p_called_by_form) THEN
161: APP_EXCEPTION.Raise_Exception;
159: FALSE);
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;
168: l_msg_token := p_exposure_type_code || ' ' || p_language;
169: x_return_status := 'U';
170: x_oracle_error := SQLCODE;
171: l_msg_data := SUBSTR(SQLERRM, 1, 200);
172: FND_MESSAGE.SET_NAME('GR',
173: 'GR_UNEXPECTED_ERROR');
174: FND_MESSAGE.SET_TOKEN('TEXT',
175: l_msg_token,
176: FALSE);
170: x_oracle_error := SQLCODE;
171: l_msg_data := SUBSTR(SQLERRM, 1, 200);
172: FND_MESSAGE.SET_NAME('GR',
173: 'GR_UNEXPECTED_ERROR');
174: FND_MESSAGE.SET_TOKEN('TEXT',
175: l_msg_token,
176: FALSE);
177: IF FND_API.To_Boolean(p_called_by_form) THEN
178: APP_EXCEPTION.Raise_Exception;
176: FALSE);
177: IF FND_API.To_Boolean(p_called_by_form) THEN
178: APP_EXCEPTION.Raise_Exception;
179: ELSE
180: x_msg_data := FND_MESSAGE.Get;
181: END IF;
182:
183: END Insert_Row;
184:
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:
478: WHEN Language_Missing_Error THEN
479: ROLLBACK TO SAVEPOINT Add_Language;
480: x_return_status := 'E';
481: x_oracle_error := APP_EXCEPTION.Get_Code;
482: FND_MESSAGE.SET_NAME('GR',
483: 'GR_RECORD_NOT_FOUND');
484: FND_MESSAGE.SET_TOKEN('CODE',
485: l_msg_token,
486: FALSE);
480: x_return_status := 'E';
481: x_oracle_error := APP_EXCEPTION.Get_Code;
482: FND_MESSAGE.SET_NAME('GR',
483: 'GR_RECORD_NOT_FOUND');
484: FND_MESSAGE.SET_TOKEN('CODE',
485: l_msg_token,
486: FALSE);
487: IF FND_API.To_Boolean(p_called_by_form) THEN
488: APP_EXCEPTION.Raise_Exception;
486: FALSE);
487: IF FND_API.To_Boolean(p_called_by_form) THEN
488: APP_EXCEPTION.Raise_Exception;
489: ELSE
490: x_msg_data := FND_MESSAGE.Get;
491: END IF;
492:
493: WHEN OTHERS THEN
494: ROLLBACK TO SAVEPOINT Add_Language;
494: ROLLBACK TO SAVEPOINT Add_Language;
495: x_return_status := 'U';
496: x_oracle_error := SQLCODE;
497: l_msg_data := SUBSTR(SQLERRM, 1, 200);
498: FND_MESSAGE.SET_NAME('GR',
499: 'GR_UNEXPECTED_ERROR');
500: FND_MESSAGE.SET_TOKEN('TEXT',
501: l_msg_token,
502: FALSE);
496: x_oracle_error := SQLCODE;
497: l_msg_data := SUBSTR(SQLERRM, 1, 200);
498: FND_MESSAGE.SET_NAME('GR',
499: 'GR_UNEXPECTED_ERROR');
500: FND_MESSAGE.SET_TOKEN('TEXT',
501: l_msg_token,
502: FALSE);
503: IF FND_API.To_Boolean(p_called_by_form) THEN
504: APP_EXCEPTION.Raise_Exception;
502: FALSE);
503: IF FND_API.To_Boolean(p_called_by_form) THEN
504: APP_EXCEPTION.Raise_Exception;
505: ELSE
506: x_msg_data := FND_MESSAGE.Get;
507: END IF;
508:
509: END Add_Language;
510:
582:
583: WHEN No_Data_Found_Error THEN
584: ROLLBACK TO SAVEPOINT Lock_Row;
585: x_return_status := 'E';
586: FND_MESSAGE.SET_NAME('GR',
587: 'GR_RECORD_NOT_FOUND');
588: FND_MESSAGE.SET_TOKEN('CODE',
589: l_msg_token,
590: FALSE);
584: ROLLBACK TO SAVEPOINT Lock_Row;
585: x_return_status := 'E';
586: FND_MESSAGE.SET_NAME('GR',
587: 'GR_RECORD_NOT_FOUND');
588: FND_MESSAGE.SET_TOKEN('CODE',
589: l_msg_token,
590: FALSE);
591: IF FND_API.To_Boolean(p_called_by_form) THEN
592: APP_EXCEPTION.Raise_Exception;
590: FALSE);
591: IF FND_API.To_Boolean(p_called_by_form) THEN
592: APP_EXCEPTION.Raise_Exception;
593: ELSE
594: x_msg_data := FND_MESSAGE.Get;
595: END IF;
596:
597: WHEN RECORD_CHANGED_ERROR THEN
598: ROLLBACK TO SAVEPOINT Lock_Row;
596:
597: WHEN RECORD_CHANGED_ERROR THEN
598: ROLLBACK TO SAVEPOINT Lock_Row;
599: X_return_status := 'E';
600: FND_MESSAGE.SET_NAME('FND',
601: 'FORM_RECORD_CHANGED');
602: IF FND_API.To_Boolean(p_called_by_form) THEN
603: APP_EXCEPTION.Raise_Exception;
604: ELSE
601: 'FORM_RECORD_CHANGED');
602: IF FND_API.To_Boolean(p_called_by_form) THEN
603: APP_EXCEPTION.Raise_Exception;
604: ELSE
605: x_msg_data := FND_MESSAGE.Get;
606: END IF;
607: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
608: ROLLBACK TO SAVEPOINT Lock_Row;
609: x_return_status := 'L';
608: ROLLBACK TO SAVEPOINT Lock_Row;
609: x_return_status := 'L';
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
612: FND_MESSAGE.SET_NAME('GR',
613: 'GR_ROW_IS_LOCKED');
614: x_msg_data := FND_MESSAGE.Get;
615: END IF;
616:
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
612: FND_MESSAGE.SET_NAME('GR',
613: 'GR_ROW_IS_LOCKED');
614: x_msg_data := FND_MESSAGE.Get;
615: END IF;
616:
617: WHEN OTHERS THEN
618: ROLLBACK TO SAVEPOINT Lock_Row;
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_token,
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_token,
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:
719: WHEN Row_Missing_Error THEN
720: ROLLBACK TO SAVEPOINT Delete_Row;
721: x_return_status := 'E';
722: x_oracle_error := APP_EXCEPTION.Get_Code;
723: FND_MESSAGE.SET_NAME('GR',
724: 'GR_RECORD_NOT_FOUND');
725: FND_MESSAGE.SET_TOKEN('CODE',
726: l_msg_token,
727: FALSE);
721: x_return_status := 'E';
722: x_oracle_error := APP_EXCEPTION.Get_Code;
723: FND_MESSAGE.SET_NAME('GR',
724: 'GR_RECORD_NOT_FOUND');
725: FND_MESSAGE.SET_TOKEN('CODE',
726: l_msg_token,
727: FALSE);
728: IF FND_API.To_Boolean(p_called_by_form) THEN
729: APP_EXCEPTION.Raise_Exception;
727: FALSE);
728: IF FND_API.To_Boolean(p_called_by_form) THEN
729: APP_EXCEPTION.Raise_Exception;
730: ELSE
731: x_msg_data := FND_MESSAGE.Get;
732: END IF;
733:
734: WHEN OTHERS THEN
735: ROLLBACK TO SAVEPOINT Delete_Row;
735: ROLLBACK TO SAVEPOINT Delete_Row;
736: x_return_status := 'U';
737: x_oracle_error := SQLCODE;
738: l_msg_data := SUBSTR(SQLERRM, 1, 200);
739: FND_MESSAGE.SET_NAME('GR',
740: 'GR_UNEXPECTED_ERROR');
741: FND_MESSAGE.SET_TOKEN('TEXT',
742: l_msg_token,
743: FALSE);
737: x_oracle_error := SQLCODE;
738: l_msg_data := SUBSTR(SQLERRM, 1, 200);
739: FND_MESSAGE.SET_NAME('GR',
740: 'GR_UNEXPECTED_ERROR');
741: FND_MESSAGE.SET_TOKEN('TEXT',
742: l_msg_token,
743: FALSE);
744: IF FND_API.To_Boolean(p_called_by_form) THEN
745: APP_EXCEPTION.Raise_Exception;
743: FALSE);
744: IF FND_API.To_Boolean(p_called_by_form) THEN
745: APP_EXCEPTION.Raise_Exception;
746: ELSE
747: x_msg_data := FND_MESSAGE.Get;
748: END IF;
749:
750: END Delete_Row;
751:
793: ROLLBACK TO SAVEPOINT Delete_Rows;
794: x_return_status := 'U';
795: x_oracle_error := SQLCODE;
796: l_msg_data := SUBSTR(SQLERRM, 1, 200);
797: FND_MESSAGE.SET_NAME('GR',
798: 'GR_UNEXPECTED_ERROR');
799: FND_MESSAGE.SET_TOKEN('TEXT',
800: l_msg_token,
801: FALSE);
795: x_oracle_error := SQLCODE;
796: l_msg_data := SUBSTR(SQLERRM, 1, 200);
797: FND_MESSAGE.SET_NAME('GR',
798: 'GR_UNEXPECTED_ERROR');
799: FND_MESSAGE.SET_TOKEN('TEXT',
800: l_msg_token,
801: FALSE);
802: IF FND_API.To_Boolean(p_called_by_form) THEN
803: APP_EXCEPTION.Raise_Exception;
801: FALSE);
802: IF FND_API.To_Boolean(p_called_by_form) THEN
803: APP_EXCEPTION.Raise_Exception;
804: ELSE
805: x_msg_data := FND_MESSAGE.Get;
806: END IF;
807:
808: END Delete_Rows;
809:
855: IF c_get_language%NOTFOUND THEN
856: l_msg_token := l_language_code;
857: x_return_status := 'E';
858: x_oracle_error := APP_EXCEPTION.Get_Code;
859: FND_MESSAGE.SET_NAME('GR',
860: 'GR_RECORD_NOT_FOUND');
861: FND_MESSAGE.SET_TOKEN('CODE',
862: l_msg_token,
863: FALSE);
857: x_return_status := 'E';
858: x_oracle_error := APP_EXCEPTION.Get_Code;
859: FND_MESSAGE.SET_NAME('GR',
860: 'GR_RECORD_NOT_FOUND');
861: FND_MESSAGE.SET_TOKEN('CODE',
862: l_msg_token,
863: FALSE);
864: l_msg_data := FND_MESSAGE.Get;
865: END IF;
860: 'GR_RECORD_NOT_FOUND');
861: FND_MESSAGE.SET_TOKEN('CODE',
862: l_msg_token,
863: FALSE);
864: l_msg_data := FND_MESSAGE.Get;
865: END IF;
866: CLOSE c_get_language;
867:
868: l_language_code := p_source_lang;
871: IF c_get_language%NOTFOUND THEN
872: l_msg_token := l_language_code;
873: x_return_status := 'E';
874: x_oracle_error := APP_EXCEPTION.Get_Code;
875: FND_MESSAGE.SET_NAME('GR',
876: 'GR_RECORD_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN('CODE',
878: l_msg_token,
879: FALSE);
873: x_return_status := 'E';
874: x_oracle_error := APP_EXCEPTION.Get_Code;
875: FND_MESSAGE.SET_NAME('GR',
876: 'GR_RECORD_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN('CODE',
878: l_msg_token,
879: FALSE);
880: l_msg_data := FND_MESSAGE.Get;
881: END IF;
876: 'GR_RECORD_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN('CODE',
878: l_msg_token,
879: FALSE);
880: l_msg_data := FND_MESSAGE.Get;
881: END IF;
882: CLOSE c_get_language;
883:
884: IF x_return_status <> 'S' THEN
891: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
892: x_return_status := 'U';
893: x_oracle_error := SQLCODE;
894: l_msg_data := SUBSTR(SQLERRM, 1, 200);
895: FND_MESSAGE.SET_NAME('GR',
896: 'GR_UNEXPECTED_ERROR');
897: FND_MESSAGE.SET_TOKEN('TEXT',
898: l_msg_token,
899: FALSE);
893: x_oracle_error := SQLCODE;
894: l_msg_data := SUBSTR(SQLERRM, 1, 200);
895: FND_MESSAGE.SET_NAME('GR',
896: 'GR_UNEXPECTED_ERROR');
897: FND_MESSAGE.SET_TOKEN('TEXT',
898: l_msg_token,
899: FALSE);
900: x_msg_data := FND_MESSAGE.Get;
901:
896: 'GR_UNEXPECTED_ERROR');
897: FND_MESSAGE.SET_TOKEN('TEXT',
898: l_msg_token,
899: FALSE);
900: x_msg_data := FND_MESSAGE.Get;
901:
902: END Check_Foreign_Keys;
903:
904: PROCEDURE Check_Integrity
958:
959: WHEN Installed_Language_Error THEN
960: ROLLBACK TO SAVEPOINT Check_Integrity;
961: x_return_status := 'E';
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_INSTALLED_LANG');
964: FND_MESSAGE.SET_TOKEN('CODE',
965: p_language,
966: FALSE);
960: ROLLBACK TO SAVEPOINT Check_Integrity;
961: x_return_status := 'E';
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_INSTALLED_LANG');
964: FND_MESSAGE.SET_TOKEN('CODE',
965: p_language,
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: WHEN OTHERS THEN
974: ROLLBACK TO SAVEPOINT Check_Integrity;
974: ROLLBACK TO SAVEPOINT Check_Integrity;
975: x_return_status := 'U';
976: x_oracle_error := SQLCODE;
977: l_msg_data := SUBSTR(SQLERRM, 1, 200);
978: FND_MESSAGE.SET_NAME('GR',
979: 'GR_UNEXPECTED_ERROR');
980: FND_MESSAGE.SET_TOKEN('TEXT',
981: l_msg_data,
982: FALSE);
976: x_oracle_error := SQLCODE;
977: l_msg_data := SUBSTR(SQLERRM, 1, 200);
978: FND_MESSAGE.SET_NAME('GR',
979: 'GR_UNEXPECTED_ERROR');
980: FND_MESSAGE.SET_TOKEN('TEXT',
981: l_msg_data,
982: FALSE);
983: IF FND_API.To_Boolean(p_called_by_form) THEN
984: APP_EXCEPTION.Raise_Exception;
982: FALSE);
983: IF FND_API.To_Boolean(p_called_by_form) THEN
984: APP_EXCEPTION.Raise_Exception;
985: ELSE
986: x_msg_data := FND_MESSAGE.Get;
987: END IF;
988:
989: END Check_Integrity;
990:
1033: EXCEPTION
1034:
1035: WHEN Others THEN
1036: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1037: FND_MESSAGE.SET_NAME('GR',
1038: 'GR_UNEXPECTED_ERROR');
1039: FND_MESSAGE.SET_TOKEN('TEXT',
1040: l_msg_data,
1041: FALSE);
1035: WHEN Others THEN
1036: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1037: FND_MESSAGE.SET_NAME('GR',
1038: 'GR_UNEXPECTED_ERROR');
1039: FND_MESSAGE.SET_TOKEN('TEXT',
1040: l_msg_data,
1041: FALSE);
1042: IF FND_API.To_Boolean(p_called_by_form) THEN
1043: APP_EXCEPTION.Raise_Exception;