251: FND_MESSAGE.SET_TOKEN('TEXT',
252: l_msg_data,
253: FALSE);
254: IF FND_API.To_Boolean(p_called_by_form) THEN
255: APP_EXCEPTION.Raise_Exception;
256: ELSE
257: x_msg_data := FND_MESSAGE.Get;
258: END IF;
259:
259:
260: WHEN Label_Exists_Error THEN
261: ROLLBACK TO SAVEPOINT Insert_Row;
262: x_return_status := 'E';
263: x_oracle_error := APP_EXCEPTION.Get_Code;
264: FND_MESSAGE.SET_NAME('GR',
265: 'GR_RECORD_EXISTS');
266: FND_MESSAGE.SET_TOKEN('CODE',
267: p_label_class_code,
266: FND_MESSAGE.SET_TOKEN('CODE',
267: p_label_class_code,
268: FALSE);
269: IF FND_API.To_Boolean(p_called_by_form) THEN
270: APP_EXCEPTION.Raise_Exception;
271: ELSE
272: x_msg_data := FND_MESSAGE.Get;
273: END IF;
274:
274:
275: WHEN Row_Missing_Error THEN
276: ROLLBACK TO SAVEPOINT Insert_Row;
277: x_return_status := 'E';
278: x_oracle_error := APP_EXCEPTION.Get_Code;
279: FND_MESSAGE.SET_NAME('GR',
280: 'GR_NO_RECORD_INSERTED');
281: FND_MESSAGE.SET_TOKEN('CODE',
282: p_label_class_code,
281: FND_MESSAGE.SET_TOKEN('CODE',
282: p_label_class_code,
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 OTHERS THEN
291: ROLLBACK TO SAVEPOINT Insert_Row;
292: x_return_status := 'U';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: l_msg_data := APP_EXCEPTION.Get_Text;
295: FND_MESSAGE.SET_NAME('GR',
296: 'GR_UNEXPECTED_ERROR');
297: FND_MESSAGE.SET_TOKEN('TEXT',
290: WHEN OTHERS THEN
291: ROLLBACK TO SAVEPOINT Insert_Row;
292: x_return_status := 'U';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: l_msg_data := APP_EXCEPTION.Get_Text;
295: FND_MESSAGE.SET_NAME('GR',
296: 'GR_UNEXPECTED_ERROR');
297: FND_MESSAGE.SET_TOKEN('TEXT',
298: l_msg_data,
297: FND_MESSAGE.SET_TOKEN('TEXT',
298: l_msg_data,
299: FALSE);
300: IF FND_API.To_Boolean(p_called_by_form) THEN
301: APP_EXCEPTION.Raise_Exception;
302: ELSE
303: x_msg_data := FND_MESSAGE.Get;
304: END IF;
305:
489: FND_MESSAGE.SET_TOKEN('TEXT',
490: l_msg_data,
491: FALSE);
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
494: ELSE
495: x_msg_data := FND_MESSAGE.Get;
496: END IF;
497:
497:
498: WHEN Row_Missing_Error THEN
499: ROLLBACK TO SAVEPOINT Update_Row;
500: x_return_status := 'E';
501: x_oracle_error := APP_EXCEPTION.Get_Code;
502: FND_MESSAGE.SET_NAME('GR',
503: 'GR_NO_RECORD_INSERTED');
504: FND_MESSAGE.SET_TOKEN('CODE',
505: p_label_class_code,
504: FND_MESSAGE.SET_TOKEN('CODE',
505: p_label_class_code,
506: FALSE);
507: IF FND_API.To_Boolean(p_called_by_form) THEN
508: APP_EXCEPTION.Raise_Exception;
509: ELSE
510: x_msg_data := FND_MESSAGE.Get;
511: END IF;
512:
512:
513: WHEN OTHERS THEN
514: ROLLBACK TO SAVEPOINT Update_Row;
515: x_return_status := 'U';
516: x_oracle_error := APP_EXCEPTION.Get_Code;
517: l_msg_data := APP_EXCEPTION.Get_Text;
518: FND_MESSAGE.SET_NAME('GR',
519: 'GR_UNEXPECTED_ERROR');
520: FND_MESSAGE.SET_TOKEN('TEXT',
513: WHEN OTHERS THEN
514: ROLLBACK TO SAVEPOINT Update_Row;
515: x_return_status := 'U';
516: x_oracle_error := APP_EXCEPTION.Get_Code;
517: l_msg_data := APP_EXCEPTION.Get_Text;
518: FND_MESSAGE.SET_NAME('GR',
519: 'GR_UNEXPECTED_ERROR');
520: FND_MESSAGE.SET_TOKEN('TEXT',
521: l_msg_data,
520: FND_MESSAGE.SET_TOKEN('TEXT',
521: l_msg_data,
522: FALSE);
523: IF FND_API.To_Boolean(p_called_by_form) THEN
524: APP_EXCEPTION.Raise_Exception;
525: ELSE
526: x_msg_data := FND_MESSAGE.Get;
527: END IF;
528:
636: FND_MESSAGE.SET_TOKEN('CODE',
637: p_label_class_code,
638: FALSE);
639: IF FND_API.To_Boolean(p_called_by_form) THEN
640: APP_EXCEPTION.Raise_Exception;
641: ELSE
642: x_msg_data := FND_MESSAGE.Get;
643: END IF;
644:
644:
645: WHEN Row_Already_Locked_Error THEN
646: ROLLBACK TO SAVEPOINT Lock_Row;
647: x_return_status := 'E';
648: x_oracle_error := APP_EXCEPTION.Get_Code;
649: FND_MESSAGE.SET_NAME('GR',
650: 'GR_ROW_IS_LOCKED');
651: IF FND_API.To_Boolean(p_called_by_form) THEN
652: APP_EXCEPTION.Raise_Exception;
648: x_oracle_error := APP_EXCEPTION.Get_Code;
649: FND_MESSAGE.SET_NAME('GR',
650: 'GR_ROW_IS_LOCKED');
651: IF FND_API.To_Boolean(p_called_by_form) THEN
652: APP_EXCEPTION.Raise_Exception;
653: ELSE
654: x_msg_data := FND_MESSAGE.Get;
655: END IF;
656:
656:
657: WHEN OTHERS THEN
658: ROLLBACK TO SAVEPOINT Lock_Row;
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 Lock_Row;
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_data,
664: FND_MESSAGE.SET_TOKEN('TEXT',
665: l_msg_data,
666: FALSE);
667: IF FND_API.To_Boolean(p_called_by_form) THEN
668: APP_EXCEPTION.Raise_Exception;
669: ELSE
670: x_msg_data := FND_MESSAGE.Get;
671: END IF;
672:
811: ROLLBACK TO SAVEPOINT Delete_Row;
812: x_return_status := l_return_status;
813: x_oracle_error := l_oracle_error;
814: IF FND_API.To_Boolean(p_called_by_form) THEN
815: APP_EXCEPTION.Raise_Exception;
816: ELSE
817: x_msg_data := FND_MESSAGE.Get;
818: END IF;
819:
819:
820: WHEN Row_Missing_Error THEN
821: ROLLBACK TO SAVEPOINT Delete_Row;
822: x_return_status := 'E';
823: x_oracle_error := APP_EXCEPTION.Get_Code;
824: FND_MESSAGE.SET_NAME('GR',
825: 'GR_RECORD_NOT_FOUND');
826: FND_MESSAGE.SET_TOKEN('CODE',
827: p_label_class_code,
826: FND_MESSAGE.SET_TOKEN('CODE',
827: p_label_class_code,
828: FALSE);
829: IF FND_API.To_Boolean(p_called_by_form) THEN
830: APP_EXCEPTION.Raise_Exception;
831: ELSE
832: x_msg_data := FND_MESSAGE.Get;
833: END IF;
834:
834:
835: WHEN OTHERS THEN
836: ROLLBACK TO SAVEPOINT Delete_Row;
837: x_return_status := 'U';
838: x_oracle_error := APP_EXCEPTION.Get_Code;
839: l_msg_data := APP_EXCEPTION.Get_Text;
840: FND_MESSAGE.SET_NAME('GR',
841: 'GR_UNEXPECTED_ERROR');
842: FND_MESSAGE.SET_TOKEN('TEXT',
835: WHEN OTHERS THEN
836: ROLLBACK TO SAVEPOINT Delete_Row;
837: x_return_status := 'U';
838: x_oracle_error := APP_EXCEPTION.Get_Code;
839: l_msg_data := APP_EXCEPTION.Get_Text;
840: FND_MESSAGE.SET_NAME('GR',
841: 'GR_UNEXPECTED_ERROR');
842: FND_MESSAGE.SET_TOKEN('TEXT',
843: l_msg_data,
842: FND_MESSAGE.SET_TOKEN('TEXT',
843: l_msg_data,
844: FALSE);
845: IF FND_API.To_Boolean(p_called_by_form) THEN
846: APP_EXCEPTION.Raise_Exception;
847: ELSE
848: x_msg_data := FND_MESSAGE.Get;
849: END IF;
850:
963:
964: WHEN OTHERS THEN
965: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
966: x_return_status := 'U';
967: x_oracle_error := APP_EXCEPTION.Get_Code;
968: l_msg_data := APP_EXCEPTION.Get_Text;
969: FND_MESSAGE.SET_NAME('GR',
970: 'GR_UNEXPECTED_ERROR');
971: FND_MESSAGE.SET_TOKEN('TEXT',
964: WHEN OTHERS THEN
965: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
966: x_return_status := 'U';
967: x_oracle_error := APP_EXCEPTION.Get_Code;
968: l_msg_data := APP_EXCEPTION.Get_Text;
969: FND_MESSAGE.SET_NAME('GR',
970: 'GR_UNEXPECTED_ERROR');
971: FND_MESSAGE.SET_TOKEN('TEXT',
972: l_msg_data,
1082:
1083: WHEN OTHERS THEN
1084: ROLLBACK TO SAVEPOINT Check_Integrity;
1085: x_return_status := 'U';
1086: x_oracle_error := APP_EXCEPTION.Get_Code;
1087: l_msg_data := APP_EXCEPTION.Get_Text;
1088: FND_MESSAGE.SET_NAME('GR',
1089: 'GR_UNEXPECTED_ERROR');
1090: FND_MESSAGE.SET_TOKEN('TEXT',
1083: WHEN OTHERS THEN
1084: ROLLBACK TO SAVEPOINT Check_Integrity;
1085: x_return_status := 'U';
1086: x_oracle_error := APP_EXCEPTION.Get_Code;
1087: l_msg_data := APP_EXCEPTION.Get_Text;
1088: FND_MESSAGE.SET_NAME('GR',
1089: 'GR_UNEXPECTED_ERROR');
1090: FND_MESSAGE.SET_TOKEN('TEXT',
1091: l_msg_data,
1090: FND_MESSAGE.SET_TOKEN('TEXT',
1091: l_msg_data,
1092: FALSE);
1093: IF FND_API.To_Boolean(p_called_by_form) THEN
1094: APP_EXCEPTION.Raise_Exception;
1095: ELSE
1096: x_msg_data := FND_MESSAGE.Get;
1097: END IF;
1098:
1139:
1140: EXCEPTION
1141:
1142: WHEN Others THEN
1143: l_msg_data := APP_EXCEPTION.Get_Text;
1144: FND_MESSAGE.SET_NAME('GR',
1145: 'GR_UNEXPECTED_ERROR');
1146: FND_MESSAGE.SET_TOKEN('TEXT',
1147: l_msg_data,
1146: FND_MESSAGE.SET_TOKEN('TEXT',
1147: l_msg_data,
1148: FALSE);
1149: IF FND_API.To_Boolean(p_called_by_form) THEN
1150: APP_EXCEPTION.Raise_Exception;
1151: END IF;
1152:
1153: END Check_Primary_Key;
1154: