130: WHEN Foreign_Key_Error THEN
131: ROLLBACK TO SAVEPOINT Insert_Row;
132: x_return_status := l_return_status;
133: x_oracle_error := l_oracle_error;
134: FND_MESSAGE.SET_NAME('GR',
135: 'GR_FOREIGN_KEY_ERROR');
136: FND_MESSAGE.SET_TOKEN('TEXT',
137: l_msg_data,
138: FALSE);
132: x_return_status := l_return_status;
133: x_oracle_error := l_oracle_error;
134: FND_MESSAGE.SET_NAME('GR',
135: 'GR_FOREIGN_KEY_ERROR');
136: FND_MESSAGE.SET_TOKEN('TEXT',
137: l_msg_data,
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
141: ELSE
142: x_msg_data := FND_MESSAGE.Get;
143: END IF;
144:
145: WHEN Item_Exists_Error THEN
146: ROLLBACK TO SAVEPOINT Insert_Row;
146: ROLLBACK TO SAVEPOINT Insert_Row;
147: l_msg_token := p_property_id || ' ' || p_language;
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_RECORD_EXISTS');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: l_msg_token,
154: FALSE);
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_RECORD_EXISTS');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: l_msg_token,
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
157: ELSE
158: x_msg_data := FND_MESSAGE.Get;
159: END IF;
160:
161: WHEN Row_Missing_Error THEN
162: ROLLBACK TO SAVEPOINT Insert_Row;
162: ROLLBACK TO SAVEPOINT Insert_Row;
163: l_msg_token := p_property_id || ' ' || p_language;
164: x_return_status := 'E';
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_NO_RECORD_INSERTED');
168: FND_MESSAGE.SET_TOKEN('CODE',
169: l_msg_token,
170: FALSE);
164: x_return_status := 'E';
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_NO_RECORD_INSERTED');
168: FND_MESSAGE.SET_TOKEN('CODE',
169: l_msg_token,
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
173: ELSE
174: x_msg_data := FND_MESSAGE.Get;
175: END IF;
176:
177: WHEN OTHERS THEN
178: ROLLBACK TO SAVEPOINT Insert_Row;
179: l_msg_token := p_property_id || ' ' || p_language;
180: x_return_status := 'U';
181: x_oracle_error := SQLCODE;
182: l_msg_data := SUBSTR(SQLERRM, 1, 200);
183: FND_MESSAGE.SET_NAME('GR',
184: 'GR_UNEXPECTED_ERROR');
185: FND_MESSAGE.SET_TOKEN('TEXT',
186: l_msg_token,
187: FALSE);
181: x_oracle_error := SQLCODE;
182: l_msg_data := SUBSTR(SQLERRM, 1, 200);
183: FND_MESSAGE.SET_NAME('GR',
184: 'GR_UNEXPECTED_ERROR');
185: FND_MESSAGE.SET_TOKEN('TEXT',
186: l_msg_token,
187: FALSE);
188: IF FND_API.To_Boolean(p_called_by_form) THEN
189: APP_EXCEPTION.Raise_Exception;
187: FALSE);
188: IF FND_API.To_Boolean(p_called_by_form) THEN
189: APP_EXCEPTION.Raise_Exception;
190: ELSE
191: x_msg_data := FND_MESSAGE.Get;
192: END IF;
193:
194: END Insert_Row;
195:
283: WHEN Foreign_Key_Error THEN
284: ROLLBACK TO SAVEPOINT Update_Row;
285: x_return_status := l_return_status;
286: x_oracle_error := l_oracle_error;
287: FND_MESSAGE.SET_NAME('GR',
288: 'GR_FOREIGN_KEY_ERROR');
289: FND_MESSAGE.SET_TOKEN('TEXT',
290: l_msg_data,
291: FALSE);
285: x_return_status := l_return_status;
286: x_oracle_error := l_oracle_error;
287: FND_MESSAGE.SET_NAME('GR',
288: 'GR_FOREIGN_KEY_ERROR');
289: FND_MESSAGE.SET_TOKEN('TEXT',
290: l_msg_data,
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 Row_Missing_Error THEN
299: ROLLBACK TO SAVEPOINT Update_Row;
298: WHEN Row_Missing_Error THEN
299: ROLLBACK TO SAVEPOINT Update_Row;
300: x_return_status := 'E';
301: x_oracle_error := APP_EXCEPTION.Get_Code;
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_NO_RECORD_INSERTED');
304: FND_MESSAGE.SET_TOKEN('CODE',
305: l_msg_token,
306: FALSE);
300: x_return_status := 'E';
301: x_oracle_error := APP_EXCEPTION.Get_Code;
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_NO_RECORD_INSERTED');
304: FND_MESSAGE.SET_TOKEN('CODE',
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: WHEN OTHERS THEN
314: ROLLBACK TO SAVEPOINT Update_Row;
314: ROLLBACK TO SAVEPOINT Update_Row;
315: x_return_status := 'U';
316: x_oracle_error := SQLCODE;
317: l_msg_data := SUBSTR(SQLERRM, 1, 200);
318: FND_MESSAGE.SET_NAME('GR',
319: 'GR_UNEXPECTED_ERROR');
320: FND_MESSAGE.SET_TOKEN('TEXT',
321: l_msg_token,
322: FALSE);
316: x_oracle_error := SQLCODE;
317: l_msg_data := SUBSTR(SQLERRM, 1, 200);
318: FND_MESSAGE.SET_NAME('GR',
319: 'GR_UNEXPECTED_ERROR');
320: FND_MESSAGE.SET_TOKEN('TEXT',
321: l_msg_token,
322: FALSE);
323: IF FND_API.To_Boolean(p_called_by_form) THEN
324: APP_EXCEPTION.Raise_Exception;
322: FALSE);
323: IF FND_API.To_Boolean(p_called_by_form) THEN
324: APP_EXCEPTION.Raise_Exception;
325: ELSE
326: x_msg_data := FND_MESSAGE.Get;
327: END IF;
328:
329: END Update_Row;
330:
522: WHEN Language_Missing_Error THEN
523: ROLLBACK TO SAVEPOINT Add_Language;
524: x_return_status := 'E';
525: x_oracle_error := APP_EXCEPTION.Get_Code;
526: FND_MESSAGE.SET_NAME('GR',
527: 'GR_RECORD_NOT_FOUND');
528: FND_MESSAGE.SET_TOKEN('CODE',
529: l_msg_token,
530: FALSE);
524: x_return_status := 'E';
525: x_oracle_error := APP_EXCEPTION.Get_Code;
526: FND_MESSAGE.SET_NAME('GR',
527: 'GR_RECORD_NOT_FOUND');
528: FND_MESSAGE.SET_TOKEN('CODE',
529: l_msg_token,
530: FALSE);
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
530: FALSE);
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
533: ELSE
534: x_msg_data := FND_MESSAGE.Get;
535: END IF;
536:
537: WHEN OTHERS THEN
538: ROLLBACK TO SAVEPOINT Add_Language;
538: ROLLBACK TO SAVEPOINT Add_Language;
539: x_return_status := 'U';
540: x_oracle_error := SQLCODE;
541: l_msg_data := SUBSTR(SQLERRM, 1, 200);
542: FND_MESSAGE.SET_NAME('GR',
543: 'GR_UNEXPECTED_ERROR');
544: FND_MESSAGE.SET_TOKEN('TEXT',
545: l_msg_token,
546: FALSE);
540: x_oracle_error := SQLCODE;
541: l_msg_data := SUBSTR(SQLERRM, 1, 200);
542: FND_MESSAGE.SET_NAME('GR',
543: 'GR_UNEXPECTED_ERROR');
544: FND_MESSAGE.SET_TOKEN('TEXT',
545: l_msg_token,
546: FALSE);
547: IF FND_API.To_Boolean(p_called_by_form) THEN
548: APP_EXCEPTION.Raise_Exception;
546: FALSE);
547: IF FND_API.To_Boolean(p_called_by_form) THEN
548: APP_EXCEPTION.Raise_Exception;
549: ELSE
550: x_msg_data := FND_MESSAGE.Get;
551: END IF;
552:
553: END Add_Language;
554:
625:
626: WHEN No_Data_Found_Error THEN
627: ROLLBACK TO SAVEPOINT Lock_Row;
628: x_return_status := 'E';
629: FND_MESSAGE.SET_NAME('GR',
630: 'GR_RECORD_NOT_FOUND');
631: FND_MESSAGE.SET_TOKEN('CODE',
632: l_msg_token,
633: FALSE);
627: ROLLBACK TO SAVEPOINT Lock_Row;
628: x_return_status := 'E';
629: FND_MESSAGE.SET_NAME('GR',
630: 'GR_RECORD_NOT_FOUND');
631: FND_MESSAGE.SET_TOKEN('CODE',
632: l_msg_token,
633: FALSE);
634: IF FND_API.To_Boolean(p_called_by_form) THEN
635: APP_EXCEPTION.Raise_Exception;
633: FALSE);
634: IF FND_API.To_Boolean(p_called_by_form) THEN
635: APP_EXCEPTION.Raise_Exception;
636: ELSE
637: x_msg_data := FND_MESSAGE.Get;
638: END IF;
639:
640: WHEN Row_Already_Locked_Error THEN
641: ROLLBACK TO SAVEPOINT Lock_Row;
640: WHEN Row_Already_Locked_Error THEN
641: ROLLBACK TO SAVEPOINT Lock_Row;
642: x_return_status := 'E';
643: x_oracle_error := APP_EXCEPTION.Get_Code;
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_ROW_IS_LOCKED');
646: IF FND_API.To_Boolean(p_called_by_form) THEN
647: APP_EXCEPTION.Raise_Exception;
648: ELSE
645: 'GR_ROW_IS_LOCKED');
646: IF FND_API.To_Boolean(p_called_by_form) THEN
647: APP_EXCEPTION.Raise_Exception;
648: ELSE
649: x_msg_data := FND_MESSAGE.Get;
650: END IF;
651:
652: WHEN OTHERS THEN
653: ROLLBACK TO SAVEPOINT Lock_Row;
653: ROLLBACK TO SAVEPOINT Lock_Row;
654: x_return_status := 'U';
655: x_oracle_error := SQLCODE;
656: l_msg_data := SUBSTR(SQLERRM, 1, 200);
657: FND_MESSAGE.SET_NAME('GR',
658: 'GR_UNEXPECTED_ERROR');
659: FND_MESSAGE.SET_TOKEN('TEXT',
660: l_msg_token,
661: FALSE);
655: x_oracle_error := SQLCODE;
656: l_msg_data := SUBSTR(SQLERRM, 1, 200);
657: FND_MESSAGE.SET_NAME('GR',
658: 'GR_UNEXPECTED_ERROR');
659: FND_MESSAGE.SET_TOKEN('TEXT',
660: l_msg_token,
661: FALSE);
662: IF FND_API.To_Boolean(p_called_by_form) THEN
663: APP_EXCEPTION.Raise_Exception;
661: FALSE);
662: IF FND_API.To_Boolean(p_called_by_form) THEN
663: APP_EXCEPTION.Raise_Exception;
664: ELSE
665: x_msg_data := FND_MESSAGE.Get;
666: END IF;
667:
668: END Lock_Row;
669:
752: x_oracle_error := l_oracle_error;
753: IF FND_API.To_Boolean(p_called_by_form) THEN
754: APP_EXCEPTION.Raise_Exception;
755: ELSE
756: x_msg_data := FND_MESSAGE.Get;
757: END IF;
758:
759: WHEN Row_Missing_Error THEN
760: ROLLBACK TO SAVEPOINT Delete_Row;
759: WHEN Row_Missing_Error THEN
760: ROLLBACK TO SAVEPOINT Delete_Row;
761: x_return_status := 'E';
762: x_oracle_error := APP_EXCEPTION.Get_Code;
763: FND_MESSAGE.SET_NAME('GR',
764: 'GR_RECORD_NOT_FOUND');
765: FND_MESSAGE.SET_TOKEN('CODE',
766: l_msg_token,
767: FALSE);
761: x_return_status := 'E';
762: x_oracle_error := APP_EXCEPTION.Get_Code;
763: FND_MESSAGE.SET_NAME('GR',
764: 'GR_RECORD_NOT_FOUND');
765: FND_MESSAGE.SET_TOKEN('CODE',
766: l_msg_token,
767: FALSE);
768: IF FND_API.To_Boolean(p_called_by_form) THEN
769: APP_EXCEPTION.Raise_Exception;
767: FALSE);
768: IF FND_API.To_Boolean(p_called_by_form) THEN
769: APP_EXCEPTION.Raise_Exception;
770: ELSE
771: x_msg_data := FND_MESSAGE.Get;
772: END IF;
773:
774: WHEN OTHERS THEN
775: ROLLBACK TO SAVEPOINT Delete_Row;
775: ROLLBACK TO SAVEPOINT Delete_Row;
776: x_return_status := 'U';
777: x_oracle_error := SQLCODE;
778: l_msg_data := SUBSTR(SQLERRM, 1, 200);
779: FND_MESSAGE.SET_NAME('GR',
780: 'GR_UNEXPECTED_ERROR');
781: FND_MESSAGE.SET_TOKEN('TEXT',
782: l_msg_token,
783: FALSE);
777: x_oracle_error := SQLCODE;
778: l_msg_data := SUBSTR(SQLERRM, 1, 200);
779: FND_MESSAGE.SET_NAME('GR',
780: 'GR_UNEXPECTED_ERROR');
781: FND_MESSAGE.SET_TOKEN('TEXT',
782: l_msg_token,
783: FALSE);
784: IF FND_API.To_Boolean(p_called_by_form) THEN
785: APP_EXCEPTION.Raise_Exception;
783: FALSE);
784: IF FND_API.To_Boolean(p_called_by_form) THEN
785: APP_EXCEPTION.Raise_Exception;
786: ELSE
787: x_msg_data := FND_MESSAGE.Get;
788: END IF;
789:
790: END Delete_Row;
791:
833: ROLLBACK TO SAVEPOINT Delete_Rows;
834: x_return_status := 'U';
835: x_oracle_error := SQLCODE;
836: l_msg_data := SUBSTR(SQLERRM, 1, 200);
837: FND_MESSAGE.SET_NAME('GR',
838: 'GR_UNEXPECTED_ERROR');
839: FND_MESSAGE.SET_TOKEN('TEXT',
840: l_msg_token,
841: FALSE);
835: x_oracle_error := SQLCODE;
836: l_msg_data := SUBSTR(SQLERRM, 1, 200);
837: FND_MESSAGE.SET_NAME('GR',
838: 'GR_UNEXPECTED_ERROR');
839: FND_MESSAGE.SET_TOKEN('TEXT',
840: l_msg_token,
841: FALSE);
842: IF FND_API.To_Boolean(p_called_by_form) THEN
843: APP_EXCEPTION.Raise_Exception;
841: FALSE);
842: IF FND_API.To_Boolean(p_called_by_form) THEN
843: APP_EXCEPTION.Raise_Exception;
844: ELSE
845: x_msg_data := FND_MESSAGE.Get;
846: END IF;
847:
848: END Delete_Rows;
849:
897: IF c_get_language%NOTFOUND THEN
898: l_msg_token := l_language_code;
899: x_return_status := 'E';
900: x_oracle_error := APP_EXCEPTION.Get_Code;
901: FND_MESSAGE.SET_NAME('GR',
902: 'GR_RECORD_NOT_FOUND');
903: FND_MESSAGE.SET_TOKEN('CODE',
904: l_msg_token,
905: FALSE);
899: x_return_status := 'E';
900: x_oracle_error := APP_EXCEPTION.Get_Code;
901: FND_MESSAGE.SET_NAME('GR',
902: 'GR_RECORD_NOT_FOUND');
903: FND_MESSAGE.SET_TOKEN('CODE',
904: l_msg_token,
905: FALSE);
906: l_msg_data := FND_MESSAGE.Get;
907: END IF;
902: 'GR_RECORD_NOT_FOUND');
903: FND_MESSAGE.SET_TOKEN('CODE',
904: l_msg_token,
905: FALSE);
906: l_msg_data := FND_MESSAGE.Get;
907: END IF;
908: CLOSE c_get_language;
909:
910: l_language_code := p_source_lang;
913: IF c_get_language%NOTFOUND THEN
914: l_msg_token := l_language_code;
915: x_return_status := 'E';
916: x_oracle_error := APP_EXCEPTION.Get_Code;
917: FND_MESSAGE.SET_NAME('GR',
918: 'GR_RECORD_NOT_FOUND');
919: FND_MESSAGE.SET_TOKEN('CODE',
920: l_msg_token,
921: FALSE);
915: x_return_status := 'E';
916: x_oracle_error := APP_EXCEPTION.Get_Code;
917: FND_MESSAGE.SET_NAME('GR',
918: 'GR_RECORD_NOT_FOUND');
919: FND_MESSAGE.SET_TOKEN('CODE',
920: l_msg_token,
921: FALSE);
922: l_msg_data := FND_MESSAGE.Get;
923: END IF;
918: 'GR_RECORD_NOT_FOUND');
919: FND_MESSAGE.SET_TOKEN('CODE',
920: l_msg_token,
921: FALSE);
922: l_msg_data := FND_MESSAGE.Get;
923: END IF;
924: CLOSE c_get_language;
925:
926: IF x_return_status <> 'S' THEN
933: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
934: x_return_status := 'U';
935: x_oracle_error := SQLCODE;
936: l_msg_data := SUBSTR(SQLERRM, 1, 200);
937: FND_MESSAGE.SET_NAME('GR',
938: 'GR_UNEXPECTED_ERROR');
939: FND_MESSAGE.SET_TOKEN('TEXT',
940: l_msg_token,
941: FALSE);
935: x_oracle_error := SQLCODE;
936: l_msg_data := SUBSTR(SQLERRM, 1, 200);
937: FND_MESSAGE.SET_NAME('GR',
938: 'GR_UNEXPECTED_ERROR');
939: FND_MESSAGE.SET_TOKEN('TEXT',
940: l_msg_token,
941: FALSE);
942: x_msg_data := FND_MESSAGE.Get;
943:
938: 'GR_UNEXPECTED_ERROR');
939: FND_MESSAGE.SET_TOKEN('TEXT',
940: l_msg_token,
941: FALSE);
942: x_msg_data := FND_MESSAGE.Get;
943:
944: END Check_Foreign_Keys;
945:
946: PROCEDURE Check_Integrity
1002:
1003: WHEN Installed_Language_Error THEN
1004: ROLLBACK TO SAVEPOINT Check_Integrity;
1005: x_return_status := 'E';
1006: FND_MESSAGE.SET_NAME('GR',
1007: 'GR_INSTALLED_LANG');
1008: FND_MESSAGE.SET_TOKEN('CODE',
1009: p_language,
1010: FALSE);
1004: ROLLBACK TO SAVEPOINT Check_Integrity;
1005: x_return_status := 'E';
1006: FND_MESSAGE.SET_NAME('GR',
1007: 'GR_INSTALLED_LANG');
1008: FND_MESSAGE.SET_TOKEN('CODE',
1009: p_language,
1010: FALSE);
1011: IF FND_API.To_Boolean(p_called_by_form) THEN
1012: APP_EXCEPTION.Raise_Exception;
1010: FALSE);
1011: IF FND_API.To_Boolean(p_called_by_form) THEN
1012: APP_EXCEPTION.Raise_Exception;
1013: ELSE
1014: x_msg_data := FND_MESSAGE.Get;
1015: END IF;
1016:
1017: WHEN OTHERS THEN
1018: ROLLBACK TO SAVEPOINT Check_Integrity;
1018: ROLLBACK TO SAVEPOINT Check_Integrity;
1019: x_return_status := 'U';
1020: x_oracle_error := SQLCODE;
1021: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1022: FND_MESSAGE.SET_NAME('GR',
1023: 'GR_UNEXPECTED_ERROR');
1024: FND_MESSAGE.SET_TOKEN('TEXT',
1025: l_msg_data,
1026: FALSE);
1020: x_oracle_error := SQLCODE;
1021: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1022: FND_MESSAGE.SET_NAME('GR',
1023: 'GR_UNEXPECTED_ERROR');
1024: FND_MESSAGE.SET_TOKEN('TEXT',
1025: l_msg_data,
1026: FALSE);
1027: IF FND_API.To_Boolean(p_called_by_form) THEN
1028: APP_EXCEPTION.Raise_Exception;
1026: FALSE);
1027: IF FND_API.To_Boolean(p_called_by_form) THEN
1028: APP_EXCEPTION.Raise_Exception;
1029: ELSE
1030: x_msg_data := FND_MESSAGE.Get;
1031: END IF;
1032:
1033: END Check_Integrity;
1034:
1080: EXCEPTION
1081:
1082: WHEN Others THEN
1083: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1084: FND_MESSAGE.SET_NAME('GR',
1085: 'GR_UNEXPECTED_ERROR');
1086: FND_MESSAGE.SET_TOKEN('TEXT',
1087: l_msg_data,
1088: FALSE);
1082: WHEN Others THEN
1083: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1084: FND_MESSAGE.SET_NAME('GR',
1085: 'GR_UNEXPECTED_ERROR');
1086: FND_MESSAGE.SET_TOKEN('TEXT',
1087: l_msg_data,
1088: FALSE);
1089: IF FND_API.To_Boolean(p_called_by_form) THEN
1090: APP_EXCEPTION.Raise_Exception;