128: WHEN Foreign_Key_Error THEN
129: ROLLBACK TO SAVEPOINT Insert_Row;
130: x_return_status := l_return_status;
131: x_oracle_error := l_oracle_error;
132: FND_MESSAGE.SET_NAME('GR',
133: 'GR_FOREIGN_KEY_ERROR');
134: FND_MESSAGE.SET_TOKEN('TEXT',
135: l_msg_data,
136: FALSE);
130: x_return_status := l_return_status;
131: x_oracle_error := l_oracle_error;
132: FND_MESSAGE.SET_NAME('GR',
133: 'GR_FOREIGN_KEY_ERROR');
134: FND_MESSAGE.SET_TOKEN('TEXT',
135: l_msg_data,
136: FALSE);
137: IF FND_API.To_Boolean(p_called_by_form) THEN
138: APP_EXCEPTION.Raise_Exception;
136: FALSE);
137: IF FND_API.To_Boolean(p_called_by_form) THEN
138: APP_EXCEPTION.Raise_Exception;
139: ELSE
140: x_msg_data := FND_MESSAGE.Get;
141: END IF;
142:
143: WHEN Item_Exists_Error THEN
144: ROLLBACK TO SAVEPOINT Insert_Row;
143: WHEN Item_Exists_Error THEN
144: ROLLBACK TO SAVEPOINT Insert_Row;
145: x_return_status := 'E';
146: x_oracle_error := APP_EXCEPTION.Get_Code;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_RECORD_EXISTS');
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_safety_phrase_code,
151: FALSE);
145: x_return_status := 'E';
146: x_oracle_error := APP_EXCEPTION.Get_Code;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_RECORD_EXISTS');
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_safety_phrase_code,
151: FALSE);
152: IF FND_API.To_Boolean(p_called_by_form) THEN
153: APP_EXCEPTION.Raise_Exception;
151: FALSE);
152: IF FND_API.To_Boolean(p_called_by_form) THEN
153: APP_EXCEPTION.Raise_Exception;
154: ELSE
155: x_msg_data := FND_MESSAGE.Get;
156: END IF;
157:
158: WHEN Row_Missing_Error THEN
159: ROLLBACK TO SAVEPOINT Insert_Row;
158: WHEN Row_Missing_Error THEN
159: ROLLBACK TO SAVEPOINT Insert_Row;
160: x_return_status := 'E';
161: x_oracle_error := APP_EXCEPTION.Get_Code;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_NO_RECORD_INSERTED');
164: FND_MESSAGE.SET_TOKEN('CODE',
165: p_safety_phrase_code,
166: FALSE);
160: x_return_status := 'E';
161: x_oracle_error := APP_EXCEPTION.Get_Code;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_NO_RECORD_INSERTED');
164: FND_MESSAGE.SET_TOKEN('CODE',
165: p_safety_phrase_code,
166: FALSE);
167: IF FND_API.To_Boolean(p_called_by_form) THEN
168: APP_EXCEPTION.Raise_Exception;
166: FALSE);
167: IF FND_API.To_Boolean(p_called_by_form) THEN
168: APP_EXCEPTION.Raise_Exception;
169: ELSE
170: x_msg_data := FND_MESSAGE.Get;
171: END IF;
172:
173: WHEN OTHERS THEN
174: ROLLBACK TO SAVEPOINT Insert_Row;
174: ROLLBACK TO SAVEPOINT Insert_Row;
175: x_return_status := 'U';
176: x_oracle_error := APP_EXCEPTION.Get_Code;
177: l_msg_data := APP_EXCEPTION.Get_Text;
178: FND_MESSAGE.SET_NAME('GR',
179: 'GR_UNEXPECTED_ERROR');
180: FND_MESSAGE.SET_TOKEN('TEXT',
181: l_msg_data,
182: FALSE);
176: x_oracle_error := APP_EXCEPTION.Get_Code;
177: l_msg_data := APP_EXCEPTION.Get_Text;
178: FND_MESSAGE.SET_NAME('GR',
179: 'GR_UNEXPECTED_ERROR');
180: FND_MESSAGE.SET_TOKEN('TEXT',
181: l_msg_data,
182: FALSE);
183: IF FND_API.To_Boolean(p_called_by_form) THEN
184: APP_EXCEPTION.Raise_Exception;
182: FALSE);
183: IF FND_API.To_Boolean(p_called_by_form) THEN
184: APP_EXCEPTION.Raise_Exception;
185: ELSE
186: x_msg_data := FND_MESSAGE.Get;
187: END IF;
188:
189: END Insert_Row;
190:
273: WHEN Foreign_Key_Error THEN
274: ROLLBACK TO SAVEPOINT Update_Row;
275: x_return_status := l_return_status;
276: x_oracle_error := l_oracle_error;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_FOREIGN_KEY_ERROR');
279: FND_MESSAGE.SET_TOKEN('TEXT',
280: l_msg_data,
281: FALSE);
275: x_return_status := l_return_status;
276: x_oracle_error := l_oracle_error;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_FOREIGN_KEY_ERROR');
279: FND_MESSAGE.SET_TOKEN('TEXT',
280: l_msg_data,
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
284: ELSE
285: x_msg_data := FND_MESSAGE.Get;
286: END IF;
287:
288: WHEN Row_Missing_Error THEN
289: ROLLBACK TO SAVEPOINT Update_Row;
288: WHEN Row_Missing_Error THEN
289: ROLLBACK TO SAVEPOINT Update_Row;
290: x_return_status := 'E';
291: x_oracle_error := APP_EXCEPTION.Get_Code;
292: FND_MESSAGE.SET_NAME('GR',
293: 'GR_NO_RECORD_INSERTED');
294: FND_MESSAGE.SET_TOKEN('CODE',
295: p_safety_phrase_code,
296: FALSE);
290: x_return_status := 'E';
291: x_oracle_error := APP_EXCEPTION.Get_Code;
292: FND_MESSAGE.SET_NAME('GR',
293: 'GR_NO_RECORD_INSERTED');
294: FND_MESSAGE.SET_TOKEN('CODE',
295: p_safety_phrase_code,
296: FALSE);
297: IF FND_API.To_Boolean(p_called_by_form) THEN
298: APP_EXCEPTION.Raise_Exception;
296: FALSE);
297: IF FND_API.To_Boolean(p_called_by_form) THEN
298: APP_EXCEPTION.Raise_Exception;
299: ELSE
300: x_msg_data := FND_MESSAGE.Get;
301: END IF;
302:
303: WHEN OTHERS THEN
304: ROLLBACK TO SAVEPOINT Update_Row;
304: ROLLBACK TO SAVEPOINT Update_Row;
305: x_return_status := 'U';
306: x_oracle_error := APP_EXCEPTION.Get_Code;
307: l_msg_data := APP_EXCEPTION.Get_Text;
308: FND_MESSAGE.SET_NAME('GR',
309: 'GR_UNEXPECTED_ERROR');
310: FND_MESSAGE.SET_TOKEN('TEXT',
311: l_msg_data,
312: FALSE);
306: x_oracle_error := APP_EXCEPTION.Get_Code;
307: l_msg_data := APP_EXCEPTION.Get_Text;
308: FND_MESSAGE.SET_NAME('GR',
309: 'GR_UNEXPECTED_ERROR');
310: FND_MESSAGE.SET_TOKEN('TEXT',
311: l_msg_data,
312: FALSE);
313: IF FND_API.To_Boolean(p_called_by_form) THEN
314: APP_EXCEPTION.Raise_Exception;
312: FALSE);
313: IF FND_API.To_Boolean(p_called_by_form) THEN
314: APP_EXCEPTION.Raise_Exception;
315: ELSE
316: x_msg_data := FND_MESSAGE.Get;
317: END IF;
318:
319: END Update_Row;
320:
389:
390: WHEN No_Data_Found_Error THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'E';
393: FND_MESSAGE.SET_NAME('GR',
394: 'GR_RECORD_NOT_FOUND');
395: FND_MESSAGE.SET_TOKEN('CODE',
396: p_safety_phrase_code,
397: FALSE);
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'E';
393: FND_MESSAGE.SET_NAME('GR',
394: 'GR_RECORD_NOT_FOUND');
395: FND_MESSAGE.SET_TOKEN('CODE',
396: p_safety_phrase_code,
397: FALSE);
398: IF FND_API.To_Boolean(p_called_by_form) THEN
399: APP_EXCEPTION.Raise_Exception;
397: FALSE);
398: IF FND_API.To_Boolean(p_called_by_form) THEN
399: APP_EXCEPTION.Raise_Exception;
400: ELSE
401: x_msg_data := FND_MESSAGE.Get;
402: END IF;
403:
404: WHEN Row_Already_Locked_Error THEN
405: ROLLBACK TO SAVEPOINT Lock_Row;
404: WHEN Row_Already_Locked_Error THEN
405: ROLLBACK TO SAVEPOINT Lock_Row;
406: x_return_status := 'E';
407: x_oracle_error := APP_EXCEPTION.Get_Code;
408: FND_MESSAGE.SET_NAME('GR',
409: 'GR_ROW_IS_LOCKED');
410: IF FND_API.To_Boolean(p_called_by_form) THEN
411: APP_EXCEPTION.Raise_Exception;
412: ELSE
409: 'GR_ROW_IS_LOCKED');
410: IF FND_API.To_Boolean(p_called_by_form) THEN
411: APP_EXCEPTION.Raise_Exception;
412: ELSE
413: x_msg_data := FND_MESSAGE.Get;
414: END IF;
415:
416: WHEN OTHERS THEN
417: ROLLBACK TO SAVEPOINT Lock_Row;
417: ROLLBACK TO SAVEPOINT Lock_Row;
418: x_return_status := 'U';
419: x_oracle_error := APP_EXCEPTION.Get_Code;
420: l_msg_data := APP_EXCEPTION.Get_Text;
421: FND_MESSAGE.SET_NAME('GR',
422: 'GR_UNEXPECTED_ERROR');
423: FND_MESSAGE.SET_TOKEN('TEXT',
424: l_msg_data,
425: FALSE);
419: x_oracle_error := APP_EXCEPTION.Get_Code;
420: l_msg_data := APP_EXCEPTION.Get_Text;
421: FND_MESSAGE.SET_NAME('GR',
422: 'GR_UNEXPECTED_ERROR');
423: FND_MESSAGE.SET_TOKEN('TEXT',
424: l_msg_data,
425: FALSE);
426: IF FND_API.To_Boolean(p_called_by_form) THEN
427: APP_EXCEPTION.Raise_Exception;
425: FALSE);
426: IF FND_API.To_Boolean(p_called_by_form) THEN
427: APP_EXCEPTION.Raise_Exception;
428: ELSE
429: x_msg_data := FND_MESSAGE.Get;
430: END IF;
431:
432: END Lock_Row;
433:
510: x_oracle_error := l_oracle_error;
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;
513: ELSE
514: x_msg_data := FND_MESSAGE.Get;
515: END IF;
516:
517: WHEN Row_Missing_Error THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;
517: WHEN Row_Missing_Error THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;
519: x_return_status := 'E';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: FND_MESSAGE.SET_NAME('GR',
522: 'GR_RECORD_NOT_FOUND');
523: FND_MESSAGE.SET_TOKEN('CODE',
524: p_safety_phrase_code,
525: FALSE);
519: x_return_status := 'E';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: FND_MESSAGE.SET_NAME('GR',
522: 'GR_RECORD_NOT_FOUND');
523: FND_MESSAGE.SET_TOKEN('CODE',
524: p_safety_phrase_code,
525: FALSE);
526: IF FND_API.To_Boolean(p_called_by_form) THEN
527: APP_EXCEPTION.Raise_Exception;
525: FALSE);
526: IF FND_API.To_Boolean(p_called_by_form) THEN
527: APP_EXCEPTION.Raise_Exception;
528: ELSE
529: x_msg_data := FND_MESSAGE.Get;
530: END IF;
531:
532: WHEN OTHERS THEN
533: ROLLBACK TO SAVEPOINT Delete_Row;
534: x_return_status := 'U';
535: x_oracle_error := APP_EXCEPTION.Get_Code;
536: l_msg_data := APP_EXCEPTION.Get_Text;
537: l_msg_data := APP_EXCEPTION.Get_Text;
538: FND_MESSAGE.SET_NAME('GR',
539: 'GR_UNEXPECTED_ERROR');
540: FND_MESSAGE.SET_TOKEN('TEXT',
541: l_msg_data,
542: FALSE);
536: l_msg_data := APP_EXCEPTION.Get_Text;
537: l_msg_data := APP_EXCEPTION.Get_Text;
538: FND_MESSAGE.SET_NAME('GR',
539: 'GR_UNEXPECTED_ERROR');
540: FND_MESSAGE.SET_TOKEN('TEXT',
541: l_msg_data,
542: FALSE);
543: IF FND_API.To_Boolean(p_called_by_form) THEN
544: APP_EXCEPTION.Raise_Exception;
542: FALSE);
543: IF FND_API.To_Boolean(p_called_by_form) THEN
544: APP_EXCEPTION.Raise_Exception;
545: ELSE
546: x_msg_data := FND_MESSAGE.Get;
547: END IF;
548:
549: END Delete_Row;
550:
592: ROLLBACK TO SAVEPOINT Delete_Rows;
593: x_return_status := 'U';
594: x_oracle_error := APP_EXCEPTION.Get_Code;
595: l_msg_data := APP_EXCEPTION.Get_Text;
596: FND_MESSAGE.SET_NAME('GR',
597: 'GR_UNEXPECTED_ERROR');
598: FND_MESSAGE.SET_TOKEN('TEXT',
599: l_msg_token,
600: FALSE);
594: x_oracle_error := APP_EXCEPTION.Get_Code;
595: l_msg_data := APP_EXCEPTION.Get_Text;
596: FND_MESSAGE.SET_NAME('GR',
597: 'GR_UNEXPECTED_ERROR');
598: FND_MESSAGE.SET_TOKEN('TEXT',
599: l_msg_token,
600: FALSE);
601: IF FND_API.To_Boolean(p_called_by_form) THEN
602: APP_EXCEPTION.Raise_Exception;
600: FALSE);
601: IF FND_API.To_Boolean(p_called_by_form) THEN
602: APP_EXCEPTION.Raise_Exception;
603: ELSE
604: x_msg_data := FND_MESSAGE.Get;
605: END IF;
606:
607: END Delete_Rows;
608:
652: l_rowid,
653: l_key_exists);
654:
655: IF NOT FND_API.To_Boolean(l_key_exists) THEN
656: FND_MESSAGE.SET_NAME('GR',
657: 'GR_RECORD_NOT_FOUND');
658: FND_MESSAGE.SET_TOKEN('CODE',
659: l_safety_phrase,
660: FALSE);
654:
655: IF NOT FND_API.To_Boolean(l_key_exists) THEN
656: FND_MESSAGE.SET_NAME('GR',
657: 'GR_RECORD_NOT_FOUND');
658: FND_MESSAGE.SET_TOKEN('CODE',
659: l_safety_phrase,
660: FALSE);
661: l_msg_data := l_msg_data || FND_MESSAGE.Get;
662: x_return_status := 'E';
657: 'GR_RECORD_NOT_FOUND');
658: FND_MESSAGE.SET_TOKEN('CODE',
659: l_safety_phrase,
660: FALSE);
661: l_msg_data := l_msg_data || FND_MESSAGE.Get;
662: x_return_status := 'E';
663: END IF;
664:
665: /* Now check the combination phrase */
671: l_rowid,
672: l_key_exists);
673:
674: IF NOT FND_API.To_Boolean(l_key_exists) THEN
675: FND_MESSAGE.SET_NAME('GR',
676: 'GR_RECORD_NOT_FOUND');
677: FND_MESSAGE.SET_TOKEN('CODE',
678: l_safety_phrase,
679: FALSE);
673:
674: IF NOT FND_API.To_Boolean(l_key_exists) THEN
675: FND_MESSAGE.SET_NAME('GR',
676: 'GR_RECORD_NOT_FOUND');
677: FND_MESSAGE.SET_TOKEN('CODE',
678: l_safety_phrase,
679: FALSE);
680: l_msg_data := l_msg_data || FND_MESSAGE.Get;
681: x_return_status := 'E';
676: 'GR_RECORD_NOT_FOUND');
677: FND_MESSAGE.SET_TOKEN('CODE',
678: l_safety_phrase,
679: FALSE);
680: l_msg_data := l_msg_data || FND_MESSAGE.Get;
681: x_return_status := 'E';
682: END IF;
683:
684: IF x_return_status <> 'S' THEN
692:
693: x_return_status := 'U';
694: x_oracle_error := APP_EXCEPTION.Get_Code;
695: l_msg_data := APP_EXCEPTION.Get_Text;
696: FND_MESSAGE.SET_NAME('GR',
697: 'GR_UNEXPECTED_ERROR');
698: FND_MESSAGE.SET_TOKEN('TEXT',
699: l_msg_data,
700: FALSE);
694: x_oracle_error := APP_EXCEPTION.Get_Code;
695: l_msg_data := APP_EXCEPTION.Get_Text;
696: FND_MESSAGE.SET_NAME('GR',
697: 'GR_UNEXPECTED_ERROR');
698: FND_MESSAGE.SET_TOKEN('TEXT',
699: l_msg_data,
700: FALSE);
701: x_msg_data := FND_MESSAGE.Get;
702:
697: 'GR_UNEXPECTED_ERROR');
698: FND_MESSAGE.SET_TOKEN('TEXT',
699: l_msg_data,
700: FALSE);
701: x_msg_data := FND_MESSAGE.Get;
702:
703: END Check_Foreign_Keys;
704:
705: PROCEDURE Check_Integrity
751: ROLLBACK TO SAVEPOINT Check_Integrity;
752: x_return_status := 'U';
753: x_oracle_error := APP_EXCEPTION.Get_Code;
754: l_msg_data := APP_EXCEPTION.Get_Text;
755: FND_MESSAGE.SET_NAME('GR',
756: 'GR_UNEXPECTED_ERROR');
757: FND_MESSAGE.SET_TOKEN('TEXT',
758: l_msg_data,
759: FALSE);
753: x_oracle_error := APP_EXCEPTION.Get_Code;
754: l_msg_data := APP_EXCEPTION.Get_Text;
755: FND_MESSAGE.SET_NAME('GR',
756: 'GR_UNEXPECTED_ERROR');
757: FND_MESSAGE.SET_TOKEN('TEXT',
758: l_msg_data,
759: FALSE);
760: IF FND_API.To_Boolean(p_called_by_form) THEN
761: APP_EXCEPTION.Raise_Exception;
759: FALSE);
760: IF FND_API.To_Boolean(p_called_by_form) THEN
761: APP_EXCEPTION.Raise_Exception;
762: ELSE
763: x_msg_data := FND_MESSAGE.Get;
764: END IF;
765:
766: END Check_Integrity;
767:
806: EXCEPTION
807:
808: WHEN Others THEN
809: l_msg_data := APP_EXCEPTION.Get_Text;
810: FND_MESSAGE.SET_NAME('GR',
811: 'GR_UNEXPECTED_ERROR');
812: FND_MESSAGE.SET_TOKEN('TEXT',
813: l_msg_data,
814: FALSE);
808: WHEN Others THEN
809: l_msg_data := APP_EXCEPTION.Get_Text;
810: FND_MESSAGE.SET_NAME('GR',
811: 'GR_UNEXPECTED_ERROR');
812: FND_MESSAGE.SET_TOKEN('TEXT',
813: l_msg_data,
814: FALSE);
815: IF FND_API.To_Boolean(p_called_by_form) THEN
816: APP_EXCEPTION.Raise_Exception;