112: WHEN Foreign_Key_Error THEN
113: ROLLBACK TO SAVEPOINT Insert_Row;
114: x_return_status := l_return_status;
115: x_oracle_error := l_oracle_error;
116: FND_MESSAGE.SET_NAME('GR',
117: 'GR_FOREIGN_KEY_ERROR');
118: FND_MESSAGE.SET_TOKEN('TEXT',
119: l_msg_data,
120: FALSE);
114: x_return_status := l_return_status;
115: x_oracle_error := l_oracle_error;
116: FND_MESSAGE.SET_NAME('GR',
117: 'GR_FOREIGN_KEY_ERROR');
118: FND_MESSAGE.SET_TOKEN('TEXT',
119: l_msg_data,
120: FALSE);
121: IF FND_API.To_Boolean(p_called_by_form) THEN
122: APP_EXCEPTION.Raise_Exception;
120: FALSE);
121: IF FND_API.To_Boolean(p_called_by_form) THEN
122: APP_EXCEPTION.Raise_Exception;
123: ELSE
124: x_msg_data := FND_MESSAGE.Get;
125: END IF;
126:
127: WHEN Item_Exists_Error THEN
128: ROLLBACK TO SAVEPOINT Insert_Row;
127: WHEN Item_Exists_Error THEN
128: ROLLBACK TO SAVEPOINT Insert_Row;
129: x_return_status := 'E';
130: x_oracle_error := APP_EXCEPTION.Get_Code;
131: FND_MESSAGE.SET_NAME('GR',
132: 'GR_RECORD_EXISTS');
133: FND_MESSAGE.SET_TOKEN('CODE',
134: p_region_code || ' ' || p_language,
135: FALSE);
129: x_return_status := 'E';
130: x_oracle_error := APP_EXCEPTION.Get_Code;
131: FND_MESSAGE.SET_NAME('GR',
132: 'GR_RECORD_EXISTS');
133: FND_MESSAGE.SET_TOKEN('CODE',
134: p_region_code || ' ' || p_language,
135: FALSE);
136: IF FND_API.To_Boolean(p_called_by_form) THEN
137: APP_EXCEPTION.Raise_Exception;
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:
142: WHEN Row_Missing_Error THEN
143: ROLLBACK TO SAVEPOINT Insert_Row;
142: WHEN Row_Missing_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_NO_RECORD_INSERTED');
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_region_code || ' ' || p_language,
150: FALSE);
144: x_return_status := 'E';
145: x_oracle_error := APP_EXCEPTION.Get_Code;
146: FND_MESSAGE.SET_NAME('GR',
147: 'GR_NO_RECORD_INSERTED');
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_region_code || ' ' || p_language,
150: FALSE);
151: IF FND_API.To_Boolean(p_called_by_form) THEN
152: APP_EXCEPTION.Raise_Exception;
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:
157: WHEN OTHERS THEN
158: ROLLBACK TO SAVEPOINT Insert_Row;
158: ROLLBACK TO SAVEPOINT Insert_Row;
159: x_return_status := 'U';
160: x_oracle_error := APP_EXCEPTION.Get_Code;
161: l_msg_data := APP_EXCEPTION.Get_Text;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_UNEXPECTED_ERROR');
164: FND_MESSAGE.SET_TOKEN('TEXT',
165: l_msg_data,
166: FALSE);
160: x_oracle_error := APP_EXCEPTION.Get_Code;
161: l_msg_data := APP_EXCEPTION.Get_Text;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_UNEXPECTED_ERROR');
164: FND_MESSAGE.SET_TOKEN('TEXT',
165: l_msg_data,
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: END Insert_Row;
174:
248: WHEN Foreign_Key_Error THEN
249: ROLLBACK TO SAVEPOINT Update_Row;
250: x_return_status := l_return_status;
251: x_oracle_error := l_oracle_error;
252: FND_MESSAGE.SET_NAME('GR',
253: 'GR_FOREIGN_KEY_ERROR');
254: FND_MESSAGE.SET_TOKEN('TEXT',
255: l_msg_data,
256: FALSE);
250: x_return_status := l_return_status;
251: x_oracle_error := l_oracle_error;
252: FND_MESSAGE.SET_NAME('GR',
253: 'GR_FOREIGN_KEY_ERROR');
254: FND_MESSAGE.SET_TOKEN('TEXT',
255: l_msg_data,
256: FALSE);
257: IF FND_API.To_Boolean(p_called_by_form) THEN
258: APP_EXCEPTION.Raise_Exception;
256: FALSE);
257: IF FND_API.To_Boolean(p_called_by_form) THEN
258: APP_EXCEPTION.Raise_Exception;
259: ELSE
260: x_msg_data := FND_MESSAGE.Get;
261: END IF;
262:
263: WHEN Row_Missing_Error THEN
264: ROLLBACK TO SAVEPOINT Update_Row;
263: WHEN Row_Missing_Error THEN
264: ROLLBACK TO SAVEPOINT Update_Row;
265: x_return_status := 'E';
266: x_oracle_error := APP_EXCEPTION.Get_Code;
267: FND_MESSAGE.SET_NAME('GR',
268: 'GR_NO_RECORD_INSERTED');
269: FND_MESSAGE.SET_TOKEN('CODE',
270: p_region_code || ' ' || p_language,
271: FALSE);
265: x_return_status := 'E';
266: x_oracle_error := APP_EXCEPTION.Get_Code;
267: FND_MESSAGE.SET_NAME('GR',
268: 'GR_NO_RECORD_INSERTED');
269: FND_MESSAGE.SET_TOKEN('CODE',
270: p_region_code || ' ' || p_language,
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
274: ELSE
275: x_msg_data := FND_MESSAGE.Get;
276: END IF;
277:
278: WHEN OTHERS THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'U';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: l_msg_data := APP_EXCEPTION.Get_Text;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_UNEXPECTED_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
287: FALSE);
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: l_msg_data := APP_EXCEPTION.Get_Text;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_UNEXPECTED_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
287: FALSE);
288: IF FND_API.To_Boolean(p_called_by_form) THEN
289: APP_EXCEPTION.Raise_Exception;
287: FALSE);
288: IF FND_API.To_Boolean(p_called_by_form) THEN
289: APP_EXCEPTION.Raise_Exception;
290: ELSE
291: x_msg_data := FND_MESSAGE.Get;
292: END IF;
293:
294: END Update_Row;
295:
360:
361: WHEN No_Data_Found_Error THEN
362: ROLLBACK TO SAVEPOINT Lock_Row;
363: x_return_status := 'E';
364: FND_MESSAGE.SET_NAME('GR',
365: 'GR_RECORD_NOT_FOUND');
366: FND_MESSAGE.SET_TOKEN('CODE',
367: p_region_code || ' ' || p_language,
368: FALSE);
362: ROLLBACK TO SAVEPOINT Lock_Row;
363: x_return_status := 'E';
364: FND_MESSAGE.SET_NAME('GR',
365: 'GR_RECORD_NOT_FOUND');
366: FND_MESSAGE.SET_TOKEN('CODE',
367: p_region_code || ' ' || p_language,
368: FALSE);
369: IF FND_API.To_Boolean(p_called_by_form) THEN
370: APP_EXCEPTION.Raise_Exception;
368: FALSE);
369: IF FND_API.To_Boolean(p_called_by_form) THEN
370: APP_EXCEPTION.Raise_Exception;
371: ELSE
372: x_msg_data := FND_MESSAGE.Get;
373: END IF;
374:
375: WHEN Row_Already_Locked_Error THEN
376: ROLLBACK TO SAVEPOINT Lock_Row;
375: WHEN Row_Already_Locked_Error THEN
376: ROLLBACK TO SAVEPOINT Lock_Row;
377: x_return_status := 'E';
378: x_oracle_error := APP_EXCEPTION.Get_Code;
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_ROW_IS_LOCKED');
381: IF FND_API.To_Boolean(p_called_by_form) THEN
382: APP_EXCEPTION.Raise_Exception;
383: ELSE
380: 'GR_ROW_IS_LOCKED');
381: IF FND_API.To_Boolean(p_called_by_form) THEN
382: APP_EXCEPTION.Raise_Exception;
383: ELSE
384: x_msg_data := FND_MESSAGE.Get;
385: END IF;
386:
387: WHEN OTHERS THEN
388: ROLLBACK TO SAVEPOINT Lock_Row;
388: ROLLBACK TO SAVEPOINT Lock_Row;
389: x_return_status := 'U';
390: x_oracle_error := APP_EXCEPTION.Get_Code;
391: l_msg_data := APP_EXCEPTION.Get_Text;
392: FND_MESSAGE.SET_NAME('GR',
393: 'GR_UNEXPECTED_ERROR');
394: FND_MESSAGE.SET_TOKEN('TEXT',
395: l_msg_data,
396: FALSE);
390: x_oracle_error := APP_EXCEPTION.Get_Code;
391: l_msg_data := APP_EXCEPTION.Get_Text;
392: FND_MESSAGE.SET_NAME('GR',
393: 'GR_UNEXPECTED_ERROR');
394: FND_MESSAGE.SET_TOKEN('TEXT',
395: l_msg_data,
396: FALSE);
397: IF FND_API.To_Boolean(p_called_by_form) THEN
398: APP_EXCEPTION.Raise_Exception;
396: FALSE);
397: IF FND_API.To_Boolean(p_called_by_form) THEN
398: APP_EXCEPTION.Raise_Exception;
399: ELSE
400: x_msg_data := FND_MESSAGE.Get;
401: END IF;
402:
403: END Lock_Row;
404:
475: x_oracle_error := l_oracle_error;
476: IF FND_API.To_Boolean(p_called_by_form) THEN
477: APP_EXCEPTION.Raise_Exception;
478: ELSE
479: x_msg_data := FND_MESSAGE.Get;
480: END IF;
481:
482: WHEN Row_Missing_Error THEN
483: ROLLBACK TO SAVEPOINT Delete_Row;
482: WHEN Row_Missing_Error THEN
483: ROLLBACK TO SAVEPOINT Delete_Row;
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: p_region_code || ' ' || p_language,
490: FALSE);
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: p_region_code || ' ' || p_language,
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
493: ELSE
494: x_msg_data := FND_MESSAGE.Get;
495: END IF;
496:
497: WHEN OTHERS THEN
498: ROLLBACK TO SAVEPOINT Delete_Row;
499: x_return_status := 'U';
500: x_oracle_error := APP_EXCEPTION.Get_Code;
501: l_msg_data := APP_EXCEPTION.Get_Text;
502: l_msg_data := APP_EXCEPTION.Get_Text;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_data,
507: FALSE);
501: l_msg_data := APP_EXCEPTION.Get_Text;
502: l_msg_data := APP_EXCEPTION.Get_Text;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_data,
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
507: FALSE);
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:
514: END Delete_Row;
515:
557: ROLLBACK TO SAVEPOINT Delete_Rows;
558: x_return_status := 'U';
559: x_oracle_error := APP_EXCEPTION.Get_Code;
560: l_msg_data := APP_EXCEPTION.Get_Text;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_UNEXPECTED_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_token,
565: FALSE);
559: x_oracle_error := APP_EXCEPTION.Get_Code;
560: l_msg_data := APP_EXCEPTION.Get_Text;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_UNEXPECTED_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_token,
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
568: ELSE
569: x_msg_data := FND_MESSAGE.Get;
570: END IF;
571:
572: END Delete_Rows;
573:
614: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
615: x_return_status := 'U';
616: x_oracle_error := APP_EXCEPTION.Get_Code;
617: l_msg_data := APP_EXCEPTION.Get_Text;
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
622: FALSE);
616: x_oracle_error := APP_EXCEPTION.Get_Code;
617: l_msg_data := APP_EXCEPTION.Get_Text;
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
622: FALSE);
623: x_msg_data := FND_MESSAGE.Get;
624:
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
622: FALSE);
623: x_msg_data := FND_MESSAGE.Get;
624:
625: END Check_Foreign_Keys;
626:
627: PROCEDURE Check_Integrity
664: ROLLBACK TO SAVEPOINT Check_Integrity;
665: x_return_status := 'U';
666: x_oracle_error := APP_EXCEPTION.Get_Code;
667: l_msg_data := APP_EXCEPTION.Get_Text;
668: FND_MESSAGE.SET_NAME('GR',
669: 'GR_UNEXPECTED_ERROR');
670: FND_MESSAGE.SET_TOKEN('TEXT',
671: l_msg_data,
672: FALSE);
666: x_oracle_error := APP_EXCEPTION.Get_Code;
667: l_msg_data := APP_EXCEPTION.Get_Text;
668: FND_MESSAGE.SET_NAME('GR',
669: 'GR_UNEXPECTED_ERROR');
670: FND_MESSAGE.SET_TOKEN('TEXT',
671: l_msg_data,
672: FALSE);
673: IF FND_API.To_Boolean(p_called_by_form) THEN
674: APP_EXCEPTION.Raise_Exception;
672: FALSE);
673: IF FND_API.To_Boolean(p_called_by_form) THEN
674: APP_EXCEPTION.Raise_Exception;
675: ELSE
676: x_msg_data := FND_MESSAGE.Get;
677: END IF;
678:
679: END Check_Integrity;
680:
722: EXCEPTION
723:
724: WHEN Others THEN
725: l_msg_data := APP_EXCEPTION.Get_Text;
726: FND_MESSAGE.SET_NAME('GR',
727: 'GR_UNEXPECTED_ERROR');
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
730: FALSE);
724: WHEN Others THEN
725: l_msg_data := APP_EXCEPTION.Get_Text;
726: FND_MESSAGE.SET_NAME('GR',
727: 'GR_UNEXPECTED_ERROR');
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;