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 Label_Exists_Error THEN
298: ROLLBACK TO SAVEPOINT Insert_Row;
297: WHEN Label_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 || ' ' || p_item_no,
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 || ' ' || p_item_no,
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 || ' ' || p_item_no,
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 || ' ' || p_item_no,
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: /* Melanie Grosser 23-Jan-2003 BUG 2761024
328: Modified Procedure Insert_Row to check to see if the inventory
333: WHEN Reg_Item_Error THEN
334: ROLLBACK TO SAVEPOINT Insert_Row;
335: x_return_status := 'E';
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: FND_MESSAGE.SET_NAME('GR',
338: 'GR_REG_ITEM');
339: FND_MESSAGE.SET_TOKEN('ITEM',
340: p_item_no,
341: FALSE);
335: x_return_status := 'E';
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: FND_MESSAGE.SET_NAME('GR',
338: 'GR_REG_ITEM');
339: FND_MESSAGE.SET_TOKEN('ITEM',
340: p_item_no,
341: FALSE);
342: IF FND_API.To_Boolean(p_called_by_form) THEN
343: APP_EXCEPTION.Raise_Exception;
341: FALSE);
342: IF FND_API.To_Boolean(p_called_by_form) THEN
343: APP_EXCEPTION.Raise_Exception;
344: ELSE
345: x_msg_data := FND_MESSAGE.Get;
346: END IF;
347:
348: WHEN Already_Linked_Error THEN
349: ROLLBACK TO SAVEPOINT Insert_Row;
348: WHEN Already_Linked_Error THEN
349: ROLLBACK TO SAVEPOINT Insert_Row;
350: x_return_status := 'E';
351: x_oracle_error := APP_EXCEPTION.Get_Code;
352: FND_MESSAGE.SET_NAME('GR',
353: 'GR_ALREADY_LINKED');
354: FND_MESSAGE.SET_TOKEN('INV_ITEM',
355: p_item_no,
356: FALSE);
350: x_return_status := 'E';
351: x_oracle_error := APP_EXCEPTION.Get_Code;
352: FND_MESSAGE.SET_NAME('GR',
353: 'GR_ALREADY_LINKED');
354: FND_MESSAGE.SET_TOKEN('INV_ITEM',
355: p_item_no,
356: FALSE);
357: FND_MESSAGE.SET_TOKEN('REG_ITEM',
358: p_item_code,
353: 'GR_ALREADY_LINKED');
354: FND_MESSAGE.SET_TOKEN('INV_ITEM',
355: p_item_no,
356: FALSE);
357: FND_MESSAGE.SET_TOKEN('REG_ITEM',
358: p_item_code,
359: FALSE);
360: IF FND_API.To_Boolean(p_called_by_form) THEN
361: APP_EXCEPTION.Raise_Exception;
359: FALSE);
360: IF FND_API.To_Boolean(p_called_by_form) THEN
361: APP_EXCEPTION.Raise_Exception;
362: ELSE
363: x_msg_data := FND_MESSAGE.Get;
364: END IF;
365: /* Melanie Grosser 23-Jan-2003 BUG 2761024 - End of changes */
366:
367: WHEN OTHERS THEN
368: ROLLBACK TO SAVEPOINT Insert_Row;
369: x_return_status := 'U';
370: x_oracle_error := APP_EXCEPTION.Get_Code;
371: l_msg_data := APP_EXCEPTION.Get_Text;
372: FND_MESSAGE.SET_NAME('GR',
373: 'GR_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('TEXT',
375: l_msg_data,
376: FALSE);
370: x_oracle_error := APP_EXCEPTION.Get_Code;
371: l_msg_data := APP_EXCEPTION.Get_Text;
372: FND_MESSAGE.SET_NAME('GR',
373: 'GR_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('TEXT',
375: l_msg_data,
376: FALSE);
377: IF FND_API.To_Boolean(p_called_by_form) THEN
378: APP_EXCEPTION.Raise_Exception;
376: FALSE);
377: IF FND_API.To_Boolean(p_called_by_form) THEN
378: APP_EXCEPTION.Raise_Exception;
379: ELSE
380: x_msg_data := FND_MESSAGE.Get;
381: END IF;
382:
383: END Insert_Row;
384:
557: WHEN Foreign_Key_Error THEN
558: ROLLBACK TO SAVEPOINT Update_Row;
559: x_return_status := l_return_status;
560: x_oracle_error := l_oracle_error;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_FOREIGN_KEY_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_data,
565: FALSE);
559: x_return_status := l_return_status;
560: x_oracle_error := l_oracle_error;
561: FND_MESSAGE.SET_NAME('GR',
562: 'GR_FOREIGN_KEY_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_data,
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
568: ELSE
569: x_msg_data := FND_MESSAGE.Get;
570: END IF;
571:
572: WHEN Row_Missing_Error THEN
573: ROLLBACK TO SAVEPOINT Update_Row;
572: WHEN Row_Missing_Error THEN
573: ROLLBACK TO SAVEPOINT Update_Row;
574: x_return_status := 'E';
575: x_oracle_error := APP_EXCEPTION.Get_Code;
576: FND_MESSAGE.SET_NAME('GR',
577: 'GR_NO_RECORD_INSERTED');
578: FND_MESSAGE.SET_TOKEN('CODE',
579: p_item_code || ' ' || p_item_no,
580: FALSE);
574: x_return_status := 'E';
575: x_oracle_error := APP_EXCEPTION.Get_Code;
576: FND_MESSAGE.SET_NAME('GR',
577: 'GR_NO_RECORD_INSERTED');
578: FND_MESSAGE.SET_TOKEN('CODE',
579: p_item_code || ' ' || p_item_no,
580: FALSE);
581: IF FND_API.To_Boolean(p_called_by_form) THEN
582: APP_EXCEPTION.Raise_Exception;
580: FALSE);
581: IF FND_API.To_Boolean(p_called_by_form) THEN
582: APP_EXCEPTION.Raise_Exception;
583: ELSE
584: x_msg_data := FND_MESSAGE.Get;
585: END IF;
586:
587: WHEN OTHERS THEN
588: ROLLBACK TO SAVEPOINT Update_Row;
588: ROLLBACK TO SAVEPOINT Update_Row;
589: x_return_status := 'U';
590: x_oracle_error := APP_EXCEPTION.Get_Code;
591: l_msg_data := APP_EXCEPTION.Get_Text;
592: FND_MESSAGE.SET_NAME('GR',
593: 'GR_UNEXPECTED_ERROR');
594: FND_MESSAGE.SET_TOKEN('TEXT',
595: l_msg_data,
596: FALSE);
590: x_oracle_error := APP_EXCEPTION.Get_Code;
591: l_msg_data := APP_EXCEPTION.Get_Text;
592: FND_MESSAGE.SET_NAME('GR',
593: 'GR_UNEXPECTED_ERROR');
594: FND_MESSAGE.SET_TOKEN('TEXT',
595: l_msg_data,
596: FALSE);
597: IF FND_API.To_Boolean(p_called_by_form) THEN
598: APP_EXCEPTION.Raise_Exception;
596: FALSE);
597: IF FND_API.To_Boolean(p_called_by_form) THEN
598: APP_EXCEPTION.Raise_Exception;
599: ELSE
600: x_msg_data := FND_MESSAGE.Get;
601: END IF;
602:
603: END Update_Row;
604:
706:
707: WHEN No_Data_Found_Error THEN
708: ROLLBACK TO SAVEPOINT Lock_Row;
709: x_return_status := 'E';
710: FND_MESSAGE.SET_NAME('GR',
711: 'GR_RECORD_NOT_FOUND');
712: FND_MESSAGE.SET_TOKEN('CODE',
713: p_item_code || ' ' || p_item_no,
714: FALSE);
708: ROLLBACK TO SAVEPOINT Lock_Row;
709: x_return_status := 'E';
710: FND_MESSAGE.SET_NAME('GR',
711: 'GR_RECORD_NOT_FOUND');
712: FND_MESSAGE.SET_TOKEN('CODE',
713: p_item_code || ' ' || p_item_no,
714: FALSE);
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
714: FALSE);
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
717: ELSE
718: x_msg_data := FND_MESSAGE.Get;
719: END IF;
720:
721: WHEN RECORD_CHANGED_ERROR THEN
722: ROLLBACK TO SAVEPOINT Lock_Row;
720:
721: WHEN RECORD_CHANGED_ERROR THEN
722: ROLLBACK TO SAVEPOINT Lock_Row;
723: X_return_status := 'E';
724: FND_MESSAGE.SET_NAME('FND',
725: 'FORM_RECORD_CHANGED');
726: IF FND_API.To_Boolean(p_called_by_form) THEN
727: APP_EXCEPTION.Raise_Exception;
728: ELSE
725: 'FORM_RECORD_CHANGED');
726: IF FND_API.To_Boolean(p_called_by_form) THEN
727: APP_EXCEPTION.Raise_Exception;
728: ELSE
729: x_msg_data := FND_MESSAGE.Get;
730: END IF;
731: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
732: ROLLBACK TO SAVEPOINT Lock_Row;
733: x_return_status := 'L';
732: ROLLBACK TO SAVEPOINT Lock_Row;
733: x_return_status := 'L';
734: x_oracle_error := APP_EXCEPTION.Get_Code;
735: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
736: FND_MESSAGE.SET_NAME('GR',
737: 'GR_ROW_IS_LOCKED');
738: x_msg_data := FND_MESSAGE.Get;
739: END IF;
740:
734: x_oracle_error := APP_EXCEPTION.Get_Code;
735: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
736: FND_MESSAGE.SET_NAME('GR',
737: 'GR_ROW_IS_LOCKED');
738: x_msg_data := FND_MESSAGE.Get;
739: END IF;
740:
741:
742: WHEN OTHERS THEN
743: ROLLBACK TO SAVEPOINT Lock_Row;
744: x_return_status := 'U';
745: x_oracle_error := APP_EXCEPTION.Get_Code;
746: l_msg_data := APP_EXCEPTION.Get_Text;
747: FND_MESSAGE.SET_NAME('GR',
748: 'GR_UNEXPECTED_ERROR');
749: FND_MESSAGE.SET_TOKEN('TEXT',
750: l_msg_data,
751: FALSE);
745: x_oracle_error := APP_EXCEPTION.Get_Code;
746: l_msg_data := APP_EXCEPTION.Get_Text;
747: FND_MESSAGE.SET_NAME('GR',
748: 'GR_UNEXPECTED_ERROR');
749: FND_MESSAGE.SET_TOKEN('TEXT',
750: l_msg_data,
751: FALSE);
752: IF FND_API.To_Boolean(p_called_by_form) THEN
753: APP_EXCEPTION.Raise_Exception;
751: FALSE);
752: IF FND_API.To_Boolean(p_called_by_form) THEN
753: APP_EXCEPTION.Raise_Exception;
754: ELSE
755: x_msg_data := FND_MESSAGE.Get;
756: END IF;
757:
758: END Lock_Row;
759:
896: x_oracle_error := l_oracle_error;
897: IF FND_API.To_Boolean(p_called_by_form) THEN
898: APP_EXCEPTION.Raise_Exception;
899: ELSE
900: x_msg_data := FND_MESSAGE.Get;
901: END IF;
902:
903: WHEN Row_Missing_Error THEN
904: ROLLBACK TO SAVEPOINT Delete_Row;
903: WHEN Row_Missing_Error THEN
904: ROLLBACK TO SAVEPOINT Delete_Row;
905: x_return_status := 'E';
906: x_oracle_error := APP_EXCEPTION.Get_Code;
907: FND_MESSAGE.SET_NAME('GR',
908: 'GR_RECORD_NOT_FOUND');
909: FND_MESSAGE.SET_TOKEN('CODE',
910: p_item_code || ' ' || p_item_no,
911: FALSE);
905: x_return_status := 'E';
906: x_oracle_error := APP_EXCEPTION.Get_Code;
907: FND_MESSAGE.SET_NAME('GR',
908: 'GR_RECORD_NOT_FOUND');
909: FND_MESSAGE.SET_TOKEN('CODE',
910: p_item_code || ' ' || p_item_no,
911: FALSE);
912: IF FND_API.To_Boolean(p_called_by_form) THEN
913: APP_EXCEPTION.Raise_Exception;
911: FALSE);
912: IF FND_API.To_Boolean(p_called_by_form) THEN
913: APP_EXCEPTION.Raise_Exception;
914: ELSE
915: x_msg_data := FND_MESSAGE.Get;
916: END IF;
917:
918: WHEN OTHERS THEN
919: ROLLBACK TO SAVEPOINT Delete_Row;
920: x_return_status := 'U';
921: x_oracle_error := APP_EXCEPTION.Get_Code;
922: l_msg_data := APP_EXCEPTION.Get_Text;
923: l_msg_data := APP_EXCEPTION.Get_Text;
924: FND_MESSAGE.SET_NAME('GR',
925: 'GR_UNEXPECTED_ERROR');
926: FND_MESSAGE.SET_TOKEN('TEXT',
927: l_msg_data,
928: FALSE);
922: l_msg_data := APP_EXCEPTION.Get_Text;
923: l_msg_data := APP_EXCEPTION.Get_Text;
924: FND_MESSAGE.SET_NAME('GR',
925: 'GR_UNEXPECTED_ERROR');
926: FND_MESSAGE.SET_TOKEN('TEXT',
927: l_msg_data,
928: FALSE);
929: IF FND_API.To_Boolean(p_called_by_form) THEN
930: APP_EXCEPTION.Raise_Exception;
928: FALSE);
929: IF FND_API.To_Boolean(p_called_by_form) THEN
930: APP_EXCEPTION.Raise_Exception;
931: ELSE
932: x_msg_data := FND_MESSAGE.Get;
933: END IF;
934:
935: END Delete_Row;
936:
1004:
1005: WHEN Null_Delete_Option_Error THEN
1006: x_return_status := 'E';
1007: x_oracle_error := APP_EXCEPTION.Get_Code;
1008: FND_MESSAGE.SET_NAME('GR',
1009: 'GR_NULL_VALUE');
1010: FND_MESSAGE.SET_TOKEN('CODE',
1011: l_msg_token,
1012: FALSE);
1006: x_return_status := 'E';
1007: x_oracle_error := APP_EXCEPTION.Get_Code;
1008: FND_MESSAGE.SET_NAME('GR',
1009: 'GR_NULL_VALUE');
1010: FND_MESSAGE.SET_TOKEN('CODE',
1011: l_msg_token,
1012: FALSE);
1013: IF FND_API.To_Boolean(p_called_by_form) THEN
1014: APP_EXCEPTION.Raise_Exception;
1012: FALSE);
1013: IF FND_API.To_Boolean(p_called_by_form) THEN
1014: APP_EXCEPTION.Raise_Exception;
1015: ELSE
1016: x_msg_data := FND_MESSAGE.Get;
1017: END IF;
1018:
1019: WHEN OTHERS THEN
1020: ROLLBACK TO SAVEPOINT Delete_Rows;
1020: ROLLBACK TO SAVEPOINT Delete_Rows;
1021: x_return_status := 'U';
1022: x_oracle_error := APP_EXCEPTION.Get_Code;
1023: l_msg_data := APP_EXCEPTION.Get_Text;
1024: FND_MESSAGE.SET_NAME('GR',
1025: 'GR_UNEXPECTED_ERROR');
1026: FND_MESSAGE.SET_TOKEN('TEXT',
1027: l_msg_token,
1028: FALSE);
1022: x_oracle_error := APP_EXCEPTION.Get_Code;
1023: l_msg_data := APP_EXCEPTION.Get_Text;
1024: FND_MESSAGE.SET_NAME('GR',
1025: 'GR_UNEXPECTED_ERROR');
1026: FND_MESSAGE.SET_TOKEN('TEXT',
1027: l_msg_token,
1028: FALSE);
1029: IF FND_API.To_Boolean(p_called_by_form) THEN
1030: APP_EXCEPTION.Raise_Exception;
1028: FALSE);
1029: IF FND_API.To_Boolean(p_called_by_form) THEN
1030: APP_EXCEPTION.Raise_Exception;
1031: ELSE
1032: x_msg_data := FND_MESSAGE.Get;
1033: END IF;
1034:
1035: END Delete_Rows;
1036:
1115: l_rowid,
1116: l_key_exists);
1117: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1118: x_return_status := 'E';
1119: FND_MESSAGE.SET_NAME('GR',
1120: 'GR_RECORD_NOT_FOUND');
1121: FND_MESSAGE.SET_TOKEN('CODE',
1122: l_item_code,
1123: FALSE);
1117: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1118: x_return_status := 'E';
1119: FND_MESSAGE.SET_NAME('GR',
1120: 'GR_RECORD_NOT_FOUND');
1121: FND_MESSAGE.SET_TOKEN('CODE',
1122: l_item_code,
1123: FALSE);
1124: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1125: END IF;
1120: 'GR_RECORD_NOT_FOUND');
1121: FND_MESSAGE.SET_TOKEN('CODE',
1122: l_item_code,
1123: FALSE);
1124: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1125: END IF;
1126:
1127: /* Check the item no */
1128:
1129: OPEN c_get_ic_item;
1130: FETCH c_get_ic_item INTO ICItemRecord;
1131: IF c_get_ic_item%NOTFOUND THEN
1132: x_return_status := 'E';
1133: FND_MESSAGE.SET_NAME('GR',
1134: 'GR_RECORD_NOT_FOUND');
1135: FND_MESSAGE.SET_TOKEN('CODE',
1136: p_item_no,
1137: FALSE);
1131: IF c_get_ic_item%NOTFOUND THEN
1132: x_return_status := 'E';
1133: FND_MESSAGE.SET_NAME('GR',
1134: 'GR_RECORD_NOT_FOUND');
1135: FND_MESSAGE.SET_TOKEN('CODE',
1136: p_item_no,
1137: FALSE);
1138: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1139: END IF;
1134: 'GR_RECORD_NOT_FOUND');
1135: FND_MESSAGE.SET_TOKEN('CODE',
1136: p_item_no,
1137: FALSE);
1138: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1139: END IF;
1140:
1141: /* Check the not null columns */
1142:
1141: /* Check the not null columns */
1142:
1143: IF p_default_document_name_flag IS NULL THEN
1144: x_return_status := 'E';
1145: FND_MESSAGE.SET_NAME('GR',
1146: 'GR_NULL_VALUE');
1147: FND_MESSAGE.SET_TOKEN('CODE',
1148: 'Document Name Flag',
1149: FALSE);
1143: IF p_default_document_name_flag IS NULL THEN
1144: x_return_status := 'E';
1145: FND_MESSAGE.SET_NAME('GR',
1146: 'GR_NULL_VALUE');
1147: FND_MESSAGE.SET_TOKEN('CODE',
1148: 'Document Name Flag',
1149: FALSE);
1150: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1151: END IF;
1146: 'GR_NULL_VALUE');
1147: FND_MESSAGE.SET_TOKEN('CODE',
1148: 'Document Name Flag',
1149: FALSE);
1150: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1151: END IF;
1152:
1153: IF p_document_rebuild_indicator IS NULL THEN
1154: x_return_status := 'E';
1151: END IF;
1152:
1153: IF p_document_rebuild_indicator IS NULL THEN
1154: x_return_status := 'E';
1155: FND_MESSAGE.SET_NAME('GR',
1156: 'GR_NULL_VALUE');
1157: FND_MESSAGE.SET_TOKEN('CODE',
1158: 'Document Rebuild Indicator',
1159: FALSE);
1153: IF p_document_rebuild_indicator IS NULL THEN
1154: x_return_status := 'E';
1155: FND_MESSAGE.SET_NAME('GR',
1156: 'GR_NULL_VALUE');
1157: FND_MESSAGE.SET_TOKEN('CODE',
1158: 'Document Rebuild Indicator',
1159: FALSE);
1160: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1161: END IF;
1156: 'GR_NULL_VALUE');
1157: FND_MESSAGE.SET_TOKEN('CODE',
1158: 'Document Rebuild Indicator',
1159: FALSE);
1160: l_msg_data := l_msg_data || FND_MESSAGE.Get;
1161: END IF;
1162:
1163: /* Handle any error routines. */
1164:
1172: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1173: x_return_status := 'U';
1174: x_oracle_error := APP_EXCEPTION.Get_Code;
1175: l_msg_data := APP_EXCEPTION.Get_Text;
1176: FND_MESSAGE.SET_NAME('GR',
1177: 'GR_UNEXPECTED_ERROR');
1178: FND_MESSAGE.SET_TOKEN('TEXT',
1179: l_msg_data,
1180: FALSE);
1174: x_oracle_error := APP_EXCEPTION.Get_Code;
1175: l_msg_data := APP_EXCEPTION.Get_Text;
1176: FND_MESSAGE.SET_NAME('GR',
1177: 'GR_UNEXPECTED_ERROR');
1178: FND_MESSAGE.SET_TOKEN('TEXT',
1179: l_msg_data,
1180: FALSE);
1181: x_msg_data := FND_MESSAGE.Get;
1182:
1177: 'GR_UNEXPECTED_ERROR');
1178: FND_MESSAGE.SET_TOKEN('TEXT',
1179: l_msg_data,
1180: FALSE);
1181: x_msg_data := FND_MESSAGE.Get;
1182:
1183: END Check_Foreign_Keys;
1184:
1185: PROCEDURE Check_Integrity
1245: x_return_status := 'S';
1246: x_oracle_error := 0;
1247: x_msg_data := NULL;
1248:
1249: FND_MESSAGE.SET_NAME('GR',
1250: 'GR_INTEGRITY_HEADER');
1251: FND_MESSAGE.SET_TOKEN('CODE',
1252: p_item_code || ' ' || p_item_no,
1253: FALSE);
1247: x_msg_data := NULL;
1248:
1249: FND_MESSAGE.SET_NAME('GR',
1250: 'GR_INTEGRITY_HEADER');
1251: FND_MESSAGE.SET_TOKEN('CODE',
1252: p_item_code || ' ' || p_item_no,
1253: FALSE);
1254: l_msg_data := FND_MESSAGE.Get;
1255:
1250: 'GR_INTEGRITY_HEADER');
1251: FND_MESSAGE.SET_TOKEN('CODE',
1252: p_item_code || ' ' || p_item_no,
1253: FALSE);
1254: l_msg_data := FND_MESSAGE.Get;
1255:
1256: /* No integrity checking is needed */
1257:
1258:
1269: ROLLBACK TO SAVEPOINT Check_Integrity;
1270: x_return_status := 'U';
1271: x_oracle_error := APP_EXCEPTION.Get_Code;
1272: l_msg_data := APP_EXCEPTION.Get_Text;
1273: FND_MESSAGE.SET_NAME('GR',
1274: 'GR_UNEXPECTED_ERROR');
1275: FND_MESSAGE.SET_TOKEN('TEXT',
1276: l_msg_data,
1277: FALSE);
1271: x_oracle_error := APP_EXCEPTION.Get_Code;
1272: l_msg_data := APP_EXCEPTION.Get_Text;
1273: FND_MESSAGE.SET_NAME('GR',
1274: 'GR_UNEXPECTED_ERROR');
1275: FND_MESSAGE.SET_TOKEN('TEXT',
1276: l_msg_data,
1277: FALSE);
1278: IF FND_API.To_Boolean(p_called_by_form) THEN
1279: APP_EXCEPTION.Raise_Exception;
1277: FALSE);
1278: IF FND_API.To_Boolean(p_called_by_form) THEN
1279: APP_EXCEPTION.Raise_Exception;
1280: ELSE
1281: x_msg_data := FND_MESSAGE.Get;
1282: END IF;
1283:
1284: END Check_Integrity;
1285:
1328: EXCEPTION
1329:
1330: WHEN Others THEN
1331: l_msg_data := APP_EXCEPTION.Get_Text;
1332: FND_MESSAGE.SET_NAME('GR',
1333: 'GR_UNEXPECTED_ERROR');
1334: FND_MESSAGE.SET_TOKEN('TEXT',
1335: l_msg_data,
1336: FALSE);
1330: WHEN Others THEN
1331: l_msg_data := APP_EXCEPTION.Get_Text;
1332: FND_MESSAGE.SET_NAME('GR',
1333: 'GR_UNEXPECTED_ERROR');
1334: FND_MESSAGE.SET_TOKEN('TEXT',
1335: l_msg_data,
1336: FALSE);
1337: IF FND_API.To_Boolean(p_called_by_form) THEN
1338: APP_EXCEPTION.Raise_Exception;
1396:
1397: EXCEPTION
1398: WHEN Others THEN
1399: l_msg_data := APP_EXCEPTION.Get_Text;
1400: FND_MESSAGE.SET_NAME('GR',
1401: 'GR_UNEXPECTED_ERROR');
1402: FND_MESSAGE.SET_TOKEN('TEXT',
1403: l_msg_data,
1404: FALSE);
1398: WHEN Others THEN
1399: l_msg_data := APP_EXCEPTION.Get_Text;
1400: FND_MESSAGE.SET_NAME('GR',
1401: 'GR_UNEXPECTED_ERROR');
1402: FND_MESSAGE.SET_TOKEN('TEXT',
1403: l_msg_data,
1404: FALSE);
1405: IF FND_API.To_Boolean(p_called_by_form) THEN
1406: APP_EXCEPTION.Raise_Exception;