133: FND_MESSAGE.SET_TOKEN('TEXT',
134: l_msg_data,
135: FALSE);
136: IF FND_API.To_Boolean(p_called_by_form) THEN
137: APP_EXCEPTION.Raise_Exception;
138: ELSE
139: x_msg_data := FND_MESSAGE.Get;
140: END IF;
141:
141:
142: WHEN Label_Exists_Error THEN
143: ROLLBACK TO SAVEPOINT Insert_Row;
144: x_return_status := 'E';
145: x_oracle_error := APP_EXCEPTION.Get_Code;
146: FND_MESSAGE.SET_NAME('GR',
147: 'GR_RECORD_EXISTS');
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_document_text_id || ' ' || p_text_line_number,
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_document_text_id || ' ' || p_text_line_number,
150: FALSE);
151: IF FND_API.To_Boolean(p_called_by_form) THEN
152: APP_EXCEPTION.Raise_Exception;
153: ELSE
154: x_msg_data := FND_MESSAGE.Get;
155: END IF;
156:
156:
157: WHEN Row_Missing_Error THEN
158: ROLLBACK TO SAVEPOINT Insert_Row;
159: x_return_status := 'E';
160: x_oracle_error := APP_EXCEPTION.Get_Code;
161: FND_MESSAGE.SET_NAME('GR',
162: 'GR_NO_RECORD_INSERTED');
163: FND_MESSAGE.SET_TOKEN('CODE',
164: p_document_text_id || ' ' || p_text_line_number,
163: FND_MESSAGE.SET_TOKEN('CODE',
164: p_document_text_id || ' ' || p_text_line_number,
165: FALSE);
166: IF FND_API.To_Boolean(p_called_by_form) THEN
167: APP_EXCEPTION.Raise_Exception;
168: ELSE
169: x_msg_data := FND_MESSAGE.Get;
170: END IF;
171:
171:
172: WHEN OTHERS THEN
173: ROLLBACK TO SAVEPOINT Insert_Row;
174: x_return_status := 'U';
175: x_oracle_error := APP_EXCEPTION.Get_Code;
176: l_msg_data := APP_EXCEPTION.Get_Text;
177: FND_MESSAGE.SET_NAME('GR',
178: 'GR_UNEXPECTED_ERROR');
179: FND_MESSAGE.SET_TOKEN('TEXT',
172: WHEN OTHERS THEN
173: ROLLBACK TO SAVEPOINT Insert_Row;
174: x_return_status := 'U';
175: x_oracle_error := APP_EXCEPTION.Get_Code;
176: l_msg_data := APP_EXCEPTION.Get_Text;
177: FND_MESSAGE.SET_NAME('GR',
178: 'GR_UNEXPECTED_ERROR');
179: FND_MESSAGE.SET_TOKEN('TEXT',
180: l_msg_data,
179: FND_MESSAGE.SET_TOKEN('TEXT',
180: l_msg_data,
181: FALSE);
182: IF FND_API.To_Boolean(p_called_by_form) THEN
183: APP_EXCEPTION.Raise_Exception;
184: ELSE
185: x_msg_data := FND_MESSAGE.Get;
186: END IF;
187:
281: FND_MESSAGE.SET_TOKEN('TEXT',
282: l_msg_data,
283: FALSE);
284: IF FND_API.To_Boolean(p_called_by_form) THEN
285: APP_EXCEPTION.Raise_Exception;
286: ELSE
287: x_msg_data := FND_MESSAGE.Get;
288: END IF;
289:
289:
290: WHEN Row_Missing_Error THEN
291: ROLLBACK TO SAVEPOINT Update_Row;
292: x_return_status := 'E';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: FND_MESSAGE.SET_NAME('GR',
295: 'GR_NO_RECORD_INSERTED');
296: FND_MESSAGE.SET_TOKEN('CODE',
297: p_document_text_id || ' ' || p_text_line_number,
296: FND_MESSAGE.SET_TOKEN('CODE',
297: p_document_text_id || ' ' || p_text_line_number,
298: FALSE);
299: IF FND_API.To_Boolean(p_called_by_form) THEN
300: APP_EXCEPTION.Raise_Exception;
301: ELSE
302: x_msg_data := FND_MESSAGE.Get;
303: END IF;
304:
304:
305: WHEN OTHERS THEN
306: ROLLBACK TO SAVEPOINT Update_Row;
307: x_return_status := 'U';
308: x_oracle_error := APP_EXCEPTION.Get_Code;
309: l_msg_data := APP_EXCEPTION.Get_Text;
310: FND_MESSAGE.SET_NAME('GR',
311: 'GR_UNEXPECTED_ERROR');
312: FND_MESSAGE.SET_TOKEN('TEXT',
305: WHEN OTHERS THEN
306: ROLLBACK TO SAVEPOINT Update_Row;
307: x_return_status := 'U';
308: x_oracle_error := APP_EXCEPTION.Get_Code;
309: l_msg_data := APP_EXCEPTION.Get_Text;
310: FND_MESSAGE.SET_NAME('GR',
311: 'GR_UNEXPECTED_ERROR');
312: FND_MESSAGE.SET_TOKEN('TEXT',
313: l_msg_data,
312: FND_MESSAGE.SET_TOKEN('TEXT',
313: l_msg_data,
314: FALSE);
315: IF FND_API.To_Boolean(p_called_by_form) THEN
316: APP_EXCEPTION.Raise_Exception;
317: ELSE
318: x_msg_data := FND_MESSAGE.Get;
319: END IF;
320:
398: FND_MESSAGE.SET_TOKEN('CODE',
399: p_document_text_id || ' ' || p_text_line_number,
400: FALSE);
401: IF FND_API.To_Boolean(p_called_by_form) THEN
402: APP_EXCEPTION.Raise_Exception;
403: ELSE
404: x_msg_data := FND_MESSAGE.Get;
405: END IF;
406:
406:
407: WHEN Row_Already_Locked_Error THEN
408: ROLLBACK TO SAVEPOINT Lock_Row;
409: x_return_status := 'E';
410: x_oracle_error := APP_EXCEPTION.Get_Code;
411: FND_MESSAGE.SET_NAME('GR',
412: 'GR_ROW_IS_LOCKED');
413: IF FND_API.To_Boolean(p_called_by_form) THEN
414: APP_EXCEPTION.Raise_Exception;
410: x_oracle_error := APP_EXCEPTION.Get_Code;
411: FND_MESSAGE.SET_NAME('GR',
412: 'GR_ROW_IS_LOCKED');
413: IF FND_API.To_Boolean(p_called_by_form) THEN
414: APP_EXCEPTION.Raise_Exception;
415: ELSE
416: x_msg_data := FND_MESSAGE.Get;
417: END IF;
418:
418:
419: WHEN OTHERS THEN
420: ROLLBACK TO SAVEPOINT Lock_Row;
421: x_return_status := 'U';
422: x_oracle_error := APP_EXCEPTION.Get_Code;
423: l_msg_data := APP_EXCEPTION.Get_Text;
424: FND_MESSAGE.SET_NAME('GR',
425: 'GR_UNEXPECTED_ERROR');
426: FND_MESSAGE.SET_TOKEN('TEXT',
419: WHEN OTHERS THEN
420: ROLLBACK TO SAVEPOINT Lock_Row;
421: x_return_status := 'U';
422: x_oracle_error := APP_EXCEPTION.Get_Code;
423: l_msg_data := APP_EXCEPTION.Get_Text;
424: FND_MESSAGE.SET_NAME('GR',
425: 'GR_UNEXPECTED_ERROR');
426: FND_MESSAGE.SET_TOKEN('TEXT',
427: l_msg_data,
426: FND_MESSAGE.SET_TOKEN('TEXT',
427: l_msg_data,
428: FALSE);
429: IF FND_API.To_Boolean(p_called_by_form) THEN
430: APP_EXCEPTION.Raise_Exception;
431: ELSE
432: x_msg_data := FND_MESSAGE.Get;
433: END IF;
434:
513: ROLLBACK TO SAVEPOINT Delete_Row;
514: x_return_status := l_return_status;
515: x_oracle_error := l_oracle_error;
516: IF FND_API.To_Boolean(p_called_by_form) THEN
517: APP_EXCEPTION.Raise_Exception;
518: ELSE
519: x_msg_data := FND_MESSAGE.Get;
520: END IF;
521:
521:
522: WHEN Row_Missing_Error THEN
523: ROLLBACK TO SAVEPOINT Delete_Row;
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: p_document_text_id || ' ' || p_text_line_number,
528: FND_MESSAGE.SET_TOKEN('CODE',
529: p_document_text_id || ' ' || p_text_line_number,
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:
536:
537: WHEN OTHERS THEN
538: ROLLBACK TO SAVEPOINT Delete_Row;
539: x_return_status := 'U';
540: x_oracle_error := APP_EXCEPTION.Get_Code;
541: l_msg_data := APP_EXCEPTION.Get_Text;
542: l_msg_data := APP_EXCEPTION.Get_Text;
543: FND_MESSAGE.SET_NAME('GR',
544: 'GR_UNEXPECTED_ERROR');
537: WHEN OTHERS THEN
538: ROLLBACK TO SAVEPOINT Delete_Row;
539: x_return_status := 'U';
540: x_oracle_error := APP_EXCEPTION.Get_Code;
541: l_msg_data := APP_EXCEPTION.Get_Text;
542: l_msg_data := APP_EXCEPTION.Get_Text;
543: FND_MESSAGE.SET_NAME('GR',
544: 'GR_UNEXPECTED_ERROR');
545: FND_MESSAGE.SET_TOKEN('TEXT',
538: ROLLBACK TO SAVEPOINT Delete_Row;
539: x_return_status := 'U';
540: x_oracle_error := APP_EXCEPTION.Get_Code;
541: l_msg_data := APP_EXCEPTION.Get_Text;
542: l_msg_data := APP_EXCEPTION.Get_Text;
543: FND_MESSAGE.SET_NAME('GR',
544: 'GR_UNEXPECTED_ERROR');
545: FND_MESSAGE.SET_TOKEN('TEXT',
546: l_msg_data,
545: FND_MESSAGE.SET_TOKEN('TEXT',
546: l_msg_data,
547: FALSE);
548: IF FND_API.To_Boolean(p_called_by_form) THEN
549: APP_EXCEPTION.Raise_Exception;
550: ELSE
551: x_msg_data := FND_MESSAGE.Get;
552: END IF;
553:
595:
596: WHEN OTHERS THEN
597: ROLLBACK TO SAVEPOINT Delete_Rows;
598: x_return_status := 'U';
599: x_oracle_error := APP_EXCEPTION.Get_Code;
600: l_msg_data := APP_EXCEPTION.Get_Text;
601: FND_MESSAGE.SET_NAME('GR',
602: 'GR_UNEXPECTED_ERROR');
603: FND_MESSAGE.SET_TOKEN('TEXT',
596: WHEN OTHERS THEN
597: ROLLBACK TO SAVEPOINT Delete_Rows;
598: x_return_status := 'U';
599: x_oracle_error := APP_EXCEPTION.Get_Code;
600: l_msg_data := APP_EXCEPTION.Get_Text;
601: FND_MESSAGE.SET_NAME('GR',
602: 'GR_UNEXPECTED_ERROR');
603: FND_MESSAGE.SET_TOKEN('TEXT',
604: l_msg_token,
603: FND_MESSAGE.SET_TOKEN('TEXT',
604: l_msg_token,
605: FALSE);
606: IF FND_API.To_Boolean(p_called_by_form) THEN
607: APP_EXCEPTION.Raise_Exception;
608: ELSE
609: x_msg_data := FND_MESSAGE.Get;
610: END IF;
611:
673:
674: WHEN OTHERS THEN
675: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
676: x_return_status := 'U';
677: x_oracle_error := APP_EXCEPTION.Get_Code;
678: l_msg_data := APP_EXCEPTION.Get_Text;
679: FND_MESSAGE.SET_NAME('GR',
680: 'GR_UNEXPECTED_ERROR');
681: FND_MESSAGE.SET_TOKEN('TEXT',
674: WHEN OTHERS THEN
675: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
676: x_return_status := 'U';
677: x_oracle_error := APP_EXCEPTION.Get_Code;
678: l_msg_data := APP_EXCEPTION.Get_Text;
679: FND_MESSAGE.SET_NAME('GR',
680: 'GR_UNEXPECTED_ERROR');
681: FND_MESSAGE.SET_TOKEN('TEXT',
682: l_msg_data,
736:
737: WHEN OTHERS THEN
738: ROLLBACK TO SAVEPOINT Check_Integrity;
739: x_return_status := 'U';
740: x_oracle_error := APP_EXCEPTION.Get_Code;
741: l_msg_data := APP_EXCEPTION.Get_Text;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_UNEXPECTED_ERROR');
744: FND_MESSAGE.SET_TOKEN('TEXT',
737: WHEN OTHERS THEN
738: ROLLBACK TO SAVEPOINT Check_Integrity;
739: x_return_status := 'U';
740: x_oracle_error := APP_EXCEPTION.Get_Code;
741: l_msg_data := APP_EXCEPTION.Get_Text;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_UNEXPECTED_ERROR');
744: FND_MESSAGE.SET_TOKEN('TEXT',
745: 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:
796:
797: EXCEPTION
798:
799: WHEN Others THEN
800: l_msg_data := APP_EXCEPTION.Get_Text;
801: FND_MESSAGE.SET_NAME('GR',
802: 'GR_UNEXPECTED_ERROR');
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
805: FALSE);
806: IF FND_API.To_Boolean(p_called_by_form) THEN
807: APP_EXCEPTION.Raise_Exception;
808: END IF;
809:
810: END Check_Primary_Key;
811: