147: WHEN Foreign_Key_Error THEN
148: ROLLBACK TO SAVEPOINT Insert_Row;
149: x_return_status := l_return_status;
150: x_oracle_error := l_oracle_error;
151: FND_MESSAGE.SET_NAME('GR',
152: 'GR_FOREIGN_KEY_ERROR');
153: FND_MESSAGE.SET_TOKEN('TEXT',
154: l_msg_data,
155: FALSE);
149: x_return_status := l_return_status;
150: x_oracle_error := l_oracle_error;
151: FND_MESSAGE.SET_NAME('GR',
152: 'GR_FOREIGN_KEY_ERROR');
153: FND_MESSAGE.SET_TOKEN('TEXT',
154: l_msg_data,
155: FALSE);
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
155: FALSE);
156: IF FND_API.To_Boolean(p_called_by_form) THEN
157: APP_EXCEPTION.Raise_Exception;
158: ELSE
159: x_msg_data := FND_MESSAGE.Get;
160: END IF;
161:
162: WHEN Label_Exists_Error THEN
163: ROLLBACK TO SAVEPOINT Insert_Row;
162: WHEN Label_Exists_Error THEN
163: ROLLBACK TO SAVEPOINT Insert_Row;
164: x_return_status := 'E';
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_RECORD_EXISTS');
168: FND_MESSAGE.SET_TOKEN('CODE',
169: p_item_code,
170: FALSE);
164: x_return_status := 'E';
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_RECORD_EXISTS');
168: FND_MESSAGE.SET_TOKEN('CODE',
169: p_item_code,
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
173: ELSE
174: x_msg_data := FND_MESSAGE.Get;
175: END IF;
176:
177: WHEN Row_Missing_Error THEN
178: ROLLBACK TO SAVEPOINT Insert_Row;
177: WHEN Row_Missing_Error THEN
178: ROLLBACK TO SAVEPOINT Insert_Row;
179: x_return_status := 'E';
180: x_oracle_error := APP_EXCEPTION.Get_Code;
181: FND_MESSAGE.SET_NAME('GR',
182: 'GR_NO_RECORD_INSERTED');
183: FND_MESSAGE.SET_TOKEN('CODE',
184: p_item_code,
185: FALSE);
179: x_return_status := 'E';
180: x_oracle_error := APP_EXCEPTION.Get_Code;
181: FND_MESSAGE.SET_NAME('GR',
182: 'GR_NO_RECORD_INSERTED');
183: FND_MESSAGE.SET_TOKEN('CODE',
184: p_item_code,
185: FALSE);
186: IF FND_API.To_Boolean(p_called_by_form) THEN
187: APP_EXCEPTION.Raise_Exception;
185: FALSE);
186: IF FND_API.To_Boolean(p_called_by_form) THEN
187: APP_EXCEPTION.Raise_Exception;
188: ELSE
189: x_msg_data := FND_MESSAGE.Get;
190: END IF;
191:
192: WHEN OTHERS THEN
193: ROLLBACK TO SAVEPOINT Insert_Row;
193: ROLLBACK TO SAVEPOINT Insert_Row;
194: x_return_status := 'U';
195: x_oracle_error := SQLCODE;
196: l_msg_data := SUBSTR(SQLERRM, 1, 200);
197: FND_MESSAGE.SET_NAME('GR',
198: 'GR_UNEXPECTED_ERROR');
199: FND_MESSAGE.SET_TOKEN('TEXT',
200: l_msg_data,
201: FALSE);
195: x_oracle_error := SQLCODE;
196: l_msg_data := SUBSTR(SQLERRM, 1, 200);
197: FND_MESSAGE.SET_NAME('GR',
198: 'GR_UNEXPECTED_ERROR');
199: FND_MESSAGE.SET_TOKEN('TEXT',
200: l_msg_data,
201: FALSE);
202: IF FND_API.To_Boolean(p_called_by_form) THEN
203: APP_EXCEPTION.Raise_Exception;
201: FALSE);
202: IF FND_API.To_Boolean(p_called_by_form) THEN
203: APP_EXCEPTION.Raise_Exception;
204: ELSE
205: x_msg_data := FND_MESSAGE.Get;
206: END IF;
207:
208: END Insert_Row;
209:
313: WHEN Foreign_Key_Error THEN
314: ROLLBACK TO SAVEPOINT Update_Row;
315: x_return_status := l_return_status;
316: x_oracle_error := l_oracle_error;
317: FND_MESSAGE.SET_NAME('GR',
318: 'GR_FOREIGN_KEY_ERROR');
319: FND_MESSAGE.SET_TOKEN('TEXT',
320: l_msg_data,
321: FALSE);
315: x_return_status := l_return_status;
316: x_oracle_error := l_oracle_error;
317: FND_MESSAGE.SET_NAME('GR',
318: 'GR_FOREIGN_KEY_ERROR');
319: FND_MESSAGE.SET_TOKEN('TEXT',
320: l_msg_data,
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 Update_Row;
328: WHEN Row_Missing_Error THEN
329: ROLLBACK TO SAVEPOINT Update_Row;
330: x_return_status := 'E';
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_item_code,
336: FALSE);
330: x_return_status := 'E';
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_item_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 Update_Row;
344: ROLLBACK TO SAVEPOINT Update_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 Update_Row;
360:
455:
456: WHEN No_Data_Found_Error THEN
457: ROLLBACK TO SAVEPOINT Lock_Row;
458: x_return_status := 'E';
459: FND_MESSAGE.SET_NAME('GR',
460: 'GR_RECORD_NOT_FOUND');
461: FND_MESSAGE.SET_TOKEN('CODE',
462: p_item_code,
463: FALSE);
457: ROLLBACK TO SAVEPOINT Lock_Row;
458: x_return_status := 'E';
459: FND_MESSAGE.SET_NAME('GR',
460: 'GR_RECORD_NOT_FOUND');
461: FND_MESSAGE.SET_TOKEN('CODE',
462: p_item_code,
463: FALSE);
464: IF FND_API.To_Boolean(p_called_by_form) THEN
465: APP_EXCEPTION.Raise_Exception;
463: FALSE);
464: IF FND_API.To_Boolean(p_called_by_form) THEN
465: APP_EXCEPTION.Raise_Exception;
466: ELSE
467: x_msg_data := FND_MESSAGE.Get;
468: END IF;
469:
470: WHEN Row_Already_Locked_Error THEN
471: ROLLBACK TO SAVEPOINT Lock_Row;
470: WHEN Row_Already_Locked_Error THEN
471: ROLLBACK TO SAVEPOINT Lock_Row;
472: x_return_status := 'E';
473: x_oracle_error := APP_EXCEPTION.Get_Code;
474: FND_MESSAGE.SET_NAME('GR',
475: 'GR_ROW_IS_LOCKED');
476: IF FND_API.To_Boolean(p_called_by_form) THEN
477: APP_EXCEPTION.Raise_Exception;
478: ELSE
475: 'GR_ROW_IS_LOCKED');
476: IF FND_API.To_Boolean(p_called_by_form) THEN
477: APP_EXCEPTION.Raise_Exception;
478: ELSE
479: x_msg_data := FND_MESSAGE.Get;
480: END IF;
481:
482: WHEN OTHERS THEN
483: ROLLBACK TO SAVEPOINT Lock_Row;
483: ROLLBACK TO SAVEPOINT Lock_Row;
484: x_return_status := 'U';
485: x_oracle_error := SQLCODE;
486: l_msg_data := SUBSTR(SQLERRM, 1, 200);
487: FND_MESSAGE.SET_NAME('GR',
488: 'GR_UNEXPECTED_ERROR');
489: FND_MESSAGE.SET_TOKEN('TEXT',
490: l_msg_data,
491: FALSE);
485: x_oracle_error := SQLCODE;
486: l_msg_data := SUBSTR(SQLERRM, 1, 200);
487: FND_MESSAGE.SET_NAME('GR',
488: 'GR_UNEXPECTED_ERROR');
489: FND_MESSAGE.SET_TOKEN('TEXT',
490: l_msg_data,
491: FALSE);
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
491: FALSE);
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
494: ELSE
495: x_msg_data := FND_MESSAGE.Get;
496: END IF;
497:
498: END Lock_Row;
499:
598: WHEN Row_Missing_Error THEN
599: ROLLBACK TO SAVEPOINT Delete_Row;
600: x_return_status := 'E';
601: x_oracle_error := APP_EXCEPTION.Get_Code;
602: FND_MESSAGE.SET_NAME('GR',
603: 'GR_RECORD_NOT_FOUND');
604: FND_MESSAGE.SET_TOKEN('CODE',
605: p_item_code,
606: FALSE);
600: x_return_status := 'E';
601: x_oracle_error := APP_EXCEPTION.Get_Code;
602: FND_MESSAGE.SET_NAME('GR',
603: 'GR_RECORD_NOT_FOUND');
604: FND_MESSAGE.SET_TOKEN('CODE',
605: p_item_code,
606: FALSE);
607: IF FND_API.To_Boolean(p_called_by_form) THEN
608: APP_EXCEPTION.Raise_Exception;
606: FALSE);
607: IF FND_API.To_Boolean(p_called_by_form) THEN
608: APP_EXCEPTION.Raise_Exception;
609: ELSE
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612:
613: WHEN OTHERS THEN
614: ROLLBACK TO SAVEPOINT Delete_Row;
614: ROLLBACK TO SAVEPOINT Delete_Row;
615: x_return_status := 'U';
616: x_oracle_error := SQLCODE;
617: l_msg_data := SUBSTR(SQLERRM, 1, 200);
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
622: FALSE);
616: x_oracle_error := SQLCODE;
617: l_msg_data := SUBSTR(SQLERRM, 1, 200);
618: FND_MESSAGE.SET_NAME('GR',
619: 'GR_UNEXPECTED_ERROR');
620: FND_MESSAGE.SET_TOKEN('TEXT',
621: l_msg_data,
622: FALSE);
623: IF FND_API.To_Boolean(p_called_by_form) THEN
624: APP_EXCEPTION.Raise_Exception;
622: FALSE);
623: IF FND_API.To_Boolean(p_called_by_form) THEN
624: APP_EXCEPTION.Raise_Exception;
625: ELSE
626: x_msg_data := FND_MESSAGE.Get;
627: END IF;
628:
629: END Delete_Row;
630:
710: OPEN c_get_disclosure_codes;
711: FETCH c_get_disclosure_codes INTO Dsclcd;
712: IF c_get_disclosure_codes%NOTFOUND THEN
713: x_return_status := 'E';
714: FND_MESSAGE.SET_NAME('GR',
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_disclosure_code,
718: FALSE);
712: IF c_get_disclosure_codes%NOTFOUND THEN
713: x_return_status := 'E';
714: FND_MESSAGE.SET_NAME('GR',
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_disclosure_code,
718: FALSE);
719: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
720: END IF;
715: 'GR_RECORD_NOT_FOUND');
716: FND_MESSAGE.SET_TOKEN('CODE',
717: p_disclosure_code,
718: FALSE);
719: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
720: END IF;
721: CLOSE c_get_disclosure_codes;
722: END IF;
723:
726: OPEN c_get_label_codes;
727: FETCH c_get_label_codes INTO Labelcd;
728: IF c_get_label_codes%NOTFOUND THEN
729: x_return_status := 'E';
730: FND_MESSAGE.SET_NAME('GR',
731: 'GR_RECORD_NOT_FOUND');
732: FND_MESSAGE.SET_TOKEN('CODE',
733: p_label_code,
734: FALSE);
728: IF c_get_label_codes%NOTFOUND THEN
729: x_return_status := 'E';
730: FND_MESSAGE.SET_NAME('GR',
731: 'GR_RECORD_NOT_FOUND');
732: FND_MESSAGE.SET_TOKEN('CODE',
733: p_label_code,
734: FALSE);
735: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
736: END IF;
731: 'GR_RECORD_NOT_FOUND');
732: FND_MESSAGE.SET_TOKEN('CODE',
733: p_label_code,
734: FALSE);
735: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
736: END IF;
737: CLOSE c_get_label_codes;
738:
739: IF x_return_status <> 'S' THEN
746: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
747: x_return_status := 'U';
748: x_oracle_error := SQLCODE;
749: l_msg_data := SUBSTR(SQLERRM, 1, 200);
750: FND_MESSAGE.SET_NAME('GR',
751: 'GR_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('TEXT',
753: l_msg_data,
754: FALSE);
748: x_oracle_error := SQLCODE;
749: l_msg_data := SUBSTR(SQLERRM, 1, 200);
750: FND_MESSAGE.SET_NAME('GR',
751: 'GR_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('TEXT',
753: l_msg_data,
754: FALSE);
755: x_msg_data := FND_MESSAGE.Get;
756:
751: 'GR_UNEXPECTED_ERROR');
752: FND_MESSAGE.SET_TOKEN('TEXT',
753: l_msg_data,
754: FALSE);
755: x_msg_data := FND_MESSAGE.Get;
756:
757: END Check_Foreign_Keys;
758:
759:
817: EXCEPTION
818:
819: WHEN Others THEN
820: l_msg_data := SUBSTR(SQLERRM, 1, 200);
821: FND_MESSAGE.SET_NAME('GR',
822: 'GR_UNEXPECTED_ERROR');
823: FND_MESSAGE.SET_TOKEN('TEXT',
824: l_msg_data,
825: FALSE);
819: WHEN Others THEN
820: l_msg_data := SUBSTR(SQLERRM, 1, 200);
821: FND_MESSAGE.SET_NAME('GR',
822: 'GR_UNEXPECTED_ERROR');
823: FND_MESSAGE.SET_TOKEN('TEXT',
824: l_msg_data,
825: FALSE);
826: IF FND_API.To_Boolean(p_called_by_form) THEN
827: APP_EXCEPTION.Raise_Exception;
881: x_return_status := 'S';
882: x_oracle_error := 0;
883: x_msg_data := NULL;
884:
885: FND_MESSAGE.SET_NAME('GR',
886: 'GR_INTEGRITY_HEADER');
887: FND_MESSAGE.SET_TOKEN('CODE',
888: p_item_code || ' ' || p_disclosure_code || ' ' || p_label_code, FALSE);
889: l_msg_data := FND_MESSAGE.Get;
883: x_msg_data := NULL;
884:
885: FND_MESSAGE.SET_NAME('GR',
886: 'GR_INTEGRITY_HEADER');
887: FND_MESSAGE.SET_TOKEN('CODE',
888: p_item_code || ' ' || p_disclosure_code || ' ' || p_label_code, FALSE);
889: l_msg_data := FND_MESSAGE.Get;
890:
891: /* No integrity checking is needed */
885: FND_MESSAGE.SET_NAME('GR',
886: 'GR_INTEGRITY_HEADER');
887: FND_MESSAGE.SET_TOKEN('CODE',
888: p_item_code || ' ' || p_disclosure_code || ' ' || p_label_code, FALSE);
889: l_msg_data := FND_MESSAGE.Get;
890:
891: /* No integrity checking is needed */
892:
893:
904: ROLLBACK TO SAVEPOINT Check_Integrity;
905: x_return_status := 'U';
906: x_oracle_error := APP_EXCEPTION.Get_Code;
907: l_msg_data := APP_EXCEPTION.Get_Text;
908: FND_MESSAGE.SET_NAME('GR',
909: 'GR_UNEXPECTED_ERROR');
910: FND_MESSAGE.SET_TOKEN('TEXT',
911: l_msg_data,
912: FALSE);
906: x_oracle_error := APP_EXCEPTION.Get_Code;
907: l_msg_data := APP_EXCEPTION.Get_Text;
908: FND_MESSAGE.SET_NAME('GR',
909: 'GR_UNEXPECTED_ERROR');
910: FND_MESSAGE.SET_TOKEN('TEXT',
911: l_msg_data,
912: FALSE);
913: IF FND_API.To_Boolean(p_called_by_form) THEN
914: APP_EXCEPTION.Raise_Exception;
912: FALSE);
913: IF FND_API.To_Boolean(p_called_by_form) THEN
914: APP_EXCEPTION.Raise_Exception;
915: ELSE
916: x_msg_data := FND_MESSAGE.Get;
917: END IF;
918:
919: END Check_Integrity;
920: