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;
139: ELSE
140: x_msg_data := FND_MESSAGE.Get;
141: END IF;
142:
142:
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,
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;
154: ELSE
155: x_msg_data := FND_MESSAGE.Get;
156: END IF;
157:
157:
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,
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;
169: ELSE
170: x_msg_data := FND_MESSAGE.Get;
171: END IF;
172:
172:
173: WHEN OTHERS THEN
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',
173: WHEN OTHERS THEN
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,
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;
185: ELSE
186: x_msg_data := FND_MESSAGE.Get;
187: END IF;
188:
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;
284: ELSE
285: x_msg_data := FND_MESSAGE.Get;
286: END IF;
287:
287:
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,
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;
299: ELSE
300: x_msg_data := FND_MESSAGE.Get;
301: END IF;
302:
302:
303: WHEN OTHERS THEN
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',
303: WHEN OTHERS THEN
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,
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;
315: ELSE
316: x_msg_data := FND_MESSAGE.Get;
317: END IF;
318:
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;
400: ELSE
401: x_msg_data := FND_MESSAGE.Get;
402: END IF;
403:
403:
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;
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
413: x_msg_data := FND_MESSAGE.Get;
414: END IF;
415:
415:
416: WHEN OTHERS THEN
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',
416: WHEN OTHERS THEN
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,
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;
428: ELSE
429: x_msg_data := FND_MESSAGE.Get;
430: END IF;
431:
508: ROLLBACK TO SAVEPOINT Delete_Row;
509: x_return_status := l_return_status;
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:
516:
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,
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;
528: ELSE
529: x_msg_data := FND_MESSAGE.Get;
530: END IF;
531:
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');
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',
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,
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;
545: ELSE
546: x_msg_data := FND_MESSAGE.Get;
547: END IF;
548:
590:
591: WHEN OTHERS THEN
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',
591: WHEN OTHERS THEN
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,
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;
603: ELSE
604: x_msg_data := FND_MESSAGE.Get;
605: END IF;
606:
690: WHEN OTHERS THEN
691: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
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',
691: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
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,
749:
750: WHEN OTHERS THEN
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',
750: WHEN OTHERS THEN
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,
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;
762: ELSE
763: x_msg_data := FND_MESSAGE.Get;
764: END IF;
765:
805:
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,
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;
817: END IF;
818:
819: END Check_Primary_Key;
820: