255: FND_MESSAGE.SET_TOKEN('TEXT',
256: l_msg_data,
257: FALSE);
258: IF FND_API.To_Boolean(p_called_by_form) THEN
259: APP_EXCEPTION.Raise_Exception;
260: ELSE
261: x_msg_data := FND_MESSAGE.Get;
262: END IF;
263:
263:
264: WHEN Label_Exists_Error THEN
265: ROLLBACK TO SAVEPOINT Insert_Row;
266: x_return_status := 'E';
267: x_oracle_error := APP_EXCEPTION.Get_Code;
268: FND_MESSAGE.SET_NAME('GR',
269: 'GR_RECORD_EXISTS');
270: FND_MESSAGE.SET_TOKEN('CODE',
271: p_phrase_code,
270: FND_MESSAGE.SET_TOKEN('CODE',
271: p_phrase_code,
272: FALSE);
273: IF FND_API.To_Boolean(p_called_by_form) THEN
274: APP_EXCEPTION.Raise_Exception;
275: ELSE
276: x_msg_data := FND_MESSAGE.Get;
277: END IF;
278:
278:
279: WHEN Row_Missing_Error THEN
280: ROLLBACK TO SAVEPOINT Insert_Row;
281: x_return_status := 'E';
282: x_oracle_error := APP_EXCEPTION.Get_Code;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_NO_RECORD_INSERTED');
285: FND_MESSAGE.SET_TOKEN('CODE',
286: p_phrase_code,
285: FND_MESSAGE.SET_TOKEN('CODE',
286: p_phrase_code,
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:
293:
294: WHEN OTHERS THEN
295: ROLLBACK TO SAVEPOINT Insert_Row;
296: x_return_status := 'U';
297: x_oracle_error := APP_EXCEPTION.Get_Code;
298: l_msg_data := APP_EXCEPTION.Get_Text;
299: FND_MESSAGE.SET_NAME('GR',
300: 'GR_UNEXPECTED_ERROR');
301: FND_MESSAGE.SET_TOKEN('TEXT',
294: WHEN OTHERS THEN
295: ROLLBACK TO SAVEPOINT Insert_Row;
296: x_return_status := 'U';
297: x_oracle_error := APP_EXCEPTION.Get_Code;
298: l_msg_data := APP_EXCEPTION.Get_Text;
299: FND_MESSAGE.SET_NAME('GR',
300: 'GR_UNEXPECTED_ERROR');
301: FND_MESSAGE.SET_TOKEN('TEXT',
302: l_msg_data,
301: FND_MESSAGE.SET_TOKEN('TEXT',
302: l_msg_data,
303: FALSE);
304: IF FND_API.To_Boolean(p_called_by_form) THEN
305: APP_EXCEPTION.Raise_Exception;
306: ELSE
307: x_msg_data := FND_MESSAGE.Get;
308: END IF;
309:
493: FND_MESSAGE.SET_TOKEN('TEXT',
494: l_msg_data,
495: FALSE);
496: IF FND_API.To_Boolean(p_called_by_form) THEN
497: APP_EXCEPTION.Raise_Exception;
498: ELSE
499: x_msg_data := FND_MESSAGE.Get;
500: END IF;
501:
501:
502: WHEN Row_Missing_Error THEN
503: ROLLBACK TO SAVEPOINT Update_Row;
504: x_return_status := 'E';
505: x_oracle_error := APP_EXCEPTION.Get_Code;
506: FND_MESSAGE.SET_NAME('GR',
507: 'GR_NO_RECORD_INSERTED');
508: FND_MESSAGE.SET_TOKEN('CODE',
509: p_phrase_code,
508: FND_MESSAGE.SET_TOKEN('CODE',
509: p_phrase_code,
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 Update_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: FND_MESSAGE.SET_NAME('GR',
523: 'GR_UNEXPECTED_ERROR');
524: FND_MESSAGE.SET_TOKEN('TEXT',
517: WHEN OTHERS THEN
518: ROLLBACK TO SAVEPOINT Update_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: FND_MESSAGE.SET_NAME('GR',
523: 'GR_UNEXPECTED_ERROR');
524: FND_MESSAGE.SET_TOKEN('TEXT',
525: l_msg_data,
524: FND_MESSAGE.SET_TOKEN('TEXT',
525: l_msg_data,
526: FALSE);
527: IF FND_API.To_Boolean(p_called_by_form) THEN
528: APP_EXCEPTION.Raise_Exception;
529: ELSE
530: x_msg_data := FND_MESSAGE.Get;
531: END IF;
532:
643: FND_MESSAGE.SET_TOKEN('CODE',
644: p_phrase_code,
645: FALSE);
646: IF FND_API.To_Boolean(p_called_by_form) THEN
647: APP_EXCEPTION.Raise_Exception;
648: ELSE
649: x_msg_data := FND_MESSAGE.Get;
650: END IF;
651:
654: X_return_status := 'E';
655: FND_MESSAGE.SET_NAME('FND',
656: 'FORM_RECORD_CHANGED');
657: IF FND_API.To_Boolean(p_called_by_form) THEN
658: APP_EXCEPTION.Raise_Exception;
659: ELSE
660: x_msg_data := FND_MESSAGE.Get;
661: END IF;
662: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
658: APP_EXCEPTION.Raise_Exception;
659: ELSE
660: x_msg_data := FND_MESSAGE.Get;
661: END IF;
662: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
663: ROLLBACK TO SAVEPOINT Lock_Row;
664: x_return_status := 'L';
665: x_oracle_error := APP_EXCEPTION.Get_Code;
666: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
661: END IF;
662: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
663: ROLLBACK TO SAVEPOINT Lock_Row;
664: x_return_status := 'L';
665: x_oracle_error := APP_EXCEPTION.Get_Code;
666: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
667: FND_MESSAGE.SET_NAME('GR',
668: 'GR_ROW_IS_LOCKED');
669: x_msg_data := FND_MESSAGE.Get;
671:
672: WHEN OTHERS THEN
673: ROLLBACK TO SAVEPOINT Lock_Row;
674: x_return_status := 'U';
675: x_oracle_error := APP_EXCEPTION.Get_Code;
676: l_msg_data := APP_EXCEPTION.Get_Text;
677: FND_MESSAGE.SET_NAME('GR',
678: 'GR_UNEXPECTED_ERROR');
679: FND_MESSAGE.SET_TOKEN('TEXT',
672: WHEN OTHERS THEN
673: ROLLBACK TO SAVEPOINT Lock_Row;
674: x_return_status := 'U';
675: x_oracle_error := APP_EXCEPTION.Get_Code;
676: l_msg_data := APP_EXCEPTION.Get_Text;
677: FND_MESSAGE.SET_NAME('GR',
678: 'GR_UNEXPECTED_ERROR');
679: FND_MESSAGE.SET_TOKEN('TEXT',
680: l_msg_data,
679: FND_MESSAGE.SET_TOKEN('TEXT',
680: l_msg_data,
681: FALSE);
682: IF FND_API.To_Boolean(p_called_by_form) THEN
683: APP_EXCEPTION.Raise_Exception;
684: ELSE
685: x_msg_data := FND_MESSAGE.Get;
686: END IF;
687:
826: ROLLBACK TO SAVEPOINT Delete_Row;
827: x_return_status := l_return_status;
828: x_oracle_error := l_oracle_error;
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 Row_Missing_Error THEN
836: ROLLBACK TO SAVEPOINT Delete_Row;
837: x_return_status := 'E';
838: x_oracle_error := APP_EXCEPTION.Get_Code;
839: FND_MESSAGE.SET_NAME('GR',
840: 'GR_RECORD_NOT_FOUND');
841: FND_MESSAGE.SET_TOKEN('CODE',
842: p_phrase_code,
841: FND_MESSAGE.SET_TOKEN('CODE',
842: p_phrase_code,
843: FALSE);
844: IF FND_API.To_Boolean(p_called_by_form) THEN
845: APP_EXCEPTION.Raise_Exception;
846: ELSE
847: x_msg_data := FND_MESSAGE.Get;
848: END IF;
849:
849:
850: WHEN OTHERS THEN
851: ROLLBACK TO SAVEPOINT Delete_Row;
852: x_return_status := 'U';
853: x_oracle_error := APP_EXCEPTION.Get_Code;
854: l_msg_data := APP_EXCEPTION.Get_Text;
855: l_msg_data := APP_EXCEPTION.Get_Text;
856: FND_MESSAGE.SET_NAME('GR',
857: 'GR_UNEXPECTED_ERROR');
850: WHEN OTHERS THEN
851: ROLLBACK TO SAVEPOINT Delete_Row;
852: x_return_status := 'U';
853: x_oracle_error := APP_EXCEPTION.Get_Code;
854: l_msg_data := APP_EXCEPTION.Get_Text;
855: l_msg_data := APP_EXCEPTION.Get_Text;
856: FND_MESSAGE.SET_NAME('GR',
857: 'GR_UNEXPECTED_ERROR');
858: FND_MESSAGE.SET_TOKEN('TEXT',
851: ROLLBACK TO SAVEPOINT Delete_Row;
852: x_return_status := 'U';
853: x_oracle_error := APP_EXCEPTION.Get_Code;
854: l_msg_data := APP_EXCEPTION.Get_Text;
855: l_msg_data := APP_EXCEPTION.Get_Text;
856: FND_MESSAGE.SET_NAME('GR',
857: 'GR_UNEXPECTED_ERROR');
858: FND_MESSAGE.SET_TOKEN('TEXT',
859: l_msg_data,
858: FND_MESSAGE.SET_TOKEN('TEXT',
859: l_msg_data,
860: FALSE);
861: IF FND_API.To_Boolean(p_called_by_form) THEN
862: APP_EXCEPTION.Raise_Exception;
863: ELSE
864: x_msg_data := FND_MESSAGE.Get;
865: END IF;
866:
908:
909: WHEN OTHERS THEN
910: ROLLBACK TO SAVEPOINT Delete_Rows;
911: x_return_status := 'U';
912: x_oracle_error := APP_EXCEPTION.Get_Code;
913: l_msg_data := APP_EXCEPTION.Get_Text;
914: FND_MESSAGE.SET_NAME('GR',
915: 'GR_UNEXPECTED_ERROR');
916: FND_MESSAGE.SET_TOKEN('TEXT',
909: WHEN OTHERS THEN
910: ROLLBACK TO SAVEPOINT Delete_Rows;
911: x_return_status := 'U';
912: x_oracle_error := APP_EXCEPTION.Get_Code;
913: l_msg_data := APP_EXCEPTION.Get_Text;
914: FND_MESSAGE.SET_NAME('GR',
915: 'GR_UNEXPECTED_ERROR');
916: FND_MESSAGE.SET_TOKEN('TEXT',
917: l_msg_token,
916: FND_MESSAGE.SET_TOKEN('TEXT',
917: l_msg_token,
918: FALSE);
919: IF FND_API.To_Boolean(p_called_by_form) THEN
920: APP_EXCEPTION.Raise_Exception;
921: ELSE
922: x_msg_data := FND_MESSAGE.Get;
923: END IF;
924:
1017:
1018: WHEN OTHERS THEN
1019: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1020: x_return_status := 'U';
1021: x_oracle_error := APP_EXCEPTION.Get_Code;
1022: l_msg_data := APP_EXCEPTION.Get_Text;
1023: FND_MESSAGE.SET_NAME('GR',
1024: 'GR_UNEXPECTED_ERROR');
1025: FND_MESSAGE.SET_TOKEN('TEXT',
1018: WHEN OTHERS THEN
1019: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1020: x_return_status := 'U';
1021: x_oracle_error := APP_EXCEPTION.Get_Code;
1022: l_msg_data := APP_EXCEPTION.Get_Text;
1023: FND_MESSAGE.SET_NAME('GR',
1024: 'GR_UNEXPECTED_ERROR');
1025: FND_MESSAGE.SET_TOKEN('TEXT',
1026: l_msg_data,
1107:
1108: WHEN OTHERS THEN
1109: ROLLBACK TO SAVEPOINT Check_Integrity;
1110: x_return_status := 'U';
1111: x_oracle_error := APP_EXCEPTION.Get_Code;
1112: l_msg_data := APP_EXCEPTION.Get_Text;
1113: FND_MESSAGE.SET_NAME('GR',
1114: 'GR_UNEXPECTED_ERROR');
1115: FND_MESSAGE.SET_TOKEN('TEXT',
1108: WHEN OTHERS THEN
1109: ROLLBACK TO SAVEPOINT Check_Integrity;
1110: x_return_status := 'U';
1111: x_oracle_error := APP_EXCEPTION.Get_Code;
1112: l_msg_data := APP_EXCEPTION.Get_Text;
1113: FND_MESSAGE.SET_NAME('GR',
1114: 'GR_UNEXPECTED_ERROR');
1115: FND_MESSAGE.SET_TOKEN('TEXT',
1116: l_msg_data,
1115: FND_MESSAGE.SET_TOKEN('TEXT',
1116: l_msg_data,
1117: FALSE);
1118: IF FND_API.To_Boolean(p_called_by_form) THEN
1119: APP_EXCEPTION.Raise_Exception;
1120: ELSE
1121: x_msg_data := FND_MESSAGE.Get;
1122: END IF;
1123:
1170:
1171: EXCEPTION
1172:
1173: WHEN Others THEN
1174: l_msg_data := APP_EXCEPTION.Get_Text;
1175: FND_MESSAGE.SET_NAME('GR',
1176: 'GR_UNEXPECTED_ERROR');
1177: FND_MESSAGE.SET_TOKEN('TEXT',
1178: l_msg_data,
1177: FND_MESSAGE.SET_TOKEN('TEXT',
1178: l_msg_data,
1179: FALSE);
1180: IF FND_API.To_Boolean(p_called_by_form) THEN
1181: APP_EXCEPTION.Raise_Exception;
1182: END IF;
1183:
1184: END Check_Primary_Key;
1185: