110: WHEN Foreign_Key_Error THEN
111: ROLLBACK TO SAVEPOINT Insert_Row;
112: x_return_status := l_return_status;
113: x_oracle_error := l_oracle_error;
114: FND_MESSAGE.SET_NAME('GR',
115: 'GR_FOREIGN_KEY_ERROR');
116: FND_MESSAGE.SET_TOKEN('TEXT',
117: l_msg_data,
118: FALSE);
112: x_return_status := l_return_status;
113: x_oracle_error := l_oracle_error;
114: FND_MESSAGE.SET_NAME('GR',
115: 'GR_FOREIGN_KEY_ERROR');
116: FND_MESSAGE.SET_TOKEN('TEXT',
117: l_msg_data,
118: FALSE);
119: IF FND_API.To_Boolean(p_called_by_form) THEN
120: APP_EXCEPTION.Raise_Exception;
118: FALSE);
119: IF FND_API.To_Boolean(p_called_by_form) THEN
120: APP_EXCEPTION.Raise_Exception;
121: ELSE
122: x_msg_data := FND_MESSAGE.Get;
123: END IF;
124:
125: WHEN Item_Exists_Error THEN
126: ROLLBACK TO SAVEPOINT Insert_Row;
125: WHEN Item_Exists_Error THEN
126: ROLLBACK TO SAVEPOINT Insert_Row;
127: x_return_status := 'E';
128: x_oracle_error := APP_EXCEPTION.Get_Code;
129: FND_MESSAGE.SET_NAME('GR',
130: 'GR_RECORD_EXISTS');
131: FND_MESSAGE.SET_TOKEN('CODE',
132: p_phrase_type_code,
133: FALSE);
127: x_return_status := 'E';
128: x_oracle_error := APP_EXCEPTION.Get_Code;
129: FND_MESSAGE.SET_NAME('GR',
130: 'GR_RECORD_EXISTS');
131: FND_MESSAGE.SET_TOKEN('CODE',
132: p_phrase_type_code,
133: FALSE);
134: IF FND_API.To_Boolean(p_called_by_form) THEN
135: APP_EXCEPTION.Raise_Exception;
133: FALSE);
134: IF FND_API.To_Boolean(p_called_by_form) THEN
135: APP_EXCEPTION.Raise_Exception;
136: ELSE
137: x_msg_data := FND_MESSAGE.Get;
138: END IF;
139:
140: WHEN Row_Missing_Error THEN
141: ROLLBACK TO SAVEPOINT Insert_Row;
140: WHEN Row_Missing_Error THEN
141: ROLLBACK TO SAVEPOINT Insert_Row;
142: x_return_status := 'E';
143: x_oracle_error := APP_EXCEPTION.Get_Code;
144: FND_MESSAGE.SET_NAME('GR',
145: 'GR_NO_RECORD_INSERTED');
146: FND_MESSAGE.SET_TOKEN('CODE',
147: p_phrase_type_code,
148: FALSE);
142: x_return_status := 'E';
143: x_oracle_error := APP_EXCEPTION.Get_Code;
144: FND_MESSAGE.SET_NAME('GR',
145: 'GR_NO_RECORD_INSERTED');
146: FND_MESSAGE.SET_TOKEN('CODE',
147: p_phrase_type_code,
148: FALSE);
149: IF FND_API.To_Boolean(p_called_by_form) THEN
150: APP_EXCEPTION.Raise_Exception;
148: FALSE);
149: IF FND_API.To_Boolean(p_called_by_form) THEN
150: APP_EXCEPTION.Raise_Exception;
151: ELSE
152: x_msg_data := FND_MESSAGE.Get;
153: END IF;
154:
155: WHEN OTHERS THEN
156: ROLLBACK TO SAVEPOINT Insert_Row;
156: ROLLBACK TO SAVEPOINT Insert_Row;
157: x_return_status := 'U';
158: x_oracle_error := APP_EXCEPTION.Get_Code;
159: l_msg_data := APP_EXCEPTION.Get_Text;
160: FND_MESSAGE.SET_NAME('GR',
161: 'GR_UNEXPECTED_ERROR');
162: FND_MESSAGE.SET_TOKEN('TEXT',
163: l_msg_data,
164: FALSE);
158: x_oracle_error := APP_EXCEPTION.Get_Code;
159: l_msg_data := APP_EXCEPTION.Get_Text;
160: FND_MESSAGE.SET_NAME('GR',
161: 'GR_UNEXPECTED_ERROR');
162: FND_MESSAGE.SET_TOKEN('TEXT',
163: l_msg_data,
164: FALSE);
165: IF FND_API.To_Boolean(p_called_by_form) THEN
166: APP_EXCEPTION.Raise_Exception;
164: FALSE);
165: IF FND_API.To_Boolean(p_called_by_form) THEN
166: APP_EXCEPTION.Raise_Exception;
167: ELSE
168: x_msg_data := FND_MESSAGE.Get;
169: END IF;
170:
171: END Insert_Row;
172:
246: WHEN Foreign_Key_Error THEN
247: ROLLBACK TO SAVEPOINT Update_Row;
248: x_return_status := l_return_status;
249: x_oracle_error := l_oracle_error;
250: FND_MESSAGE.SET_NAME('GR',
251: 'GR_FOREIGN_KEY_ERROR');
252: FND_MESSAGE.SET_TOKEN('TEXT',
253: l_msg_data,
254: FALSE);
248: x_return_status := l_return_status;
249: x_oracle_error := l_oracle_error;
250: FND_MESSAGE.SET_NAME('GR',
251: 'GR_FOREIGN_KEY_ERROR');
252: FND_MESSAGE.SET_TOKEN('TEXT',
253: l_msg_data,
254: FALSE);
255: IF FND_API.To_Boolean(p_called_by_form) THEN
256: APP_EXCEPTION.Raise_Exception;
254: FALSE);
255: IF FND_API.To_Boolean(p_called_by_form) THEN
256: APP_EXCEPTION.Raise_Exception;
257: ELSE
258: x_msg_data := FND_MESSAGE.Get;
259: END IF;
260:
261: WHEN Row_Missing_Error THEN
262: ROLLBACK TO SAVEPOINT Update_Row;
261: WHEN Row_Missing_Error THEN
262: ROLLBACK TO SAVEPOINT Update_Row;
263: x_return_status := 'E';
264: x_oracle_error := APP_EXCEPTION.Get_Code;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_NO_RECORD_INSERTED');
267: FND_MESSAGE.SET_TOKEN('CODE',
268: p_phrase_type_code,
269: FALSE);
263: x_return_status := 'E';
264: x_oracle_error := APP_EXCEPTION.Get_Code;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_NO_RECORD_INSERTED');
267: FND_MESSAGE.SET_TOKEN('CODE',
268: p_phrase_type_code,
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
272: ELSE
273: x_msg_data := FND_MESSAGE.Get;
274: END IF;
275:
276: WHEN OTHERS THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
277: ROLLBACK TO SAVEPOINT Update_Row;
278: x_return_status := 'U';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: l_msg_data := APP_EXCEPTION.Get_Text;
281: FND_MESSAGE.SET_NAME('GR',
282: 'GR_UNEXPECTED_ERROR');
283: FND_MESSAGE.SET_TOKEN('TEXT',
284: l_msg_data,
285: FALSE);
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: l_msg_data := APP_EXCEPTION.Get_Text;
281: FND_MESSAGE.SET_NAME('GR',
282: 'GR_UNEXPECTED_ERROR');
283: FND_MESSAGE.SET_TOKEN('TEXT',
284: l_msg_data,
285: FALSE);
286: IF FND_API.To_Boolean(p_called_by_form) THEN
287: APP_EXCEPTION.Raise_Exception;
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:
292: END Update_Row;
293:
358:
359: WHEN No_Data_Found_Error THEN
360: ROLLBACK TO SAVEPOINT Lock_Row;
361: x_return_status := 'E';
362: FND_MESSAGE.SET_NAME('GR',
363: 'GR_RECORD_NOT_FOUND');
364: FND_MESSAGE.SET_TOKEN('CODE',
365: p_phrase_type_code,
366: FALSE);
360: ROLLBACK TO SAVEPOINT Lock_Row;
361: x_return_status := 'E';
362: FND_MESSAGE.SET_NAME('GR',
363: 'GR_RECORD_NOT_FOUND');
364: FND_MESSAGE.SET_TOKEN('CODE',
365: p_phrase_type_code,
366: FALSE);
367: IF FND_API.To_Boolean(p_called_by_form) THEN
368: APP_EXCEPTION.Raise_Exception;
366: FALSE);
367: IF FND_API.To_Boolean(p_called_by_form) THEN
368: APP_EXCEPTION.Raise_Exception;
369: ELSE
370: x_msg_data := FND_MESSAGE.Get;
371: END IF;
372:
373: WHEN Row_Already_Locked_Error THEN
374: ROLLBACK TO SAVEPOINT Lock_Row;
373: WHEN Row_Already_Locked_Error THEN
374: ROLLBACK TO SAVEPOINT Lock_Row;
375: x_return_status := 'E';
376: x_oracle_error := APP_EXCEPTION.Get_Code;
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ROW_IS_LOCKED');
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
381: ELSE
378: 'GR_ROW_IS_LOCKED');
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
381: ELSE
382: x_msg_data := FND_MESSAGE.Get;
383: END IF;
384:
385: WHEN OTHERS THEN
386: ROLLBACK TO SAVEPOINT Lock_Row;
386: ROLLBACK TO SAVEPOINT Lock_Row;
387: x_return_status := 'U';
388: x_oracle_error := APP_EXCEPTION.Get_Code;
389: l_msg_data := APP_EXCEPTION.Get_Text;
390: FND_MESSAGE.SET_NAME('GR',
391: 'GR_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('TEXT',
393: l_msg_data,
394: FALSE);
388: x_oracle_error := APP_EXCEPTION.Get_Code;
389: l_msg_data := APP_EXCEPTION.Get_Text;
390: FND_MESSAGE.SET_NAME('GR',
391: 'GR_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('TEXT',
393: l_msg_data,
394: FALSE);
395: IF FND_API.To_Boolean(p_called_by_form) THEN
396: APP_EXCEPTION.Raise_Exception;
394: FALSE);
395: IF FND_API.To_Boolean(p_called_by_form) THEN
396: APP_EXCEPTION.Raise_Exception;
397: ELSE
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
400:
401: END Lock_Row;
402:
473: x_oracle_error := l_oracle_error;
474: IF FND_API.To_Boolean(p_called_by_form) THEN
475: APP_EXCEPTION.Raise_Exception;
476: ELSE
477: x_msg_data := FND_MESSAGE.Get;
478: END IF;
479:
480: WHEN Row_Missing_Error THEN
481: ROLLBACK TO SAVEPOINT Delete_Row;
480: WHEN Row_Missing_Error THEN
481: ROLLBACK TO SAVEPOINT Delete_Row;
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: p_phrase_type_code,
488: FALSE);
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: p_phrase_type_code,
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
491: ELSE
492: x_msg_data := FND_MESSAGE.Get;
493: END IF;
494:
495: WHEN OTHERS THEN
496: ROLLBACK TO SAVEPOINT Delete_Row;
497: x_return_status := 'U';
498: x_oracle_error := APP_EXCEPTION.Get_Code;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: l_msg_data := APP_EXCEPTION.Get_Text;
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_data,
505: FALSE);
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: l_msg_data := APP_EXCEPTION.Get_Text;
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_data,
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
508: ELSE
509: x_msg_data := FND_MESSAGE.Get;
510: END IF;
511:
512: END Delete_Row;
513:
554: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
555: x_return_status := 'U';
556: x_oracle_error := APP_EXCEPTION.Get_Code;
557: l_msg_data := APP_EXCEPTION.Get_Text;
558: FND_MESSAGE.SET_NAME('GR',
559: 'GR_UNEXPECTED_ERROR');
560: FND_MESSAGE.SET_TOKEN('TEXT',
561: l_msg_data,
562: FALSE);
556: x_oracle_error := APP_EXCEPTION.Get_Code;
557: l_msg_data := APP_EXCEPTION.Get_Text;
558: FND_MESSAGE.SET_NAME('GR',
559: 'GR_UNEXPECTED_ERROR');
560: FND_MESSAGE.SET_TOKEN('TEXT',
561: l_msg_data,
562: FALSE);
563: x_msg_data := FND_MESSAGE.Get;
564:
559: 'GR_UNEXPECTED_ERROR');
560: FND_MESSAGE.SET_TOKEN('TEXT',
561: l_msg_data,
562: FALSE);
563: x_msg_data := FND_MESSAGE.Get;
564:
565: END Check_Foreign_Keys;
566:
567: PROCEDURE Check_Integrity
626: EXCEPTION
627:
628: WHEN INTEGRITY_ERROR THEN
629: x_return_status := 'E';
630: FND_MESSAGE.SET_NAME('GR',
631: 'GR_INTEGRITY_HEADER');
632: FND_MESSAGE.SET_TOKEN('CODE',
633: p_phrase_type_code,
634: FALSE);
628: WHEN INTEGRITY_ERROR THEN
629: x_return_status := 'E';
630: FND_MESSAGE.SET_NAME('GR',
631: 'GR_INTEGRITY_HEADER');
632: FND_MESSAGE.SET_TOKEN('CODE',
633: p_phrase_type_code,
634: FALSE);
635: FND_MESSAGE.SET_TOKEN('TABLES',
636: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
631: 'GR_INTEGRITY_HEADER');
632: FND_MESSAGE.SET_TOKEN('CODE',
633: p_phrase_type_code,
634: FALSE);
635: FND_MESSAGE.SET_TOKEN('TABLES',
636: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
637: FALSE);
638: IF FND_API.To_Boolean(p_called_by_form) THEN
639: APP_EXCEPTION.Raise_Exception;
637: FALSE);
638: IF FND_API.To_Boolean(p_called_by_form) THEN
639: APP_EXCEPTION.Raise_Exception;
640: ELSE
641: x_msg_data := FND_MESSAGE.Get;
642: END IF;
643: WHEN OTHERS THEN
644: ROLLBACK TO SAVEPOINT Check_Integrity;
645: x_return_status := 'U';
644: ROLLBACK TO SAVEPOINT Check_Integrity;
645: x_return_status := 'U';
646: x_oracle_error := APP_EXCEPTION.Get_Code;
647: l_msg_data := APP_EXCEPTION.Get_Text;
648: FND_MESSAGE.SET_NAME('GR',
649: 'GR_UNEXPECTED_ERROR');
650: FND_MESSAGE.SET_TOKEN('TEXT',
651: l_msg_data,
652: FALSE);
646: x_oracle_error := APP_EXCEPTION.Get_Code;
647: l_msg_data := APP_EXCEPTION.Get_Text;
648: FND_MESSAGE.SET_NAME('GR',
649: 'GR_UNEXPECTED_ERROR');
650: FND_MESSAGE.SET_TOKEN('TEXT',
651: l_msg_data,
652: FALSE);
653: IF FND_API.To_Boolean(p_called_by_form) THEN
654: APP_EXCEPTION.Raise_Exception;
652: FALSE);
653: IF FND_API.To_Boolean(p_called_by_form) THEN
654: APP_EXCEPTION.Raise_Exception;
655: ELSE
656: x_msg_data := FND_MESSAGE.Get;
657: END IF;
658:
659: END Check_Integrity;
660:
699: EXCEPTION
700:
701: WHEN Others THEN
702: l_msg_data := APP_EXCEPTION.Get_Text;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('TEXT',
706: l_msg_data,
707: FALSE);
701: WHEN Others THEN
702: l_msg_data := APP_EXCEPTION.Get_Text;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('TEXT',
706: l_msg_data,
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;