154: WHEN Foreign_Key_Error THEN
155: ROLLBACK TO SAVEPOINT Insert_Row;
156: x_return_status := l_return_status;
157: x_oracle_error := l_oracle_error;
158: FND_MESSAGE.SET_NAME('GR',
159: 'GR_FOREIGN_KEY_ERROR');
160: FND_MESSAGE.SET_TOKEN('TEXT',
161: l_msg_data,
162: FALSE);
156: x_return_status := l_return_status;
157: x_oracle_error := l_oracle_error;
158: FND_MESSAGE.SET_NAME('GR',
159: 'GR_FOREIGN_KEY_ERROR');
160: FND_MESSAGE.SET_TOKEN('TEXT',
161: l_msg_data,
162: FALSE);
163: IF FND_API.To_Boolean(p_called_by_form) THEN
164: APP_EXCEPTION.Raise_Exception;
162: FALSE);
163: IF FND_API.To_Boolean(p_called_by_form) THEN
164: APP_EXCEPTION.Raise_Exception;
165: ELSE
166: x_msg_data := FND_MESSAGE.Get;
167: END IF;
168:
169: WHEN Item_Exists_Error THEN
170: ROLLBACK TO SAVEPOINT Insert_Row;
170: ROLLBACK TO SAVEPOINT Insert_Row;
171: l_msg_token := p_orgn_code;
172: x_return_status := 'E';
173: x_oracle_error := APP_EXCEPTION.Get_Code;
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_RECORD_EXISTS');
176: FND_MESSAGE.SET_TOKEN('CODE',
177: l_msg_token,
178: FALSE);
172: x_return_status := 'E';
173: x_oracle_error := APP_EXCEPTION.Get_Code;
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_RECORD_EXISTS');
176: FND_MESSAGE.SET_TOKEN('CODE',
177: l_msg_token,
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
181: ELSE
182: x_msg_data := FND_MESSAGE.Get;
183: END IF;
184:
185: WHEN Row_Missing_Error THEN
186: ROLLBACK TO SAVEPOINT Insert_Row;
186: ROLLBACK TO SAVEPOINT Insert_Row;
187: l_msg_token := p_orgn_code;
188: x_return_status := 'E';
189: x_oracle_error := APP_EXCEPTION.Get_Code;
190: FND_MESSAGE.SET_NAME('GR',
191: 'GR_NO_RECORD_INSERTED');
192: FND_MESSAGE.SET_TOKEN('CODE',
193: l_msg_token,
194: FALSE);
188: x_return_status := 'E';
189: x_oracle_error := APP_EXCEPTION.Get_Code;
190: FND_MESSAGE.SET_NAME('GR',
191: 'GR_NO_RECORD_INSERTED');
192: FND_MESSAGE.SET_TOKEN('CODE',
193: l_msg_token,
194: FALSE);
195: IF FND_API.To_Boolean(p_called_by_form) THEN
196: APP_EXCEPTION.Raise_Exception;
194: FALSE);
195: IF FND_API.To_Boolean(p_called_by_form) THEN
196: APP_EXCEPTION.Raise_Exception;
197: ELSE
198: x_msg_data := FND_MESSAGE.Get;
199: END IF;
200:
201: WHEN OTHERS THEN
202: ROLLBACK TO SAVEPOINT Insert_Row;
203: l_msg_token := p_orgn_code;
204: x_return_status := 'U';
205: x_oracle_error := APP_EXCEPTION.Get_Code;
206: l_msg_data := APP_EXCEPTION.Get_Text;
207: FND_MESSAGE.SET_NAME('GR',
208: 'GR_UNEXPECTED_ERROR');
209: FND_MESSAGE.SET_TOKEN('TEXT',
210: l_msg_token,
211: FALSE);
205: x_oracle_error := APP_EXCEPTION.Get_Code;
206: l_msg_data := APP_EXCEPTION.Get_Text;
207: FND_MESSAGE.SET_NAME('GR',
208: 'GR_UNEXPECTED_ERROR');
209: FND_MESSAGE.SET_TOKEN('TEXT',
210: l_msg_token,
211: FALSE);
212: IF FND_API.To_Boolean(p_called_by_form) THEN
213: APP_EXCEPTION.Raise_Exception;
211: FALSE);
212: IF FND_API.To_Boolean(p_called_by_form) THEN
213: APP_EXCEPTION.Raise_Exception;
214: ELSE
215: x_msg_data := FND_MESSAGE.Get;
216: END IF;
217:
218: END Insert_Row;
219:
328: WHEN Foreign_Key_Error THEN
329: ROLLBACK TO SAVEPOINT Update_Row;
330: x_return_status := l_return_status;
331: x_oracle_error := l_oracle_error;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_FOREIGN_KEY_ERROR');
334: FND_MESSAGE.SET_TOKEN('TEXT',
335: l_msg_data,
336: FALSE);
330: x_return_status := l_return_status;
331: x_oracle_error := l_oracle_error;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_FOREIGN_KEY_ERROR');
334: FND_MESSAGE.SET_TOKEN('TEXT',
335: l_msg_data,
336: FALSE);
337: IF FND_API.To_Boolean(p_called_by_form) THEN
338: APP_EXCEPTION.Raise_Exception;
336: FALSE);
337: IF FND_API.To_Boolean(p_called_by_form) THEN
338: APP_EXCEPTION.Raise_Exception;
339: ELSE
340: x_msg_data := FND_MESSAGE.Get;
341: END IF;
342:
343: WHEN Row_Missing_Error THEN
344: ROLLBACK TO SAVEPOINT Update_Row;
343: WHEN Row_Missing_Error THEN
344: ROLLBACK TO SAVEPOINT Update_Row;
345: x_return_status := 'E';
346: x_oracle_error := APP_EXCEPTION.Get_Code;
347: FND_MESSAGE.SET_NAME('GR',
348: 'GR_NO_RECORD_INSERTED');
349: FND_MESSAGE.SET_TOKEN('CODE',
350: l_msg_token,
351: FALSE);
345: x_return_status := 'E';
346: x_oracle_error := APP_EXCEPTION.Get_Code;
347: FND_MESSAGE.SET_NAME('GR',
348: 'GR_NO_RECORD_INSERTED');
349: FND_MESSAGE.SET_TOKEN('CODE',
350: l_msg_token,
351: FALSE);
352: IF FND_API.To_Boolean(p_called_by_form) THEN
353: APP_EXCEPTION.Raise_Exception;
351: FALSE);
352: IF FND_API.To_Boolean(p_called_by_form) THEN
353: APP_EXCEPTION.Raise_Exception;
354: ELSE
355: x_msg_data := FND_MESSAGE.Get;
356: END IF;
357:
358: WHEN OTHERS THEN
359: ROLLBACK TO SAVEPOINT Update_Row;
359: ROLLBACK TO SAVEPOINT Update_Row;
360: x_return_status := 'U';
361: x_oracle_error := APP_EXCEPTION.Get_Code;
362: l_msg_data := APP_EXCEPTION.Get_Text;
363: FND_MESSAGE.SET_NAME('GR',
364: 'GR_UNEXPECTED_ERROR');
365: FND_MESSAGE.SET_TOKEN('TEXT',
366: l_msg_token,
367: FALSE);
361: x_oracle_error := APP_EXCEPTION.Get_Code;
362: l_msg_data := APP_EXCEPTION.Get_Text;
363: FND_MESSAGE.SET_NAME('GR',
364: 'GR_UNEXPECTED_ERROR');
365: FND_MESSAGE.SET_TOKEN('TEXT',
366: l_msg_token,
367: FALSE);
368: IF FND_API.To_Boolean(p_called_by_form) THEN
369: APP_EXCEPTION.Raise_Exception;
367: FALSE);
368: IF FND_API.To_Boolean(p_called_by_form) THEN
369: APP_EXCEPTION.Raise_Exception;
370: ELSE
371: x_msg_data := FND_MESSAGE.Get;
372: END IF;
373:
374: END Update_Row;
375: /*
458:
459: WHEN No_Data_Found_Error THEN
460: ROLLBACK TO SAVEPOINT Lock_Row;
461: x_return_status := 'E';
462: FND_MESSAGE.SET_NAME('GR',
463: 'GR_RECORD_NOT_FOUND');
464: FND_MESSAGE.SET_TOKEN('CODE',
465: l_msg_token,
466: FALSE);
460: ROLLBACK TO SAVEPOINT Lock_Row;
461: x_return_status := 'E';
462: FND_MESSAGE.SET_NAME('GR',
463: 'GR_RECORD_NOT_FOUND');
464: FND_MESSAGE.SET_TOKEN('CODE',
465: l_msg_token,
466: FALSE);
467: IF FND_API.To_Boolean(p_called_by_form) THEN
468: APP_EXCEPTION.Raise_Exception;
466: FALSE);
467: IF FND_API.To_Boolean(p_called_by_form) THEN
468: APP_EXCEPTION.Raise_Exception;
469: ELSE
470: x_msg_data := FND_MESSAGE.Get;
471: END IF;
472:
473: WHEN Row_Already_Locked_Error THEN
474: ROLLBACK TO SAVEPOINT Lock_Row;
473: WHEN Row_Already_Locked_Error THEN
474: ROLLBACK TO SAVEPOINT Lock_Row;
475: x_return_status := 'E';
476: x_oracle_error := APP_EXCEPTION.Get_Code;
477: FND_MESSAGE.SET_NAME('GR',
478: 'GR_ROW_IS_LOCKED');
479: IF FND_API.To_Boolean(p_called_by_form) THEN
480: APP_EXCEPTION.Raise_Exception;
481: ELSE
478: 'GR_ROW_IS_LOCKED');
479: IF FND_API.To_Boolean(p_called_by_form) THEN
480: APP_EXCEPTION.Raise_Exception;
481: ELSE
482: x_msg_data := FND_MESSAGE.Get;
483: END IF;
484:
485: WHEN OTHERS THEN
486: ROLLBACK TO SAVEPOINT Lock_Row;
486: ROLLBACK TO SAVEPOINT Lock_Row;
487: x_return_status := 'U';
488: x_oracle_error := APP_EXCEPTION.Get_Code;
489: l_msg_data := APP_EXCEPTION.Get_Text;
490: FND_MESSAGE.SET_NAME('GR',
491: 'GR_UNEXPECTED_ERROR');
492: FND_MESSAGE.SET_TOKEN('TEXT',
493: l_msg_token,
494: FALSE);
488: x_oracle_error := APP_EXCEPTION.Get_Code;
489: l_msg_data := APP_EXCEPTION.Get_Text;
490: FND_MESSAGE.SET_NAME('GR',
491: 'GR_UNEXPECTED_ERROR');
492: FND_MESSAGE.SET_TOKEN('TEXT',
493: l_msg_token,
494: FALSE);
495: IF FND_API.To_Boolean(p_called_by_form) THEN
496: APP_EXCEPTION.Raise_Exception;
494: FALSE);
495: IF FND_API.To_Boolean(p_called_by_form) THEN
496: APP_EXCEPTION.Raise_Exception;
497: ELSE
498: x_msg_data := FND_MESSAGE.Get;
499: END IF;
500:
501: END Lock_Row;
502:
599: x_oracle_error := l_oracle_error;
600: IF FND_API.To_Boolean(p_called_by_form) THEN
601: APP_EXCEPTION.Raise_Exception;
602: ELSE
603: x_msg_data := FND_MESSAGE.Get;
604: END IF;
605:
606: WHEN Row_Missing_Error THEN
607: ROLLBACK TO SAVEPOINT Delete_Row;
606: WHEN Row_Missing_Error THEN
607: ROLLBACK TO SAVEPOINT Delete_Row;
608: x_return_status := 'E';
609: x_oracle_error := APP_EXCEPTION.Get_Code;
610: FND_MESSAGE.SET_NAME('GR',
611: 'GR_RECORD_NOT_FOUND');
612: FND_MESSAGE.SET_TOKEN('CODE',
613: l_msg_token,
614: FALSE);
608: x_return_status := 'E';
609: x_oracle_error := APP_EXCEPTION.Get_Code;
610: FND_MESSAGE.SET_NAME('GR',
611: 'GR_RECORD_NOT_FOUND');
612: FND_MESSAGE.SET_TOKEN('CODE',
613: l_msg_token,
614: FALSE);
615: IF FND_API.To_Boolean(p_called_by_form) THEN
616: APP_EXCEPTION.Raise_Exception;
614: FALSE);
615: IF FND_API.To_Boolean(p_called_by_form) THEN
616: APP_EXCEPTION.Raise_Exception;
617: ELSE
618: x_msg_data := FND_MESSAGE.Get;
619: END IF;
620:
621: WHEN OTHERS THEN
622: ROLLBACK TO SAVEPOINT Delete_Row;
622: ROLLBACK TO SAVEPOINT Delete_Row;
623: x_return_status := 'U';
624: x_oracle_error := APP_EXCEPTION.Get_Code;
625: l_msg_data := APP_EXCEPTION.Get_Text;
626: FND_MESSAGE.SET_NAME('GR',
627: 'GR_UNEXPECTED_ERROR');
628: FND_MESSAGE.SET_TOKEN('TEXT',
629: l_msg_data,
630: FALSE);
624: x_oracle_error := APP_EXCEPTION.Get_Code;
625: l_msg_data := APP_EXCEPTION.Get_Text;
626: FND_MESSAGE.SET_NAME('GR',
627: 'GR_UNEXPECTED_ERROR');
628: FND_MESSAGE.SET_TOKEN('TEXT',
629: l_msg_data,
630: FALSE);
631: IF FND_API.To_Boolean(p_called_by_form) THEN
632: APP_EXCEPTION.Raise_Exception;
630: FALSE);
631: IF FND_API.To_Boolean(p_called_by_form) THEN
632: APP_EXCEPTION.Raise_Exception;
633: ELSE
634: x_msg_data := FND_MESSAGE.Get;
635: END IF;
636:
637: END Delete_Row;
638:
705: WHEN Row_Missing_Error THEN
706: ROLLBACK TO SAVEPOINT Delete_Row;
707: x_return_status := 'E';
708: x_oracle_error := APP_EXCEPTION.Get_Code;
709: FND_MESSAGE.SET_NAME('GR',
710: 'GR_RECORD_NOT_FOUND');
711: FND_MESSAGE.SET_TOKEN('CODE',
712: p_orgn_code,
713: FALSE);
707: x_return_status := 'E';
708: x_oracle_error := APP_EXCEPTION.Get_Code;
709: FND_MESSAGE.SET_NAME('GR',
710: 'GR_RECORD_NOT_FOUND');
711: FND_MESSAGE.SET_TOKEN('CODE',
712: p_orgn_code,
713: FALSE);
714: x_msg_data := FND_MESSAGE.Get;
715:
710: 'GR_RECORD_NOT_FOUND');
711: FND_MESSAGE.SET_TOKEN('CODE',
712: p_orgn_code,
713: FALSE);
714: x_msg_data := FND_MESSAGE.Get;
715:
716: WHEN OTHERS THEN
717: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
718: x_return_status := 'U';
717: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
718: x_return_status := 'U';
719: x_oracle_error := APP_EXCEPTION.Get_Code;
720: l_msg_data := APP_EXCEPTION.Get_Text;
721: FND_MESSAGE.SET_NAME('GR',
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_token,
725: FALSE);
719: x_oracle_error := APP_EXCEPTION.Get_Code;
720: l_msg_data := APP_EXCEPTION.Get_Text;
721: FND_MESSAGE.SET_NAME('GR',
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_token,
725: FALSE);
726: x_msg_data := FND_MESSAGE.Get;
727:
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_token,
725: FALSE);
726: x_msg_data := FND_MESSAGE.Get;
727:
728: END Check_Foreign_Keys;
729:
730: PROCEDURE Check_Integrity
782: ROLLBACK TO SAVEPOINT Check_Integrity;
783: x_return_status := 'U';
784: x_oracle_error := APP_EXCEPTION.Get_Code;
785: l_msg_data := APP_EXCEPTION.Get_Text;
786: FND_MESSAGE.SET_NAME('GR',
787: 'GR_UNEXPECTED_ERROR');
788: FND_MESSAGE.SET_TOKEN('TEXT',
789: l_msg_data,
790: FALSE);
784: x_oracle_error := APP_EXCEPTION.Get_Code;
785: l_msg_data := APP_EXCEPTION.Get_Text;
786: FND_MESSAGE.SET_NAME('GR',
787: 'GR_UNEXPECTED_ERROR');
788: FND_MESSAGE.SET_TOKEN('TEXT',
789: l_msg_data,
790: FALSE);
791: IF FND_API.To_Boolean(p_called_by_form) THEN
792: APP_EXCEPTION.Raise_Exception;
790: FALSE);
791: IF FND_API.To_Boolean(p_called_by_form) THEN
792: APP_EXCEPTION.Raise_Exception;
793: ELSE
794: x_msg_data := FND_MESSAGE.Get;
795: END IF;
796:
797: END Check_Integrity;
798:
839: EXCEPTION
840:
841: WHEN Others THEN
842: l_msg_data := APP_EXCEPTION.Get_Text;
843: FND_MESSAGE.SET_NAME('GR',
844: 'GR_UNEXPECTED_ERROR');
845: FND_MESSAGE.SET_TOKEN('TEXT',
846: l_msg_data,
847: FALSE);
841: WHEN Others THEN
842: l_msg_data := APP_EXCEPTION.Get_Text;
843: FND_MESSAGE.SET_NAME('GR',
844: 'GR_UNEXPECTED_ERROR');
845: FND_MESSAGE.SET_TOKEN('TEXT',
846: l_msg_data,
847: FALSE);
848: IF FND_API.To_Boolean(p_called_by_form) THEN
849: APP_EXCEPTION.Raise_Exception;