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;
130: ELSE
131: x_msg_data := FND_MESSAGE.Get;
132: END IF;
133:
133:
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,
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;
145: ELSE
146: x_msg_data := FND_MESSAGE.Get;
147: END IF;
148:
148:
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,
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;
160: ELSE
161: x_msg_data := FND_MESSAGE.Get;
162: END IF;
163:
163:
164: WHEN OTHERS THEN
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',
164: WHEN OTHERS THEN
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,
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;
176: ELSE
177: x_msg_data := FND_MESSAGE.Get;
178: END IF;
179:
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;
272: ELSE
273: x_msg_data := FND_MESSAGE.Get;
274: END IF;
275:
275:
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,
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;
287: ELSE
288: x_msg_data := FND_MESSAGE.Get;
289: END IF;
290:
290:
291: WHEN OTHERS THEN
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',
291: WHEN OTHERS THEN
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,
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;
303: ELSE
304: x_msg_data := FND_MESSAGE.Get;
305: END IF;
306:
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;
386: ELSE
387: x_msg_data := FND_MESSAGE.Get;
388: END IF;
389:
389:
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;
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
399: x_msg_data := FND_MESSAGE.Get;
400: END IF;
401:
401:
402: WHEN OTHERS THEN
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',
402: WHEN OTHERS THEN
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,
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;
414: ELSE
415: x_msg_data := FND_MESSAGE.Get;
416: END IF;
417:
495: x_return_status := l_return_status;
496: x_oracle_error := l_oracle_error;
497: x_msg_data := l_msg_data;
498: IF FND_API.To_Boolean(p_called_by_form) THEN
499: APP_EXCEPTION.Raise_Exception;
500: END IF;
501:
502: WHEN Row_Missing_Error THEN
503: ROLLBACK TO SAVEPOINT Delete_Row;
501:
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,
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;
513: ELSE
514: x_msg_data := FND_MESSAGE.Get;
515: END IF;
516:
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');
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',
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,
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;
530: ELSE
531: x_msg_data := FND_MESSAGE.Get;
532: END IF;
533:
599: EXCEPTION
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,
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;
611: ELSE
612: x_msg_data := FND_MESSAGE.Get;
613: END IF;
614:
614:
615: WHEN OTHERS THEN
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',
615: WHEN OTHERS THEN
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,
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;
627: ELSE
628: x_msg_data := FND_MESSAGE.Get;
629: END IF;
630:
707:
708: WHEN OTHERS THEN
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',
708: WHEN OTHERS THEN
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,
762:
763: WHEN OTHERS THEN
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',
763: WHEN OTHERS THEN
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,
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;
775: ELSE
776: x_msg_data := FND_MESSAGE.Get;
777: END IF;
778:
823:
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,
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;
835: END IF;
836:
837: END Check_Primary_Key;
838: