118: FND_MESSAGE.SET_TOKEN('TEXT',
119: l_msg_data,
120: FALSE);
121: IF FND_API.To_Boolean(p_called_by_form) THEN
122: APP_EXCEPTION.Raise_Exception;
123: ELSE
124: x_msg_data := FND_MESSAGE.Get;
125: END IF;
126:
126:
127: WHEN Item_Exists_Error THEN
128: ROLLBACK TO SAVEPOINT Insert_Row;
129: x_return_status := 'E';
130: x_oracle_error := APP_EXCEPTION.Get_Code;
131: FND_MESSAGE.SET_NAME('GR',
132: 'GR_RECORD_EXISTS');
133: FND_MESSAGE.SET_TOKEN('CODE',
134: p_region_code || ' ' || p_language,
133: FND_MESSAGE.SET_TOKEN('CODE',
134: p_region_code || ' ' || p_language,
135: FALSE);
136: IF FND_API.To_Boolean(p_called_by_form) THEN
137: APP_EXCEPTION.Raise_Exception;
138: ELSE
139: x_msg_data := FND_MESSAGE.Get;
140: END IF;
141:
141:
142: WHEN Row_Missing_Error THEN
143: ROLLBACK TO SAVEPOINT Insert_Row;
144: x_return_status := 'E';
145: x_oracle_error := APP_EXCEPTION.Get_Code;
146: FND_MESSAGE.SET_NAME('GR',
147: 'GR_NO_RECORD_INSERTED');
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_region_code || ' ' || p_language,
148: FND_MESSAGE.SET_TOKEN('CODE',
149: p_region_code || ' ' || p_language,
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:
156:
157: WHEN OTHERS THEN
158: ROLLBACK TO SAVEPOINT Insert_Row;
159: x_return_status := 'U';
160: x_oracle_error := APP_EXCEPTION.Get_Code;
161: l_msg_data := APP_EXCEPTION.Get_Text;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_UNEXPECTED_ERROR');
164: FND_MESSAGE.SET_TOKEN('TEXT',
157: WHEN OTHERS THEN
158: ROLLBACK TO SAVEPOINT Insert_Row;
159: x_return_status := 'U';
160: x_oracle_error := APP_EXCEPTION.Get_Code;
161: l_msg_data := APP_EXCEPTION.Get_Text;
162: FND_MESSAGE.SET_NAME('GR',
163: 'GR_UNEXPECTED_ERROR');
164: FND_MESSAGE.SET_TOKEN('TEXT',
165: l_msg_data,
164: FND_MESSAGE.SET_TOKEN('TEXT',
165: l_msg_data,
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:
254: FND_MESSAGE.SET_TOKEN('TEXT',
255: l_msg_data,
256: FALSE);
257: IF FND_API.To_Boolean(p_called_by_form) THEN
258: APP_EXCEPTION.Raise_Exception;
259: ELSE
260: x_msg_data := FND_MESSAGE.Get;
261: END IF;
262:
262:
263: WHEN Row_Missing_Error THEN
264: ROLLBACK TO SAVEPOINT Update_Row;
265: x_return_status := 'E';
266: x_oracle_error := APP_EXCEPTION.Get_Code;
267: FND_MESSAGE.SET_NAME('GR',
268: 'GR_NO_RECORD_INSERTED');
269: FND_MESSAGE.SET_TOKEN('CODE',
270: p_region_code || ' ' || p_language,
269: FND_MESSAGE.SET_TOKEN('CODE',
270: p_region_code || ' ' || p_language,
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
274: ELSE
275: x_msg_data := FND_MESSAGE.Get;
276: END IF;
277:
277:
278: WHEN OTHERS THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'U';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: l_msg_data := APP_EXCEPTION.Get_Text;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_UNEXPECTED_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
278: WHEN OTHERS THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'U';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: l_msg_data := APP_EXCEPTION.Get_Text;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_UNEXPECTED_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
287: FALSE);
288: IF FND_API.To_Boolean(p_called_by_form) THEN
289: APP_EXCEPTION.Raise_Exception;
290: ELSE
291: x_msg_data := FND_MESSAGE.Get;
292: END IF;
293:
366: FND_MESSAGE.SET_TOKEN('CODE',
367: p_region_code || ' ' || p_language,
368: FALSE);
369: IF FND_API.To_Boolean(p_called_by_form) THEN
370: APP_EXCEPTION.Raise_Exception;
371: ELSE
372: x_msg_data := FND_MESSAGE.Get;
373: END IF;
374:
374:
375: WHEN Row_Already_Locked_Error THEN
376: ROLLBACK TO SAVEPOINT Lock_Row;
377: x_return_status := 'E';
378: x_oracle_error := APP_EXCEPTION.Get_Code;
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_ROW_IS_LOCKED');
381: IF FND_API.To_Boolean(p_called_by_form) THEN
382: APP_EXCEPTION.Raise_Exception;
378: x_oracle_error := APP_EXCEPTION.Get_Code;
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_ROW_IS_LOCKED');
381: IF FND_API.To_Boolean(p_called_by_form) THEN
382: APP_EXCEPTION.Raise_Exception;
383: ELSE
384: x_msg_data := FND_MESSAGE.Get;
385: END IF;
386:
386:
387: WHEN OTHERS THEN
388: ROLLBACK TO SAVEPOINT Lock_Row;
389: x_return_status := 'U';
390: x_oracle_error := APP_EXCEPTION.Get_Code;
391: l_msg_data := APP_EXCEPTION.Get_Text;
392: FND_MESSAGE.SET_NAME('GR',
393: 'GR_UNEXPECTED_ERROR');
394: FND_MESSAGE.SET_TOKEN('TEXT',
387: WHEN OTHERS THEN
388: ROLLBACK TO SAVEPOINT Lock_Row;
389: x_return_status := 'U';
390: x_oracle_error := APP_EXCEPTION.Get_Code;
391: l_msg_data := APP_EXCEPTION.Get_Text;
392: FND_MESSAGE.SET_NAME('GR',
393: 'GR_UNEXPECTED_ERROR');
394: FND_MESSAGE.SET_TOKEN('TEXT',
395: l_msg_data,
394: FND_MESSAGE.SET_TOKEN('TEXT',
395: l_msg_data,
396: FALSE);
397: IF FND_API.To_Boolean(p_called_by_form) THEN
398: APP_EXCEPTION.Raise_Exception;
399: ELSE
400: x_msg_data := FND_MESSAGE.Get;
401: END IF;
402:
473: ROLLBACK TO SAVEPOINT Delete_Row;
474: x_return_status := l_return_status;
475: x_oracle_error := l_oracle_error;
476: IF FND_API.To_Boolean(p_called_by_form) THEN
477: APP_EXCEPTION.Raise_Exception;
478: ELSE
479: x_msg_data := FND_MESSAGE.Get;
480: END IF;
481:
481:
482: WHEN Row_Missing_Error THEN
483: ROLLBACK TO SAVEPOINT Delete_Row;
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: p_region_code || ' ' || p_language,
488: FND_MESSAGE.SET_TOKEN('CODE',
489: p_region_code || ' ' || p_language,
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
493: ELSE
494: x_msg_data := FND_MESSAGE.Get;
495: END IF;
496:
496:
497: WHEN OTHERS THEN
498: ROLLBACK TO SAVEPOINT Delete_Row;
499: x_return_status := 'U';
500: x_oracle_error := APP_EXCEPTION.Get_Code;
501: l_msg_data := APP_EXCEPTION.Get_Text;
502: l_msg_data := APP_EXCEPTION.Get_Text;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
497: WHEN OTHERS THEN
498: ROLLBACK TO SAVEPOINT Delete_Row;
499: x_return_status := 'U';
500: x_oracle_error := APP_EXCEPTION.Get_Code;
501: l_msg_data := APP_EXCEPTION.Get_Text;
502: l_msg_data := APP_EXCEPTION.Get_Text;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
498: ROLLBACK TO SAVEPOINT Delete_Row;
499: x_return_status := 'U';
500: x_oracle_error := APP_EXCEPTION.Get_Code;
501: l_msg_data := APP_EXCEPTION.Get_Text;
502: l_msg_data := APP_EXCEPTION.Get_Text;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_UNEXPECTED_ERROR');
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_data,
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_data,
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
510: ELSE
511: x_msg_data := FND_MESSAGE.Get;
512: END IF;
513:
555:
556: WHEN OTHERS THEN
557: ROLLBACK TO SAVEPOINT Delete_Rows;
558: x_return_status := 'U';
559: x_oracle_error := APP_EXCEPTION.Get_Code;
560: l_msg_data := APP_EXCEPTION.Get_Text;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_UNEXPECTED_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
556: WHEN OTHERS THEN
557: ROLLBACK TO SAVEPOINT Delete_Rows;
558: x_return_status := 'U';
559: x_oracle_error := APP_EXCEPTION.Get_Code;
560: l_msg_data := APP_EXCEPTION.Get_Text;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_UNEXPECTED_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_token,
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_token,
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
568: ELSE
569: x_msg_data := FND_MESSAGE.Get;
570: END IF;
571:
612:
613: WHEN OTHERS THEN
614: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
615: x_return_status := 'U';
616: x_oracle_error := APP_EXCEPTION.Get_Code;
617: l_msg_data := APP_EXCEPTION.Get_Text;
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
613: WHEN OTHERS THEN
614: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
615: x_return_status := 'U';
616: x_oracle_error := APP_EXCEPTION.Get_Code;
617: l_msg_data := APP_EXCEPTION.Get_Text;
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
662:
663: WHEN OTHERS THEN
664: ROLLBACK TO SAVEPOINT Check_Integrity;
665: x_return_status := 'U';
666: x_oracle_error := APP_EXCEPTION.Get_Code;
667: l_msg_data := APP_EXCEPTION.Get_Text;
668: FND_MESSAGE.SET_NAME('GR',
669: 'GR_UNEXPECTED_ERROR');
670: FND_MESSAGE.SET_TOKEN('TEXT',
663: WHEN OTHERS THEN
664: ROLLBACK TO SAVEPOINT Check_Integrity;
665: x_return_status := 'U';
666: x_oracle_error := APP_EXCEPTION.Get_Code;
667: l_msg_data := APP_EXCEPTION.Get_Text;
668: FND_MESSAGE.SET_NAME('GR',
669: 'GR_UNEXPECTED_ERROR');
670: FND_MESSAGE.SET_TOKEN('TEXT',
671: l_msg_data,
670: FND_MESSAGE.SET_TOKEN('TEXT',
671: l_msg_data,
672: FALSE);
673: IF FND_API.To_Boolean(p_called_by_form) THEN
674: APP_EXCEPTION.Raise_Exception;
675: ELSE
676: x_msg_data := FND_MESSAGE.Get;
677: END IF;
678:
721:
722: EXCEPTION
723:
724: WHEN Others THEN
725: l_msg_data := APP_EXCEPTION.Get_Text;
726: FND_MESSAGE.SET_NAME('GR',
727: 'GR_UNEXPECTED_ERROR');
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;
733: END IF;
734:
735: END Check_Primary_Key;
736: