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_safety_category_code;
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_safety_category_code;
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;
170: x_return_status := 'U';
171: --B1052134 - changed APP_EXCEPTION.Get_Code to SQLCODE, added SQLERRM
172: x_oracle_error := SQLCODE;
173: l_msg_data := SUBSTR(SQLERRM, 1, 200);
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_UNEXPECTED_ERROR');
176: FND_MESSAGE.SET_TOKEN('TEXT',
177: l_msg_token||sqlerrm,
178: FALSE);
172: x_oracle_error := SQLCODE;
173: l_msg_data := SUBSTR(SQLERRM, 1, 200);
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_UNEXPECTED_ERROR');
176: FND_MESSAGE.SET_TOKEN('TEXT',
177: l_msg_token||sqlerrm,
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
181: ELSE
182: x_msg_data := FND_MESSAGE.Get;
183: END IF;
184:
185: END Insert_Row;
186:
268: WHEN Foreign_Key_Error THEN
269: ROLLBACK TO SAVEPOINT Update_Row;
270: x_return_status := l_return_status;
271: x_oracle_error := l_oracle_error;
272: FND_MESSAGE.SET_NAME('GR',
273: 'GR_FOREIGN_KEY_ERROR');
274: FND_MESSAGE.SET_TOKEN('TEXT',
275: l_msg_data,
276: FALSE);
270: x_return_status := l_return_status;
271: x_oracle_error := l_oracle_error;
272: FND_MESSAGE.SET_NAME('GR',
273: 'GR_FOREIGN_KEY_ERROR');
274: FND_MESSAGE.SET_TOKEN('TEXT',
275: l_msg_data,
276: FALSE);
277: IF FND_API.To_Boolean(p_called_by_form) THEN
278: APP_EXCEPTION.Raise_Exception;
276: FALSE);
277: IF FND_API.To_Boolean(p_called_by_form) THEN
278: APP_EXCEPTION.Raise_Exception;
279: ELSE
280: x_msg_data := FND_MESSAGE.Get;
281: END IF;
282:
283: WHEN Row_Missing_Error THEN
284: ROLLBACK TO SAVEPOINT Update_Row;
283: WHEN Row_Missing_Error THEN
284: ROLLBACK TO SAVEPOINT Update_Row;
285: x_return_status := 'E';
286: x_oracle_error := APP_EXCEPTION.Get_Code;
287: FND_MESSAGE.SET_NAME('GR',
288: 'GR_NO_RECORD_INSERTED');
289: FND_MESSAGE.SET_TOKEN('CODE',
290: l_msg_token,
291: FALSE);
285: x_return_status := 'E';
286: x_oracle_error := APP_EXCEPTION.Get_Code;
287: FND_MESSAGE.SET_NAME('GR',
288: 'GR_NO_RECORD_INSERTED');
289: FND_MESSAGE.SET_TOKEN('CODE',
290: l_msg_token,
291: FALSE);
292: IF FND_API.To_Boolean(p_called_by_form) THEN
293: APP_EXCEPTION.Raise_Exception;
291: FALSE);
292: IF FND_API.To_Boolean(p_called_by_form) THEN
293: APP_EXCEPTION.Raise_Exception;
294: ELSE
295: x_msg_data := FND_MESSAGE.Get;
296: END IF;
297:
298: WHEN OTHERS THEN
299: ROLLBACK TO SAVEPOINT Update_Row;
300: x_return_status := 'U';
301: --B1052134 - changed APP_EXCEPTION to SQLCODE, added SQLERRM
302: x_oracle_error := SQLCODE;
303: l_msg_data := SUBSTR(SQLERRM, 1, 200);
304: FND_MESSAGE.SET_NAME('GR',
305: 'GR_UNEXPECTED_ERROR');
306: FND_MESSAGE.SET_TOKEN('TEXT',
307: l_msg_token ||sqlerrm,
308: FALSE);
302: x_oracle_error := SQLCODE;
303: l_msg_data := SUBSTR(SQLERRM, 1, 200);
304: FND_MESSAGE.SET_NAME('GR',
305: 'GR_UNEXPECTED_ERROR');
306: FND_MESSAGE.SET_TOKEN('TEXT',
307: l_msg_token ||sqlerrm,
308: FALSE);
309: IF FND_API.To_Boolean(p_called_by_form) THEN
310: APP_EXCEPTION.Raise_Exception;
308: FALSE);
309: IF FND_API.To_Boolean(p_called_by_form) THEN
310: APP_EXCEPTION.Raise_Exception;
311: ELSE
312: x_msg_data := FND_MESSAGE.Get;
313: END IF;
314:
315: END Update_Row;
316:
482: WHEN Language_Missing_Error THEN
483: ROLLBACK TO SAVEPOINT Add_Language;
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: l_msg_token,
490: FALSE);
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: l_msg_token,
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
493: ELSE
494: x_msg_data := FND_MESSAGE.Get;
495: END IF;
496:
497: WHEN OTHERS THEN
498: ROLLBACK TO SAVEPOINT Add_Language;
498: ROLLBACK TO SAVEPOINT Add_Language;
499: x_return_status := 'U';
500: x_oracle_error := SQLCODE;
501: l_msg_data := SUBSTR(SQLERRM, 1, 200);
502: FND_MESSAGE.SET_NAME('GR',
503: 'GR_UNEXPECTED_ERROR');
504: FND_MESSAGE.SET_TOKEN('TEXT',
505: l_msg_token||sqlerrm,
506: FALSE);
500: x_oracle_error := SQLCODE;
501: l_msg_data := SUBSTR(SQLERRM, 1, 200);
502: FND_MESSAGE.SET_NAME('GR',
503: 'GR_UNEXPECTED_ERROR');
504: FND_MESSAGE.SET_TOKEN('TEXT',
505: l_msg_token||sqlerrm,
506: FALSE);
507: IF FND_API.To_Boolean(p_called_by_form) THEN
508: APP_EXCEPTION.Raise_Exception;
506: FALSE);
507: IF FND_API.To_Boolean(p_called_by_form) THEN
508: APP_EXCEPTION.Raise_Exception;
509: ELSE
510: x_msg_data := FND_MESSAGE.Get;
511: END IF;
512:
513: END Add_Language;
514:
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 Row_Already_Locked_Error THEN
600: ROLLBACK TO SAVEPOINT Lock_Row;
599: WHEN Row_Already_Locked_Error THEN
600: ROLLBACK TO SAVEPOINT Lock_Row;
601: x_return_status := 'E';
602: x_oracle_error := APP_EXCEPTION.Get_Code;
603: FND_MESSAGE.SET_NAME('GR',
604: 'GR_ROW_IS_LOCKED');
605: IF FND_API.To_Boolean(p_called_by_form) THEN
606: APP_EXCEPTION.Raise_Exception;
607: ELSE
604: 'GR_ROW_IS_LOCKED');
605: IF FND_API.To_Boolean(p_called_by_form) THEN
606: APP_EXCEPTION.Raise_Exception;
607: ELSE
608: x_msg_data := FND_MESSAGE.Get;
609: END IF;
610:
611: WHEN OTHERS THEN
612: ROLLBACK TO SAVEPOINT Lock_Row;
612: ROLLBACK TO SAVEPOINT Lock_Row;
613: x_return_status := 'U';
614: x_oracle_error := SQLCODE;
615: l_msg_data := SUBSTR(SQLERRM, 1, 200);
616: FND_MESSAGE.SET_NAME('GR',
617: 'GR_UNEXPECTED_ERROR');
618: FND_MESSAGE.SET_TOKEN('TEXT',
619: l_msg_token ||sqlerrm,
620: FALSE);
614: x_oracle_error := SQLCODE;
615: l_msg_data := SUBSTR(SQLERRM, 1, 200);
616: FND_MESSAGE.SET_NAME('GR',
617: 'GR_UNEXPECTED_ERROR');
618: FND_MESSAGE.SET_TOKEN('TEXT',
619: l_msg_token ||sqlerrm,
620: FALSE);
621: IF FND_API.To_Boolean(p_called_by_form) THEN
622: APP_EXCEPTION.Raise_Exception;
620: FALSE);
621: IF FND_API.To_Boolean(p_called_by_form) THEN
622: APP_EXCEPTION.Raise_Exception;
623: ELSE
624: x_msg_data := FND_MESSAGE.Get;
625: END IF;
626:
627: END Lock_Row;
628:
707: x_oracle_error := l_oracle_error;
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
710: ELSE
711: x_msg_data := FND_MESSAGE.Get;
712: END IF;
713:
714: WHEN Row_Missing_Error THEN
715: ROLLBACK TO SAVEPOINT Delete_Row;
714: WHEN Row_Missing_Error THEN
715: ROLLBACK TO SAVEPOINT Delete_Row;
716: x_return_status := 'E';
717: x_oracle_error := APP_EXCEPTION.Get_Code;
718: FND_MESSAGE.SET_NAME('GR',
719: 'GR_RECORD_NOT_FOUND');
720: FND_MESSAGE.SET_TOKEN('CODE',
721: l_msg_token,
722: FALSE);
716: x_return_status := 'E';
717: x_oracle_error := APP_EXCEPTION.Get_Code;
718: FND_MESSAGE.SET_NAME('GR',
719: 'GR_RECORD_NOT_FOUND');
720: FND_MESSAGE.SET_TOKEN('CODE',
721: l_msg_token,
722: FALSE);
723: IF FND_API.To_Boolean(p_called_by_form) THEN
724: APP_EXCEPTION.Raise_Exception;
722: FALSE);
723: IF FND_API.To_Boolean(p_called_by_form) THEN
724: APP_EXCEPTION.Raise_Exception;
725: ELSE
726: x_msg_data := FND_MESSAGE.Get;
727: END IF;
728:
729: WHEN OTHERS THEN
730: ROLLBACK TO SAVEPOINT Delete_Row;
730: ROLLBACK TO SAVEPOINT Delete_Row;
731: x_return_status := 'U';
732: x_oracle_error := SQLCODE;
733: l_msg_data := SUBSTR(SQLERRM, 1, 200);
734: FND_MESSAGE.SET_NAME('GR',
735: 'GR_UNEXPECTED_ERROR');
736: FND_MESSAGE.SET_TOKEN('TEXT',
737: l_msg_data,
738: FALSE);
732: x_oracle_error := SQLCODE;
733: l_msg_data := SUBSTR(SQLERRM, 1, 200);
734: FND_MESSAGE.SET_NAME('GR',
735: 'GR_UNEXPECTED_ERROR');
736: FND_MESSAGE.SET_TOKEN('TEXT',
737: l_msg_data,
738: FALSE);
739: IF FND_API.To_Boolean(p_called_by_form) THEN
740: APP_EXCEPTION.Raise_Exception;
738: FALSE);
739: IF FND_API.To_Boolean(p_called_by_form) THEN
740: APP_EXCEPTION.Raise_Exception;
741: ELSE
742: x_msg_data := FND_MESSAGE.Get;
743: END IF;
744:
745: END Delete_Row;
746:
788: ROLLBACK TO SAVEPOINT Delete_Rows;
789: x_return_status := 'U';
790: x_oracle_error := SQLCODE;
791: l_msg_data := SUBSTR(SQLERRM, 1, 200);
792: FND_MESSAGE.SET_NAME('GR',
793: 'GR_UNEXPECTED_ERROR');
794: FND_MESSAGE.SET_TOKEN('TEXT',
795: l_msg_token||sqlerrm,
796: FALSE);
790: x_oracle_error := SQLCODE;
791: l_msg_data := SUBSTR(SQLERRM, 1, 200);
792: FND_MESSAGE.SET_NAME('GR',
793: 'GR_UNEXPECTED_ERROR');
794: FND_MESSAGE.SET_TOKEN('TEXT',
795: l_msg_token||sqlerrm,
796: FALSE);
797: IF FND_API.To_Boolean(p_called_by_form) THEN
798: APP_EXCEPTION.Raise_Exception;
796: FALSE);
797: IF FND_API.To_Boolean(p_called_by_form) THEN
798: APP_EXCEPTION.Raise_Exception;
799: ELSE
800: x_msg_data := FND_MESSAGE.Get;
801: END IF;
802:
803: END Delete_Rows;
804:
873: WHEN Row_Missing_Error THEN
874: ROLLBACK TO SAVEPOINT Delete_Row;
875: x_return_status := 'E';
876: x_oracle_error := APP_EXCEPTION.Get_Code;
877: FND_MESSAGE.SET_NAME('GR',
878: 'GR_RECORD_NOT_FOUND');
879: FND_MESSAGE.SET_TOKEN('CODE',
880: l_msg_token,
881: FALSE);
875: x_return_status := 'E';
876: x_oracle_error := APP_EXCEPTION.Get_Code;
877: FND_MESSAGE.SET_NAME('GR',
878: 'GR_RECORD_NOT_FOUND');
879: FND_MESSAGE.SET_TOKEN('CODE',
880: l_msg_token,
881: FALSE);
882: x_msg_data := FND_MESSAGE.Get;
883:
878: 'GR_RECORD_NOT_FOUND');
879: FND_MESSAGE.SET_TOKEN('CODE',
880: l_msg_token,
881: FALSE);
882: x_msg_data := FND_MESSAGE.Get;
883:
884: WHEN OTHERS THEN
885: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
886: x_return_status := 'U';
885: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
886: x_return_status := 'U';
887: x_oracle_error := SQLCODE;
888: l_msg_data := SUBSTR(SQLERRM, 1, 200);
889: FND_MESSAGE.SET_NAME('GR',
890: 'GR_UNEXPECTED_ERROR');
891: FND_MESSAGE.SET_TOKEN('TEXT',
892: l_msg_token||sqlerrm,
893: FALSE);
887: x_oracle_error := SQLCODE;
888: l_msg_data := SUBSTR(SQLERRM, 1, 200);
889: FND_MESSAGE.SET_NAME('GR',
890: 'GR_UNEXPECTED_ERROR');
891: FND_MESSAGE.SET_TOKEN('TEXT',
892: l_msg_token||sqlerrm,
893: FALSE);
894: x_msg_data := FND_MESSAGE.Get;
895:
890: 'GR_UNEXPECTED_ERROR');
891: FND_MESSAGE.SET_TOKEN('TEXT',
892: l_msg_token||sqlerrm,
893: FALSE);
894: x_msg_data := FND_MESSAGE.Get;
895:
896: END Check_Foreign_Keys;
897:
898: PROCEDURE Check_Integrity
955:
956: WHEN Installed_Language_Error THEN
957: ROLLBACK TO SAVEPOINT Check_Integrity;
958: x_return_status := 'E';
959: FND_MESSAGE.SET_NAME('GR',
960: 'GR_INSTALLED_LANG');
961: FND_MESSAGE.SET_TOKEN('CODE',
962: p_language,
963: FALSE);
957: ROLLBACK TO SAVEPOINT Check_Integrity;
958: x_return_status := 'E';
959: FND_MESSAGE.SET_NAME('GR',
960: 'GR_INSTALLED_LANG');
961: FND_MESSAGE.SET_TOKEN('CODE',
962: p_language,
963: FALSE);
964: IF FND_API.To_Boolean(p_called_by_form) THEN
965: APP_EXCEPTION.Raise_Exception;
963: FALSE);
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;