282: WHEN Foreign_Key_Error THEN
283: ROLLBACK TO SAVEPOINT Insert_Row;
284: x_return_status := l_return_status;
285: x_oracle_error := l_oracle_error;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_FOREIGN_KEY_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
284: x_return_status := l_return_status;
285: x_oracle_error := l_oracle_error;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_FOREIGN_KEY_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
296:
297: WHEN Item_Exists_Error THEN
298: ROLLBACK TO SAVEPOINT Insert_Row;
297: WHEN Item_Exists_Error THEN
298: ROLLBACK TO SAVEPOINT Insert_Row;
299: x_return_status := 'E';
300: x_oracle_error := APP_EXCEPTION.Get_Code;
301: FND_MESSAGE.SET_NAME('GR',
302: 'GR_RECORD_EXISTS');
303: FND_MESSAGE.SET_TOKEN('CODE',
304: p_item_code,
305: FALSE);
299: x_return_status := 'E';
300: x_oracle_error := APP_EXCEPTION.Get_Code;
301: FND_MESSAGE.SET_NAME('GR',
302: 'GR_RECORD_EXISTS');
303: FND_MESSAGE.SET_TOKEN('CODE',
304: p_item_code,
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
308: ELSE
309: x_msg_data := FND_MESSAGE.Get;
310: END IF;
311:
312: WHEN Row_Missing_Error THEN
313: ROLLBACK TO SAVEPOINT Insert_Row;
312: WHEN Row_Missing_Error THEN
313: ROLLBACK TO SAVEPOINT Insert_Row;
314: x_return_status := 'E';
315: x_oracle_error := APP_EXCEPTION.Get_Code;
316: FND_MESSAGE.SET_NAME('GR',
317: 'GR_NO_RECORD_INSERTED');
318: FND_MESSAGE.SET_TOKEN('CODE',
319: p_item_code,
320: FALSE);
314: x_return_status := 'E';
315: x_oracle_error := APP_EXCEPTION.Get_Code;
316: FND_MESSAGE.SET_NAME('GR',
317: 'GR_NO_RECORD_INSERTED');
318: FND_MESSAGE.SET_TOKEN('CODE',
319: p_item_code,
320: FALSE);
321: IF FND_API.To_Boolean(p_called_by_form) THEN
322: APP_EXCEPTION.Raise_Exception;
320: FALSE);
321: IF FND_API.To_Boolean(p_called_by_form) THEN
322: APP_EXCEPTION.Raise_Exception;
323: ELSE
324: x_msg_data := FND_MESSAGE.Get;
325: END IF;
326:
327: WHEN OTHERS THEN
328: ROLLBACK TO SAVEPOINT Insert_Row;
328: ROLLBACK TO SAVEPOINT Insert_Row;
329: x_return_status := 'U';
330: x_oracle_error := APP_EXCEPTION.Get_Code;
331: l_msg_data := APP_EXCEPTION.Get_Text;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_UNEXPECTED_ERROR');
334: FND_MESSAGE.SET_TOKEN('TEXT',
335: l_msg_data,
336: FALSE);
330: x_oracle_error := APP_EXCEPTION.Get_Code;
331: l_msg_data := APP_EXCEPTION.Get_Text;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_UNEXPECTED_ERROR');
334: FND_MESSAGE.SET_TOKEN('TEXT',
335: l_msg_data,
336: FALSE);
337: IF FND_API.To_Boolean(p_called_by_form) THEN
338: APP_EXCEPTION.Raise_Exception;
336: FALSE);
337: IF FND_API.To_Boolean(p_called_by_form) THEN
338: APP_EXCEPTION.Raise_Exception;
339: ELSE
340: x_msg_data := FND_MESSAGE.Get;
341: END IF;
342:
343: END Insert_Row;
344:
546: WHEN Foreign_Key_Error THEN
547: ROLLBACK TO SAVEPOINT Update_Row;
548: x_return_status := l_return_status;
549: x_oracle_error := l_oracle_error;
550: FND_MESSAGE.SET_NAME('GR',
551: 'GR_FOREIGN_KEY_ERROR');
552: FND_MESSAGE.SET_TOKEN('TEXT',
553: l_msg_data,
554: FALSE);
548: x_return_status := l_return_status;
549: x_oracle_error := l_oracle_error;
550: FND_MESSAGE.SET_NAME('GR',
551: 'GR_FOREIGN_KEY_ERROR');
552: FND_MESSAGE.SET_TOKEN('TEXT',
553: l_msg_data,
554: FALSE);
555: IF FND_API.To_Boolean(p_called_by_form) THEN
556: APP_EXCEPTION.Raise_Exception;
554: FALSE);
555: IF FND_API.To_Boolean(p_called_by_form) THEN
556: APP_EXCEPTION.Raise_Exception;
557: ELSE
558: x_msg_data := FND_MESSAGE.Get;
559: END IF;
560:
561: WHEN Row_Missing_Error THEN
562: ROLLBACK TO SAVEPOINT Update_Row;
561: WHEN Row_Missing_Error THEN
562: ROLLBACK TO SAVEPOINT Update_Row;
563: x_return_status := 'E';
564: x_oracle_error := APP_EXCEPTION.Get_Code;
565: FND_MESSAGE.SET_NAME('GR',
566: 'GR_NO_RECORD_INSERTED');
567: FND_MESSAGE.SET_TOKEN('CODE',
568: p_item_code,
569: FALSE);
563: x_return_status := 'E';
564: x_oracle_error := APP_EXCEPTION.Get_Code;
565: FND_MESSAGE.SET_NAME('GR',
566: 'GR_NO_RECORD_INSERTED');
567: FND_MESSAGE.SET_TOKEN('CODE',
568: p_item_code,
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
572: ELSE
573: x_msg_data := FND_MESSAGE.Get;
574: END IF;
575:
576: WHEN OTHERS THEN
577: ROLLBACK TO SAVEPOINT Update_Row;
577: ROLLBACK TO SAVEPOINT Update_Row;
578: x_return_status := 'U';
579: x_oracle_error := APP_EXCEPTION.Get_Code;
580: l_msg_data := APP_EXCEPTION.Get_Text;
581: FND_MESSAGE.SET_NAME('GR',
582: 'GR_UNEXPECTED_ERROR');
583: FND_MESSAGE.SET_TOKEN('TEXT',
584: l_msg_data,
585: FALSE);
579: x_oracle_error := APP_EXCEPTION.Get_Code;
580: l_msg_data := APP_EXCEPTION.Get_Text;
581: FND_MESSAGE.SET_NAME('GR',
582: 'GR_UNEXPECTED_ERROR');
583: FND_MESSAGE.SET_TOKEN('TEXT',
584: l_msg_data,
585: FALSE);
586: IF FND_API.To_Boolean(p_called_by_form) THEN
587: APP_EXCEPTION.Raise_Exception;
585: FALSE);
586: IF FND_API.To_Boolean(p_called_by_form) THEN
587: APP_EXCEPTION.Raise_Exception;
588: ELSE
589: x_msg_data := FND_MESSAGE.Get;
590: END IF;
591:
592: END Update_Row;
593:
701:
702: WHEN No_Data_Found_Error THEN
703: ROLLBACK TO SAVEPOINT Lock_Row;
704: x_return_status := 'E';
705: FND_MESSAGE.SET_NAME('GR',
706: 'GR_RECORD_NOT_FOUND');
707: FND_MESSAGE.SET_TOKEN('CODE',
708: p_item_code,
709: FALSE);
703: ROLLBACK TO SAVEPOINT Lock_Row;
704: x_return_status := 'E';
705: FND_MESSAGE.SET_NAME('GR',
706: 'GR_RECORD_NOT_FOUND');
707: FND_MESSAGE.SET_TOKEN('CODE',
708: p_item_code,
709: FALSE);
710: IF FND_API.To_Boolean(p_called_by_form) THEN
711: APP_EXCEPTION.Raise_Exception;
709: FALSE);
710: IF FND_API.To_Boolean(p_called_by_form) THEN
711: APP_EXCEPTION.Raise_Exception;
712: ELSE
713: x_msg_data := FND_MESSAGE.Get;
714: END IF;
715:
716: WHEN Row_Already_Locked_Error THEN
717: ROLLBACK TO SAVEPOINT Lock_Row;
716: WHEN Row_Already_Locked_Error THEN
717: ROLLBACK TO SAVEPOINT Lock_Row;
718: x_return_status := 'E';
719: x_oracle_error := APP_EXCEPTION.Get_Code;
720: FND_MESSAGE.SET_NAME('GR',
721: 'GR_ROW_IS_LOCKED');
722: IF FND_API.To_Boolean(p_called_by_form) THEN
723: APP_EXCEPTION.Raise_Exception;
724: ELSE
721: 'GR_ROW_IS_LOCKED');
722: IF FND_API.To_Boolean(p_called_by_form) THEN
723: APP_EXCEPTION.Raise_Exception;
724: ELSE
725: x_msg_data := FND_MESSAGE.Get;
726: END IF;
727:
728: WHEN OTHERS THEN
729: ROLLBACK TO SAVEPOINT Lock_Row;
729: ROLLBACK TO SAVEPOINT Lock_Row;
730: x_return_status := 'U';
731: x_oracle_error := APP_EXCEPTION.Get_Code;
732: l_msg_data := APP_EXCEPTION.Get_Text;
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_UNEXPECTED_ERROR');
735: FND_MESSAGE.SET_TOKEN('TEXT',
736: l_msg_data,
737: FALSE);
731: x_oracle_error := APP_EXCEPTION.Get_Code;
732: l_msg_data := APP_EXCEPTION.Get_Text;
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_UNEXPECTED_ERROR');
735: FND_MESSAGE.SET_TOKEN('TEXT',
736: l_msg_data,
737: FALSE);
738: IF FND_API.To_Boolean(p_called_by_form) THEN
739: APP_EXCEPTION.Raise_Exception;
737: FALSE);
738: IF FND_API.To_Boolean(p_called_by_form) THEN
739: APP_EXCEPTION.Raise_Exception;
740: ELSE
741: x_msg_data := FND_MESSAGE.Get;
742: END IF;
743:
744: END Lock_Row;
745:
902: x_oracle_error := l_oracle_error;
903: IF FND_API.To_Boolean(p_called_by_form) THEN
904: APP_EXCEPTION.Raise_Exception;
905: ELSE
906: x_msg_data := FND_MESSAGE.Get;
907: END IF;
908:
909: WHEN Row_Missing_Error THEN
910: ROLLBACK TO SAVEPOINT Delete_Row;
909: WHEN Row_Missing_Error THEN
910: ROLLBACK TO SAVEPOINT Delete_Row;
911: x_return_status := 'E';
912: x_oracle_error := APP_EXCEPTION.Get_Code;
913: FND_MESSAGE.SET_NAME('GR',
914: 'GR_RECORD_NOT_FOUND');
915: FND_MESSAGE.SET_TOKEN('CODE',
916: p_item_code,
917: FALSE);
911: x_return_status := 'E';
912: x_oracle_error := APP_EXCEPTION.Get_Code;
913: FND_MESSAGE.SET_NAME('GR',
914: 'GR_RECORD_NOT_FOUND');
915: FND_MESSAGE.SET_TOKEN('CODE',
916: p_item_code,
917: FALSE);
918: IF FND_API.To_Boolean(p_called_by_form) THEN
919: APP_EXCEPTION.Raise_Exception;
917: FALSE);
918: IF FND_API.To_Boolean(p_called_by_form) THEN
919: APP_EXCEPTION.Raise_Exception;
920: ELSE
921: x_msg_data := FND_MESSAGE.Get;
922: END IF;
923:
924: WHEN OTHERS THEN
925: ROLLBACK TO SAVEPOINT Delete_Row;
926: x_return_status := 'U';
927: x_oracle_error := APP_EXCEPTION.Get_Code;
928: l_msg_data := APP_EXCEPTION.Get_Text;
929: l_msg_data := APP_EXCEPTION.Get_Text;
930: FND_MESSAGE.SET_NAME('GR',
931: 'GR_UNEXPECTED_ERROR');
932: FND_MESSAGE.SET_TOKEN('TEXT',
933: l_msg_data,
934: FALSE);
928: l_msg_data := APP_EXCEPTION.Get_Text;
929: l_msg_data := APP_EXCEPTION.Get_Text;
930: FND_MESSAGE.SET_NAME('GR',
931: 'GR_UNEXPECTED_ERROR');
932: FND_MESSAGE.SET_TOKEN('TEXT',
933: l_msg_data,
934: FALSE);
935: IF FND_API.To_Boolean(p_called_by_form) THEN
936: APP_EXCEPTION.Raise_Exception;
934: FALSE);
935: IF FND_API.To_Boolean(p_called_by_form) THEN
936: APP_EXCEPTION.Raise_Exception;
937: ELSE
938: x_msg_data := FND_MESSAGE.Get;
939: END IF;
940:
941: END Delete_Row;
942:
1044: FETCH c_get_item_group INTO ItemGrpRecord;
1045: IF c_get_item_group%NOTFOUND THEN
1046: CLOSE c_get_item_group;
1047: x_return_status := 'E';
1048: FND_MESSAGE.SET_NAME('GR',
1049: 'GR_RECORD_NOT_FOUND');
1050: FND_MESSAGE.SET_TOKEN('CODE',
1051: p_item_group_code,
1052: FALSE);
1046: CLOSE c_get_item_group;
1047: x_return_status := 'E';
1048: FND_MESSAGE.SET_NAME('GR',
1049: 'GR_RECORD_NOT_FOUND');
1050: FND_MESSAGE.SET_TOKEN('CODE',
1051: p_item_group_code,
1052: FALSE);
1053: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1054: END IF;
1049: 'GR_RECORD_NOT_FOUND');
1050: FND_MESSAGE.SET_TOKEN('CODE',
1051: p_item_group_code,
1052: FALSE);
1053: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1054: END IF;
1055: CLOSE c_get_item_group;
1056: END IF;
1057:
1062: FETCH c_get_prod_class INTO ProdClsRecord;
1063: IF c_get_prod_class%NOTFOUND THEN
1064: CLOSE c_get_prod_class;
1065: x_return_status := 'E';
1066: FND_MESSAGE.SET_NAME('GR',
1067: 'GR_RECORD_NOT_FOUND');
1068: FND_MESSAGE.SET_TOKEN('CODE',
1069: p_product_class,
1070: FALSE);
1064: CLOSE c_get_prod_class;
1065: x_return_status := 'E';
1066: FND_MESSAGE.SET_NAME('GR',
1067: 'GR_RECORD_NOT_FOUND');
1068: FND_MESSAGE.SET_TOKEN('CODE',
1069: p_product_class,
1070: FALSE);
1071: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1072: END IF;
1067: 'GR_RECORD_NOT_FOUND');
1068: FND_MESSAGE.SET_TOKEN('CODE',
1069: p_product_class,
1070: FALSE);
1071: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1072: END IF;
1073: CLOSE c_get_prod_class;
1074: END IF;
1075:
1079: FETCH c_get_user_id INTO UserRcd;
1080: IF c_get_user_id%NOTFOUND THEN
1081: CLOSE c_get_user_id;
1082: x_return_status := 'E';
1083: FND_MESSAGE.SET_NAME('GR',
1084: 'GR_RECORD_NOT_FOUND');
1085: FND_MESSAGE.SET_TOKEN('CODE',
1086: p_user_id,
1087: FALSE);
1081: CLOSE c_get_user_id;
1082: x_return_status := 'E';
1083: FND_MESSAGE.SET_NAME('GR',
1084: 'GR_RECORD_NOT_FOUND');
1085: FND_MESSAGE.SET_TOKEN('CODE',
1086: p_user_id,
1087: FALSE);
1088: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1089: END IF;
1084: 'GR_RECORD_NOT_FOUND');
1085: FND_MESSAGE.SET_TOKEN('CODE',
1086: p_user_id,
1087: FALSE);
1088: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1089: END IF;
1090: CLOSE c_get_user_id;
1091:
1092: /* Check the not null columns */
1092: /* Check the not null columns */
1093:
1094: IF p_print_ing_phrases_flag IS NULL THEN
1095: x_return_status := 'E';
1096: FND_MESSAGE.SET_NAME('GR',
1097: 'GR_NULL_VALUE');
1098: FND_MESSAGE.SET_TOKEN('CODE',
1099: p_print_ing_phrases_flag,
1100: FALSE);
1094: IF p_print_ing_phrases_flag IS NULL THEN
1095: x_return_status := 'E';
1096: FND_MESSAGE.SET_NAME('GR',
1097: 'GR_NULL_VALUE');
1098: FND_MESSAGE.SET_TOKEN('CODE',
1099: p_print_ing_phrases_flag,
1100: FALSE);
1101: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1102: END IF;
1097: 'GR_NULL_VALUE');
1098: FND_MESSAGE.SET_TOKEN('CODE',
1099: p_print_ing_phrases_flag,
1100: FALSE);
1101: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1102: END IF;
1103:
1104: IF x_return_status <> 'S' THEN
1105: x_msg_data := l_msg_data;
1111: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1112: x_return_status := 'U';
1113: x_oracle_error := APP_EXCEPTION.Get_Code;
1114: l_msg_data := APP_EXCEPTION.Get_Text;
1115: FND_MESSAGE.SET_NAME('GR',
1116: 'GR_UNEXPECTED_ERROR');
1117: FND_MESSAGE.SET_TOKEN('TEXT',
1118: l_msg_data,
1119: FALSE);
1113: x_oracle_error := APP_EXCEPTION.Get_Code;
1114: l_msg_data := APP_EXCEPTION.Get_Text;
1115: FND_MESSAGE.SET_NAME('GR',
1116: 'GR_UNEXPECTED_ERROR');
1117: FND_MESSAGE.SET_TOKEN('TEXT',
1118: l_msg_data,
1119: FALSE);
1120: x_msg_data := FND_MESSAGE.Get;
1121:
1116: 'GR_UNEXPECTED_ERROR');
1117: FND_MESSAGE.SET_TOKEN('TEXT',
1118: l_msg_data,
1119: FALSE);
1120: x_msg_data := FND_MESSAGE.Get;
1121:
1122: END Check_Foreign_Keys;
1123:
1124: PROCEDURE Check_Integrity
1566: EXCEPTION
1567:
1568: WHEN INTEGRITY_ERROR THEN
1569: x_return_status := 'E';
1570: FND_MESSAGE.SET_NAME('GR',
1571: 'GR_INTEGRITY_HEADER');
1572: FND_MESSAGE.SET_TOKEN('CODE',
1573: p_item_code,
1574: FALSE);
1568: WHEN INTEGRITY_ERROR THEN
1569: x_return_status := 'E';
1570: FND_MESSAGE.SET_NAME('GR',
1571: 'GR_INTEGRITY_HEADER');
1572: FND_MESSAGE.SET_TOKEN('CODE',
1573: p_item_code,
1574: FALSE);
1575: FND_MESSAGE.SET_TOKEN('TABLES',
1576: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1571: 'GR_INTEGRITY_HEADER');
1572: FND_MESSAGE.SET_TOKEN('CODE',
1573: p_item_code,
1574: FALSE);
1575: FND_MESSAGE.SET_TOKEN('TABLES',
1576: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1577: FALSE);
1578: IF FND_API.To_Boolean(p_called_by_form) THEN
1579: APP_EXCEPTION.Raise_Exception;
1577: FALSE);
1578: IF FND_API.To_Boolean(p_called_by_form) THEN
1579: APP_EXCEPTION.Raise_Exception;
1580: ELSE
1581: x_msg_data := FND_MESSAGE.Get;
1582: END IF;
1583: WHEN OTHERS THEN
1584: ROLLBACK TO SAVEPOINT Check_Integrity;
1585: x_return_status := 'U';
1584: ROLLBACK TO SAVEPOINT Check_Integrity;
1585: x_return_status := 'U';
1586: x_oracle_error := APP_EXCEPTION.Get_Code;
1587: l_msg_data := APP_EXCEPTION.Get_Text;
1588: FND_MESSAGE.SET_NAME('GR',
1589: 'GR_UNEXPECTED_ERROR');
1590: FND_MESSAGE.SET_TOKEN('TEXT',
1591: l_msg_data,
1592: FALSE);
1586: x_oracle_error := APP_EXCEPTION.Get_Code;
1587: l_msg_data := APP_EXCEPTION.Get_Text;
1588: FND_MESSAGE.SET_NAME('GR',
1589: 'GR_UNEXPECTED_ERROR');
1590: FND_MESSAGE.SET_TOKEN('TEXT',
1591: l_msg_data,
1592: FALSE);
1593: IF FND_API.To_Boolean(p_called_by_form) THEN
1594: APP_EXCEPTION.Raise_Exception;
1592: FALSE);
1593: IF FND_API.To_Boolean(p_called_by_form) THEN
1594: APP_EXCEPTION.Raise_Exception;
1595: ELSE
1596: x_msg_data := FND_MESSAGE.Get;
1597: END IF;
1598:
1599: END Check_Integrity;
1600:
1641: EXCEPTION
1642:
1643: WHEN Others THEN
1644: l_msg_data := APP_EXCEPTION.Get_Text;
1645: FND_MESSAGE.SET_NAME('GR',
1646: 'GR_UNEXPECTED_ERROR');
1647: FND_MESSAGE.SET_TOKEN('TEXT',
1648: l_msg_data,
1649: FALSE);
1643: WHEN Others THEN
1644: l_msg_data := APP_EXCEPTION.Get_Text;
1645: FND_MESSAGE.SET_NAME('GR',
1646: 'GR_UNEXPECTED_ERROR');
1647: FND_MESSAGE.SET_TOKEN('TEXT',
1648: l_msg_data,
1649: FALSE);
1650: IF FND_API.To_Boolean(p_called_by_form) THEN
1651: APP_EXCEPTION.Raise_Exception;