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;
158: ELSE
159: x_msg_data := FND_MESSAGE.Get;
160: END IF;
161:
161:
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,
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;
173: ELSE
174: x_msg_data := FND_MESSAGE.Get;
175: END IF;
176:
176:
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,
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;
188: ELSE
189: x_msg_data := FND_MESSAGE.Get;
190: END IF;
191:
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;
204: ELSE
205: x_msg_data := FND_MESSAGE.Get;
206: END IF;
207:
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;
324: ELSE
325: x_msg_data := FND_MESSAGE.Get;
326: END IF;
327:
327:
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,
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;
339: ELSE
340: x_msg_data := FND_MESSAGE.Get;
341: END IF;
342:
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;
355: ELSE
356: x_msg_data := FND_MESSAGE.Get;
357: END IF;
358:
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;
466: ELSE
467: x_msg_data := FND_MESSAGE.Get;
468: END IF;
469:
469:
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;
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
479: x_msg_data := FND_MESSAGE.Get;
480: END IF;
481:
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;
494: ELSE
495: x_msg_data := FND_MESSAGE.Get;
496: END IF;
497:
597:
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,
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;
609: ELSE
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612:
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;
625: ELSE
626: x_msg_data := FND_MESSAGE.Get;
627: END IF;
628:
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;
828: END IF;
829:
830: END Check_Primary_Key;
831:
902:
903: WHEN OTHERS THEN
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',
903: WHEN OTHERS THEN
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,
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;
915: ELSE
916: x_msg_data := FND_MESSAGE.Get;
917: END IF;
918: