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;
131: ELSE
132: x_msg_data := FND_MESSAGE.Get;
133: END IF;
134:
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: x_return_status := 'E';
138: x_oracle_error := APP_EXCEPTION.Get_Code;
139: FND_MESSAGE.SET_NAME('GR',
140: 'GR_RECORD_EXISTS');
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_phrase_group_code || ' ' || p_phrase_code,
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_phrase_group_code || ' ' || p_phrase_code,
143: FALSE);
144: IF FND_API.To_Boolean(p_called_by_form) THEN
145: APP_EXCEPTION.Raise_Exception;
146: ELSE
147: x_msg_data := FND_MESSAGE.Get;
148: END IF;
149:
149:
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: x_return_status := 'E';
153: x_oracle_error := APP_EXCEPTION.Get_Code;
154: FND_MESSAGE.SET_NAME('GR',
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_phrase_group_code || ' ' || p_phrase_code,
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_phrase_group_code || ' ' || p_phrase_code,
158: FALSE);
159: IF FND_API.To_Boolean(p_called_by_form) THEN
160: APP_EXCEPTION.Raise_Exception;
161: ELSE
162: x_msg_data := FND_MESSAGE.Get;
163: END IF;
164:
164:
165: WHEN OTHERS THEN
166: ROLLBACK TO SAVEPOINT Insert_Row;
167: x_return_status := 'U';
168: x_oracle_error := APP_EXCEPTION.Get_Code;
169: l_msg_data := APP_EXCEPTION.Get_Text;
170: FND_MESSAGE.SET_NAME('GR',
171: 'GR_UNEXPECTED_ERROR');
172: FND_MESSAGE.SET_TOKEN('TEXT',
165: WHEN OTHERS THEN
166: ROLLBACK TO SAVEPOINT Insert_Row;
167: x_return_status := 'U';
168: x_oracle_error := APP_EXCEPTION.Get_Code;
169: l_msg_data := APP_EXCEPTION.Get_Text;
170: FND_MESSAGE.SET_NAME('GR',
171: 'GR_UNEXPECTED_ERROR');
172: FND_MESSAGE.SET_TOKEN('TEXT',
173: l_msg_data,
172: FND_MESSAGE.SET_TOKEN('TEXT',
173: l_msg_data,
174: FALSE);
175: IF FND_API.To_Boolean(p_called_by_form) THEN
176: APP_EXCEPTION.Raise_Exception;
177: ELSE
178: x_msg_data := FND_MESSAGE.Get;
179: END IF;
180:
268: FND_MESSAGE.SET_TOKEN('TEXT',
269: l_msg_data,
270: FALSE);
271: IF FND_API.To_Boolean(p_called_by_form) THEN
272: APP_EXCEPTION.Raise_Exception;
273: ELSE
274: x_msg_data := FND_MESSAGE.Get;
275: END IF;
276:
276:
277: WHEN Row_Missing_Error THEN
278: ROLLBACK TO SAVEPOINT Update_Row;
279: x_return_status := 'E';
280: x_oracle_error := APP_EXCEPTION.Get_Code;
281: FND_MESSAGE.SET_NAME('GR',
282: 'GR_NO_RECORD_INSERTED');
283: FND_MESSAGE.SET_TOKEN('CODE',
284: p_phrase_group_code || ' ' || p_phrase_code,
283: FND_MESSAGE.SET_TOKEN('CODE',
284: p_phrase_group_code || ' ' || p_phrase_code,
285: FALSE);
286: IF FND_API.To_Boolean(p_called_by_form) THEN
287: APP_EXCEPTION.Raise_Exception;
288: ELSE
289: x_msg_data := FND_MESSAGE.Get;
290: END IF;
291:
291:
292: WHEN OTHERS THEN
293: ROLLBACK TO SAVEPOINT Update_Row;
294: x_return_status := 'U';
295: x_oracle_error := APP_EXCEPTION.Get_Code;
296: l_msg_data := APP_EXCEPTION.Get_Text;
297: FND_MESSAGE.SET_NAME('GR',
298: 'GR_UNEXPECTED_ERROR');
299: FND_MESSAGE.SET_TOKEN('TEXT',
292: WHEN OTHERS THEN
293: ROLLBACK TO SAVEPOINT Update_Row;
294: x_return_status := 'U';
295: x_oracle_error := APP_EXCEPTION.Get_Code;
296: l_msg_data := APP_EXCEPTION.Get_Text;
297: FND_MESSAGE.SET_NAME('GR',
298: 'GR_UNEXPECTED_ERROR');
299: FND_MESSAGE.SET_TOKEN('TEXT',
300: l_msg_data,
299: FND_MESSAGE.SET_TOKEN('TEXT',
300: l_msg_data,
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:
385: FND_MESSAGE.SET_TOKEN('CODE',
386: p_phrase_group_code || ' ' || p_phrase_code,
387: FALSE);
388: IF FND_API.To_Boolean(p_called_by_form) THEN
389: APP_EXCEPTION.Raise_Exception;
390: ELSE
391: x_msg_data := FND_MESSAGE.Get;
392: END IF;
393:
396: X_return_status := 'E';
397: FND_MESSAGE.SET_NAME('FND',
398: 'FORM_RECORD_CHANGED');
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
404:
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
404:
405: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
406: ROLLBACK TO SAVEPOINT Lock_Row;
407: x_return_status := 'L';
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
404:
405: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
406: ROLLBACK TO SAVEPOINT Lock_Row;
407: x_return_status := 'L';
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
410: FND_MESSAGE.SET_NAME('GR',
411: 'GR_ROW_IS_LOCKED');
412: x_msg_data := FND_MESSAGE.Get;
414:
415: WHEN OTHERS THEN
416: ROLLBACK TO SAVEPOINT Lock_Row;
417: x_return_status := 'U';
418: x_oracle_error := APP_EXCEPTION.Get_Code;
419: l_msg_data := APP_EXCEPTION.Get_Text;
420: FND_MESSAGE.SET_NAME('GR',
421: 'GR_UNEXPECTED_ERROR');
422: FND_MESSAGE.SET_TOKEN('TEXT',
415: WHEN OTHERS THEN
416: ROLLBACK TO SAVEPOINT Lock_Row;
417: x_return_status := 'U';
418: x_oracle_error := APP_EXCEPTION.Get_Code;
419: l_msg_data := APP_EXCEPTION.Get_Text;
420: FND_MESSAGE.SET_NAME('GR',
421: 'GR_UNEXPECTED_ERROR');
422: FND_MESSAGE.SET_TOKEN('TEXT',
423: l_msg_data,
422: FND_MESSAGE.SET_TOKEN('TEXT',
423: l_msg_data,
424: FALSE);
425: IF FND_API.To_Boolean(p_called_by_form) THEN
426: APP_EXCEPTION.Raise_Exception;
427: ELSE
428: x_msg_data := FND_MESSAGE.Get;
429: END IF;
430:
505: ROLLBACK TO SAVEPOINT Delete_Row;
506: x_return_status := l_return_status;
507: x_oracle_error := l_oracle_error;
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
510: ELSE
511: x_msg_data := FND_MESSAGE.Get;
512: END IF;
513:
513:
514: WHEN Row_Missing_Error THEN
515: ROLLBACK TO SAVEPOINT Delete_Row;
516: x_return_status := 'E';
517: x_oracle_error := APP_EXCEPTION.Get_Code;
518: FND_MESSAGE.SET_NAME('GR',
519: 'GR_RECORD_NOT_FOUND');
520: FND_MESSAGE.SET_TOKEN('CODE',
521: p_phrase_group_code || ' ' || p_phrase_code,
520: FND_MESSAGE.SET_TOKEN('CODE',
521: p_phrase_group_code || ' ' || p_phrase_code,
522: FALSE);
523: IF FND_API.To_Boolean(p_called_by_form) THEN
524: APP_EXCEPTION.Raise_Exception;
525: ELSE
526: x_msg_data := FND_MESSAGE.Get;
527: END IF;
528:
528:
529: WHEN OTHERS THEN
530: ROLLBACK TO SAVEPOINT Delete_Row;
531: x_return_status := 'U';
532: x_oracle_error := APP_EXCEPTION.Get_Code;
533: l_msg_data := APP_EXCEPTION.Get_Text;
534: l_msg_data := APP_EXCEPTION.Get_Text;
535: FND_MESSAGE.SET_NAME('GR',
536: 'GR_UNEXPECTED_ERROR');
529: WHEN OTHERS THEN
530: ROLLBACK TO SAVEPOINT Delete_Row;
531: x_return_status := 'U';
532: x_oracle_error := APP_EXCEPTION.Get_Code;
533: l_msg_data := APP_EXCEPTION.Get_Text;
534: l_msg_data := APP_EXCEPTION.Get_Text;
535: FND_MESSAGE.SET_NAME('GR',
536: 'GR_UNEXPECTED_ERROR');
537: FND_MESSAGE.SET_TOKEN('TEXT',
530: ROLLBACK TO SAVEPOINT Delete_Row;
531: x_return_status := 'U';
532: x_oracle_error := APP_EXCEPTION.Get_Code;
533: l_msg_data := APP_EXCEPTION.Get_Text;
534: l_msg_data := APP_EXCEPTION.Get_Text;
535: FND_MESSAGE.SET_NAME('GR',
536: 'GR_UNEXPECTED_ERROR');
537: FND_MESSAGE.SET_TOKEN('TEXT',
538: l_msg_data,
537: FND_MESSAGE.SET_TOKEN('TEXT',
538: l_msg_data,
539: FALSE);
540: IF FND_API.To_Boolean(p_called_by_form) THEN
541: APP_EXCEPTION.Raise_Exception;
542: ELSE
543: x_msg_data := FND_MESSAGE.Get;
544: END IF;
545:
587:
588: WHEN OTHERS THEN
589: ROLLBACK TO SAVEPOINT Delete_Rows;
590: x_return_status := 'U';
591: x_oracle_error := APP_EXCEPTION.Get_Code;
592: l_msg_data := APP_EXCEPTION.Get_Text;
593: FND_MESSAGE.SET_NAME('GR',
594: 'GR_UNEXPECTED_ERROR');
595: FND_MESSAGE.SET_TOKEN('TEXT',
588: WHEN OTHERS THEN
589: ROLLBACK TO SAVEPOINT Delete_Rows;
590: x_return_status := 'U';
591: x_oracle_error := APP_EXCEPTION.Get_Code;
592: l_msg_data := APP_EXCEPTION.Get_Text;
593: FND_MESSAGE.SET_NAME('GR',
594: 'GR_UNEXPECTED_ERROR');
595: FND_MESSAGE.SET_TOKEN('TEXT',
596: l_msg_token,
595: FND_MESSAGE.SET_TOKEN('TEXT',
596: l_msg_token,
597: FALSE);
598: IF FND_API.To_Boolean(p_called_by_form) THEN
599: APP_EXCEPTION.Raise_Exception;
600: ELSE
601: x_msg_data := FND_MESSAGE.Get;
602: END IF;
603:
685:
686: WHEN OTHERS THEN
687: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
688: x_return_status := 'U';
689: x_oracle_error := APP_EXCEPTION.Get_Code;
690: l_msg_data := APP_EXCEPTION.Get_Text;
691: FND_MESSAGE.SET_NAME('GR',
692: 'GR_UNEXPECTED_ERROR');
693: FND_MESSAGE.SET_TOKEN('TEXT',
686: WHEN OTHERS THEN
687: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
688: x_return_status := 'U';
689: x_oracle_error := APP_EXCEPTION.Get_Code;
690: l_msg_data := APP_EXCEPTION.Get_Text;
691: FND_MESSAGE.SET_NAME('GR',
692: 'GR_UNEXPECTED_ERROR');
693: FND_MESSAGE.SET_TOKEN('TEXT',
694: l_msg_data,
744: FND_MESSAGE.SET_TOKEN('TEXT',
745: l_msg_data,
746: FALSE);
747: IF FND_API.To_Boolean(p_called_by_form) THEN
748: APP_EXCEPTION.Raise_Exception;
749: ELSE
750: x_msg_data := FND_MESSAGE.Get;
751: END IF;
752: END IF;
755:
756: WHEN OTHERS THEN
757: ROLLBACK TO SAVEPOINT Check_Integrity;
758: x_return_status := 'U';
759: x_oracle_error := APP_EXCEPTION.Get_Code;
760: l_msg_data := APP_EXCEPTION.Get_Text;
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_UNEXPECTED_ERROR');
763: FND_MESSAGE.SET_TOKEN('TEXT',
756: WHEN OTHERS THEN
757: ROLLBACK TO SAVEPOINT Check_Integrity;
758: x_return_status := 'U';
759: x_oracle_error := APP_EXCEPTION.Get_Code;
760: l_msg_data := APP_EXCEPTION.Get_Text;
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_UNEXPECTED_ERROR');
763: FND_MESSAGE.SET_TOKEN('TEXT',
764: l_msg_data,
763: FND_MESSAGE.SET_TOKEN('TEXT',
764: l_msg_data,
765: FALSE);
766: IF FND_API.To_Boolean(p_called_by_form) THEN
767: APP_EXCEPTION.Raise_Exception;
768: ELSE
769: x_msg_data := FND_MESSAGE.Get;
770: END IF;
771:
814:
815: EXCEPTION
816:
817: WHEN Others THEN
818: l_msg_data := APP_EXCEPTION.Get_Text;
819: FND_MESSAGE.SET_NAME('GR',
820: 'GR_UNEXPECTED_ERROR');
821: FND_MESSAGE.SET_TOKEN('TEXT',
822: l_msg_data,
821: FND_MESSAGE.SET_TOKEN('TEXT',
822: l_msg_data,
823: FALSE);
824: IF FND_API.To_Boolean(p_called_by_form) THEN
825: APP_EXCEPTION.Raise_Exception;
826: END IF;
827:
828: END Check_Primary_Key;
829: