131: WHEN Foreign_Key_Error THEN
132: ROLLBACK TO SAVEPOINT Insert_Row;
133: x_return_status := l_return_status;
134: x_oracle_error := l_oracle_error;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_FOREIGN_KEY_ERROR');
137: FND_MESSAGE.SET_TOKEN('TEXT',
138: l_msg_data,
139: FALSE);
133: x_return_status := l_return_status;
134: x_oracle_error := l_oracle_error;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_FOREIGN_KEY_ERROR');
137: FND_MESSAGE.SET_TOKEN('TEXT',
138: l_msg_data,
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
142: ELSE
143: x_msg_data := FND_MESSAGE.Get;
144: END IF;
145:
146: WHEN Item_Exists_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
147: ROLLBACK TO SAVEPOINT Insert_Row;
148: l_msg_token := p_label_code || ' ' || p_property_id;
149: x_return_status := 'E';
150: x_oracle_error := APP_EXCEPTION.Get_Code;
151: FND_MESSAGE.SET_NAME('GR',
152: 'GR_RECORD_EXISTS');
153: FND_MESSAGE.SET_TOKEN('CODE',
154: l_msg_token,
155: FALSE);
149: x_return_status := 'E';
150: x_oracle_error := APP_EXCEPTION.Get_Code;
151: FND_MESSAGE.SET_NAME('GR',
152: 'GR_RECORD_EXISTS');
153: FND_MESSAGE.SET_TOKEN('CODE',
154: l_msg_token,
155: FALSE);
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
155: FALSE);
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
158: ELSE
159: x_msg_data := FND_MESSAGE.Get;
160: END IF;
161:
162: WHEN Row_Missing_Error THEN
163: ROLLBACK TO SAVEPOINT Insert_Row;
163: ROLLBACK TO SAVEPOINT Insert_Row;
164: l_msg_token := p_label_code || ' ' || p_property_id;
165: x_return_status := 'E';
166: x_oracle_error := APP_EXCEPTION.Get_Code;
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_NO_RECORD_INSERTED');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: l_msg_token,
171: FALSE);
165: x_return_status := 'E';
166: x_oracle_error := APP_EXCEPTION.Get_Code;
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_NO_RECORD_INSERTED');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: l_msg_token,
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
174: ELSE
175: x_msg_data := FND_MESSAGE.Get;
176: END IF;
177:
178: WHEN OTHERS THEN
179: ROLLBACK TO SAVEPOINT Insert_Row;
180: l_msg_token := p_label_code || ' ' || p_property_id;
181: x_return_status := 'U';
182: x_oracle_error := SQLCODE;
183: l_msg_data := SUBSTR(SQLERRM, 1, 200);
184: FND_MESSAGE.SET_NAME('GR',
185: 'GR_UNEXPECTED_ERROR');
186: FND_MESSAGE.SET_TOKEN('TEXT',
187: l_msg_token||sqlerrm,
188: FALSE);
182: x_oracle_error := SQLCODE;
183: l_msg_data := SUBSTR(SQLERRM, 1, 200);
184: FND_MESSAGE.SET_NAME('GR',
185: 'GR_UNEXPECTED_ERROR');
186: FND_MESSAGE.SET_TOKEN('TEXT',
187: l_msg_token||sqlerrm,
188: FALSE);
189: IF FND_API.To_Boolean(p_called_by_form) THEN
190: APP_EXCEPTION.Raise_Exception;
188: FALSE);
189: IF FND_API.To_Boolean(p_called_by_form) THEN
190: APP_EXCEPTION.Raise_Exception;
191: ELSE
192: x_msg_data := FND_MESSAGE.Get;
193: END IF;
194:
195: END Insert_Row;
196:
278: WHEN Foreign_Key_Error THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := l_return_status;
281: x_oracle_error := l_oracle_error;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_FOREIGN_KEY_ERROR');
284: FND_MESSAGE.SET_TOKEN('TEXT',
285: l_msg_data,
286: FALSE);
280: x_return_status := l_return_status;
281: x_oracle_error := l_oracle_error;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_FOREIGN_KEY_ERROR');
284: FND_MESSAGE.SET_TOKEN('TEXT',
285: l_msg_data,
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
289: ELSE
290: x_msg_data := FND_MESSAGE.Get;
291: END IF;
292:
293: WHEN Row_Missing_Error THEN
294: ROLLBACK TO SAVEPOINT Update_Row;
293: WHEN Row_Missing_Error THEN
294: ROLLBACK TO SAVEPOINT Update_Row;
295: x_return_status := 'E';
296: x_oracle_error := APP_EXCEPTION.Get_Code;
297: FND_MESSAGE.SET_NAME('GR',
298: 'GR_NO_RECORD_INSERTED');
299: FND_MESSAGE.SET_TOKEN('CODE',
300: l_msg_token,
301: FALSE);
295: x_return_status := 'E';
296: x_oracle_error := APP_EXCEPTION.Get_Code;
297: FND_MESSAGE.SET_NAME('GR',
298: 'GR_NO_RECORD_INSERTED');
299: FND_MESSAGE.SET_TOKEN('CODE',
300: l_msg_token,
301: FALSE);
302: IF FND_API.To_Boolean(p_called_by_form) THEN
303: APP_EXCEPTION.Raise_Exception;
301: FALSE);
302: IF FND_API.To_Boolean(p_called_by_form) THEN
303: APP_EXCEPTION.Raise_Exception;
304: ELSE
305: x_msg_data := FND_MESSAGE.Get;
306: END IF;
307:
308: WHEN OTHERS THEN
309: ROLLBACK TO SAVEPOINT Update_Row;
309: ROLLBACK TO SAVEPOINT Update_Row;
310: x_return_status := 'U';
311: x_oracle_error := SQLCODE;
312: l_msg_data := SUBSTR(SQLERRM, 1, 200);
313: FND_MESSAGE.SET_NAME('GR',
314: 'GR_UNEXPECTED_ERROR');
315: FND_MESSAGE.SET_TOKEN('TEXT',
316: l_msg_token||sqlerrm,
317: FALSE);
311: x_oracle_error := SQLCODE;
312: l_msg_data := SUBSTR(SQLERRM, 1, 200);
313: FND_MESSAGE.SET_NAME('GR',
314: 'GR_UNEXPECTED_ERROR');
315: FND_MESSAGE.SET_TOKEN('TEXT',
316: l_msg_token||sqlerrm,
317: FALSE);
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;
317: FALSE);
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;
320: ELSE
321: x_msg_data := FND_MESSAGE.Get;
322: END IF;
323:
324: END Update_Row;
325:
396:
397: WHEN No_Data_Found_Error THEN
398: ROLLBACK TO SAVEPOINT Lock_Row;
399: x_return_status := 'E';
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_RECORD_NOT_FOUND');
402: FND_MESSAGE.SET_TOKEN('CODE',
403: l_msg_token,
404: FALSE);
398: ROLLBACK TO SAVEPOINT Lock_Row;
399: x_return_status := 'E';
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_RECORD_NOT_FOUND');
402: FND_MESSAGE.SET_TOKEN('CODE',
403: l_msg_token,
404: FALSE);
405: IF FND_API.To_Boolean(p_called_by_form) THEN
406: APP_EXCEPTION.Raise_Exception;
404: FALSE);
405: IF FND_API.To_Boolean(p_called_by_form) THEN
406: APP_EXCEPTION.Raise_Exception;
407: ELSE
408: x_msg_data := FND_MESSAGE.Get;
409: END IF;
410:
411: WHEN Row_Already_Locked_Error THEN
412: ROLLBACK TO SAVEPOINT Lock_Row;
411: WHEN Row_Already_Locked_Error THEN
412: ROLLBACK TO SAVEPOINT Lock_Row;
413: x_return_status := 'E';
414: x_oracle_error := APP_EXCEPTION.Get_Code;
415: FND_MESSAGE.SET_NAME('GR',
416: 'GR_ROW_IS_LOCKED');
417: IF FND_API.To_Boolean(p_called_by_form) THEN
418: APP_EXCEPTION.Raise_Exception;
419: ELSE
416: 'GR_ROW_IS_LOCKED');
417: IF FND_API.To_Boolean(p_called_by_form) THEN
418: APP_EXCEPTION.Raise_Exception;
419: ELSE
420: x_msg_data := FND_MESSAGE.Get;
421: END IF;
422:
423: WHEN OTHERS THEN
424: ROLLBACK TO SAVEPOINT Lock_Row;
424: ROLLBACK TO SAVEPOINT Lock_Row;
425: x_return_status := 'U';
426: x_oracle_error := SQLCODE;
427: l_msg_data := SUBSTR(SQLERRM, 1, 200);
428: FND_MESSAGE.SET_NAME('GR',
429: 'GR_UNEXPECTED_ERROR');
430: FND_MESSAGE.SET_TOKEN('TEXT',
431: l_msg_token||sqlerrm,
432: FALSE);
426: x_oracle_error := SQLCODE;
427: l_msg_data := SUBSTR(SQLERRM, 1, 200);
428: FND_MESSAGE.SET_NAME('GR',
429: 'GR_UNEXPECTED_ERROR');
430: FND_MESSAGE.SET_TOKEN('TEXT',
431: l_msg_token||sqlerrm,
432: FALSE);
433: IF FND_API.To_Boolean(p_called_by_form) THEN
434: APP_EXCEPTION.Raise_Exception;
432: FALSE);
433: IF FND_API.To_Boolean(p_called_by_form) THEN
434: APP_EXCEPTION.Raise_Exception;
435: ELSE
436: x_msg_data := FND_MESSAGE.Get;
437: END IF;
438:
439: END Lock_Row;
440:
519: x_oracle_error := l_oracle_error;
520: IF FND_API.To_Boolean(p_called_by_form) THEN
521: APP_EXCEPTION.Raise_Exception;
522: ELSE
523: x_msg_data := FND_MESSAGE.Get;
524: END IF;
525:
526: WHEN Row_Missing_Error THEN
527: ROLLBACK TO SAVEPOINT Delete_Row;
526: WHEN Row_Missing_Error THEN
527: ROLLBACK TO SAVEPOINT Delete_Row;
528: x_return_status := 'E';
529: x_oracle_error := APP_EXCEPTION.Get_Code;
530: FND_MESSAGE.SET_NAME('GR',
531: 'GR_RECORD_NOT_FOUND');
532: FND_MESSAGE.SET_TOKEN('CODE',
533: l_msg_token,
534: FALSE);
528: x_return_status := 'E';
529: x_oracle_error := APP_EXCEPTION.Get_Code;
530: FND_MESSAGE.SET_NAME('GR',
531: 'GR_RECORD_NOT_FOUND');
532: FND_MESSAGE.SET_TOKEN('CODE',
533: l_msg_token,
534: FALSE);
535: IF FND_API.To_Boolean(p_called_by_form) THEN
536: APP_EXCEPTION.Raise_Exception;
534: FALSE);
535: IF FND_API.To_Boolean(p_called_by_form) THEN
536: APP_EXCEPTION.Raise_Exception;
537: ELSE
538: x_msg_data := FND_MESSAGE.Get;
539: END IF;
540:
541: WHEN OTHERS THEN
542: ROLLBACK TO SAVEPOINT Delete_Row;
543: x_return_status := 'U';
544: x_oracle_error := SQLCODE;
545: l_msg_data := SUBSTR(SQLERRM, 1, 200);
546: --l_msg_data := APP_EXCEPTION.Get_Text;
547: FND_MESSAGE.SET_NAME('GR',
548: 'GR_UNEXPECTED_ERROR');
549: FND_MESSAGE.SET_TOKEN('TEXT',
550: l_msg_token||sqlerrm,
551: FALSE);
545: l_msg_data := SUBSTR(SQLERRM, 1, 200);
546: --l_msg_data := APP_EXCEPTION.Get_Text;
547: FND_MESSAGE.SET_NAME('GR',
548: 'GR_UNEXPECTED_ERROR');
549: FND_MESSAGE.SET_TOKEN('TEXT',
550: l_msg_token||sqlerrm,
551: FALSE);
552: IF FND_API.To_Boolean(p_called_by_form) THEN
553: APP_EXCEPTION.Raise_Exception;
551: FALSE);
552: IF FND_API.To_Boolean(p_called_by_form) THEN
553: APP_EXCEPTION.Raise_Exception;
554: ELSE
555: x_msg_data := FND_MESSAGE.Get;
556: END IF;
557:
558: END Delete_Row;
559: /*
630:
631: WHEN Null_Delete_Option_Error THEN
632: x_return_status := 'E';
633: x_oracle_error := APP_EXCEPTION.Get_Code;
634: FND_MESSAGE.SET_NAME('GR',
635: 'GR_NULL_VALUE');
636: FND_MESSAGE.SET_TOKEN('CODE',
637: l_msg_token,
638: FALSE);
632: x_return_status := 'E';
633: x_oracle_error := APP_EXCEPTION.Get_Code;
634: FND_MESSAGE.SET_NAME('GR',
635: 'GR_NULL_VALUE');
636: FND_MESSAGE.SET_TOKEN('CODE',
637: l_msg_token,
638: FALSE);
639: IF FND_API.To_Boolean(p_called_by_form) THEN
640: APP_EXCEPTION.Raise_Exception;
638: FALSE);
639: IF FND_API.To_Boolean(p_called_by_form) THEN
640: APP_EXCEPTION.Raise_Exception;
641: ELSE
642: x_msg_data := FND_MESSAGE.Get;
643: END IF;
644:
645: WHEN OTHERS THEN
646: ROLLBACK TO SAVEPOINT Delete_Rows;
646: ROLLBACK TO SAVEPOINT Delete_Rows;
647: x_return_status := 'U';
648: x_oracle_error := SQLCODE;
649: l_msg_data := SUBSTR(SQLERRM, 1, 200);
650: FND_MESSAGE.SET_NAME('GR',
651: 'GR_UNEXPECTED_ERROR');
652: FND_MESSAGE.SET_TOKEN('TEXT',
653: l_msg_token||sqlerrm,
654: FALSE);
648: x_oracle_error := SQLCODE;
649: l_msg_data := SUBSTR(SQLERRM, 1, 200);
650: FND_MESSAGE.SET_NAME('GR',
651: 'GR_UNEXPECTED_ERROR');
652: FND_MESSAGE.SET_TOKEN('TEXT',
653: l_msg_token||sqlerrm,
654: FALSE);
655: IF FND_API.To_Boolean(p_called_by_form) THEN
656: APP_EXCEPTION.Raise_Exception;
654: FALSE);
655: IF FND_API.To_Boolean(p_called_by_form) THEN
656: APP_EXCEPTION.Raise_Exception;
657: ELSE
658: x_msg_data := FND_MESSAGE.Get;
659: END IF;
660:
661: END Delete_Rows;
662:
733: WHEN Row_Missing_Error THEN
734: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
735: x_return_status := 'E';
736: x_oracle_error := APP_EXCEPTION.Get_Code;
737: FND_MESSAGE.SET_NAME('GR',
738: 'GR_RECORD_NOT_FOUND');
739: FND_MESSAGE.SET_TOKEN('CODE',
740: l_msg_token,
741: FALSE);
735: x_return_status := 'E';
736: x_oracle_error := APP_EXCEPTION.Get_Code;
737: FND_MESSAGE.SET_NAME('GR',
738: 'GR_RECORD_NOT_FOUND');
739: FND_MESSAGE.SET_TOKEN('CODE',
740: l_msg_token,
741: FALSE);
742: x_msg_data := FND_MESSAGE.Get;
743:
738: 'GR_RECORD_NOT_FOUND');
739: FND_MESSAGE.SET_TOKEN('CODE',
740: l_msg_token,
741: FALSE);
742: x_msg_data := FND_MESSAGE.Get;
743:
744: WHEN OTHERS THEN
745: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
746: x_return_status := 'U';
745: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
746: x_return_status := 'U';
747: x_oracle_error := SQLCODE;
748: l_msg_data := SUBSTR(SQLERRM, 1, 200);
749: FND_MESSAGE.SET_NAME('GR',
750: 'GR_UNEXPECTED_ERROR');
751: FND_MESSAGE.SET_TOKEN('TEXT',
752: l_msg_token||sqlerrm,
753: FALSE);
747: x_oracle_error := SQLCODE;
748: l_msg_data := SUBSTR(SQLERRM, 1, 200);
749: FND_MESSAGE.SET_NAME('GR',
750: 'GR_UNEXPECTED_ERROR');
751: FND_MESSAGE.SET_TOKEN('TEXT',
752: l_msg_token||sqlerrm,
753: FALSE);
754: x_msg_data := FND_MESSAGE.Get;
755:
750: 'GR_UNEXPECTED_ERROR');
751: FND_MESSAGE.SET_TOKEN('TEXT',
752: l_msg_token||sqlerrm,
753: FALSE);
754: x_msg_data := FND_MESSAGE.Get;
755:
756: END Check_Foreign_Keys;
757:
758: PROCEDURE Check_Integrity
797: ROLLBACK TO SAVEPOINT Check_Integrity;
798: x_return_status := 'U';
799: x_oracle_error := SQLCODE;
800: l_msg_data := SUBSTR(SQLERRM, 1, 200);
801: FND_MESSAGE.SET_NAME('GR',
802: 'GR_UNEXPECTED_ERROR');
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
805: FALSE);
799: x_oracle_error := SQLCODE;
800: l_msg_data := SUBSTR(SQLERRM, 1, 200);
801: FND_MESSAGE.SET_NAME('GR',
802: 'GR_UNEXPECTED_ERROR');
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
805: FALSE);
806: x_msg_data := FND_MESSAGE.Get;
807: IF FND_API.To_Boolean(p_called_by_form) THEN
802: 'GR_UNEXPECTED_ERROR');
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
805: FALSE);
806: x_msg_data := FND_MESSAGE.Get;
807: IF FND_API.To_Boolean(p_called_by_form) THEN
808: APP_EXCEPTION.Raise_Exception;
809: END IF;
810:
859: EXCEPTION
860:
861: WHEN Others THEN
862: l_msg_data := SUBSTR(SQLERRM, 1, 200);
863: FND_MESSAGE.SET_NAME('GR',
864: 'GR_UNEXPECTED_ERROR');
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
861: WHEN Others THEN
862: l_msg_data := SUBSTR(SQLERRM, 1, 200);
863: FND_MESSAGE.SET_NAME('GR',
864: 'GR_UNEXPECTED_ERROR');
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
868: IF FND_API.To_Boolean(p_called_by_form) THEN
869: APP_EXCEPTION.Raise_Exception;