119: WHEN Foreign_Key_Error THEN
120: ROLLBACK TO SAVEPOINT Insert_Row;
121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);
121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);
128: IF FND_API.To_Boolean(p_called_by_form) THEN
129: APP_EXCEPTION.Raise_Exception;
127: FALSE);
128: IF FND_API.To_Boolean(p_called_by_form) THEN
129: APP_EXCEPTION.Raise_Exception;
130: ELSE
131: x_msg_data := FND_MESSAGE.Get;
132: END IF;
133:
134: WHEN Item_Exists_Error THEN
135: ROLLBACK TO SAVEPOINT Insert_Row;
134: WHEN Item_Exists_Error THEN
135: ROLLBACK TO SAVEPOINT Insert_Row;
136: x_return_status := 'E';
137: x_oracle_error := APP_EXCEPTION.Get_Code;
138: FND_MESSAGE.SET_NAME('GR',
139: 'GR_RECORD_EXISTS');
140: FND_MESSAGE.SET_TOKEN('CODE',
141: l_msg_token,
142: FALSE);
136: x_return_status := 'E';
137: x_oracle_error := APP_EXCEPTION.Get_Code;
138: FND_MESSAGE.SET_NAME('GR',
139: 'GR_RECORD_EXISTS');
140: FND_MESSAGE.SET_TOKEN('CODE',
141: l_msg_token,
142: FALSE);
143: IF FND_API.To_Boolean(p_called_by_form) THEN
144: APP_EXCEPTION.Raise_Exception;
142: FALSE);
143: IF FND_API.To_Boolean(p_called_by_form) THEN
144: APP_EXCEPTION.Raise_Exception;
145: ELSE
146: x_msg_data := FND_MESSAGE.Get;
147: END IF;
148:
149: WHEN Row_Missing_Error THEN
150: ROLLBACK TO SAVEPOINT Insert_Row;
149: WHEN Row_Missing_Error THEN
150: ROLLBACK TO SAVEPOINT Insert_Row;
151: x_return_status := 'E';
152: x_oracle_error := APP_EXCEPTION.Get_Code;
153: FND_MESSAGE.SET_NAME('GR',
154: 'GR_NO_RECORD_INSERTED');
155: FND_MESSAGE.SET_TOKEN('CODE',
156: l_msg_token,
157: FALSE);
151: x_return_status := 'E';
152: x_oracle_error := APP_EXCEPTION.Get_Code;
153: FND_MESSAGE.SET_NAME('GR',
154: 'GR_NO_RECORD_INSERTED');
155: FND_MESSAGE.SET_TOKEN('CODE',
156: l_msg_token,
157: FALSE);
158: IF FND_API.To_Boolean(p_called_by_form) THEN
159: APP_EXCEPTION.Raise_Exception;
157: FALSE);
158: IF FND_API.To_Boolean(p_called_by_form) THEN
159: APP_EXCEPTION.Raise_Exception;
160: ELSE
161: x_msg_data := FND_MESSAGE.Get;
162: END IF;
163:
164: WHEN OTHERS THEN
165: ROLLBACK TO SAVEPOINT Insert_Row;
165: ROLLBACK TO SAVEPOINT Insert_Row;
166: x_return_status := 'U';
167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: l_msg_data := APP_EXCEPTION.Get_Text;
169: FND_MESSAGE.SET_NAME('GR',
170: 'GR_UNEXPECTED_ERROR');
171: FND_MESSAGE.SET_TOKEN('TEXT',
172: l_msg_token,
173: FALSE);
167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: l_msg_data := APP_EXCEPTION.Get_Text;
169: FND_MESSAGE.SET_NAME('GR',
170: 'GR_UNEXPECTED_ERROR');
171: FND_MESSAGE.SET_TOKEN('TEXT',
172: l_msg_token,
173: FALSE);
174: IF FND_API.To_Boolean(p_called_by_form) THEN
175: APP_EXCEPTION.Raise_Exception;
173: FALSE);
174: IF FND_API.To_Boolean(p_called_by_form) THEN
175: APP_EXCEPTION.Raise_Exception;
176: ELSE
177: x_msg_data := FND_MESSAGE.Get;
178: END IF;
179:
180: END Insert_Row;
181:
261: WHEN Foreign_Key_Error THEN
262: ROLLBACK TO SAVEPOINT Update_Row;
263: x_return_status := l_return_status;
264: x_oracle_error := l_oracle_error;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_FOREIGN_KEY_ERROR');
267: FND_MESSAGE.SET_TOKEN('TEXT',
268: l_msg_data,
269: FALSE);
263: x_return_status := l_return_status;
264: x_oracle_error := l_oracle_error;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_FOREIGN_KEY_ERROR');
267: FND_MESSAGE.SET_TOKEN('TEXT',
268: l_msg_data,
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
272: ELSE
273: x_msg_data := FND_MESSAGE.Get;
274: END IF;
275:
276: WHEN Row_Missing_Error THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
276: WHEN Row_Missing_Error THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
278: x_return_status := 'E';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: FND_MESSAGE.SET_NAME('GR',
281: 'GR_NO_RECORD_INSERTED');
282: FND_MESSAGE.SET_TOKEN('CODE',
283: l_msg_token,
284: FALSE);
278: x_return_status := 'E';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: FND_MESSAGE.SET_NAME('GR',
281: 'GR_NO_RECORD_INSERTED');
282: FND_MESSAGE.SET_TOKEN('CODE',
283: l_msg_token,
284: FALSE);
285: IF FND_API.To_Boolean(p_called_by_form) THEN
286: APP_EXCEPTION.Raise_Exception;
284: FALSE);
285: IF FND_API.To_Boolean(p_called_by_form) THEN
286: APP_EXCEPTION.Raise_Exception;
287: ELSE
288: x_msg_data := FND_MESSAGE.Get;
289: END IF;
290:
291: WHEN OTHERS THEN
292: ROLLBACK TO SAVEPOINT Update_Row;
292: ROLLBACK TO SAVEPOINT Update_Row;
293: x_return_status := 'U';
294: x_oracle_error := APP_EXCEPTION.Get_Code;
295: l_msg_data := APP_EXCEPTION.Get_Text;
296: FND_MESSAGE.SET_NAME('GR',
297: 'GR_UNEXPECTED_ERROR');
298: FND_MESSAGE.SET_TOKEN('TEXT',
299: l_msg_token,
300: FALSE);
294: x_oracle_error := APP_EXCEPTION.Get_Code;
295: l_msg_data := APP_EXCEPTION.Get_Text;
296: FND_MESSAGE.SET_NAME('GR',
297: 'GR_UNEXPECTED_ERROR');
298: FND_MESSAGE.SET_TOKEN('TEXT',
299: l_msg_token,
300: FALSE);
301: IF FND_API.To_Boolean(p_called_by_form) THEN
302: APP_EXCEPTION.Raise_Exception;
300: FALSE);
301: IF FND_API.To_Boolean(p_called_by_form) THEN
302: APP_EXCEPTION.Raise_Exception;
303: ELSE
304: x_msg_data := FND_MESSAGE.Get;
305: END IF;
306:
307: END Update_Row;
308:
375:
376: WHEN No_Data_Found_Error THEN
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: l_msg_token,
383: FALSE);
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: l_msg_token,
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
386: ELSE
387: x_msg_data := FND_MESSAGE.Get;
388: END IF;
389:
390: WHEN Row_Already_Locked_Error THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
390: WHEN Row_Already_Locked_Error THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'E';
393: x_oracle_error := APP_EXCEPTION.Get_Code;
394: FND_MESSAGE.SET_NAME('GR',
395: 'GR_ROW_IS_LOCKED');
396: IF FND_API.To_Boolean(p_called_by_form) THEN
397: APP_EXCEPTION.Raise_Exception;
398: ELSE
395: 'GR_ROW_IS_LOCKED');
396: IF FND_API.To_Boolean(p_called_by_form) THEN
397: APP_EXCEPTION.Raise_Exception;
398: ELSE
399: x_msg_data := FND_MESSAGE.Get;
400: END IF;
401:
402: WHEN OTHERS THEN
403: ROLLBACK TO SAVEPOINT Lock_Row;
403: ROLLBACK TO SAVEPOINT Lock_Row;
404: x_return_status := 'U';
405: x_oracle_error := APP_EXCEPTION.Get_Code;
406: l_msg_data := APP_EXCEPTION.Get_Text;
407: FND_MESSAGE.SET_NAME('GR',
408: 'GR_UNEXPECTED_ERROR');
409: FND_MESSAGE.SET_TOKEN('TEXT',
410: l_msg_token,
411: FALSE);
405: x_oracle_error := APP_EXCEPTION.Get_Code;
406: l_msg_data := APP_EXCEPTION.Get_Text;
407: FND_MESSAGE.SET_NAME('GR',
408: 'GR_UNEXPECTED_ERROR');
409: FND_MESSAGE.SET_TOKEN('TEXT',
410: l_msg_token,
411: FALSE);
412: IF FND_API.To_Boolean(p_called_by_form) THEN
413: APP_EXCEPTION.Raise_Exception;
411: FALSE);
412: IF FND_API.To_Boolean(p_called_by_form) THEN
413: APP_EXCEPTION.Raise_Exception;
414: ELSE
415: x_msg_data := FND_MESSAGE.Get;
416: END IF;
417:
418: END Lock_Row;
419:
502: WHEN Row_Missing_Error THEN
503: ROLLBACK TO SAVEPOINT Delete_Row;
504: x_return_status := 'E';
505: x_oracle_error := APP_EXCEPTION.Get_Code;
506: FND_MESSAGE.SET_NAME('GR',
507: 'GR_RECORD_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('CODE',
509: l_msg_token,
510: FALSE);
504: x_return_status := 'E';
505: x_oracle_error := APP_EXCEPTION.Get_Code;
506: FND_MESSAGE.SET_NAME('GR',
507: 'GR_RECORD_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('CODE',
509: l_msg_token,
510: FALSE);
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;
510: FALSE);
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;
513: ELSE
514: x_msg_data := FND_MESSAGE.Get;
515: END IF;
516:
517: WHEN OTHERS THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: l_msg_data := APP_EXCEPTION.Get_Text;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_UNEXPECTED_ERROR');
525: FND_MESSAGE.SET_TOKEN('TEXT',
526: l_msg_token,
527: FALSE);
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: l_msg_data := APP_EXCEPTION.Get_Text;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_UNEXPECTED_ERROR');
525: FND_MESSAGE.SET_TOKEN('TEXT',
526: l_msg_token,
527: FALSE);
528: IF FND_API.To_Boolean(p_called_by_form) THEN
529: APP_EXCEPTION.Raise_Exception;
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:
534: END Delete_Row;
535:
600:
601: WHEN Null_Delete_Option_Error THEN
602: x_return_status := 'E';
603: x_oracle_error := APP_EXCEPTION.Get_Code;
604: FND_MESSAGE.SET_NAME('GR',
605: 'GR_NULL_VALUE');
606: FND_MESSAGE.SET_TOKEN('CODE',
607: l_msg_token,
608: FALSE);
602: x_return_status := 'E';
603: x_oracle_error := APP_EXCEPTION.Get_Code;
604: FND_MESSAGE.SET_NAME('GR',
605: 'GR_NULL_VALUE');
606: FND_MESSAGE.SET_TOKEN('CODE',
607: l_msg_token,
608: FALSE);
609: IF FND_API.To_Boolean(p_called_by_form) THEN
610: APP_EXCEPTION.Raise_Exception;
608: FALSE);
609: IF FND_API.To_Boolean(p_called_by_form) THEN
610: APP_EXCEPTION.Raise_Exception;
611: ELSE
612: x_msg_data := FND_MESSAGE.Get;
613: END IF;
614:
615: WHEN OTHERS THEN
616: ROLLBACK TO SAVEPOINT Delete_Rows;
616: ROLLBACK TO SAVEPOINT Delete_Rows;
617: x_return_status := 'U';
618: x_oracle_error := APP_EXCEPTION.Get_Code;
619: l_msg_data := APP_EXCEPTION.Get_Text;
620: FND_MESSAGE.SET_NAME('GR',
621: 'GR_UNEXPECTED_ERROR');
622: FND_MESSAGE.SET_TOKEN('TEXT',
623: l_msg_token,
624: FALSE);
618: x_oracle_error := APP_EXCEPTION.Get_Code;
619: l_msg_data := APP_EXCEPTION.Get_Text;
620: FND_MESSAGE.SET_NAME('GR',
621: 'GR_UNEXPECTED_ERROR');
622: FND_MESSAGE.SET_TOKEN('TEXT',
623: l_msg_token,
624: FALSE);
625: IF FND_API.To_Boolean(p_called_by_form) THEN
626: APP_EXCEPTION.Raise_Exception;
624: FALSE);
625: IF FND_API.To_Boolean(p_called_by_form) THEN
626: APP_EXCEPTION.Raise_Exception;
627: ELSE
628: x_msg_data := FND_MESSAGE.Get;
629: END IF;
630:
631: END Delete_Rows;
632:
676: l_key_exists);
677:
678: IF NOT FND_API.To_Boolean(l_key_exists) THEN
679: x_return_status := 'E';
680: FND_MESSAGE.SET_NAME('GR',
681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);
678: IF NOT FND_API.To_Boolean(l_key_exists) THEN
679: x_return_status := 'E';
680: FND_MESSAGE.SET_NAME('GR',
681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);
685: l_msg_data := FND_MESSAGE.Get;
686: END IF;
681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);
685: l_msg_data := FND_MESSAGE.Get;
686: END IF;
687:
688: /* Hazard Classification */
689:
694: l_key_exists);
695:
696: IF NOT FND_API.To_Boolean(l_key_exists) THEN
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);
696: IF NOT FND_API.To_Boolean(l_key_exists) THEN
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);
703: l_msg_data := FND_MESSAGE.Get;
704: END IF;
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);
703: l_msg_data := FND_MESSAGE.Get;
704: END IF;
705:
706: EXCEPTION
707:
709: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
710: x_return_status := 'U';
711: x_oracle_error := APP_EXCEPTION.Get_Code;
712: l_msg_data := APP_EXCEPTION.Get_Text;
713: FND_MESSAGE.SET_NAME('GR',
714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);
711: x_oracle_error := APP_EXCEPTION.Get_Code;
712: l_msg_data := APP_EXCEPTION.Get_Text;
713: FND_MESSAGE.SET_NAME('GR',
714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);
718: x_msg_data := FND_MESSAGE.Get;
719:
714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);
718: x_msg_data := FND_MESSAGE.Get;
719:
720: END Check_Foreign_Keys;
721:
722: PROCEDURE Check_Integrity
764: ROLLBACK TO SAVEPOINT Check_Integrity;
765: x_return_status := 'U';
766: x_oracle_error := APP_EXCEPTION.Get_Code;
767: l_msg_data := APP_EXCEPTION.Get_Text;
768: FND_MESSAGE.SET_NAME('GR',
769: 'GR_UNEXPECTED_ERROR');
770: FND_MESSAGE.SET_TOKEN('TEXT',
771: l_msg_data,
772: FALSE);
766: x_oracle_error := APP_EXCEPTION.Get_Code;
767: l_msg_data := APP_EXCEPTION.Get_Text;
768: FND_MESSAGE.SET_NAME('GR',
769: 'GR_UNEXPECTED_ERROR');
770: FND_MESSAGE.SET_TOKEN('TEXT',
771: l_msg_data,
772: FALSE);
773: IF FND_API.To_Boolean(p_called_by_form) THEN
774: APP_EXCEPTION.Raise_Exception;
772: FALSE);
773: IF FND_API.To_Boolean(p_called_by_form) THEN
774: APP_EXCEPTION.Raise_Exception;
775: ELSE
776: x_msg_data := FND_MESSAGE.Get;
777: END IF;
778:
779: END Check_Integrity;
780:
824: EXCEPTION
825:
826: WHEN Others THEN
827: l_msg_data := APP_EXCEPTION.Get_Text;
828: FND_MESSAGE.SET_NAME('GR',
829: 'GR_UNEXPECTED_ERROR');
830: FND_MESSAGE.SET_TOKEN('TEXT',
831: l_msg_data,
832: FALSE);
826: WHEN Others THEN
827: l_msg_data := APP_EXCEPTION.Get_Text;
828: FND_MESSAGE.SET_NAME('GR',
829: 'GR_UNEXPECTED_ERROR');
830: FND_MESSAGE.SET_TOKEN('TEXT',
831: l_msg_data,
832: FALSE);
833: IF FND_API.To_Boolean(p_called_by_form) THEN
834: APP_EXCEPTION.Raise_Exception;