137: FND_MESSAGE.SET_TOKEN('TEXT',
138: l_msg_data,
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
142: ELSE
143: x_msg_data := FND_MESSAGE.Get;
144: END IF;
145:
146: WHEN Item_Exists_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
148: l_msg_token := p_label_code || ' ' || p_property_id;
149: x_return_status := 'E';
150: x_oracle_error := APP_EXCEPTION.Get_Code;
151: FND_MESSAGE.SET_NAME('GR',
152: 'GR_RECORD_EXISTS');
153: FND_MESSAGE.SET_TOKEN('CODE',
154: l_msg_token,
153: FND_MESSAGE.SET_TOKEN('CODE',
154: l_msg_token,
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 Row_Missing_Error THEN
163: ROLLBACK TO SAVEPOINT Insert_Row;
164: l_msg_token := p_label_code || ' ' || p_property_id;
165: x_return_status := 'E';
166: x_oracle_error := APP_EXCEPTION.Get_Code;
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_NO_RECORD_INSERTED');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: l_msg_token,
169: FND_MESSAGE.SET_TOKEN('CODE',
170: l_msg_token,
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
174: ELSE
175: x_msg_data := FND_MESSAGE.Get;
176: END IF;
177:
186: FND_MESSAGE.SET_TOKEN('TEXT',
187: l_msg_token||sqlerrm,
188: FALSE);
189: IF FND_API.To_Boolean(p_called_by_form) THEN
190: APP_EXCEPTION.Raise_Exception;
191: ELSE
192: x_msg_data := FND_MESSAGE.Get;
193: END IF;
194:
284: FND_MESSAGE.SET_TOKEN('TEXT',
285: l_msg_data,
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
289: ELSE
290: x_msg_data := FND_MESSAGE.Get;
291: END IF;
292:
292:
293: WHEN Row_Missing_Error THEN
294: ROLLBACK TO SAVEPOINT Update_Row;
295: x_return_status := 'E';
296: x_oracle_error := APP_EXCEPTION.Get_Code;
297: FND_MESSAGE.SET_NAME('GR',
298: 'GR_NO_RECORD_INSERTED');
299: FND_MESSAGE.SET_TOKEN('CODE',
300: l_msg_token,
299: FND_MESSAGE.SET_TOKEN('CODE',
300: l_msg_token,
301: FALSE);
302: IF FND_API.To_Boolean(p_called_by_form) THEN
303: APP_EXCEPTION.Raise_Exception;
304: ELSE
305: x_msg_data := FND_MESSAGE.Get;
306: END IF;
307:
315: FND_MESSAGE.SET_TOKEN('TEXT',
316: l_msg_token||sqlerrm,
317: FALSE);
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;
320: ELSE
321: x_msg_data := FND_MESSAGE.Get;
322: END IF;
323:
402: FND_MESSAGE.SET_TOKEN('CODE',
403: l_msg_token,
404: FALSE);
405: IF FND_API.To_Boolean(p_called_by_form) THEN
406: APP_EXCEPTION.Raise_Exception;
407: ELSE
408: x_msg_data := FND_MESSAGE.Get;
409: END IF;
410:
410:
411: WHEN Row_Already_Locked_Error THEN
412: ROLLBACK TO SAVEPOINT Lock_Row;
413: x_return_status := 'E';
414: x_oracle_error := APP_EXCEPTION.Get_Code;
415: FND_MESSAGE.SET_NAME('GR',
416: 'GR_ROW_IS_LOCKED');
417: IF FND_API.To_Boolean(p_called_by_form) THEN
418: APP_EXCEPTION.Raise_Exception;
414: x_oracle_error := APP_EXCEPTION.Get_Code;
415: FND_MESSAGE.SET_NAME('GR',
416: 'GR_ROW_IS_LOCKED');
417: IF FND_API.To_Boolean(p_called_by_form) THEN
418: APP_EXCEPTION.Raise_Exception;
419: ELSE
420: x_msg_data := FND_MESSAGE.Get;
421: END IF;
422:
430: FND_MESSAGE.SET_TOKEN('TEXT',
431: l_msg_token||sqlerrm,
432: FALSE);
433: IF FND_API.To_Boolean(p_called_by_form) THEN
434: APP_EXCEPTION.Raise_Exception;
435: ELSE
436: x_msg_data := FND_MESSAGE.Get;
437: END IF;
438:
517: ROLLBACK TO SAVEPOINT Delete_Row;
518: x_return_status := l_return_status;
519: x_oracle_error := l_oracle_error;
520: IF FND_API.To_Boolean(p_called_by_form) THEN
521: APP_EXCEPTION.Raise_Exception;
522: ELSE
523: x_msg_data := FND_MESSAGE.Get;
524: END IF;
525:
525:
526: WHEN Row_Missing_Error THEN
527: ROLLBACK TO SAVEPOINT Delete_Row;
528: x_return_status := 'E';
529: x_oracle_error := APP_EXCEPTION.Get_Code;
530: FND_MESSAGE.SET_NAME('GR',
531: 'GR_RECORD_NOT_FOUND');
532: FND_MESSAGE.SET_TOKEN('CODE',
533: l_msg_token,
532: FND_MESSAGE.SET_TOKEN('CODE',
533: l_msg_token,
534: FALSE);
535: IF FND_API.To_Boolean(p_called_by_form) THEN
536: APP_EXCEPTION.Raise_Exception;
537: ELSE
538: x_msg_data := FND_MESSAGE.Get;
539: END IF;
540:
542: ROLLBACK TO SAVEPOINT Delete_Row;
543: x_return_status := 'U';
544: x_oracle_error := SQLCODE;
545: l_msg_data := SUBSTR(SQLERRM, 1, 200);
546: --l_msg_data := APP_EXCEPTION.Get_Text;
547: FND_MESSAGE.SET_NAME('GR',
548: 'GR_UNEXPECTED_ERROR');
549: FND_MESSAGE.SET_TOKEN('TEXT',
550: l_msg_token||sqlerrm,
549: FND_MESSAGE.SET_TOKEN('TEXT',
550: l_msg_token||sqlerrm,
551: FALSE);
552: IF FND_API.To_Boolean(p_called_by_form) THEN
553: APP_EXCEPTION.Raise_Exception;
554: ELSE
555: x_msg_data := FND_MESSAGE.Get;
556: END IF;
557:
629: EXCEPTION
630:
631: WHEN Null_Delete_Option_Error THEN
632: x_return_status := 'E';
633: x_oracle_error := APP_EXCEPTION.Get_Code;
634: FND_MESSAGE.SET_NAME('GR',
635: 'GR_NULL_VALUE');
636: FND_MESSAGE.SET_TOKEN('CODE',
637: l_msg_token,
636: FND_MESSAGE.SET_TOKEN('CODE',
637: l_msg_token,
638: FALSE);
639: IF FND_API.To_Boolean(p_called_by_form) THEN
640: APP_EXCEPTION.Raise_Exception;
641: ELSE
642: x_msg_data := FND_MESSAGE.Get;
643: END IF;
644:
652: FND_MESSAGE.SET_TOKEN('TEXT',
653: l_msg_token||sqlerrm,
654: FALSE);
655: IF FND_API.To_Boolean(p_called_by_form) THEN
656: APP_EXCEPTION.Raise_Exception;
657: ELSE
658: x_msg_data := FND_MESSAGE.Get;
659: END IF;
660:
732:
733: WHEN Row_Missing_Error THEN
734: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
735: x_return_status := 'E';
736: x_oracle_error := APP_EXCEPTION.Get_Code;
737: FND_MESSAGE.SET_NAME('GR',
738: 'GR_RECORD_NOT_FOUND');
739: FND_MESSAGE.SET_TOKEN('CODE',
740: l_msg_token,
804: l_msg_data,
805: FALSE);
806: x_msg_data := FND_MESSAGE.Get;
807: IF FND_API.To_Boolean(p_called_by_form) THEN
808: APP_EXCEPTION.Raise_Exception;
809: END IF;
810:
811: END Check_Integrity;
812:
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
868: IF FND_API.To_Boolean(p_called_by_form) THEN
869: APP_EXCEPTION.Raise_Exception;
870: END IF;
871:
872: END Check_Primary_Key;
873: