143: WHEN Foreign_Key_Error THEN
144: ROLLBACK TO SAVEPOINT Insert_Row;
145: x_return_status := l_return_status;
146: x_oracle_error := l_oracle_error;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_FOREIGN_KEY_ERROR');
149: FND_MESSAGE.SET_TOKEN('TEXT',
150: l_msg_data,
151: FALSE);
145: x_return_status := l_return_status;
146: x_oracle_error := l_oracle_error;
147: FND_MESSAGE.SET_NAME('GR',
148: 'GR_FOREIGN_KEY_ERROR');
149: FND_MESSAGE.SET_TOKEN('TEXT',
150: l_msg_data,
151: FALSE);
152: IF FND_API.To_Boolean(p_called_by_form) THEN
153: APP_EXCEPTION.Raise_Exception;
151: FALSE);
152: IF FND_API.To_Boolean(p_called_by_form) THEN
153: APP_EXCEPTION.Raise_Exception;
154: ELSE
155: x_msg_data := FND_MESSAGE.Get;
156: END IF;
157:
158: WHEN Item_Exists_Error THEN
159: ROLLBACK TO SAVEPOINT Insert_Row;
158: WHEN Item_Exists_Error THEN
159: ROLLBACK TO SAVEPOINT Insert_Row;
160: x_return_status := 'E';
161: x_oracle_error := APP_EXCEPTION.Get_Code;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_RECORD_EXISTS');
164: FND_MESSAGE.SET_TOKEN('CODE',
165: l_msg_token,
166: FALSE);
160: x_return_status := 'E';
161: x_oracle_error := APP_EXCEPTION.Get_Code;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_RECORD_EXISTS');
164: FND_MESSAGE.SET_TOKEN('CODE',
165: l_msg_token,
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: WHEN Row_Missing_Error THEN
174: ROLLBACK TO SAVEPOINT Insert_Row;
173: WHEN Row_Missing_Error THEN
174: ROLLBACK TO SAVEPOINT Insert_Row;
175: x_return_status := 'E';
176: x_oracle_error := APP_EXCEPTION.Get_Code;
177: FND_MESSAGE.SET_NAME('GR',
178: 'GR_NO_RECORD_INSERTED');
179: FND_MESSAGE.SET_TOKEN('CODE',
180: l_msg_token,
181: FALSE);
175: x_return_status := 'E';
176: x_oracle_error := APP_EXCEPTION.Get_Code;
177: FND_MESSAGE.SET_NAME('GR',
178: 'GR_NO_RECORD_INSERTED');
179: FND_MESSAGE.SET_TOKEN('CODE',
180: l_msg_token,
181: FALSE);
182: IF FND_API.To_Boolean(p_called_by_form) THEN
183: APP_EXCEPTION.Raise_Exception;
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:
188: WHEN OTHERS THEN
189: ROLLBACK TO SAVEPOINT Insert_Row;
189: ROLLBACK TO SAVEPOINT Insert_Row;
190: x_return_status := 'U';
191: x_oracle_error := APP_EXCEPTION.Get_Code;
192: l_msg_data := APP_EXCEPTION.Get_Text;
193: FND_MESSAGE.SET_NAME('GR',
194: 'GR_UNEXPECTED_ERROR');
195: FND_MESSAGE.SET_TOKEN('TEXT',
196: l_msg_token,
197: FALSE);
191: x_oracle_error := APP_EXCEPTION.Get_Code;
192: l_msg_data := APP_EXCEPTION.Get_Text;
193: FND_MESSAGE.SET_NAME('GR',
194: 'GR_UNEXPECTED_ERROR');
195: FND_MESSAGE.SET_TOKEN('TEXT',
196: l_msg_token,
197: FALSE);
198: IF FND_API.To_Boolean(p_called_by_form) THEN
199: APP_EXCEPTION.Raise_Exception;
197: FALSE);
198: IF FND_API.To_Boolean(p_called_by_form) THEN
199: APP_EXCEPTION.Raise_Exception;
200: ELSE
201: x_msg_data := FND_MESSAGE.Get;
202: END IF;
203:
204: END Insert_Row;
205:
303: WHEN Foreign_Key_Error THEN
304: ROLLBACK TO SAVEPOINT Update_Row;
305: x_return_status := l_return_status;
306: x_oracle_error := l_oracle_error;
307: FND_MESSAGE.SET_NAME('GR',
308: 'GR_FOREIGN_KEY_ERROR');
309: FND_MESSAGE.SET_TOKEN('TEXT',
310: l_msg_data,
311: FALSE);
305: x_return_status := l_return_status;
306: x_oracle_error := l_oracle_error;
307: FND_MESSAGE.SET_NAME('GR',
308: 'GR_FOREIGN_KEY_ERROR');
309: FND_MESSAGE.SET_TOKEN('TEXT',
310: l_msg_data,
311: FALSE);
312: IF FND_API.To_Boolean(p_called_by_form) THEN
313: APP_EXCEPTION.Raise_Exception;
311: FALSE);
312: IF FND_API.To_Boolean(p_called_by_form) THEN
313: APP_EXCEPTION.Raise_Exception;
314: ELSE
315: x_msg_data := FND_MESSAGE.Get;
316: END IF;
317:
318: WHEN Row_Missing_Error THEN
319: ROLLBACK TO SAVEPOINT Update_Row;
318: WHEN Row_Missing_Error THEN
319: ROLLBACK TO SAVEPOINT Update_Row;
320: x_return_status := 'E';
321: x_oracle_error := APP_EXCEPTION.Get_Code;
322: FND_MESSAGE.SET_NAME('GR',
323: 'GR_NO_RECORD_INSERTED');
324: FND_MESSAGE.SET_TOKEN('CODE',
325: l_msg_token,
326: FALSE);
320: x_return_status := 'E';
321: x_oracle_error := APP_EXCEPTION.Get_Code;
322: FND_MESSAGE.SET_NAME('GR',
323: 'GR_NO_RECORD_INSERTED');
324: FND_MESSAGE.SET_TOKEN('CODE',
325: l_msg_token,
326: FALSE);
327: IF FND_API.To_Boolean(p_called_by_form) THEN
328: APP_EXCEPTION.Raise_Exception;
326: FALSE);
327: IF FND_API.To_Boolean(p_called_by_form) THEN
328: APP_EXCEPTION.Raise_Exception;
329: ELSE
330: x_msg_data := FND_MESSAGE.Get;
331: END IF;
332:
333: WHEN OTHERS THEN
334: ROLLBACK TO SAVEPOINT Update_Row;
334: ROLLBACK TO SAVEPOINT Update_Row;
335: x_return_status := 'U';
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: l_msg_data := APP_EXCEPTION.Get_Text;
338: FND_MESSAGE.SET_NAME('GR',
339: 'GR_UNEXPECTED_ERROR');
340: FND_MESSAGE.SET_TOKEN('TEXT',
341: l_msg_token,
342: FALSE);
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: l_msg_data := APP_EXCEPTION.Get_Text;
338: FND_MESSAGE.SET_NAME('GR',
339: 'GR_UNEXPECTED_ERROR');
340: FND_MESSAGE.SET_TOKEN('TEXT',
341: l_msg_token,
342: FALSE);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
342: FALSE);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
345: ELSE
346: x_msg_data := FND_MESSAGE.Get;
347: END IF;
348:
349: END Update_Row;
350:
423:
424: WHEN No_Data_Found_Error THEN
425: ROLLBACK TO SAVEPOINT Lock_Row;
426: x_return_status := 'E';
427: FND_MESSAGE.SET_NAME('GR',
428: 'GR_RECORD_NOT_FOUND');
429: FND_MESSAGE.SET_TOKEN('CODE',
430: l_msg_token,
431: FALSE);
425: ROLLBACK TO SAVEPOINT Lock_Row;
426: x_return_status := 'E';
427: FND_MESSAGE.SET_NAME('GR',
428: 'GR_RECORD_NOT_FOUND');
429: FND_MESSAGE.SET_TOKEN('CODE',
430: l_msg_token,
431: FALSE);
432: IF FND_API.To_Boolean(p_called_by_form) THEN
433: APP_EXCEPTION.Raise_Exception;
431: FALSE);
432: IF FND_API.To_Boolean(p_called_by_form) THEN
433: APP_EXCEPTION.Raise_Exception;
434: ELSE
435: x_msg_data := FND_MESSAGE.Get;
436: END IF;
437:
438: WHEN Row_Already_Locked_Error THEN
439: ROLLBACK TO SAVEPOINT Lock_Row;
438: WHEN Row_Already_Locked_Error THEN
439: ROLLBACK TO SAVEPOINT Lock_Row;
440: x_return_status := 'E';
441: x_oracle_error := APP_EXCEPTION.Get_Code;
442: FND_MESSAGE.SET_NAME('GR',
443: 'GR_ROW_IS_LOCKED');
444: IF FND_API.To_Boolean(p_called_by_form) THEN
445: APP_EXCEPTION.Raise_Exception;
446: ELSE
443: 'GR_ROW_IS_LOCKED');
444: IF FND_API.To_Boolean(p_called_by_form) THEN
445: APP_EXCEPTION.Raise_Exception;
446: ELSE
447: x_msg_data := FND_MESSAGE.Get;
448: END IF;
449:
450: WHEN OTHERS THEN
451: ROLLBACK TO SAVEPOINT Lock_Row;
451: ROLLBACK TO SAVEPOINT Lock_Row;
452: x_return_status := 'U';
453: x_oracle_error := APP_EXCEPTION.Get_Code;
454: l_msg_data := APP_EXCEPTION.Get_Text;
455: FND_MESSAGE.SET_NAME('GR',
456: 'GR_UNEXPECTED_ERROR');
457: FND_MESSAGE.SET_TOKEN('TEXT',
458: l_msg_token,
459: FALSE);
453: x_oracle_error := APP_EXCEPTION.Get_Code;
454: l_msg_data := APP_EXCEPTION.Get_Text;
455: FND_MESSAGE.SET_NAME('GR',
456: 'GR_UNEXPECTED_ERROR');
457: FND_MESSAGE.SET_TOKEN('TEXT',
458: l_msg_token,
459: FALSE);
460: IF FND_API.To_Boolean(p_called_by_form) THEN
461: APP_EXCEPTION.Raise_Exception;
459: FALSE);
460: IF FND_API.To_Boolean(p_called_by_form) THEN
461: APP_EXCEPTION.Raise_Exception;
462: ELSE
463: x_msg_data := FND_MESSAGE.Get;
464: END IF;
465:
466: END Lock_Row;
467:
562: WHEN Row_Missing_Error THEN
563: ROLLBACK TO SAVEPOINT Delete_Row;
564: x_return_status := 'E';
565: x_oracle_error := APP_EXCEPTION.Get_Code;
566: FND_MESSAGE.SET_NAME('GR',
567: 'GR_RECORD_NOT_FOUND');
568: FND_MESSAGE.SET_TOKEN('CODE',
569: l_msg_token,
570: FALSE);
564: x_return_status := 'E';
565: x_oracle_error := APP_EXCEPTION.Get_Code;
566: FND_MESSAGE.SET_NAME('GR',
567: 'GR_RECORD_NOT_FOUND');
568: FND_MESSAGE.SET_TOKEN('CODE',
569: l_msg_token,
570: FALSE);
571: IF FND_API.To_Boolean(p_called_by_form) THEN
572: APP_EXCEPTION.Raise_Exception;
570: FALSE);
571: IF FND_API.To_Boolean(p_called_by_form) THEN
572: APP_EXCEPTION.Raise_Exception;
573: ELSE
574: x_msg_data := FND_MESSAGE.Get;
575: END IF;
576:
577: WHEN OTHERS THEN
578: ROLLBACK TO SAVEPOINT Delete_Row;
579: x_return_status := 'U';
580: x_oracle_error := APP_EXCEPTION.Get_Code;
581: l_msg_data := APP_EXCEPTION.Get_Text;
582: l_msg_data := APP_EXCEPTION.Get_Text;
583: FND_MESSAGE.SET_NAME('GR',
584: 'GR_UNEXPECTED_ERROR');
585: FND_MESSAGE.SET_TOKEN('TEXT',
586: l_msg_token,
587: FALSE);
581: l_msg_data := APP_EXCEPTION.Get_Text;
582: l_msg_data := APP_EXCEPTION.Get_Text;
583: FND_MESSAGE.SET_NAME('GR',
584: 'GR_UNEXPECTED_ERROR');
585: FND_MESSAGE.SET_TOKEN('TEXT',
586: l_msg_token,
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
590: ELSE
591: x_msg_data := FND_MESSAGE.Get;
592: END IF;
593:
594: END Delete_Row;
595:
637: ROLLBACK TO SAVEPOINT Delete_Rows;
638: x_return_status := 'U';
639: x_oracle_error := APP_EXCEPTION.Get_Code;
640: l_msg_data := APP_EXCEPTION.Get_Text;
641: FND_MESSAGE.SET_NAME('GR',
642: 'GR_UNEXPECTED_ERROR');
643: FND_MESSAGE.SET_TOKEN('TEXT',
644: l_msg_token,
645: FALSE);
639: x_oracle_error := APP_EXCEPTION.Get_Code;
640: l_msg_data := APP_EXCEPTION.Get_Text;
641: FND_MESSAGE.SET_NAME('GR',
642: 'GR_UNEXPECTED_ERROR');
643: FND_MESSAGE.SET_TOKEN('TEXT',
644: l_msg_token,
645: FALSE);
646: IF FND_API.To_Boolean(p_called_by_form) THEN
647: APP_EXCEPTION.Raise_Exception;
645: FALSE);
646: IF FND_API.To_Boolean(p_called_by_form) THEN
647: APP_EXCEPTION.Raise_Exception;
648: ELSE
649: x_msg_data := FND_MESSAGE.Get;
650: END IF;
651:
652: END Delete_Rows;
653:
710: l_key_exists);
711:
712: IF NOT FND_API.To_Boolean(l_key_exists) THEN
713: x_return_status := 'E';
714: FND_MESSAGE.SET_NAME('GR',
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_item_code,
718: FALSE);
712: IF NOT FND_API.To_Boolean(l_key_exists) THEN
713: x_return_status := 'E';
714: FND_MESSAGE.SET_NAME('GR',
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_item_code,
718: FALSE);
719: l_msg_data := FND_MESSAGE.Get;
720: END IF;
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_item_code,
718: FALSE);
719: l_msg_data := FND_MESSAGE.Get;
720: END IF;
721:
722: /* Disclosure Code */
723:
724: OPEN c_get_disc_code;
725: FETCH c_get_disc_code INTO DiscRecord;
726: IF c_get_disc_code%NOTFOUND THEN
727: x_return_status := 'E';
728: FND_MESSAGE.SET_NAME('GR',
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: p_disclosure_code,
732: FALSE);
726: IF c_get_disc_code%NOTFOUND THEN
727: x_return_status := 'E';
728: FND_MESSAGE.SET_NAME('GR',
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: p_disclosure_code,
732: FALSE);
733: l_msg_data := l_msg_data || ' ' || FND_MESSAGE.Get;
734: END IF;
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: p_disclosure_code,
732: FALSE);
733: l_msg_data := l_msg_data || ' ' || FND_MESSAGE.Get;
734: END IF;
735: CLOSE c_get_disc_code;
736:
737: IF x_return_status <> 'S' THEN
744: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
745: x_return_status := 'U';
746: x_oracle_error := APP_EXCEPTION.Get_Code;
747: l_msg_data := APP_EXCEPTION.Get_Text;
748: FND_MESSAGE.SET_NAME('GR',
749: 'GR_UNEXPECTED_ERROR');
750: FND_MESSAGE.SET_TOKEN('TEXT',
751: l_msg_token,
752: FALSE);
746: x_oracle_error := APP_EXCEPTION.Get_Code;
747: l_msg_data := APP_EXCEPTION.Get_Text;
748: FND_MESSAGE.SET_NAME('GR',
749: 'GR_UNEXPECTED_ERROR');
750: FND_MESSAGE.SET_TOKEN('TEXT',
751: l_msg_token,
752: FALSE);
753: x_msg_data := FND_MESSAGE.Get;
754:
749: 'GR_UNEXPECTED_ERROR');
750: FND_MESSAGE.SET_TOKEN('TEXT',
751: l_msg_token,
752: FALSE);
753: x_msg_data := FND_MESSAGE.Get;
754:
755: END Check_Foreign_Keys;
756:
757: PROCEDURE Check_Integrity
806: ROLLBACK TO SAVEPOINT Check_Integrity;
807: x_return_status := 'U';
808: x_oracle_error := APP_EXCEPTION.Get_Code;
809: l_msg_data := APP_EXCEPTION.Get_Text;
810: FND_MESSAGE.SET_NAME('GR',
811: 'GR_UNEXPECTED_ERROR');
812: FND_MESSAGE.SET_TOKEN('TEXT',
813: l_msg_data,
814: FALSE);
808: x_oracle_error := APP_EXCEPTION.Get_Code;
809: l_msg_data := APP_EXCEPTION.Get_Text;
810: FND_MESSAGE.SET_NAME('GR',
811: 'GR_UNEXPECTED_ERROR');
812: FND_MESSAGE.SET_TOKEN('TEXT',
813: l_msg_data,
814: FALSE);
815: IF FND_API.To_Boolean(p_called_by_form) THEN
816: APP_EXCEPTION.Raise_Exception;
814: FALSE);
815: IF FND_API.To_Boolean(p_called_by_form) THEN
816: APP_EXCEPTION.Raise_Exception;
817: ELSE
818: x_msg_data := FND_MESSAGE.Get;
819: END IF;
820:
821: END Check_Integrity;
822:
866: EXCEPTION
867:
868: WHEN Others THEN
869: l_msg_data := APP_EXCEPTION.Get_Text;
870: FND_MESSAGE.SET_NAME('GR',
871: 'GR_UNEXPECTED_ERROR');
872: FND_MESSAGE.SET_TOKEN('TEXT',
873: l_msg_data,
874: FALSE);
868: WHEN Others THEN
869: l_msg_data := APP_EXCEPTION.Get_Text;
870: FND_MESSAGE.SET_NAME('GR',
871: 'GR_UNEXPECTED_ERROR');
872: FND_MESSAGE.SET_TOKEN('TEXT',
873: l_msg_data,
874: FALSE);
875: IF FND_API.To_Boolean(p_called_by_form) THEN
876: APP_EXCEPTION.Raise_Exception;