164: WHEN Foreign_Key_Error THEN
165: ROLLBACK TO SAVEPOINT Insert_Row;
166: x_return_status := l_return_status;
167: x_oracle_error := l_oracle_error;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_FOREIGN_KEY_ERROR');
170: FND_MESSAGE.SET_TOKEN('TEXT',
171: l_msg_data,
172: FALSE);
166: x_return_status := l_return_status;
167: x_oracle_error := l_oracle_error;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_FOREIGN_KEY_ERROR');
170: FND_MESSAGE.SET_TOKEN('TEXT',
171: l_msg_data,
172: FALSE);
173: IF FND_API.To_Boolean(p_called_by_form) THEN
174: APP_EXCEPTION.Raise_Exception;
172: FALSE);
173: IF FND_API.To_Boolean(p_called_by_form) THEN
174: APP_EXCEPTION.Raise_Exception;
175: ELSE
176: x_msg_data := FND_MESSAGE.Get;
177: END IF;
178:
179: WHEN Label_Exists_Error THEN
180: ROLLBACK TO SAVEPOINT Insert_Row;
179: WHEN Label_Exists_Error THEN
180: ROLLBACK TO SAVEPOINT Insert_Row;
181: x_return_status := 'E';
182: x_oracle_error := APP_EXCEPTION.Get_Code;
183: FND_MESSAGE.SET_NAME('GR',
184: 'GR_RECORD_EXISTS');
185: FND_MESSAGE.SET_TOKEN('CODE',
186: p_item_code,
187: FALSE);
181: x_return_status := 'E';
182: x_oracle_error := APP_EXCEPTION.Get_Code;
183: FND_MESSAGE.SET_NAME('GR',
184: 'GR_RECORD_EXISTS');
185: FND_MESSAGE.SET_TOKEN('CODE',
186: p_item_code,
187: FALSE);
188: IF FND_API.To_Boolean(p_called_by_form) THEN
189: APP_EXCEPTION.Raise_Exception;
187: FALSE);
188: IF FND_API.To_Boolean(p_called_by_form) THEN
189: APP_EXCEPTION.Raise_Exception;
190: ELSE
191: x_msg_data := FND_MESSAGE.Get;
192: END IF;
193:
194: WHEN Row_Missing_Error THEN
195: ROLLBACK TO SAVEPOINT Insert_Row;
194: WHEN Row_Missing_Error THEN
195: ROLLBACK TO SAVEPOINT Insert_Row;
196: x_return_status := 'E';
197: x_oracle_error := APP_EXCEPTION.Get_Code;
198: FND_MESSAGE.SET_NAME('GR',
199: 'GR_NO_RECORD_INSERTED');
200: FND_MESSAGE.SET_TOKEN('CODE',
201: p_item_code,
202: FALSE);
196: x_return_status := 'E';
197: x_oracle_error := APP_EXCEPTION.Get_Code;
198: FND_MESSAGE.SET_NAME('GR',
199: 'GR_NO_RECORD_INSERTED');
200: FND_MESSAGE.SET_TOKEN('CODE',
201: p_item_code,
202: FALSE);
203: IF FND_API.To_Boolean(p_called_by_form) THEN
204: APP_EXCEPTION.Raise_Exception;
202: FALSE);
203: IF FND_API.To_Boolean(p_called_by_form) THEN
204: APP_EXCEPTION.Raise_Exception;
205: ELSE
206: x_msg_data := FND_MESSAGE.Get;
207: END IF;
208:
209: WHEN OTHERS THEN
210: ROLLBACK TO SAVEPOINT Insert_Row;
210: ROLLBACK TO SAVEPOINT Insert_Row;
211: x_return_status := 'U';
212: x_oracle_error := APP_EXCEPTION.Get_Code;
213: l_msg_data := APP_EXCEPTION.Get_Text;
214: FND_MESSAGE.SET_NAME('GR',
215: 'GR_UNEXPECTED_ERROR');
216: FND_MESSAGE.SET_TOKEN('TEXT',
217: l_msg_data,
218: FALSE);
212: x_oracle_error := APP_EXCEPTION.Get_Code;
213: l_msg_data := APP_EXCEPTION.Get_Text;
214: FND_MESSAGE.SET_NAME('GR',
215: 'GR_UNEXPECTED_ERROR');
216: FND_MESSAGE.SET_TOKEN('TEXT',
217: l_msg_data,
218: FALSE);
219: IF FND_API.To_Boolean(p_called_by_form) THEN
220: APP_EXCEPTION.Raise_Exception;
218: FALSE);
219: IF FND_API.To_Boolean(p_called_by_form) THEN
220: APP_EXCEPTION.Raise_Exception;
221: ELSE
222: x_msg_data := FND_MESSAGE.Get;
223: END IF;
224:
225: END Insert_Row;
226:
336: WHEN Foreign_Key_Error THEN
337: ROLLBACK TO SAVEPOINT Update_Row;
338: x_return_status := l_return_status;
339: x_oracle_error := l_oracle_error;
340: FND_MESSAGE.SET_NAME('GR',
341: 'GR_FOREIGN_KEY_ERROR');
342: FND_MESSAGE.SET_TOKEN('TEXT',
343: l_msg_data,
344: FALSE);
338: x_return_status := l_return_status;
339: x_oracle_error := l_oracle_error;
340: FND_MESSAGE.SET_NAME('GR',
341: 'GR_FOREIGN_KEY_ERROR');
342: FND_MESSAGE.SET_TOKEN('TEXT',
343: l_msg_data,
344: FALSE);
345: IF FND_API.To_Boolean(p_called_by_form) THEN
346: APP_EXCEPTION.Raise_Exception;
344: FALSE);
345: IF FND_API.To_Boolean(p_called_by_form) THEN
346: APP_EXCEPTION.Raise_Exception;
347: ELSE
348: x_msg_data := FND_MESSAGE.Get;
349: END IF;
350:
351: WHEN Row_Missing_Error THEN
352: ROLLBACK TO SAVEPOINT Update_Row;
351: WHEN Row_Missing_Error THEN
352: ROLLBACK TO SAVEPOINT Update_Row;
353: x_return_status := 'E';
354: x_oracle_error := APP_EXCEPTION.Get_Code;
355: FND_MESSAGE.SET_NAME('GR',
356: 'GR_NO_RECORD_INSERTED');
357: FND_MESSAGE.SET_TOKEN('CODE',
358: p_item_code,
359: FALSE);
353: x_return_status := 'E';
354: x_oracle_error := APP_EXCEPTION.Get_Code;
355: FND_MESSAGE.SET_NAME('GR',
356: 'GR_NO_RECORD_INSERTED');
357: FND_MESSAGE.SET_TOKEN('CODE',
358: p_item_code,
359: FALSE);
360: IF FND_API.To_Boolean(p_called_by_form) THEN
361: APP_EXCEPTION.Raise_Exception;
359: FALSE);
360: IF FND_API.To_Boolean(p_called_by_form) THEN
361: APP_EXCEPTION.Raise_Exception;
362: ELSE
363: x_msg_data := FND_MESSAGE.Get;
364: END IF;
365:
366: WHEN OTHERS THEN
367: ROLLBACK TO SAVEPOINT Update_Row;
367: ROLLBACK TO SAVEPOINT Update_Row;
368: x_return_status := 'U';
369: x_oracle_error := APP_EXCEPTION.Get_Code;
370: l_msg_data := APP_EXCEPTION.Get_Text;
371: FND_MESSAGE.SET_NAME('GR',
372: 'GR_UNEXPECTED_ERROR');
373: FND_MESSAGE.SET_TOKEN('TEXT',
374: l_msg_data,
375: FALSE);
369: x_oracle_error := APP_EXCEPTION.Get_Code;
370: l_msg_data := APP_EXCEPTION.Get_Text;
371: FND_MESSAGE.SET_NAME('GR',
372: 'GR_UNEXPECTED_ERROR');
373: FND_MESSAGE.SET_TOKEN('TEXT',
374: l_msg_data,
375: FALSE);
376: IF FND_API.To_Boolean(p_called_by_form) THEN
377: APP_EXCEPTION.Raise_Exception;
375: FALSE);
376: IF FND_API.To_Boolean(p_called_by_form) THEN
377: APP_EXCEPTION.Raise_Exception;
378: ELSE
379: x_msg_data := FND_MESSAGE.Get;
380: END IF;
381:
382: END Update_Row;
383:
461:
462: WHEN No_Data_Found_Error THEN
463: ROLLBACK TO SAVEPOINT Lock_Row;
464: x_return_status := 'E';
465: FND_MESSAGE.SET_NAME('GR',
466: 'GR_RECORD_NOT_FOUND');
467: FND_MESSAGE.SET_TOKEN('CODE',
468: p_item_code,
469: FALSE);
463: ROLLBACK TO SAVEPOINT Lock_Row;
464: x_return_status := 'E';
465: FND_MESSAGE.SET_NAME('GR',
466: 'GR_RECORD_NOT_FOUND');
467: FND_MESSAGE.SET_TOKEN('CODE',
468: p_item_code,
469: FALSE);
470: IF FND_API.To_Boolean(p_called_by_form) THEN
471: APP_EXCEPTION.Raise_Exception;
469: FALSE);
470: IF FND_API.To_Boolean(p_called_by_form) THEN
471: APP_EXCEPTION.Raise_Exception;
472: ELSE
473: x_msg_data := FND_MESSAGE.Get;
474: END IF;
475:
476: WHEN Row_Already_Locked_Error THEN
477: ROLLBACK TO SAVEPOINT Lock_Row;
476: WHEN Row_Already_Locked_Error THEN
477: ROLLBACK TO SAVEPOINT Lock_Row;
478: x_return_status := 'E';
479: x_oracle_error := APP_EXCEPTION.Get_Code;
480: FND_MESSAGE.SET_NAME('GR',
481: 'GR_ROW_IS_LOCKED');
482: IF FND_API.To_Boolean(p_called_by_form) THEN
483: APP_EXCEPTION.Raise_Exception;
484: ELSE
481: 'GR_ROW_IS_LOCKED');
482: IF FND_API.To_Boolean(p_called_by_form) THEN
483: APP_EXCEPTION.Raise_Exception;
484: ELSE
485: x_msg_data := FND_MESSAGE.Get;
486: END IF;
487:
488: WHEN OTHERS THEN
489: ROLLBACK TO SAVEPOINT Lock_Row;
489: ROLLBACK TO SAVEPOINT Lock_Row;
490: x_return_status := 'U';
491: x_oracle_error := APP_EXCEPTION.Get_Code;
492: l_msg_data := APP_EXCEPTION.Get_Text;
493: FND_MESSAGE.SET_NAME('GR',
494: 'GR_UNEXPECTED_ERROR');
495: FND_MESSAGE.SET_TOKEN('TEXT',
496: l_msg_data,
497: FALSE);
491: x_oracle_error := APP_EXCEPTION.Get_Code;
492: l_msg_data := APP_EXCEPTION.Get_Text;
493: FND_MESSAGE.SET_NAME('GR',
494: 'GR_UNEXPECTED_ERROR');
495: FND_MESSAGE.SET_TOKEN('TEXT',
496: l_msg_data,
497: FALSE);
498: IF FND_API.To_Boolean(p_called_by_form) THEN
499: APP_EXCEPTION.Raise_Exception;
497: FALSE);
498: IF FND_API.To_Boolean(p_called_by_form) THEN
499: APP_EXCEPTION.Raise_Exception;
500: ELSE
501: x_msg_data := FND_MESSAGE.Get;
502: END IF;
503:
504: END Lock_Row;
505:
600: x_oracle_error := l_oracle_error;
601: IF FND_API.To_Boolean(p_called_by_form) THEN
602: APP_EXCEPTION.Raise_Exception;
603: ELSE
604: x_msg_data := FND_MESSAGE.Get;
605: END IF;
606:
607: WHEN Row_Missing_Error THEN
608: ROLLBACK TO SAVEPOINT Delete_Row;
607: WHEN Row_Missing_Error THEN
608: ROLLBACK TO SAVEPOINT Delete_Row;
609: x_return_status := 'E';
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: FND_MESSAGE.SET_NAME('GR',
612: 'GR_RECORD_NOT_FOUND');
613: FND_MESSAGE.SET_TOKEN('CODE',
614: p_item_code,
615: FALSE);
609: x_return_status := 'E';
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: FND_MESSAGE.SET_NAME('GR',
612: 'GR_RECORD_NOT_FOUND');
613: FND_MESSAGE.SET_TOKEN('CODE',
614: p_item_code,
615: FALSE);
616: IF FND_API.To_Boolean(p_called_by_form) THEN
617: APP_EXCEPTION.Raise_Exception;
615: FALSE);
616: IF FND_API.To_Boolean(p_called_by_form) THEN
617: APP_EXCEPTION.Raise_Exception;
618: ELSE
619: x_msg_data := FND_MESSAGE.Get;
620: END IF;
621:
622: WHEN OTHERS THEN
623: ROLLBACK TO SAVEPOINT Delete_Row;
624: x_return_status := 'U';
625: x_oracle_error := APP_EXCEPTION.Get_Code;
626: l_msg_data := APP_EXCEPTION.Get_Text;
627: l_msg_data := APP_EXCEPTION.Get_Text;
628: FND_MESSAGE.SET_NAME('GR',
629: 'GR_UNEXPECTED_ERROR');
630: FND_MESSAGE.SET_TOKEN('TEXT',
631: l_msg_data,
632: FALSE);
626: l_msg_data := APP_EXCEPTION.Get_Text;
627: l_msg_data := APP_EXCEPTION.Get_Text;
628: FND_MESSAGE.SET_NAME('GR',
629: 'GR_UNEXPECTED_ERROR');
630: FND_MESSAGE.SET_TOKEN('TEXT',
631: l_msg_data,
632: FALSE);
633: IF FND_API.To_Boolean(p_called_by_form) THEN
634: APP_EXCEPTION.Raise_Exception;
632: FALSE);
633: IF FND_API.To_Boolean(p_called_by_form) THEN
634: APP_EXCEPTION.Raise_Exception;
635: ELSE
636: x_msg_data := FND_MESSAGE.Get;
637: END IF;
638:
639: END Delete_Row;
640:
682: ROLLBACK TO SAVEPOINT Delete_Rows;
683: x_return_status := 'U';
684: x_oracle_error := APP_EXCEPTION.Get_Code;
685: l_msg_data := APP_EXCEPTION.Get_Text;
686: FND_MESSAGE.SET_NAME('GR',
687: 'GR_UNEXPECTED_ERROR');
688: FND_MESSAGE.SET_TOKEN('TEXT',
689: l_msg_token,
690: FALSE);
684: x_oracle_error := APP_EXCEPTION.Get_Code;
685: l_msg_data := APP_EXCEPTION.Get_Text;
686: FND_MESSAGE.SET_NAME('GR',
687: 'GR_UNEXPECTED_ERROR');
688: FND_MESSAGE.SET_TOKEN('TEXT',
689: l_msg_token,
690: FALSE);
691: IF FND_API.To_Boolean(p_called_by_form) THEN
692: APP_EXCEPTION.Raise_Exception;
690: FALSE);
691: IF FND_API.To_Boolean(p_called_by_form) THEN
692: APP_EXCEPTION.Raise_Exception;
693: ELSE
694: x_msg_data := FND_MESSAGE.Get;
695: END IF;
696:
697: END Delete_Rows;
698:
759: l_key_exists);
760:
761: IF NOT FND_API.To_Boolean(l_key_exists) THEN
762: x_return_status := 'E';
763: FND_MESSAGE.SET_NAME('GR',
764: 'GR_RECORD_NOT_FOUND');
765: FND_MESSAGE.SET_TOKEN('CODE',
766: p_item_code,
767: FALSE);
761: IF NOT FND_API.To_Boolean(l_key_exists) THEN
762: x_return_status := 'E';
763: FND_MESSAGE.SET_NAME('GR',
764: 'GR_RECORD_NOT_FOUND');
765: FND_MESSAGE.SET_TOKEN('CODE',
766: p_item_code,
767: FALSE);
768: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
769: END IF;
764: 'GR_RECORD_NOT_FOUND');
765: FND_MESSAGE.SET_TOKEN('CODE',
766: p_item_code,
767: FALSE);
768: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
769: END IF;
770:
771: /* Check the ar location values */
772: /* Bug 4177974 Commented the calls to AR_LOCATION related tables */
774: OPEN c_get_ar_values;
775: FETCH c_get_ar_values INTO ARValuesRcd;
776: IF c_get_ar_values%NOTFOUND THEN
777: x_return_status := 'E';
778: FND_MESSAGE.SET_NAME('GR',
779: 'GR_RECORD_NOT_FOUND');
780: FND_MESSAGE.SET_TOKEN('CODE',
781: 'ar location values',
782: FALSE);
776: IF c_get_ar_values%NOTFOUND THEN
777: x_return_status := 'E';
778: FND_MESSAGE.SET_NAME('GR',
779: 'GR_RECORD_NOT_FOUND');
780: FND_MESSAGE.SET_TOKEN('CODE',
781: 'ar location values',
782: FALSE);
783: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
784: END IF;
779: 'GR_RECORD_NOT_FOUND');
780: FND_MESSAGE.SET_TOKEN('CODE',
781: 'ar location values',
782: FALSE);
783: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
784: END IF;
785: CLOSE c_get_ar_values;
786:
787:
795: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
796: x_return_status := 'U';
797: x_oracle_error := APP_EXCEPTION.Get_Code;
798: l_msg_data := APP_EXCEPTION.Get_Text;
799: FND_MESSAGE.SET_NAME('GR',
800: 'GR_UNEXPECTED_ERROR');
801: FND_MESSAGE.SET_TOKEN('TEXT',
802: l_msg_data,
803: FALSE);
797: x_oracle_error := APP_EXCEPTION.Get_Code;
798: l_msg_data := APP_EXCEPTION.Get_Text;
799: FND_MESSAGE.SET_NAME('GR',
800: 'GR_UNEXPECTED_ERROR');
801: FND_MESSAGE.SET_TOKEN('TEXT',
802: l_msg_data,
803: FALSE);
804: x_msg_data := FND_MESSAGE.Get;
805:
800: 'GR_UNEXPECTED_ERROR');
801: FND_MESSAGE.SET_TOKEN('TEXT',
802: l_msg_data,
803: FALSE);
804: x_msg_data := FND_MESSAGE.Get;
805:
806: END Check_Foreign_Keys;
807:
808: PROCEDURE Check_Integrity
865: ROLLBACK TO SAVEPOINT Check_Integrity;
866: x_return_status := 'U';
867: x_oracle_error := APP_EXCEPTION.Get_Code;
868: l_msg_data := APP_EXCEPTION.Get_Text;
869: FND_MESSAGE.SET_NAME('GR',
870: 'GR_UNEXPECTED_ERROR');
871: FND_MESSAGE.SET_TOKEN('TEXT',
872: l_msg_data,
873: FALSE);
867: x_oracle_error := APP_EXCEPTION.Get_Code;
868: l_msg_data := APP_EXCEPTION.Get_Text;
869: FND_MESSAGE.SET_NAME('GR',
870: 'GR_UNEXPECTED_ERROR');
871: FND_MESSAGE.SET_TOKEN('TEXT',
872: l_msg_data,
873: FALSE);
874: IF FND_API.To_Boolean(p_called_by_form) THEN
875: APP_EXCEPTION.Raise_Exception;
873: FALSE);
874: IF FND_API.To_Boolean(p_called_by_form) THEN
875: APP_EXCEPTION.Raise_Exception;
876: ELSE
877: x_msg_data := FND_MESSAGE.Get;
878: END IF;
879:
880: END Check_Integrity;
881:
927: EXCEPTION
928:
929: WHEN Others THEN
930: l_msg_data := APP_EXCEPTION.Get_Text;
931: FND_MESSAGE.SET_NAME('GR',
932: 'GR_UNEXPECTED_ERROR');
933: FND_MESSAGE.SET_TOKEN('TEXT',
934: l_msg_data,
935: FALSE);
929: WHEN Others THEN
930: l_msg_data := APP_EXCEPTION.Get_Text;
931: FND_MESSAGE.SET_NAME('GR',
932: 'GR_UNEXPECTED_ERROR');
933: FND_MESSAGE.SET_TOKEN('TEXT',
934: l_msg_data,
935: FALSE);
936: IF FND_API.To_Boolean(p_called_by_form) THEN
937: APP_EXCEPTION.Raise_Exception;