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:
269: WHEN Item_Exists_Error THEN
270: ROLLBACK TO SAVEPOINT Insert_Row;
271: l_msg_token := p_item_code || ' ' || p_item_no || ' ' || p_language;
272: x_return_status := 'E';
273: x_oracle_error := APP_EXCEPTION.Get_Code;
274: FND_MESSAGE.SET_NAME('GR',
275: 'GR_RECORD_EXISTS');
276: FND_MESSAGE.SET_TOKEN('CODE',
277: l_msg_token,
276: FND_MESSAGE.SET_TOKEN('CODE',
277: l_msg_token,
278: FALSE);
279: IF FND_API.To_Boolean(p_called_by_form) THEN
280: APP_EXCEPTION.Raise_Exception;
281: ELSE
282: x_msg_data := FND_MESSAGE.Get;
283: END IF;
284:
285: WHEN Row_Missing_Error THEN
286: ROLLBACK TO SAVEPOINT Insert_Row;
287: l_msg_token := p_item_code || ' ' || p_item_no || ' ' || p_language;
288: x_return_status := 'E';
289: x_oracle_error := APP_EXCEPTION.Get_Code;
290: FND_MESSAGE.SET_NAME('GR',
291: 'GR_NO_RECORD_INSERTED');
292: FND_MESSAGE.SET_TOKEN('CODE',
293: l_msg_token,
292: FND_MESSAGE.SET_TOKEN('CODE',
293: l_msg_token,
294: FALSE);
295: IF FND_API.To_Boolean(p_called_by_form) THEN
296: APP_EXCEPTION.Raise_Exception;
297: ELSE
298: x_msg_data := FND_MESSAGE.Get;
299: END IF;
300:
301: WHEN OTHERS THEN
302: ROLLBACK TO SAVEPOINT Insert_Row;
303: l_msg_token := p_item_code || ' ' || p_item_no || ' ' || p_language;
304: x_return_status := 'U';
305: x_oracle_error := APP_EXCEPTION.Get_Code;
306: l_msg_data := APP_EXCEPTION.Get_Text;
307: FND_MESSAGE.SET_NAME('GR',
308: 'GR_UNEXPECTED_ERROR');
309: FND_MESSAGE.SET_TOKEN('TEXT',
302: ROLLBACK TO SAVEPOINT Insert_Row;
303: l_msg_token := p_item_code || ' ' || p_item_no || ' ' || p_language;
304: x_return_status := 'U';
305: x_oracle_error := APP_EXCEPTION.Get_Code;
306: l_msg_data := APP_EXCEPTION.Get_Text;
307: FND_MESSAGE.SET_NAME('GR',
308: 'GR_UNEXPECTED_ERROR');
309: FND_MESSAGE.SET_TOKEN('TEXT',
310: l_msg_token,
309: FND_MESSAGE.SET_TOKEN('TEXT',
310: l_msg_token,
311: FALSE);
312: IF FND_API.To_Boolean(p_called_by_form) THEN
313: APP_EXCEPTION.Raise_Exception;
314: ELSE
315: x_msg_data := FND_MESSAGE.Get;
316: END IF;
317:
506: FND_MESSAGE.SET_TOKEN('TEXT',
507: l_msg_data,
508: FALSE);
509: IF FND_API.To_Boolean(p_called_by_form) THEN
510: APP_EXCEPTION.Raise_Exception;
511: ELSE
512: x_msg_data := FND_MESSAGE.Get;
513: END IF;
514:
514:
515: WHEN Row_Missing_Error THEN
516: ROLLBACK TO SAVEPOINT Update_Row;
517: x_return_status := 'E';
518: x_oracle_error := APP_EXCEPTION.Get_Code;
519: FND_MESSAGE.SET_NAME('GR',
520: 'GR_NO_RECORD_INSERTED');
521: FND_MESSAGE.SET_TOKEN('CODE',
522: l_msg_token,
521: FND_MESSAGE.SET_TOKEN('CODE',
522: l_msg_token,
523: FALSE);
524: IF FND_API.To_Boolean(p_called_by_form) THEN
525: APP_EXCEPTION.Raise_Exception;
526: ELSE
527: x_msg_data := FND_MESSAGE.Get;
528: END IF;
529:
529:
530: WHEN OTHERS THEN
531: ROLLBACK TO SAVEPOINT Update_Row;
532: x_return_status := 'U';
533: x_oracle_error := APP_EXCEPTION.Get_Code;
534: l_msg_data := APP_EXCEPTION.Get_Text;
535: FND_MESSAGE.SET_NAME('GR',
536: 'GR_UNEXPECTED_ERROR');
537: FND_MESSAGE.SET_TOKEN('TEXT',
530: WHEN OTHERS THEN
531: ROLLBACK TO SAVEPOINT Update_Row;
532: x_return_status := 'U';
533: x_oracle_error := APP_EXCEPTION.Get_Code;
534: l_msg_data := APP_EXCEPTION.Get_Text;
535: FND_MESSAGE.SET_NAME('GR',
536: 'GR_UNEXPECTED_ERROR');
537: FND_MESSAGE.SET_TOKEN('TEXT',
538: l_msg_token,
537: FND_MESSAGE.SET_TOKEN('TEXT',
538: l_msg_token,
539: FALSE);
540: IF FND_API.To_Boolean(p_called_by_form) THEN
541: APP_EXCEPTION.Raise_Exception;
542: ELSE
543: x_msg_data := FND_MESSAGE.Get;
544: END IF;
545:
883:
884: WHEN Language_Missing_Error THEN
885: ROLLBACK TO SAVEPOINT Add_Language;
886: x_return_status := 'E';
887: x_oracle_error := APP_EXCEPTION.Get_Code;
888: FND_MESSAGE.SET_NAME('GR',
889: 'GR_RECORD_NOT_FOUND');
890: FND_MESSAGE.SET_TOKEN('CODE',
891: l_msg_token,
890: FND_MESSAGE.SET_TOKEN('CODE',
891: l_msg_token,
892: FALSE);
893: IF FND_API.To_Boolean(p_called_by_form) THEN
894: APP_EXCEPTION.Raise_Exception;
895: ELSE
896: x_msg_data := FND_MESSAGE.Get;
897: END IF;
898:
898:
899: WHEN OTHERS THEN
900: ROLLBACK TO SAVEPOINT Add_Language;
901: x_return_status := 'U';
902: x_oracle_error := APP_EXCEPTION.Get_Code;
903: FND_MESSAGE.SET_NAME('GR',
904: 'GR_UNEXPECTED_ERROR');
905: FND_MESSAGE.SET_TOKEN('TEXT',
906: l_msg_token,
905: FND_MESSAGE.SET_TOKEN('TEXT',
906: l_msg_token,
907: FALSE);
908: IF FND_API.To_Boolean(p_called_by_form) THEN
909: APP_EXCEPTION.Raise_Exception;
910: ELSE
911: x_msg_data := FND_MESSAGE.Get;
912: END IF;
913:
1027: FND_MESSAGE.SET_TOKEN('CODE',
1028: l_msg_token,
1029: FALSE);
1030: IF FND_API.To_Boolean(p_called_by_form) THEN
1031: APP_EXCEPTION.Raise_Exception;
1032: ELSE
1033: x_msg_data := FND_MESSAGE.Get;
1034: END IF;
1035:
1038: X_return_status := 'E';
1039: FND_MESSAGE.SET_NAME('FND',
1040: 'FORM_RECORD_CHANGED');
1041: IF FND_API.To_Boolean(p_called_by_form) THEN
1042: APP_EXCEPTION.Raise_Exception;
1043: ELSE
1044: x_msg_data := FND_MESSAGE.Get;
1045: END IF;
1046: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1042: APP_EXCEPTION.Raise_Exception;
1043: ELSE
1044: x_msg_data := FND_MESSAGE.Get;
1045: END IF;
1046: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1047: ROLLBACK TO SAVEPOINT Lock_Row;
1048: x_return_status := 'L';
1049: x_oracle_error := APP_EXCEPTION.Get_Code;
1050: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
1045: END IF;
1046: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1047: ROLLBACK TO SAVEPOINT Lock_Row;
1048: x_return_status := 'L';
1049: x_oracle_error := APP_EXCEPTION.Get_Code;
1050: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
1051: FND_MESSAGE.SET_NAME('GR',
1052: 'GR_ROW_IS_LOCKED');
1053: x_msg_data := FND_MESSAGE.Get;
1056:
1057: WHEN OTHERS THEN
1058: ROLLBACK TO SAVEPOINT Lock_Row;
1059: x_return_status := 'U';
1060: x_oracle_error := APP_EXCEPTION.Get_Code;
1061: l_msg_data := APP_EXCEPTION.Get_Text;
1062: FND_MESSAGE.SET_NAME('GR',
1063: 'GR_UNEXPECTED_ERROR');
1064: FND_MESSAGE.SET_TOKEN('TEXT',
1057: WHEN OTHERS THEN
1058: ROLLBACK TO SAVEPOINT Lock_Row;
1059: x_return_status := 'U';
1060: x_oracle_error := APP_EXCEPTION.Get_Code;
1061: l_msg_data := APP_EXCEPTION.Get_Text;
1062: FND_MESSAGE.SET_NAME('GR',
1063: 'GR_UNEXPECTED_ERROR');
1064: FND_MESSAGE.SET_TOKEN('TEXT',
1065: l_msg_token,
1064: FND_MESSAGE.SET_TOKEN('TEXT',
1065: l_msg_token,
1066: FALSE);
1067: IF FND_API.To_Boolean(p_called_by_form) THEN
1068: APP_EXCEPTION.Raise_Exception;
1069: ELSE
1070: x_msg_data := FND_MESSAGE.Get;
1071: END IF;
1072:
1217: ROLLBACK TO SAVEPOINT Delete_Row;
1218: x_return_status := l_return_status;
1219: x_oracle_error := l_oracle_error;
1220: IF FND_API.To_Boolean(p_called_by_form) THEN
1221: APP_EXCEPTION.Raise_Exception;
1222: ELSE
1223: x_msg_data := FND_MESSAGE.Get;
1224: END IF;
1225:
1225:
1226: WHEN Row_Missing_Error THEN
1227: ROLLBACK TO SAVEPOINT Delete_Row;
1228: x_return_status := 'E';
1229: x_oracle_error := APP_EXCEPTION.Get_Code;
1230: FND_MESSAGE.SET_NAME('GR',
1231: 'GR_RECORD_NOT_FOUND');
1232: FND_MESSAGE.SET_TOKEN('CODE',
1233: l_msg_token,
1232: FND_MESSAGE.SET_TOKEN('CODE',
1233: l_msg_token,
1234: FALSE);
1235: IF FND_API.To_Boolean(p_called_by_form) THEN
1236: APP_EXCEPTION.Raise_Exception;
1237: ELSE
1238: x_msg_data := FND_MESSAGE.Get;
1239: END IF;
1240:
1240:
1241: WHEN OTHERS THEN
1242: ROLLBACK TO SAVEPOINT Delete_Row;
1243: x_return_status := 'U';
1244: x_oracle_error := APP_EXCEPTION.Get_Code;
1245: l_msg_data := APP_EXCEPTION.Get_Text;
1246: l_msg_data := APP_EXCEPTION.Get_Text;
1247: FND_MESSAGE.SET_NAME('GR',
1248: 'GR_UNEXPECTED_ERROR');
1241: WHEN OTHERS THEN
1242: ROLLBACK TO SAVEPOINT Delete_Row;
1243: x_return_status := 'U';
1244: x_oracle_error := APP_EXCEPTION.Get_Code;
1245: l_msg_data := APP_EXCEPTION.Get_Text;
1246: l_msg_data := APP_EXCEPTION.Get_Text;
1247: FND_MESSAGE.SET_NAME('GR',
1248: 'GR_UNEXPECTED_ERROR');
1249: FND_MESSAGE.SET_TOKEN('TEXT',
1242: ROLLBACK TO SAVEPOINT Delete_Row;
1243: x_return_status := 'U';
1244: x_oracle_error := APP_EXCEPTION.Get_Code;
1245: l_msg_data := APP_EXCEPTION.Get_Text;
1246: l_msg_data := APP_EXCEPTION.Get_Text;
1247: FND_MESSAGE.SET_NAME('GR',
1248: 'GR_UNEXPECTED_ERROR');
1249: FND_MESSAGE.SET_TOKEN('TEXT',
1250: l_msg_token,
1249: FND_MESSAGE.SET_TOKEN('TEXT',
1250: l_msg_token,
1251: FALSE);
1252: IF FND_API.To_Boolean(p_called_by_form) THEN
1253: APP_EXCEPTION.Raise_Exception;
1254: ELSE
1255: x_msg_data := FND_MESSAGE.Get;
1256: END IF;
1257:
1341: EXCEPTION
1342:
1343: WHEN Null_Delete_Option_Error THEN
1344: x_return_status := 'E';
1345: x_oracle_error := APP_EXCEPTION.Get_Code;
1346: FND_MESSAGE.SET_NAME('GR',
1347: 'GR_NULL_VALUE');
1348: FND_MESSAGE.SET_TOKEN('CODE',
1349: l_msg_token,
1348: FND_MESSAGE.SET_TOKEN('CODE',
1349: l_msg_token,
1350: FALSE);
1351: IF FND_API.To_Boolean(p_called_by_form) THEN
1352: APP_EXCEPTION.Raise_Exception;
1353: ELSE
1354: x_msg_data := FND_MESSAGE.Get;
1355: END IF;
1356:
1356:
1357: WHEN OTHERS THEN
1358: ROLLBACK TO SAVEPOINT Delete_Rows;
1359: x_return_status := 'U';
1360: x_oracle_error := APP_EXCEPTION.Get_Code;
1361: l_msg_data := APP_EXCEPTION.Get_Text;
1362: FND_MESSAGE.SET_NAME('GR',
1363: 'GR_UNEXPECTED_ERROR');
1364: FND_MESSAGE.SET_TOKEN('TEXT',
1357: WHEN OTHERS THEN
1358: ROLLBACK TO SAVEPOINT Delete_Rows;
1359: x_return_status := 'U';
1360: x_oracle_error := APP_EXCEPTION.Get_Code;
1361: l_msg_data := APP_EXCEPTION.Get_Text;
1362: FND_MESSAGE.SET_NAME('GR',
1363: 'GR_UNEXPECTED_ERROR');
1364: FND_MESSAGE.SET_TOKEN('TEXT',
1365: l_msg_token,
1364: FND_MESSAGE.SET_TOKEN('TEXT',
1365: l_msg_token,
1366: FALSE);
1367: IF FND_API.To_Boolean(p_called_by_form) THEN
1368: APP_EXCEPTION.Raise_Exception;
1369: ELSE
1370: x_msg_data := FND_MESSAGE.Get;
1371: END IF;
1372:
1535:
1536: WHEN Row_Missing_Error THEN
1537: ROLLBACK TO SAVEPOINT Delete_Row;
1538: x_return_status := 'E';
1539: x_oracle_error := APP_EXCEPTION.Get_Code;
1540: FND_MESSAGE.SET_NAME('GR',
1541: 'GR_RECORD_NOT_FOUND');
1542: FND_MESSAGE.SET_TOKEN('CODE',
1543: l_msg_token,
1546:
1547: WHEN OTHERS THEN
1548: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1549: x_return_status := 'U';
1550: x_oracle_error := APP_EXCEPTION.Get_Code;
1551: l_msg_data := APP_EXCEPTION.Get_Text;
1552: FND_MESSAGE.SET_NAME('GR',
1553: 'GR_UNEXPECTED_ERROR');
1554: FND_MESSAGE.SET_TOKEN('TEXT',
1547: WHEN OTHERS THEN
1548: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1549: x_return_status := 'U';
1550: x_oracle_error := APP_EXCEPTION.Get_Code;
1551: l_msg_data := APP_EXCEPTION.Get_Text;
1552: FND_MESSAGE.SET_NAME('GR',
1553: 'GR_UNEXPECTED_ERROR');
1554: FND_MESSAGE.SET_TOKEN('TEXT',
1555: l_msg_token,
1657: FND_MESSAGE.SET_TOKEN('CODE',
1658: p_language,
1659: FALSE);
1660: IF FND_API.To_Boolean(p_called_by_form) THEN
1661: APP_EXCEPTION.Raise_Exception;
1662: ELSE
1663: x_msg_data := FND_MESSAGE.Get;
1664: END IF;
1665:
1665:
1666: WHEN OTHERS THEN
1667: ROLLBACK TO SAVEPOINT Check_Integrity;
1668: x_return_status := 'U';
1669: x_oracle_error := APP_EXCEPTION.Get_Code;
1670: l_msg_data := APP_EXCEPTION.Get_Text;
1671: FND_MESSAGE.SET_NAME('GR',
1672: 'GR_UNEXPECTED_ERROR');
1673: FND_MESSAGE.SET_TOKEN('TEXT',
1666: WHEN OTHERS THEN
1667: ROLLBACK TO SAVEPOINT Check_Integrity;
1668: x_return_status := 'U';
1669: x_oracle_error := APP_EXCEPTION.Get_Code;
1670: l_msg_data := APP_EXCEPTION.Get_Text;
1671: FND_MESSAGE.SET_NAME('GR',
1672: 'GR_UNEXPECTED_ERROR');
1673: FND_MESSAGE.SET_TOKEN('TEXT',
1674: l_msg_data,
1673: FND_MESSAGE.SET_TOKEN('TEXT',
1674: l_msg_data,
1675: FALSE);
1676: IF FND_API.To_Boolean(p_called_by_form) THEN
1677: APP_EXCEPTION.Raise_Exception;
1678: ELSE
1679: x_msg_data := FND_MESSAGE.Get;
1680: END IF;
1681:
1729:
1730: EXCEPTION
1731:
1732: WHEN Others THEN
1733: l_msg_data := APP_EXCEPTION.Get_Text;
1734: FND_MESSAGE.SET_NAME('GR',
1735: 'GR_UNEXPECTED_ERROR');
1736: FND_MESSAGE.SET_TOKEN('TEXT',
1737: l_msg_data,
1736: FND_MESSAGE.SET_TOKEN('TEXT',
1737: l_msg_data,
1738: FALSE);
1739: IF FND_API.To_Boolean(p_called_by_form) THEN
1740: APP_EXCEPTION.Raise_Exception;
1741: END IF;
1742:
1743: END Check_Primary_Key;
1744: