121: FND_MESSAGE.SET_TOKEN('TEXT',
122: l_msg_data,
123: FALSE);
124: IF FND_API.To_Boolean(p_called_by_form) THEN
125: APP_EXCEPTION.Raise_Exception;
126: ELSE
127: x_msg_data := FND_MESSAGE.Get;
128: END IF;
129:
129:
130: WHEN Label_Exists_Error THEN
131: ROLLBACK TO SAVEPOINT Insert_Row;
132: x_return_status := 'E';
133: x_oracle_error := APP_EXCEPTION.Get_Code;
134: FND_MESSAGE.SET_NAME('GR',
135: 'GR_RECORD_EXISTS');
136: FND_MESSAGE.SET_TOKEN('CODE',
137: p_phrase_code,
136: FND_MESSAGE.SET_TOKEN('CODE',
137: p_phrase_code,
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
141: ELSE
142: x_msg_data := FND_MESSAGE.Get;
143: END IF;
144:
144:
145: WHEN Row_Missing_Error THEN
146: ROLLBACK TO SAVEPOINT Insert_Row;
147: x_return_status := 'E';
148: x_oracle_error := APP_EXCEPTION.Get_Code;
149: FND_MESSAGE.SET_NAME('GR',
150: 'GR_NO_RECORD_INSERTED');
151: FND_MESSAGE.SET_TOKEN('CODE',
152: p_phrase_code,
151: FND_MESSAGE.SET_TOKEN('CODE',
152: p_phrase_code,
153: FALSE);
154: IF FND_API.To_Boolean(p_called_by_form) THEN
155: APP_EXCEPTION.Raise_Exception;
156: ELSE
157: x_msg_data := FND_MESSAGE.Get;
158: END IF;
159:
159:
160: WHEN OTHERS THEN
161: ROLLBACK TO SAVEPOINT Insert_Row;
162: x_return_status := 'U';
163: x_oracle_error := APP_EXCEPTION.Get_Code;
164: l_msg_data := APP_EXCEPTION.Get_Text;
165: FND_MESSAGE.SET_NAME('GR',
166: 'GR_UNEXPECTED_ERROR');
167: FND_MESSAGE.SET_TOKEN('TEXT',
160: WHEN OTHERS THEN
161: ROLLBACK TO SAVEPOINT Insert_Row;
162: x_return_status := 'U';
163: x_oracle_error := APP_EXCEPTION.Get_Code;
164: l_msg_data := APP_EXCEPTION.Get_Text;
165: FND_MESSAGE.SET_NAME('GR',
166: 'GR_UNEXPECTED_ERROR');
167: FND_MESSAGE.SET_TOKEN('TEXT',
168: l_msg_data,
167: FND_MESSAGE.SET_TOKEN('TEXT',
168: l_msg_data,
169: FALSE);
170: IF FND_API.To_Boolean(p_called_by_form) THEN
171: APP_EXCEPTION.Raise_Exception;
172: ELSE
173: x_msg_data := FND_MESSAGE.Get;
174: END IF;
175:
260: FND_MESSAGE.SET_TOKEN('TEXT',
261: l_msg_data,
262: FALSE);
263: IF FND_API.To_Boolean(p_called_by_form) THEN
264: APP_EXCEPTION.Raise_Exception;
265: ELSE
266: x_msg_data := FND_MESSAGE.Get;
267: END IF;
268:
268:
269: WHEN Row_Missing_Error THEN
270: ROLLBACK TO SAVEPOINT Update_Row;
271: x_return_status := 'E';
272: x_oracle_error := APP_EXCEPTION.Get_Code;
273: FND_MESSAGE.SET_NAME('GR',
274: 'GR_NO_RECORD_INSERTED');
275: FND_MESSAGE.SET_TOKEN('CODE',
276: p_phrase_code,
275: FND_MESSAGE.SET_TOKEN('CODE',
276: p_phrase_code,
277: FALSE);
278: IF FND_API.To_Boolean(p_called_by_form) THEN
279: APP_EXCEPTION.Raise_Exception;
280: ELSE
281: x_msg_data := FND_MESSAGE.Get;
282: END IF;
283:
283:
284: WHEN OTHERS THEN
285: ROLLBACK TO SAVEPOINT Update_Row;
286: x_return_status := 'U';
287: x_oracle_error := APP_EXCEPTION.Get_Code;
288: l_msg_data := APP_EXCEPTION.Get_Text;
289: FND_MESSAGE.SET_NAME('GR',
290: 'GR_UNEXPECTED_ERROR');
291: FND_MESSAGE.SET_TOKEN('TEXT',
284: WHEN OTHERS THEN
285: ROLLBACK TO SAVEPOINT Update_Row;
286: x_return_status := 'U';
287: x_oracle_error := APP_EXCEPTION.Get_Code;
288: l_msg_data := APP_EXCEPTION.Get_Text;
289: FND_MESSAGE.SET_NAME('GR',
290: 'GR_UNEXPECTED_ERROR');
291: FND_MESSAGE.SET_TOKEN('TEXT',
292: l_msg_data,
291: FND_MESSAGE.SET_TOKEN('TEXT',
292: l_msg_data,
293: FALSE);
294: IF FND_API.To_Boolean(p_called_by_form) THEN
295: APP_EXCEPTION.Raise_Exception;
296: ELSE
297: x_msg_data := FND_MESSAGE.Get;
298: END IF;
299:
374: FND_MESSAGE.SET_TOKEN('CODE',
375: p_phrase_code,
376: FALSE);
377: IF FND_API.To_Boolean(p_called_by_form) THEN
378: APP_EXCEPTION.Raise_Exception;
379: ELSE
380: x_msg_data := FND_MESSAGE.Get;
381: END IF;
382:
382:
383: WHEN Row_Already_Locked_Error THEN
384: ROLLBACK TO SAVEPOINT Lock_Row;
385: x_return_status := 'E';
386: x_oracle_error := APP_EXCEPTION.Get_Code;
387: FND_MESSAGE.SET_NAME('GR',
388: 'GR_ROW_IS_LOCKED');
389: IF FND_API.To_Boolean(p_called_by_form) THEN
390: APP_EXCEPTION.Raise_Exception;
386: x_oracle_error := APP_EXCEPTION.Get_Code;
387: FND_MESSAGE.SET_NAME('GR',
388: 'GR_ROW_IS_LOCKED');
389: IF FND_API.To_Boolean(p_called_by_form) THEN
390: APP_EXCEPTION.Raise_Exception;
391: ELSE
392: x_msg_data := FND_MESSAGE.Get;
393: END IF;
394:
394:
395: WHEN OTHERS THEN
396: ROLLBACK TO SAVEPOINT Lock_Row;
397: x_return_status := 'U';
398: x_oracle_error := APP_EXCEPTION.Get_Code;
399: l_msg_data := APP_EXCEPTION.Get_Text;
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_UNEXPECTED_ERROR');
402: FND_MESSAGE.SET_TOKEN('TEXT',
395: WHEN OTHERS THEN
396: ROLLBACK TO SAVEPOINT Lock_Row;
397: x_return_status := 'U';
398: x_oracle_error := APP_EXCEPTION.Get_Code;
399: l_msg_data := APP_EXCEPTION.Get_Text;
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_UNEXPECTED_ERROR');
402: FND_MESSAGE.SET_TOKEN('TEXT',
403: l_msg_data,
402: FND_MESSAGE.SET_TOKEN('TEXT',
403: l_msg_data,
404: FALSE);
405: IF FND_API.To_Boolean(p_called_by_form) THEN
406: APP_EXCEPTION.Raise_Exception;
407: ELSE
408: x_msg_data := FND_MESSAGE.Get;
409: END IF;
410:
483: ROLLBACK TO SAVEPOINT Delete_Row;
484: x_return_status := l_return_status;
485: x_oracle_error := l_oracle_error;
486: IF FND_API.To_Boolean(p_called_by_form) THEN
487: APP_EXCEPTION.Raise_Exception;
488: ELSE
489: x_msg_data := FND_MESSAGE.Get;
490: END IF;
491:
491:
492: WHEN Row_Missing_Error THEN
493: ROLLBACK TO SAVEPOINT Delete_Row;
494: x_return_status := 'E';
495: x_oracle_error := APP_EXCEPTION.Get_Code;
496: FND_MESSAGE.SET_NAME('GR',
497: 'GR_RECORD_NOT_FOUND');
498: FND_MESSAGE.SET_TOKEN('CODE',
499: p_phrase_code,
498: FND_MESSAGE.SET_TOKEN('CODE',
499: p_phrase_code,
500: FALSE);
501: IF FND_API.To_Boolean(p_called_by_form) THEN
502: APP_EXCEPTION.Raise_Exception;
503: ELSE
504: x_msg_data := FND_MESSAGE.Get;
505: END IF;
506:
506:
507: WHEN OTHERS THEN
508: ROLLBACK TO SAVEPOINT Delete_Row;
509: x_return_status := 'U';
510: x_oracle_error := APP_EXCEPTION.Get_Code;
511: l_msg_data := APP_EXCEPTION.Get_Text;
512: l_msg_data := APP_EXCEPTION.Get_Text;
513: FND_MESSAGE.SET_NAME('GR',
514: 'GR_UNEXPECTED_ERROR');
507: WHEN OTHERS THEN
508: ROLLBACK TO SAVEPOINT Delete_Row;
509: x_return_status := 'U';
510: x_oracle_error := APP_EXCEPTION.Get_Code;
511: l_msg_data := APP_EXCEPTION.Get_Text;
512: l_msg_data := APP_EXCEPTION.Get_Text;
513: FND_MESSAGE.SET_NAME('GR',
514: 'GR_UNEXPECTED_ERROR');
515: FND_MESSAGE.SET_TOKEN('TEXT',
508: ROLLBACK TO SAVEPOINT Delete_Row;
509: x_return_status := 'U';
510: x_oracle_error := APP_EXCEPTION.Get_Code;
511: l_msg_data := APP_EXCEPTION.Get_Text;
512: l_msg_data := APP_EXCEPTION.Get_Text;
513: FND_MESSAGE.SET_NAME('GR',
514: 'GR_UNEXPECTED_ERROR');
515: FND_MESSAGE.SET_TOKEN('TEXT',
516: l_msg_data,
515: FND_MESSAGE.SET_TOKEN('TEXT',
516: l_msg_data,
517: FALSE);
518: IF FND_API.To_Boolean(p_called_by_form) THEN
519: APP_EXCEPTION.Raise_Exception;
520: ELSE
521: x_msg_data := FND_MESSAGE.Get;
522: END IF;
523:
565:
566: WHEN OTHERS THEN
567: ROLLBACK TO SAVEPOINT Delete_Rows;
568: x_return_status := 'U';
569: x_oracle_error := APP_EXCEPTION.Get_Code;
570: l_msg_data := APP_EXCEPTION.Get_Text;
571: FND_MESSAGE.SET_NAME('GR',
572: 'GR_UNEXPECTED_ERROR');
573: FND_MESSAGE.SET_TOKEN('TEXT',
566: WHEN OTHERS THEN
567: ROLLBACK TO SAVEPOINT Delete_Rows;
568: x_return_status := 'U';
569: x_oracle_error := APP_EXCEPTION.Get_Code;
570: l_msg_data := APP_EXCEPTION.Get_Text;
571: FND_MESSAGE.SET_NAME('GR',
572: 'GR_UNEXPECTED_ERROR');
573: FND_MESSAGE.SET_TOKEN('TEXT',
574: l_msg_token,
573: FND_MESSAGE.SET_TOKEN('TEXT',
574: l_msg_token,
575: FALSE);
576: IF FND_API.To_Boolean(p_called_by_form) THEN
577: APP_EXCEPTION.Raise_Exception;
578: ELSE
579: x_msg_data := FND_MESSAGE.Get;
580: END IF;
581:
679:
680: WHEN OTHERS THEN
681: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
682: x_return_status := 'U';
683: x_oracle_error := APP_EXCEPTION.Get_Code;
684: l_msg_data := APP_EXCEPTION.Get_Text;
685: FND_MESSAGE.SET_NAME('GR',
686: 'GR_UNEXPECTED_ERROR');
687: FND_MESSAGE.SET_TOKEN('TEXT',
680: WHEN OTHERS THEN
681: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
682: x_return_status := 'U';
683: x_oracle_error := APP_EXCEPTION.Get_Code;
684: l_msg_data := APP_EXCEPTION.Get_Text;
685: FND_MESSAGE.SET_NAME('GR',
686: 'GR_UNEXPECTED_ERROR');
687: FND_MESSAGE.SET_TOKEN('TEXT',
688: l_msg_data,
736:
737: WHEN OTHERS THEN
738: ROLLBACK TO SAVEPOINT Check_Integrity;
739: x_return_status := 'U';
740: x_oracle_error := APP_EXCEPTION.Get_Code;
741: l_msg_data := APP_EXCEPTION.Get_Text;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_UNEXPECTED_ERROR');
744: FND_MESSAGE.SET_TOKEN('TEXT',
737: WHEN OTHERS THEN
738: ROLLBACK TO SAVEPOINT Check_Integrity;
739: x_return_status := 'U';
740: x_oracle_error := APP_EXCEPTION.Get_Code;
741: l_msg_data := APP_EXCEPTION.Get_Text;
742: FND_MESSAGE.SET_NAME('GR',
743: 'GR_UNEXPECTED_ERROR');
744: FND_MESSAGE.SET_TOKEN('TEXT',
745: l_msg_data,
744: FND_MESSAGE.SET_TOKEN('TEXT',
745: l_msg_data,
746: FALSE);
747: IF FND_API.To_Boolean(p_called_by_form) THEN
748: APP_EXCEPTION.Raise_Exception;
749: ELSE
750: x_msg_data := FND_MESSAGE.Get;
751: END IF;
752:
796:
797: EXCEPTION
798:
799: WHEN Others THEN
800: l_msg_data := APP_EXCEPTION.Get_Text;
801: FND_MESSAGE.SET_NAME('GR',
802: 'GR_UNEXPECTED_ERROR');
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
803: FND_MESSAGE.SET_TOKEN('TEXT',
804: l_msg_data,
805: FALSE);
806: IF FND_API.To_Boolean(p_called_by_form) THEN
807: APP_EXCEPTION.Raise_Exception;
808: END IF;
809:
810: END Check_Primary_Key;
811: