144: FND_MESSAGE.SET_TOKEN('TEXT',
145: l_msg_data,
146: FALSE);
147: IF FND_API.To_Boolean(p_called_by_form) THEN
148: APP_EXCEPTION.Raise_Exception;
149: ELSE
150: x_msg_data := FND_MESSAGE.Get;
151: END IF;
152:
153: WHEN Item_Exists_Error THEN
154: ROLLBACK TO SAVEPOINT Insert_Row;
155: l_msg_token := p_item_code || ' ' || p_label_code || ' ' || p_property_id;
156: x_return_status := 'E';
157: x_oracle_error := APP_EXCEPTION.Get_Code;
158: FND_MESSAGE.SET_NAME('GR',
159: 'GR_RECORD_EXISTS');
160: FND_MESSAGE.SET_TOKEN('CODE',
161: l_msg_token,
160: FND_MESSAGE.SET_TOKEN('CODE',
161: l_msg_token,
162: FALSE);
163: IF FND_API.To_Boolean(p_called_by_form) THEN
164: APP_EXCEPTION.Raise_Exception;
165: ELSE
166: x_msg_data := FND_MESSAGE.Get;
167: END IF;
168:
169: WHEN Row_Missing_Error THEN
170: ROLLBACK TO SAVEPOINT Insert_Row;
171: l_msg_token := p_item_code || ' ' || p_label_code || ' ' || p_property_id;
172: x_return_status := 'E';
173: x_oracle_error := APP_EXCEPTION.Get_Code;
174: FND_MESSAGE.SET_NAME('GR',
175: 'GR_NO_RECORD_INSERTED');
176: FND_MESSAGE.SET_TOKEN('CODE',
177: l_msg_token,
176: FND_MESSAGE.SET_TOKEN('CODE',
177: l_msg_token,
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
181: ELSE
182: x_msg_data := FND_MESSAGE.Get;
183: END IF;
184:
185: WHEN OTHERS THEN
186: ROLLBACK TO SAVEPOINT Insert_Row;
187: l_msg_token := p_item_code || ' ' || p_label_code || ' ' || p_property_id;
188: x_return_status := 'U';
189: x_oracle_error := APP_EXCEPTION.Get_Code;
190: l_msg_data := APP_EXCEPTION.Get_Text;
191: FND_MESSAGE.SET_NAME('GR',
192: 'GR_UNEXPECTED_ERROR');
193: FND_MESSAGE.SET_TOKEN('TEXT',
186: ROLLBACK TO SAVEPOINT Insert_Row;
187: l_msg_token := p_item_code || ' ' || p_label_code || ' ' || p_property_id;
188: x_return_status := 'U';
189: x_oracle_error := APP_EXCEPTION.Get_Code;
190: l_msg_data := APP_EXCEPTION.Get_Text;
191: FND_MESSAGE.SET_NAME('GR',
192: 'GR_UNEXPECTED_ERROR');
193: FND_MESSAGE.SET_TOKEN('TEXT',
194: l_msg_token,
193: FND_MESSAGE.SET_TOKEN('TEXT',
194: l_msg_token,
195: FALSE);
196: IF FND_API.To_Boolean(p_called_by_form) THEN
197: APP_EXCEPTION.Raise_Exception;
198: ELSE
199: x_msg_data := FND_MESSAGE.Get;
200: END IF;
201:
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;
309: ELSE
310: x_msg_data := FND_MESSAGE.Get;
311: END IF;
312:
312:
313: WHEN Row_Missing_Error THEN
314: ROLLBACK TO SAVEPOINT Update_Row;
315: x_return_status := 'E';
316: x_oracle_error := APP_EXCEPTION.Get_Code;
317: FND_MESSAGE.SET_NAME('GR',
318: 'GR_NO_RECORD_INSERTED');
319: FND_MESSAGE.SET_TOKEN('CODE',
320: l_msg_token,
319: FND_MESSAGE.SET_TOKEN('CODE',
320: l_msg_token,
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 OTHERS THEN
329: ROLLBACK TO SAVEPOINT Update_Row;
330: x_return_status := 'U';
331: x_oracle_error := APP_EXCEPTION.Get_Code;
332: l_msg_data := APP_EXCEPTION.Get_Text;
333: FND_MESSAGE.SET_NAME('GR',
334: 'GR_UNEXPECTED_ERROR');
335: FND_MESSAGE.SET_TOKEN('TEXT',
328: WHEN OTHERS THEN
329: ROLLBACK TO SAVEPOINT Update_Row;
330: x_return_status := 'U';
331: x_oracle_error := APP_EXCEPTION.Get_Code;
332: l_msg_data := APP_EXCEPTION.Get_Text;
333: FND_MESSAGE.SET_NAME('GR',
334: 'GR_UNEXPECTED_ERROR');
335: FND_MESSAGE.SET_TOKEN('TEXT',
336: l_msg_token,
335: FND_MESSAGE.SET_TOKEN('TEXT',
336: l_msg_token,
337: FALSE);
338: IF FND_API.To_Boolean(p_called_by_form) THEN
339: APP_EXCEPTION.Raise_Exception;
340: ELSE
341: x_msg_data := FND_MESSAGE.Get;
342: END IF;
343:
425: FND_MESSAGE.SET_TOKEN('CODE',
426: l_msg_token,
427: FALSE);
428: IF FND_API.To_Boolean(p_called_by_form) THEN
429: APP_EXCEPTION.Raise_Exception;
430: ELSE
431: x_msg_data := FND_MESSAGE.Get;
432: END IF;
433:
433:
434: WHEN Row_Already_Locked_Error THEN
435: ROLLBACK TO SAVEPOINT Lock_Row;
436: x_return_status := 'E';
437: x_oracle_error := APP_EXCEPTION.Get_Code;
438: FND_MESSAGE.SET_NAME('GR',
439: 'GR_ROW_IS_LOCKED');
440: IF FND_API.To_Boolean(p_called_by_form) THEN
441: APP_EXCEPTION.Raise_Exception;
437: x_oracle_error := APP_EXCEPTION.Get_Code;
438: FND_MESSAGE.SET_NAME('GR',
439: 'GR_ROW_IS_LOCKED');
440: IF FND_API.To_Boolean(p_called_by_form) THEN
441: APP_EXCEPTION.Raise_Exception;
442: ELSE
443: x_msg_data := FND_MESSAGE.Get;
444: END IF;
445:
445:
446: WHEN OTHERS THEN
447: ROLLBACK TO SAVEPOINT Lock_Row;
448: x_return_status := 'U';
449: x_oracle_error := APP_EXCEPTION.Get_Code;
450: l_msg_data := APP_EXCEPTION.Get_Text;
451: FND_MESSAGE.SET_NAME('GR',
452: 'GR_UNEXPECTED_ERROR');
453: FND_MESSAGE.SET_TOKEN('TEXT',
446: WHEN OTHERS THEN
447: ROLLBACK TO SAVEPOINT Lock_Row;
448: x_return_status := 'U';
449: x_oracle_error := APP_EXCEPTION.Get_Code;
450: l_msg_data := APP_EXCEPTION.Get_Text;
451: FND_MESSAGE.SET_NAME('GR',
452: 'GR_UNEXPECTED_ERROR');
453: FND_MESSAGE.SET_TOKEN('TEXT',
454: l_msg_token,
453: FND_MESSAGE.SET_TOKEN('TEXT',
454: l_msg_token,
455: FALSE);
456: IF FND_API.To_Boolean(p_called_by_form) THEN
457: APP_EXCEPTION.Raise_Exception;
458: ELSE
459: x_msg_data := FND_MESSAGE.Get;
460: END IF;
461:
546: ROLLBACK TO SAVEPOINT Delete_Row;
547: x_return_status := l_return_status;
548: x_oracle_error := l_oracle_error;
549: IF FND_API.To_Boolean(p_called_by_form) THEN
550: APP_EXCEPTION.Raise_Exception;
551: ELSE
552: x_msg_data := FND_MESSAGE.Get;
553: END IF;
554:
554:
555: WHEN Row_Missing_Error THEN
556: ROLLBACK TO SAVEPOINT Delete_Row;
557: x_return_status := 'E';
558: x_oracle_error := APP_EXCEPTION.Get_Code;
559: FND_MESSAGE.SET_NAME('GR',
560: 'GR_RECORD_NOT_FOUND');
561: FND_MESSAGE.SET_TOKEN('CODE',
562: l_msg_token,
561: FND_MESSAGE.SET_TOKEN('CODE',
562: l_msg_token,
563: FALSE);
564: IF FND_API.To_Boolean(p_called_by_form) THEN
565: APP_EXCEPTION.Raise_Exception;
566: ELSE
567: x_msg_data := FND_MESSAGE.Get;
568: END IF;
569:
569:
570: WHEN OTHERS THEN
571: ROLLBACK TO SAVEPOINT Delete_Row;
572: x_return_status := 'U';
573: x_oracle_error := APP_EXCEPTION.Get_Code;
574: l_msg_data := APP_EXCEPTION.Get_Text;
575: l_msg_data := APP_EXCEPTION.Get_Text;
576: FND_MESSAGE.SET_NAME('GR',
577: 'GR_UNEXPECTED_ERROR');
570: WHEN OTHERS THEN
571: ROLLBACK TO SAVEPOINT Delete_Row;
572: x_return_status := 'U';
573: x_oracle_error := APP_EXCEPTION.Get_Code;
574: l_msg_data := APP_EXCEPTION.Get_Text;
575: l_msg_data := APP_EXCEPTION.Get_Text;
576: FND_MESSAGE.SET_NAME('GR',
577: 'GR_UNEXPECTED_ERROR');
578: FND_MESSAGE.SET_TOKEN('TEXT',
571: ROLLBACK TO SAVEPOINT Delete_Row;
572: x_return_status := 'U';
573: x_oracle_error := APP_EXCEPTION.Get_Code;
574: l_msg_data := APP_EXCEPTION.Get_Text;
575: l_msg_data := APP_EXCEPTION.Get_Text;
576: FND_MESSAGE.SET_NAME('GR',
577: 'GR_UNEXPECTED_ERROR');
578: FND_MESSAGE.SET_TOKEN('TEXT',
579: l_msg_token,
578: FND_MESSAGE.SET_TOKEN('TEXT',
579: l_msg_token,
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:
669: EXCEPTION
670:
671: WHEN Null_Delete_Option_Error THEN
672: x_return_status := 'E';
673: x_oracle_error := APP_EXCEPTION.Get_Code;
674: FND_MESSAGE.SET_NAME('GR',
675: 'GR_NULL_VALUE');
676: FND_MESSAGE.SET_TOKEN('CODE',
677: l_msg_token,
676: FND_MESSAGE.SET_TOKEN('CODE',
677: l_msg_token,
678: FALSE);
679: IF FND_API.To_Boolean(p_called_by_form) THEN
680: APP_EXCEPTION.Raise_Exception;
681: ELSE
682: x_msg_data := FND_MESSAGE.Get;
683: END IF;
684:
684:
685: WHEN OTHERS THEN
686: ROLLBACK TO SAVEPOINT Delete_Rows;
687: x_return_status := 'U';
688: x_oracle_error := APP_EXCEPTION.Get_Code;
689: l_msg_data := APP_EXCEPTION.Get_Text;
690: FND_MESSAGE.SET_NAME('GR',
691: 'GR_UNEXPECTED_ERROR');
692: FND_MESSAGE.SET_TOKEN('TEXT',
685: WHEN OTHERS THEN
686: ROLLBACK TO SAVEPOINT Delete_Rows;
687: x_return_status := 'U';
688: x_oracle_error := APP_EXCEPTION.Get_Code;
689: l_msg_data := APP_EXCEPTION.Get_Text;
690: FND_MESSAGE.SET_NAME('GR',
691: 'GR_UNEXPECTED_ERROR');
692: FND_MESSAGE.SET_TOKEN('TEXT',
693: l_msg_token,
692: FND_MESSAGE.SET_TOKEN('TEXT',
693: l_msg_token,
694: FALSE);
695: IF FND_API.To_Boolean(p_called_by_form) THEN
696: APP_EXCEPTION.Raise_Exception;
697: ELSE
698: x_msg_data := FND_MESSAGE.Get;
699: END IF;
700:
787: EXCEPTION
788:
789: WHEN Row_Missing_Error THEN
790: x_return_status := 'E';
791: x_oracle_error := APP_EXCEPTION.Get_Code;
792: FND_MESSAGE.SET_NAME('GR',
793: 'GR_RECORD_NOT_FOUND');
794: FND_MESSAGE.SET_TOKEN('CODE',
795: l_msg_token,
797: x_msg_data := FND_MESSAGE.Get;
798:
799: WHEN OTHERS THEN
800: x_return_status := 'U';
801: x_oracle_error := APP_EXCEPTION.Get_Code;
802: l_msg_data := APP_EXCEPTION.Get_Text;
803: FND_MESSAGE.SET_NAME('GR',
804: 'GR_UNEXPECTED_ERROR');
805: FND_MESSAGE.SET_TOKEN('TEXT',
798:
799: WHEN OTHERS THEN
800: x_return_status := 'U';
801: x_oracle_error := APP_EXCEPTION.Get_Code;
802: l_msg_data := APP_EXCEPTION.Get_Text;
803: FND_MESSAGE.SET_NAME('GR',
804: 'GR_UNEXPECTED_ERROR');
805: FND_MESSAGE.SET_TOKEN('TEXT',
806: l_msg_token,
853:
854: WHEN OTHERS THEN
855: ROLLBACK TO SAVEPOINT Check_Integrity;
856: x_return_status := 'U';
857: x_oracle_error := APP_EXCEPTION.Get_Code;
858: l_msg_data := APP_EXCEPTION.Get_Text;
859: FND_MESSAGE.SET_NAME('GR',
860: 'GR_UNEXPECTED_ERROR');
861: FND_MESSAGE.SET_TOKEN('TEXT',
854: WHEN OTHERS THEN
855: ROLLBACK TO SAVEPOINT Check_Integrity;
856: x_return_status := 'U';
857: x_oracle_error := APP_EXCEPTION.Get_Code;
858: l_msg_data := APP_EXCEPTION.Get_Text;
859: FND_MESSAGE.SET_NAME('GR',
860: 'GR_UNEXPECTED_ERROR');
861: FND_MESSAGE.SET_TOKEN('TEXT',
862: l_msg_data,
861: FND_MESSAGE.SET_TOKEN('TEXT',
862: l_msg_data,
863: FALSE);
864: IF FND_API.To_Boolean(p_called_by_form) THEN
865: APP_EXCEPTION.Raise_Exception;
866: ELSE
867: x_msg_data := FND_MESSAGE.Get;
868: END IF;
869:
917:
918: EXCEPTION
919:
920: WHEN Others THEN
921: l_msg_data := APP_EXCEPTION.Get_Text;
922: FND_MESSAGE.SET_NAME('GR',
923: 'GR_UNEXPECTED_ERROR');
924: FND_MESSAGE.SET_TOKEN('TEXT',
925: l_msg_data,
924: FND_MESSAGE.SET_TOKEN('TEXT',
925: l_msg_data,
926: FALSE);
927: IF FND_API.To_Boolean(p_called_by_form) THEN
928: APP_EXCEPTION.Raise_Exception;
929: END IF;
930:
931: END Check_Primary_Key;
932: