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_risk_phrase_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_THERE');
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_THERE');
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_risk_phrase_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_risk_phrase_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:
622: WHEN OTHERS THEN
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:
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: END Delete_Rows;
808:
877: WHEN Row_Missing_Error THEN
878: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
879: x_return_status := 'E';
880: x_oracle_error := APP_EXCEPTION.Get_Code;
881: FND_MESSAGE.SET_NAME('GR',
882: 'GR_RECORD_NOT_FOUND');
883: FND_MESSAGE.SET_TOKEN('CODE',
884: l_msg_token,
885: FALSE);
879: x_return_status := 'E';
880: x_oracle_error := APP_EXCEPTION.Get_Code;
881: FND_MESSAGE.SET_NAME('GR',
882: 'GR_RECORD_NOT_FOUND');
883: FND_MESSAGE.SET_TOKEN('CODE',
884: l_msg_token,
885: FALSE);
886: WHEN OTHERS THEN
887: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
887: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
888: x_return_status := 'U';
889: x_oracle_error := SQLCODE;
890: l_msg_data := SUBSTR(SQLERRM, 1, 200);
891: FND_MESSAGE.SET_NAME('GR',
892: 'GR_UNEXPECTED_ERROR');
893: FND_MESSAGE.SET_TOKEN('TEXT',
894: l_msg_token,
895: FALSE);
889: x_oracle_error := SQLCODE;
890: l_msg_data := SUBSTR(SQLERRM, 1, 200);
891: FND_MESSAGE.SET_NAME('GR',
892: 'GR_UNEXPECTED_ERROR');
893: FND_MESSAGE.SET_TOKEN('TEXT',
894: l_msg_token,
895: FALSE);
896: END Check_Foreign_Keys;
897:
954:
955: WHEN Installed_Language_Error THEN
956: ROLLBACK TO SAVEPOINT Check_Integrity;
957: x_return_status := 'E';
958: FND_MESSAGE.SET_NAME('GR',
959: 'GR_INSTALLED_LANG');
960: FND_MESSAGE.SET_TOKEN('CODE',
961: p_language,
962: FALSE);
956: ROLLBACK TO SAVEPOINT Check_Integrity;
957: x_return_status := 'E';
958: FND_MESSAGE.SET_NAME('GR',
959: 'GR_INSTALLED_LANG');
960: FND_MESSAGE.SET_TOKEN('CODE',
961: p_language,
962: FALSE);
963:
964: IF FND_API.To_Boolean(p_called_by_form) THEN
963:
964: IF FND_API.To_Boolean(p_called_by_form) THEN
965: APP_EXCEPTION.Raise_Exception;
966: ELSE
967: x_msg_data := FND_MESSAGE.Get;
968: END IF;
969:
970: WHEN OTHERS THEN
971: ROLLBACK TO SAVEPOINT Check_Integrity;
971: ROLLBACK TO SAVEPOINT Check_Integrity;
972: x_return_status := 'U';
973: x_oracle_error := SQLCODE;
974: l_msg_data := SUBSTR(SQLERRM, 1, 200);
975: FND_MESSAGE.SET_NAME('GR',
976: 'GR_UNEXPECTED_ERROR');
977: FND_MESSAGE.SET_TOKEN('TEXT',
978: l_msg_data,
979: FALSE);
973: x_oracle_error := SQLCODE;
974: l_msg_data := SUBSTR(SQLERRM, 1, 200);
975: FND_MESSAGE.SET_NAME('GR',
976: 'GR_UNEXPECTED_ERROR');
977: FND_MESSAGE.SET_TOKEN('TEXT',
978: l_msg_data,
979: FALSE);
980: IF FND_API.To_Boolean(p_called_by_form) THEN
981: APP_EXCEPTION.Raise_Exception;
979: FALSE);
980: IF FND_API.To_Boolean(p_called_by_form) THEN
981: APP_EXCEPTION.Raise_Exception;
982: ELSE
983: x_msg_data := FND_MESSAGE.Get;
984: END IF;
985:
986: END Check_Integrity;
987:
1031: EXCEPTION
1032:
1033: WHEN Others THEN
1034: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1035: FND_MESSAGE.SET_NAME('GR',
1036: 'GR_UNEXPECTED_ERROR');
1037: FND_MESSAGE.SET_TOKEN('TEXT',
1038: l_msg_data,
1039: FALSE);
1033: WHEN Others THEN
1034: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1035: FND_MESSAGE.SET_NAME('GR',
1036: 'GR_UNEXPECTED_ERROR');
1037: FND_MESSAGE.SET_TOKEN('TEXT',
1038: l_msg_data,
1039: FALSE);
1040: IF FND_API.To_Boolean(p_called_by_form) THEN
1041: APP_EXCEPTION.Raise_Exception;