132: FND_MESSAGE.SET_TOKEN('TEXT',
133: l_msg_data,
134: FALSE);
135: IF FND_API.To_Boolean(p_called_by_form) THEN
136: APP_EXCEPTION.Raise_Exception;
137: ELSE
138: x_msg_data := FND_MESSAGE.Get;
139: END IF;
140:
141: WHEN Item_Exists_Error THEN
142: ROLLBACK TO SAVEPOINT Insert_Row;
143: l_msg_token := p_inventory_item_id;
144: x_return_status := 'E';
145: x_oracle_error := APP_EXCEPTION.Get_Code;
146: FND_MESSAGE.SET_NAME('GR',
147: 'GR_RECORD_EXISTS');
148: FND_MESSAGE.SET_TOKEN('CODE',
149: l_msg_token,
148: FND_MESSAGE.SET_TOKEN('CODE',
149: l_msg_token,
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 Row_Missing_Error THEN
158: ROLLBACK TO SAVEPOINT Insert_Row;
159: l_msg_token := p_inventory_item_id;
160: x_return_status := 'E';
161: x_oracle_error := APP_EXCEPTION.Get_Code;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_NO_RECORD_INSERTED');
164: FND_MESSAGE.SET_TOKEN('CODE',
165: l_msg_token,
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;
169: ELSE
170: x_msg_data := FND_MESSAGE.Get;
171: END IF;
172:
173: WHEN OTHERS THEN
174: ROLLBACK TO SAVEPOINT Insert_Row;
175: l_msg_token := p_inventory_item_id;
176: x_return_status := 'U';
177: x_oracle_error := APP_EXCEPTION.Get_Code;
178: l_msg_data := APP_EXCEPTION.Get_Text;
179: FND_MESSAGE.SET_NAME('GR',
180: 'GR_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('TEXT',
174: ROLLBACK TO SAVEPOINT Insert_Row;
175: l_msg_token := p_inventory_item_id;
176: x_return_status := 'U';
177: x_oracle_error := APP_EXCEPTION.Get_Code;
178: l_msg_data := APP_EXCEPTION.Get_Text;
179: FND_MESSAGE.SET_NAME('GR',
180: 'GR_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('TEXT',
182: l_msg_token,
181: FND_MESSAGE.SET_TOKEN('TEXT',
182: l_msg_token,
183: FALSE);
184: IF FND_API.To_Boolean(p_called_by_form) THEN
185: APP_EXCEPTION.Raise_Exception;
186: ELSE
187: x_msg_data := FND_MESSAGE.Get;
188: END IF;
189:
281: FND_MESSAGE.SET_TOKEN('TEXT',
282: l_msg_data,
283: FALSE);
284: IF FND_API.To_Boolean(p_called_by_form) THEN
285: APP_EXCEPTION.Raise_Exception;
286: ELSE
287: x_msg_data := FND_MESSAGE.Get;
288: END IF;
289:
289:
290: WHEN Row_Missing_Error THEN
291: ROLLBACK TO SAVEPOINT Update_Row;
292: x_return_status := 'E';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: FND_MESSAGE.SET_NAME('GR',
295: 'GR_NO_RECORD_INSERTED');
296: FND_MESSAGE.SET_TOKEN('CODE',
297: l_msg_token,
296: FND_MESSAGE.SET_TOKEN('CODE',
297: l_msg_token,
298: FALSE);
299: IF FND_API.To_Boolean(p_called_by_form) THEN
300: APP_EXCEPTION.Raise_Exception;
301: ELSE
302: x_msg_data := FND_MESSAGE.Get;
303: END IF;
304:
304:
305: WHEN OTHERS THEN
306: ROLLBACK TO SAVEPOINT Update_Row;
307: x_return_status := 'U';
308: x_oracle_error := APP_EXCEPTION.Get_Code;
309: l_msg_data := APP_EXCEPTION.Get_Text;
310: FND_MESSAGE.SET_NAME('GR',
311: 'GR_UNEXPECTED_ERROR');
312: FND_MESSAGE.SET_TOKEN('TEXT',
305: WHEN OTHERS THEN
306: ROLLBACK TO SAVEPOINT Update_Row;
307: x_return_status := 'U';
308: x_oracle_error := APP_EXCEPTION.Get_Code;
309: l_msg_data := APP_EXCEPTION.Get_Text;
310: FND_MESSAGE.SET_NAME('GR',
311: 'GR_UNEXPECTED_ERROR');
312: FND_MESSAGE.SET_TOKEN('TEXT',
313: l_msg_token,
312: FND_MESSAGE.SET_TOKEN('TEXT',
313: l_msg_token,
314: FALSE);
315: IF FND_API.To_Boolean(p_called_by_form) THEN
316: APP_EXCEPTION.Raise_Exception;
317: ELSE
318: x_msg_data := FND_MESSAGE.Get;
319: END IF;
320:
396: FND_MESSAGE.SET_TOKEN('CODE',
397: l_msg_token,
398: FALSE);
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
404:
404:
405: WHEN Row_Already_Locked_Error THEN
406: ROLLBACK TO SAVEPOINT Lock_Row;
407: x_return_status := 'E';
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: FND_MESSAGE.SET_NAME('GR',
410: 'GR_ROW_IS_LOCKED');
411: IF FND_API.To_Boolean(p_called_by_form) THEN
412: APP_EXCEPTION.Raise_Exception;
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: FND_MESSAGE.SET_NAME('GR',
410: 'GR_ROW_IS_LOCKED');
411: IF FND_API.To_Boolean(p_called_by_form) THEN
412: APP_EXCEPTION.Raise_Exception;
413: ELSE
414: x_msg_data := FND_MESSAGE.Get;
415: END IF;
416:
416:
417: WHEN OTHERS THEN
418: ROLLBACK TO SAVEPOINT Lock_Row;
419: x_return_status := 'U';
420: x_oracle_error := APP_EXCEPTION.Get_Code;
421: l_msg_data := APP_EXCEPTION.Get_Text;
422: FND_MESSAGE.SET_NAME('GR',
423: 'GR_UNEXPECTED_ERROR');
424: FND_MESSAGE.SET_TOKEN('TEXT',
417: WHEN OTHERS THEN
418: ROLLBACK TO SAVEPOINT Lock_Row;
419: x_return_status := 'U';
420: x_oracle_error := APP_EXCEPTION.Get_Code;
421: l_msg_data := APP_EXCEPTION.Get_Text;
422: FND_MESSAGE.SET_NAME('GR',
423: 'GR_UNEXPECTED_ERROR');
424: FND_MESSAGE.SET_TOKEN('TEXT',
425: l_msg_token,
424: FND_MESSAGE.SET_TOKEN('TEXT',
425: l_msg_token,
426: FALSE);
427: IF FND_API.To_Boolean(p_called_by_form) THEN
428: APP_EXCEPTION.Raise_Exception;
429: ELSE
430: x_msg_data := FND_MESSAGE.Get;
431: END IF;
432:
510: ROLLBACK TO SAVEPOINT Delete_Row;
511: x_return_status := l_return_status;
512: x_oracle_error := l_oracle_error;
513: IF FND_API.To_Boolean(p_called_by_form) THEN
514: APP_EXCEPTION.Raise_Exception;
515: ELSE
516: x_msg_data := FND_MESSAGE.Get;
517: END IF;
518:
518:
519: WHEN Row_Missing_Error THEN
520: ROLLBACK TO SAVEPOINT Delete_Row;
521: x_return_status := 'E';
522: x_oracle_error := APP_EXCEPTION.Get_Code;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_RECORD_NOT_FOUND');
525: FND_MESSAGE.SET_TOKEN('CODE',
526: l_msg_token,
525: FND_MESSAGE.SET_TOKEN('CODE',
526: l_msg_token,
527: FALSE);
528: IF FND_API.To_Boolean(p_called_by_form) THEN
529: APP_EXCEPTION.Raise_Exception;
530: ELSE
531: x_msg_data := FND_MESSAGE.Get;
532: END IF;
533:
533:
534: WHEN OTHERS THEN
535: ROLLBACK TO SAVEPOINT Delete_Row;
536: x_return_status := 'U';
537: x_oracle_error := APP_EXCEPTION.Get_Code;
538: l_msg_data := APP_EXCEPTION.Get_Text;
539: l_msg_data := APP_EXCEPTION.Get_Text;
540: FND_MESSAGE.SET_NAME('GR',
541: 'GR_UNEXPECTED_ERROR');
534: WHEN OTHERS THEN
535: ROLLBACK TO SAVEPOINT Delete_Row;
536: x_return_status := 'U';
537: x_oracle_error := APP_EXCEPTION.Get_Code;
538: l_msg_data := APP_EXCEPTION.Get_Text;
539: l_msg_data := APP_EXCEPTION.Get_Text;
540: FND_MESSAGE.SET_NAME('GR',
541: 'GR_UNEXPECTED_ERROR');
542: FND_MESSAGE.SET_TOKEN('TEXT',
535: ROLLBACK TO SAVEPOINT Delete_Row;
536: x_return_status := 'U';
537: x_oracle_error := APP_EXCEPTION.Get_Code;
538: l_msg_data := APP_EXCEPTION.Get_Text;
539: l_msg_data := APP_EXCEPTION.Get_Text;
540: FND_MESSAGE.SET_NAME('GR',
541: 'GR_UNEXPECTED_ERROR');
542: FND_MESSAGE.SET_TOKEN('TEXT',
543: l_msg_token,
542: FND_MESSAGE.SET_TOKEN('TEXT',
543: l_msg_token,
544: FALSE);
545: IF FND_API.To_Boolean(p_called_by_form) THEN
546: APP_EXCEPTION.Raise_Exception;
547: ELSE
548: x_msg_data := FND_MESSAGE.Get;
549: END IF;
550:
594:
595: WHEN OTHERS THEN
596: ROLLBACK TO SAVEPOINT Delete_Rows;
597: x_return_status := 'U';
598: x_oracle_error := APP_EXCEPTION.Get_Code;
599: l_msg_data := APP_EXCEPTION.Get_Text;
600: FND_MESSAGE.SET_NAME('GR',
601: 'GR_UNEXPECTED_ERROR');
602: FND_MESSAGE.SET_TOKEN('TEXT',
595: WHEN OTHERS THEN
596: ROLLBACK TO SAVEPOINT Delete_Rows;
597: x_return_status := 'U';
598: x_oracle_error := APP_EXCEPTION.Get_Code;
599: l_msg_data := APP_EXCEPTION.Get_Text;
600: FND_MESSAGE.SET_NAME('GR',
601: 'GR_UNEXPECTED_ERROR');
602: FND_MESSAGE.SET_TOKEN('TEXT',
603: l_msg_token,
602: FND_MESSAGE.SET_TOKEN('TEXT',
603: l_msg_token,
604: FALSE);
605: IF FND_API.To_Boolean(p_called_by_form) THEN
606: APP_EXCEPTION.Raise_Exception;
607: ELSE
608: x_msg_data := FND_MESSAGE.Get;
609: END IF;
610:
656:
657: WHEN OTHERS THEN
658: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
659: x_return_status := 'U';
660: x_oracle_error := APP_EXCEPTION.Get_Code;
661: l_msg_data := APP_EXCEPTION.Get_Text;
662: FND_MESSAGE.SET_NAME('GR',
663: 'GR_UNEXPECTED_ERROR');
664: FND_MESSAGE.SET_TOKEN('TEXT',
657: WHEN OTHERS THEN
658: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
659: x_return_status := 'U';
660: x_oracle_error := APP_EXCEPTION.Get_Code;
661: l_msg_data := APP_EXCEPTION.Get_Text;
662: FND_MESSAGE.SET_NAME('GR',
663: 'GR_UNEXPECTED_ERROR');
664: FND_MESSAGE.SET_TOKEN('TEXT',
665: l_msg_token,
711:
712: WHEN OTHERS THEN
713: ROLLBACK TO SAVEPOINT Check_Integrity;
714: x_return_status := 'U';
715: x_oracle_error := APP_EXCEPTION.Get_Code;
716: l_msg_data := APP_EXCEPTION.Get_Text;
717: FND_MESSAGE.SET_NAME('GR',
718: 'GR_UNEXPECTED_ERROR');
719: FND_MESSAGE.SET_TOKEN('TEXT',
712: WHEN OTHERS THEN
713: ROLLBACK TO SAVEPOINT Check_Integrity;
714: x_return_status := 'U';
715: x_oracle_error := APP_EXCEPTION.Get_Code;
716: l_msg_data := APP_EXCEPTION.Get_Text;
717: FND_MESSAGE.SET_NAME('GR',
718: 'GR_UNEXPECTED_ERROR');
719: FND_MESSAGE.SET_TOKEN('TEXT',
720: l_msg_data,
719: FND_MESSAGE.SET_TOKEN('TEXT',
720: l_msg_data,
721: FALSE);
722: IF FND_API.To_Boolean(p_called_by_form) THEN
723: APP_EXCEPTION.Raise_Exception;
724: ELSE
725: x_msg_data := FND_MESSAGE.Get;
726: END IF;
727:
777:
778: EXCEPTION
779:
780: WHEN Others THEN
781: l_msg_data := APP_EXCEPTION.Get_Text;
782: FND_MESSAGE.SET_NAME('GR',
783: 'GR_UNEXPECTED_ERROR');
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_data,
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_data,
786: FALSE);
787: IF FND_API.To_Boolean(p_called_by_form) THEN
788: APP_EXCEPTION.Raise_Exception;
789: END IF;
790:
791: END Check_Primary_Key;
792: