298: ROLLBACK TO SAVEPOINT Insert_Row;
299: --x_return_status := l_return_status; -- PAL
300: x_return_status := 'F';
301: x_oracle_error := l_oracle_error;
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_FOREIGN_KEY_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_data,
306: FALSE);
300: x_return_status := 'F';
301: x_oracle_error := l_oracle_error;
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_FOREIGN_KEY_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_data,
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
309: ELSE
310: x_msg_data := FND_MESSAGE.Get;
311: END IF;
312:
313: WHEN Label_Exists_Error THEN
314: ROLLBACK TO SAVEPOINT Insert_Row;
313: WHEN Label_Exists_Error THEN
314: ROLLBACK TO SAVEPOINT Insert_Row;
315: x_return_status := 'E';
316: x_oracle_error := APP_EXCEPTION.Get_Code;
317: FND_MESSAGE.SET_NAME('GR',
318: 'GR_RECORD_EXISTS');
319: FND_MESSAGE.SET_TOKEN('CODE',
320: p_label_code,
321: FALSE);
315: x_return_status := 'E';
316: x_oracle_error := APP_EXCEPTION.Get_Code;
317: FND_MESSAGE.SET_NAME('GR',
318: 'GR_RECORD_EXISTS');
319: FND_MESSAGE.SET_TOKEN('CODE',
320: p_label_code,
321: FALSE);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
321: FALSE);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
324: ELSE
325: x_msg_data := FND_MESSAGE.Get;
326: END IF;
327:
328: WHEN Row_Missing_Error THEN
329: ROLLBACK TO SAVEPOINT Insert_Row;
328: WHEN Row_Missing_Error THEN
329: ROLLBACK TO SAVEPOINT Insert_Row;
330: x_return_status := 'P'; -- PAL
331: x_oracle_error := APP_EXCEPTION.Get_Code;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_NO_RECORD_INSERTED');
334: FND_MESSAGE.SET_TOKEN('CODE',
335: p_label_code,
336: FALSE);
330: x_return_status := 'P'; -- PAL
331: x_oracle_error := APP_EXCEPTION.Get_Code;
332: FND_MESSAGE.SET_NAME('GR',
333: 'GR_NO_RECORD_INSERTED');
334: FND_MESSAGE.SET_TOKEN('CODE',
335: p_label_code,
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: WHEN OTHERS THEN
344: ROLLBACK TO SAVEPOINT Insert_Row;
344: ROLLBACK TO SAVEPOINT Insert_Row;
345: x_return_status := 'U';
346: x_oracle_error := SQLCODE;
347: l_msg_data := SUBSTR(SQLERRM, 1, 200);
348: FND_MESSAGE.SET_NAME('GR',
349: 'GR_UNEXPECTED_ERROR');
350: FND_MESSAGE.SET_TOKEN('TEXT',
351: l_msg_data,
352: FALSE);
346: x_oracle_error := SQLCODE;
347: l_msg_data := SUBSTR(SQLERRM, 1, 200);
348: FND_MESSAGE.SET_NAME('GR',
349: 'GR_UNEXPECTED_ERROR');
350: FND_MESSAGE.SET_TOKEN('TEXT',
351: l_msg_data,
352: FALSE);
353: IF FND_API.To_Boolean(p_called_by_form) THEN
354: APP_EXCEPTION.Raise_Exception;
352: FALSE);
353: IF FND_API.To_Boolean(p_called_by_form) THEN
354: APP_EXCEPTION.Raise_Exception;
355: ELSE
356: x_msg_data := FND_MESSAGE.Get;
357: END IF;
358:
359: END Insert_Row;
360:
571: WHEN Foreign_Key_Error THEN
572: ROLLBACK TO SAVEPOINT Update_Row;
573: x_return_status := l_return_status;
574: x_oracle_error := l_oracle_error;
575: FND_MESSAGE.SET_NAME('GR',
576: 'GR_FOREIGN_KEY_ERROR');
577: FND_MESSAGE.SET_TOKEN('TEXT',
578: l_msg_data,
579: FALSE);
573: x_return_status := l_return_status;
574: x_oracle_error := l_oracle_error;
575: FND_MESSAGE.SET_NAME('GR',
576: 'GR_FOREIGN_KEY_ERROR');
577: FND_MESSAGE.SET_TOKEN('TEXT',
578: l_msg_data,
579: FALSE);
580: IF FND_API.To_Boolean(p_called_by_form) THEN
581: APP_EXCEPTION.Raise_Exception;
579: FALSE);
580: IF FND_API.To_Boolean(p_called_by_form) THEN
581: APP_EXCEPTION.Raise_Exception;
582: ELSE
583: x_msg_data := FND_MESSAGE.Get;
584: END IF;
585:
586: WHEN Row_Missing_Error THEN
587: ROLLBACK TO SAVEPOINT Update_Row;
586: WHEN Row_Missing_Error THEN
587: ROLLBACK TO SAVEPOINT Update_Row;
588: x_return_status := 'E';
589: x_oracle_error := APP_EXCEPTION.Get_Code;
590: FND_MESSAGE.SET_NAME('GR',
591: 'GR_NO_RECORD_INSERTED');
592: FND_MESSAGE.SET_TOKEN('CODE',
593: p_label_code,
594: FALSE);
588: x_return_status := 'E';
589: x_oracle_error := APP_EXCEPTION.Get_Code;
590: FND_MESSAGE.SET_NAME('GR',
591: 'GR_NO_RECORD_INSERTED');
592: FND_MESSAGE.SET_TOKEN('CODE',
593: p_label_code,
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
597: ELSE
598: x_msg_data := FND_MESSAGE.Get;
599: END IF;
600:
601: WHEN OTHERS THEN
602: ROLLBACK TO SAVEPOINT Update_Row;
602: ROLLBACK TO SAVEPOINT Update_Row;
603: x_return_status := 'U';
604: x_oracle_error := SQLCODE;
605: l_msg_data := SUBSTR(SQLERRM, 1, 200);
606: FND_MESSAGE.SET_NAME('GR',
607: 'GR_UNEXPECTED_ERROR');
608: FND_MESSAGE.SET_TOKEN('TEXT',
609: l_msg_data,
610: FALSE);
604: x_oracle_error := SQLCODE;
605: l_msg_data := SUBSTR(SQLERRM, 1, 200);
606: FND_MESSAGE.SET_NAME('GR',
607: 'GR_UNEXPECTED_ERROR');
608: FND_MESSAGE.SET_TOKEN('TEXT',
609: l_msg_data,
610: FALSE);
611: IF FND_API.To_Boolean(p_called_by_form) THEN
612: APP_EXCEPTION.Raise_Exception;
610: FALSE);
611: IF FND_API.To_Boolean(p_called_by_form) THEN
612: APP_EXCEPTION.Raise_Exception;
613: ELSE
614: x_msg_data := FND_MESSAGE.Get;
615: END IF;
616:
617: END Update_Row;
618:
729:
730: WHEN No_Data_Found_Error THEN
731: ROLLBACK TO SAVEPOINT Lock_Row;
732: x_return_status := 'E';
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_RECORD_NOT_FOUND');
735: FND_MESSAGE.SET_TOKEN('CODE',
736: p_label_code,
737: FALSE);
731: ROLLBACK TO SAVEPOINT Lock_Row;
732: x_return_status := 'E';
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_RECORD_NOT_FOUND');
735: FND_MESSAGE.SET_TOKEN('CODE',
736: p_label_code,
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: WHEN Row_Already_Locked_Error THEN
745: ROLLBACK TO SAVEPOINT Lock_Row;
744: WHEN Row_Already_Locked_Error THEN
745: ROLLBACK TO SAVEPOINT Lock_Row;
746: x_return_status := 'E';
747: x_oracle_error := APP_EXCEPTION.Get_Code;
748: FND_MESSAGE.SET_NAME('GR',
749: 'GR_ROW_IS_LOCKED');
750: IF FND_API.To_Boolean(p_called_by_form) THEN
751: APP_EXCEPTION.Raise_Exception;
752: ELSE
749: 'GR_ROW_IS_LOCKED');
750: IF FND_API.To_Boolean(p_called_by_form) THEN
751: APP_EXCEPTION.Raise_Exception;
752: ELSE
753: x_msg_data := FND_MESSAGE.Get;
754: END IF;
755:
756: WHEN OTHERS THEN
757: ROLLBACK TO SAVEPOINT Lock_Row;
757: ROLLBACK TO SAVEPOINT Lock_Row;
758: x_return_status := 'U';
759: x_oracle_error := SQLCODE;
760: l_msg_data := SUBSTR(SQLERRM, 1, 200);
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_UNEXPECTED_ERROR');
763: FND_MESSAGE.SET_TOKEN('TEXT',
764: l_msg_data,
765: FALSE);
759: x_oracle_error := SQLCODE;
760: l_msg_data := SUBSTR(SQLERRM, 1, 200);
761: FND_MESSAGE.SET_NAME('GR',
762: 'GR_UNEXPECTED_ERROR');
763: FND_MESSAGE.SET_TOKEN('TEXT',
764: l_msg_data,
765: FALSE);
766: IF FND_API.To_Boolean(p_called_by_form) THEN
767: APP_EXCEPTION.Raise_Exception;
765: FALSE);
766: IF FND_API.To_Boolean(p_called_by_form) THEN
767: APP_EXCEPTION.Raise_Exception;
768: ELSE
769: x_msg_data := FND_MESSAGE.Get;
770: END IF;
771:
772: END Lock_Row;
773:
935: x_oracle_error := l_oracle_error;
936: IF FND_API.To_Boolean(p_called_by_form) THEN
937: APP_EXCEPTION.Raise_Exception;
938: ELSE
939: x_msg_data := FND_MESSAGE.Get;
940: END IF;
941:
942: WHEN Row_Missing_Error THEN
943: ROLLBACK TO SAVEPOINT Delete_Row;
942: WHEN Row_Missing_Error THEN
943: ROLLBACK TO SAVEPOINT Delete_Row;
944: x_return_status := 'E';
945: x_oracle_error := APP_EXCEPTION.Get_Code;
946: FND_MESSAGE.SET_NAME('GR',
947: 'GR_RECORD_NOT_FOUND');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_label_code,
950: FALSE);
944: x_return_status := 'E';
945: x_oracle_error := APP_EXCEPTION.Get_Code;
946: FND_MESSAGE.SET_NAME('GR',
947: 'GR_RECORD_NOT_FOUND');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_label_code,
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
953: ELSE
954: x_msg_data := FND_MESSAGE.Get;
955: END IF;
956:
957: WHEN OTHERS THEN
958: ROLLBACK TO SAVEPOINT Delete_Row;
958: ROLLBACK TO SAVEPOINT Delete_Row;
959: x_return_status := 'U';
960: x_oracle_error := SQLCODE;
961: l_msg_data := SUBSTR(SQLERRM, 1, 200);
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_UNEXPECTED_ERROR');
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
960: x_oracle_error := SQLCODE;
961: l_msg_data := SUBSTR(SQLERRM, 1, 200);
962: FND_MESSAGE.SET_NAME('GR',
963: 'GR_UNEXPECTED_ERROR');
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
969: ELSE
970: x_msg_data := FND_MESSAGE.Get;
971: END IF;
972:
973: END Delete_Row;
974:
1069: OPEN c_get_safety_category;
1070: FETCH c_get_safety_category INTO SafetyCatRcd;
1071: IF c_get_safety_category%NOTFOUND THEN
1072: x_return_status := 'E';
1073: FND_MESSAGE.SET_NAME('GR',
1074: 'GR_RECORD_NOT_FOUND');
1075: FND_MESSAGE.SET_TOKEN('CODE',
1076: p_safety_category_code,
1077: FALSE);
1071: IF c_get_safety_category%NOTFOUND THEN
1072: x_return_status := 'E';
1073: FND_MESSAGE.SET_NAME('GR',
1074: 'GR_RECORD_NOT_FOUND');
1075: FND_MESSAGE.SET_TOKEN('CODE',
1076: p_safety_category_code,
1077: FALSE);
1078: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1079: END IF;
1074: 'GR_RECORD_NOT_FOUND');
1075: FND_MESSAGE.SET_TOKEN('CODE',
1076: p_safety_category_code,
1077: FALSE);
1078: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1079: END IF;
1080: CLOSE c_get_safety_category;
1081:
1082: /* Check the label class code */
1084: OPEN c_get_label_class;
1085: FETCH c_get_label_class INTO LabelClsRcd;
1086: IF c_get_label_class%NOTFOUND THEN
1087: x_return_status := 'E';
1088: FND_MESSAGE.SET_NAME('GR',
1089: 'GR_RECORD_NOT_FOUND');
1090: FND_MESSAGE.SET_TOKEN('CODE',
1091: p_label_class_code,
1092: FALSE);
1086: IF c_get_label_class%NOTFOUND THEN
1087: x_return_status := 'E';
1088: FND_MESSAGE.SET_NAME('GR',
1089: 'GR_RECORD_NOT_FOUND');
1090: FND_MESSAGE.SET_TOKEN('CODE',
1091: p_label_class_code,
1092: FALSE);
1093: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1094: END IF;
1089: 'GR_RECORD_NOT_FOUND');
1090: FND_MESSAGE.SET_TOKEN('CODE',
1091: p_label_class_code,
1092: FALSE);
1093: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1094: END IF;
1095: CLOSE c_get_label_class;
1096:
1097: /* Check the ingredient label code if entered */
1103: l_rowid,
1104: l_key_exists);
1105: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1106: x_return_status := 'E';
1107: FND_MESSAGE.SET_NAME('GR',
1108: 'GR_RECORD_NOT_FOUND');
1109: FND_MESSAGE.SET_TOKEN('CODE',
1110: p_ingredient_label_code,
1111: FALSE);
1105: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1106: x_return_status := 'E';
1107: FND_MESSAGE.SET_NAME('GR',
1108: 'GR_RECORD_NOT_FOUND');
1109: FND_MESSAGE.SET_TOKEN('CODE',
1110: p_ingredient_label_code,
1111: FALSE);
1112: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1113: END IF;
1108: 'GR_RECORD_NOT_FOUND');
1109: FND_MESSAGE.SET_TOKEN('CODE',
1110: p_ingredient_label_code,
1111: FALSE);
1112: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1113: END IF;
1114: END IF;
1115:
1116: /* Check the inherit from label code if entered */
1122: l_rowid,
1123: l_key_exists);
1124: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1125: x_return_status := 'E';
1126: FND_MESSAGE.SET_NAME('GR',
1127: 'GR_RECORD_NOT_FOUND');
1128: FND_MESSAGE.SET_TOKEN('CODE',
1129: p_inherit_from_label_code,
1130: FALSE);
1124: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1125: x_return_status := 'E';
1126: FND_MESSAGE.SET_NAME('GR',
1127: 'GR_RECORD_NOT_FOUND');
1128: FND_MESSAGE.SET_TOKEN('CODE',
1129: p_inherit_from_label_code,
1130: FALSE);
1131: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1132: END IF;
1127: 'GR_RECORD_NOT_FOUND');
1128: FND_MESSAGE.SET_TOKEN('CODE',
1129: p_inherit_from_label_code,
1130: FALSE);
1131: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1132: END IF;
1133: END IF;
1134:
1135: /* Check the not null columns */
1135: /* Check the not null columns */
1136:
1137: IF p_data_position_indicator IS NULL THEN
1138: x_return_status := 'E';
1139: FND_MESSAGE.SET_NAME('GR',
1140: 'GR_NULL_VALUE');
1141: FND_MESSAGE.SET_TOKEN('CODE',
1142: 'Data Position Indicator',
1143: FALSE);
1137: IF p_data_position_indicator IS NULL THEN
1138: x_return_status := 'E';
1139: FND_MESSAGE.SET_NAME('GR',
1140: 'GR_NULL_VALUE');
1141: FND_MESSAGE.SET_TOKEN('CODE',
1142: 'Data Position Indicator',
1143: FALSE);
1144: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1145: END IF;
1140: 'GR_NULL_VALUE');
1141: FND_MESSAGE.SET_TOKEN('CODE',
1142: 'Data Position Indicator',
1143: FALSE);
1144: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1145: END IF;
1146:
1147: IF p_label_properties_flag IS NULL THEN
1148: x_return_status := 'E';
1145: END IF;
1146:
1147: IF p_label_properties_flag IS NULL THEN
1148: x_return_status := 'E';
1149: FND_MESSAGE.SET_NAME('GR',
1150: 'GR_NULL_VALUE');
1151: FND_MESSAGE.SET_TOKEN('CODE',
1152: 'Label Properties Flag',
1153: FALSE);
1147: IF p_label_properties_flag IS NULL THEN
1148: x_return_status := 'E';
1149: FND_MESSAGE.SET_NAME('GR',
1150: 'GR_NULL_VALUE');
1151: FND_MESSAGE.SET_TOKEN('CODE',
1152: 'Label Properties Flag',
1153: FALSE);
1154: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1155: END IF;
1150: 'GR_NULL_VALUE');
1151: FND_MESSAGE.SET_TOKEN('CODE',
1152: 'Label Properties Flag',
1153: FALSE);
1154: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1155: END IF;
1156:
1157: IF p_item_properties_flag IS NULL THEN
1158: x_return_status := 'E';
1155: END IF;
1156:
1157: IF p_item_properties_flag IS NULL THEN
1158: x_return_status := 'E';
1159: FND_MESSAGE.SET_NAME('GR',
1160: 'GR_NULL_VALUE');
1161: FND_MESSAGE.SET_TOKEN('CODE',
1162: 'Item Properties Flag',
1163: FALSE);
1157: IF p_item_properties_flag IS NULL THEN
1158: x_return_status := 'E';
1159: FND_MESSAGE.SET_NAME('GR',
1160: 'GR_NULL_VALUE');
1161: FND_MESSAGE.SET_TOKEN('CODE',
1162: 'Item Properties Flag',
1163: FALSE);
1164: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1165: END IF;
1160: 'GR_NULL_VALUE');
1161: FND_MESSAGE.SET_TOKEN('CODE',
1162: 'Item Properties Flag',
1163: FALSE);
1164: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1165: END IF;
1166:
1167: IF p_ingredient_value_flag IS NULL THEN
1168: x_return_status := 'E';
1165: END IF;
1166:
1167: IF p_ingredient_value_flag IS NULL THEN
1168: x_return_status := 'E';
1169: FND_MESSAGE.SET_NAME('GR',
1170: 'GR_NULL_VALUE');
1171: FND_MESSAGE.SET_TOKEN('CODE',
1172: 'Ingredient Value Flag',
1173: FALSE);
1167: IF p_ingredient_value_flag IS NULL THEN
1168: x_return_status := 'E';
1169: FND_MESSAGE.SET_NAME('GR',
1170: 'GR_NULL_VALUE');
1171: FND_MESSAGE.SET_TOKEN('CODE',
1172: 'Ingredient Value Flag',
1173: FALSE);
1174: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1175: END IF;
1170: 'GR_NULL_VALUE');
1171: FND_MESSAGE.SET_TOKEN('CODE',
1172: 'Ingredient Value Flag',
1173: FALSE);
1174: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1175: END IF;
1176:
1177: IF x_return_status <> 'S' THEN
1178: x_msg_data := l_msg_data;
1184: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1185: x_return_status := 'U';
1186: x_oracle_error := SQLCODE;
1187: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1188: FND_MESSAGE.SET_NAME('GR',
1189: 'GR_UNEXPECTED_ERROR');
1190: FND_MESSAGE.SET_TOKEN('TEXT',
1191: l_msg_data,
1192: FALSE);
1186: x_oracle_error := SQLCODE;
1187: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1188: FND_MESSAGE.SET_NAME('GR',
1189: 'GR_UNEXPECTED_ERROR');
1190: FND_MESSAGE.SET_TOKEN('TEXT',
1191: l_msg_data,
1192: FALSE);
1193: x_msg_data := FND_MESSAGE.Get;
1194:
1189: 'GR_UNEXPECTED_ERROR');
1190: FND_MESSAGE.SET_TOKEN('TEXT',
1191: l_msg_data,
1192: FALSE);
1193: x_msg_data := FND_MESSAGE.Get;
1194:
1195: END Check_Foreign_Keys;
1196:
1197: PROCEDURE Check_Integrity
1334: x_return_status := 'S';
1335: x_oracle_error := 0;
1336: x_msg_data := NULL;
1337:
1338: FND_MESSAGE.SET_NAME('GR',
1339: 'GR_INTEGRITY_HEADER');
1340: FND_MESSAGE.SET_TOKEN('CODE',
1341: p_label_code,
1342: FALSE);
1336: x_msg_data := NULL;
1337:
1338: FND_MESSAGE.SET_NAME('GR',
1339: 'GR_INTEGRITY_HEADER');
1340: FND_MESSAGE.SET_TOKEN('CODE',
1341: p_label_code,
1342: FALSE);
1343: l_msg_data := FND_MESSAGE.Get;
1344:
1339: 'GR_INTEGRITY_HEADER');
1340: FND_MESSAGE.SET_TOKEN('CODE',
1341: p_label_code,
1342: FALSE);
1343: l_msg_data := FND_MESSAGE.Get;
1344:
1345: /* Now read the cursors to make sure the item code isn't used. */
1346: /* Audit Table */
1347:
1449:
1450: EXCEPTION
1451: WHEN INTEGRITY_ERROR THEN
1452: x_return_status := 'E';
1453: FND_MESSAGE.SET_NAME('GR',
1454: 'GR_INTEGRITY_HEADER');
1455: FND_MESSAGE.SET_TOKEN('CODE',
1456: p_label_code,
1457: FALSE);
1451: WHEN INTEGRITY_ERROR THEN
1452: x_return_status := 'E';
1453: FND_MESSAGE.SET_NAME('GR',
1454: 'GR_INTEGRITY_HEADER');
1455: FND_MESSAGE.SET_TOKEN('CODE',
1456: p_label_code,
1457: FALSE);
1458: FND_MESSAGE.SET_TOKEN('TABLES',
1459: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1454: 'GR_INTEGRITY_HEADER');
1455: FND_MESSAGE.SET_TOKEN('CODE',
1456: p_label_code,
1457: FALSE);
1458: FND_MESSAGE.SET_TOKEN('TABLES',
1459: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1460: FALSE);
1461: IF FND_API.To_Boolean(p_called_by_form) THEN
1462: APP_EXCEPTION.Raise_Exception;
1460: FALSE);
1461: IF FND_API.To_Boolean(p_called_by_form) THEN
1462: APP_EXCEPTION.Raise_Exception;
1463: ELSE
1464: x_msg_data := FND_MESSAGE.Get;
1465: END IF;
1466:
1467: WHEN OTHERS THEN
1468: ROLLBACK TO SAVEPOINT Check_Integrity;
1468: ROLLBACK TO SAVEPOINT Check_Integrity;
1469: x_return_status := 'U';
1470: x_oracle_error := SQLCODE;
1471: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1472: FND_MESSAGE.SET_NAME('GR',
1473: 'GR_UNEXPECTED_ERROR');
1474: FND_MESSAGE.SET_TOKEN('TEXT',
1475: l_msg_data,
1476: FALSE);
1470: x_oracle_error := SQLCODE;
1471: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1472: FND_MESSAGE.SET_NAME('GR',
1473: 'GR_UNEXPECTED_ERROR');
1474: FND_MESSAGE.SET_TOKEN('TEXT',
1475: l_msg_data,
1476: FALSE);
1477: IF FND_API.To_Boolean(p_called_by_form) THEN
1478: APP_EXCEPTION.Raise_Exception;
1476: FALSE);
1477: IF FND_API.To_Boolean(p_called_by_form) THEN
1478: APP_EXCEPTION.Raise_Exception;
1479: ELSE
1480: x_msg_data := FND_MESSAGE.Get;
1481: END IF;
1482:
1483: END Check_Integrity;
1484:
1526: WHEN Others THEN
1527: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1528:
1529:
1530: FND_MESSAGE.SET_NAME('GR',
1531: 'GR_UNEXPECTED_ERROR');
1532: FND_MESSAGE.SET_TOKEN('TEXT',
1533: l_msg_data,
1534: FALSE);
1528:
1529:
1530: FND_MESSAGE.SET_NAME('GR',
1531: 'GR_UNEXPECTED_ERROR');
1532: FND_MESSAGE.SET_TOKEN('TEXT',
1533: l_msg_data,
1534: FALSE);
1535: IF FND_API.To_Boolean(p_called_by_form) THEN
1536: APP_EXCEPTION.Raise_Exception;