150: FND_MESSAGE.SET_TOKEN('TEXT',
151: l_msg_data,
152: FALSE);
153: IF FND_API.To_Boolean(p_called_by_form) THEN
154: APP_EXCEPTION.Raise_Exception;
155: ELSE
156: x_msg_data := FND_MESSAGE.Get;
157: END IF;
158:
158:
159: WHEN Label_Exists_Error THEN
160: ROLLBACK TO SAVEPOINT Insert_Row;
161: x_return_status := 'E';
162: x_oracle_error := APP_EXCEPTION.Get_Code;
163: FND_MESSAGE.SET_NAME('GR',
164: 'GR_RECORD_EXISTS');
165: FND_MESSAGE.SET_TOKEN('CODE',
166: p_item_code || ' ' || p_document_code,
165: FND_MESSAGE.SET_TOKEN('CODE',
166: p_item_code || ' ' || p_document_code,
167: FALSE);
168: IF FND_API.To_Boolean(p_called_by_form) THEN
169: APP_EXCEPTION.Raise_Exception;
170: ELSE
171: x_msg_data := FND_MESSAGE.Get;
172: END IF;
173:
174: WHEN Row_Missing_Error THEN
175: ROLLBACK TO SAVEPOINT Insert_Row;
176: l_msg_data := p_item_code || ' ' || p_document_code;
177: x_return_status := 'E';
178: x_oracle_error := APP_EXCEPTION.Get_Code;
179: FND_MESSAGE.SET_NAME('GR',
180: 'GR_NO_RECORD_INSERTED');
181: FND_MESSAGE.SET_TOKEN('CODE',
182: l_msg_data,
181: FND_MESSAGE.SET_TOKEN('CODE',
182: l_msg_data,
183: FALSE);
184: IF FND_API.To_Boolean(p_called_by_form) THEN
185: APP_EXCEPTION.Raise_Exception;
186: ELSE
187: x_msg_data := FND_MESSAGE.Get;
188: END IF;
189:
189:
190: WHEN OTHERS THEN
191: ROLLBACK TO SAVEPOINT Insert_Row;
192: x_return_status := 'U';
193: x_oracle_error := APP_EXCEPTION.Get_Code;
194: l_msg_data := APP_EXCEPTION.Get_Text;
195: FND_MESSAGE.SET_NAME('GR',
196: 'GR_UNEXPECTED_ERROR');
197: FND_MESSAGE.SET_TOKEN('TEXT',
190: WHEN OTHERS THEN
191: ROLLBACK TO SAVEPOINT Insert_Row;
192: x_return_status := 'U';
193: x_oracle_error := APP_EXCEPTION.Get_Code;
194: l_msg_data := APP_EXCEPTION.Get_Text;
195: FND_MESSAGE.SET_NAME('GR',
196: 'GR_UNEXPECTED_ERROR');
197: FND_MESSAGE.SET_TOKEN('TEXT',
198: l_msg_data,
197: FND_MESSAGE.SET_TOKEN('TEXT',
198: l_msg_data,
199: FALSE);
200: IF FND_API.To_Boolean(p_called_by_form) THEN
201: APP_EXCEPTION.Raise_Exception;
202: ELSE
203: x_msg_data := FND_MESSAGE.Get;
204: END IF;
205:
308: FND_MESSAGE.SET_TOKEN('TEXT',
309: l_msg_data,
310: FALSE);
311: IF FND_API.To_Boolean(p_called_by_form) THEN
312: APP_EXCEPTION.Raise_Exception;
313: ELSE
314: x_msg_data := FND_MESSAGE.Get;
315: END IF;
316:
317: WHEN Row_Missing_Error THEN
318: ROLLBACK TO SAVEPOINT Update_Row;
319: l_msg_data := p_item_code || ' ' || p_document_code;
320: x_return_status := 'E';
321: x_oracle_error := APP_EXCEPTION.Get_Code;
322: FND_MESSAGE.SET_NAME('GR',
323: 'GR_NO_RECORD_INSERTED');
324: FND_MESSAGE.SET_TOKEN('CODE',
325: l_msg_data,
324: FND_MESSAGE.SET_TOKEN('CODE',
325: l_msg_data,
326: FALSE);
327: IF FND_API.To_Boolean(p_called_by_form) THEN
328: APP_EXCEPTION.Raise_Exception;
329: ELSE
330: x_msg_data := FND_MESSAGE.Get;
331: END IF;
332:
332:
333: WHEN OTHERS THEN
334: ROLLBACK TO SAVEPOINT Update_Row;
335: x_return_status := 'U';
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: l_msg_data := APP_EXCEPTION.Get_Text;
338: FND_MESSAGE.SET_NAME('GR',
339: 'GR_UNEXPECTED_ERROR');
340: FND_MESSAGE.SET_TOKEN('TEXT',
333: WHEN OTHERS THEN
334: ROLLBACK TO SAVEPOINT Update_Row;
335: x_return_status := 'U';
336: x_oracle_error := APP_EXCEPTION.Get_Code;
337: l_msg_data := APP_EXCEPTION.Get_Text;
338: FND_MESSAGE.SET_NAME('GR',
339: 'GR_UNEXPECTED_ERROR');
340: FND_MESSAGE.SET_TOKEN('TEXT',
341: l_msg_data,
340: FND_MESSAGE.SET_TOKEN('TEXT',
341: l_msg_data,
342: FALSE);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
345: ELSE
346: x_msg_data := FND_MESSAGE.Get;
347: END IF;
348:
430: FND_MESSAGE.SET_TOKEN('CODE',
431: l_msg_data,
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:
438:
439: WHEN Row_Already_Locked_Error THEN
440: ROLLBACK TO SAVEPOINT Lock_Row;
441: x_return_status := 'E';
442: x_oracle_error := APP_EXCEPTION.Get_Code;
443: FND_MESSAGE.SET_NAME('GR',
444: 'GR_ROW_IS_LOCKED');
445: IF FND_API.To_Boolean(p_called_by_form) THEN
446: APP_EXCEPTION.Raise_Exception;
442: x_oracle_error := APP_EXCEPTION.Get_Code;
443: FND_MESSAGE.SET_NAME('GR',
444: 'GR_ROW_IS_LOCKED');
445: IF FND_API.To_Boolean(p_called_by_form) THEN
446: APP_EXCEPTION.Raise_Exception;
447: ELSE
448: x_msg_data := FND_MESSAGE.Get;
449: END IF;
450:
450:
451: WHEN OTHERS THEN
452: ROLLBACK TO SAVEPOINT Lock_Row;
453: x_return_status := 'U';
454: x_oracle_error := APP_EXCEPTION.Get_Code;
455: l_msg_data := APP_EXCEPTION.Get_Text;
456: FND_MESSAGE.SET_NAME('GR',
457: 'GR_UNEXPECTED_ERROR');
458: FND_MESSAGE.SET_TOKEN('TEXT',
451: WHEN OTHERS THEN
452: ROLLBACK TO SAVEPOINT Lock_Row;
453: x_return_status := 'U';
454: x_oracle_error := APP_EXCEPTION.Get_Code;
455: l_msg_data := APP_EXCEPTION.Get_Text;
456: FND_MESSAGE.SET_NAME('GR',
457: 'GR_UNEXPECTED_ERROR');
458: FND_MESSAGE.SET_TOKEN('TEXT',
459: l_msg_data,
458: FND_MESSAGE.SET_TOKEN('TEXT',
459: l_msg_data,
460: FALSE);
461: IF FND_API.To_Boolean(p_called_by_form) THEN
462: APP_EXCEPTION.Raise_Exception;
463: ELSE
464: x_msg_data := FND_MESSAGE.Get;
465: END IF;
466:
551: ROLLBACK TO SAVEPOINT Delete_Row;
552: x_return_status := l_return_status;
553: x_oracle_error := l_oracle_error;
554: IF FND_API.To_Boolean(p_called_by_form) THEN
555: APP_EXCEPTION.Raise_Exception;
556: ELSE
557: x_msg_data := FND_MESSAGE.Get;
558: END IF;
559:
560: WHEN Row_Missing_Error THEN
561: ROLLBACK TO SAVEPOINT Delete_Row;
562: l_msg_data := p_item_code || ' ' || p_document_code;
563: x_return_status := 'E';
564: x_oracle_error := APP_EXCEPTION.Get_Code;
565: FND_MESSAGE.SET_NAME('GR',
566: 'GR_RECORD_NOT_FOUND');
567: FND_MESSAGE.SET_TOKEN('CODE',
568: l_msg_data,
567: FND_MESSAGE.SET_TOKEN('CODE',
568: l_msg_data,
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
572: ELSE
573: x_msg_data := FND_MESSAGE.Get;
574: END IF;
575:
575:
576: WHEN OTHERS THEN
577: ROLLBACK TO SAVEPOINT Delete_Row;
578: x_return_status := 'U';
579: x_oracle_error := APP_EXCEPTION.Get_Code;
580: l_msg_data := APP_EXCEPTION.Get_Text;
581: l_msg_data := APP_EXCEPTION.Get_Text;
582: FND_MESSAGE.SET_NAME('GR',
583: 'GR_UNEXPECTED_ERROR');
576: WHEN OTHERS THEN
577: ROLLBACK TO SAVEPOINT Delete_Row;
578: x_return_status := 'U';
579: x_oracle_error := APP_EXCEPTION.Get_Code;
580: l_msg_data := APP_EXCEPTION.Get_Text;
581: l_msg_data := APP_EXCEPTION.Get_Text;
582: FND_MESSAGE.SET_NAME('GR',
583: 'GR_UNEXPECTED_ERROR');
584: FND_MESSAGE.SET_TOKEN('TEXT',
577: ROLLBACK TO SAVEPOINT Delete_Row;
578: x_return_status := 'U';
579: x_oracle_error := APP_EXCEPTION.Get_Code;
580: l_msg_data := APP_EXCEPTION.Get_Text;
581: l_msg_data := APP_EXCEPTION.Get_Text;
582: FND_MESSAGE.SET_NAME('GR',
583: 'GR_UNEXPECTED_ERROR');
584: FND_MESSAGE.SET_TOKEN('TEXT',
585: l_msg_data,
584: FND_MESSAGE.SET_TOKEN('TEXT',
585: l_msg_data,
586: FALSE);
587: IF FND_API.To_Boolean(p_called_by_form) THEN
588: APP_EXCEPTION.Raise_Exception;
589: ELSE
590: x_msg_data := FND_MESSAGE.Get;
591: END IF;
592:
673: EXCEPTION
674:
675: WHEN Null_Delete_Option_Error THEN
676: x_return_status := 'E';
677: x_oracle_error := APP_EXCEPTION.Get_Code;
678: FND_MESSAGE.SET_NAME('GR',
679: 'GR_NULL_VALUE');
680: FND_MESSAGE.SET_TOKEN('CODE',
681: l_msg_token,
680: FND_MESSAGE.SET_TOKEN('CODE',
681: l_msg_token,
682: FALSE);
683: IF FND_API.To_Boolean(p_called_by_form) THEN
684: APP_EXCEPTION.Raise_Exception;
685: ELSE
686: x_msg_data := FND_MESSAGE.Get;
687: END IF;
688:
688:
689: WHEN OTHERS THEN
690: ROLLBACK TO SAVEPOINT Delete_Rows;
691: x_return_status := 'U';
692: x_oracle_error := APP_EXCEPTION.Get_Code;
693: l_msg_data := APP_EXCEPTION.Get_Text;
694: FND_MESSAGE.SET_NAME('GR',
695: 'GR_UNEXPECTED_ERROR');
696: FND_MESSAGE.SET_TOKEN('TEXT',
689: WHEN OTHERS THEN
690: ROLLBACK TO SAVEPOINT Delete_Rows;
691: x_return_status := 'U';
692: x_oracle_error := APP_EXCEPTION.Get_Code;
693: l_msg_data := APP_EXCEPTION.Get_Text;
694: FND_MESSAGE.SET_NAME('GR',
695: 'GR_UNEXPECTED_ERROR');
696: FND_MESSAGE.SET_TOKEN('TEXT',
697: l_msg_token,
696: FND_MESSAGE.SET_TOKEN('TEXT',
697: l_msg_token,
698: FALSE);
699: IF FND_API.To_Boolean(p_called_by_form) THEN
700: APP_EXCEPTION.Raise_Exception;
701: ELSE
702: x_msg_data := FND_MESSAGE.Get;
703: END IF;
704:
878:
879: WHEN OTHERS THEN
880: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
881: x_return_status := 'U';
882: x_oracle_error := APP_EXCEPTION.Get_Code;
883: l_msg_data := APP_EXCEPTION.Get_Text;
884: FND_MESSAGE.SET_NAME('GR',
885: 'GR_UNEXPECTED_ERROR');
886: FND_MESSAGE.SET_TOKEN('TEXT',
879: WHEN OTHERS THEN
880: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
881: x_return_status := 'U';
882: x_oracle_error := APP_EXCEPTION.Get_Code;
883: l_msg_data := APP_EXCEPTION.Get_Text;
884: FND_MESSAGE.SET_NAME('GR',
885: 'GR_UNEXPECTED_ERROR');
886: FND_MESSAGE.SET_TOKEN('TEXT',
887: l_msg_data,
942:
943: WHEN OTHERS THEN
944: ROLLBACK TO SAVEPOINT Check_Integrity;
945: x_return_status := 'U';
946: x_oracle_error := APP_EXCEPTION.Get_Code;
947: l_msg_data := APP_EXCEPTION.Get_Text;
948: FND_MESSAGE.SET_NAME('GR',
949: 'GR_UNEXPECTED_ERROR');
950: FND_MESSAGE.SET_TOKEN('TEXT',
943: WHEN OTHERS THEN
944: ROLLBACK TO SAVEPOINT Check_Integrity;
945: x_return_status := 'U';
946: x_oracle_error := APP_EXCEPTION.Get_Code;
947: l_msg_data := APP_EXCEPTION.Get_Text;
948: FND_MESSAGE.SET_NAME('GR',
949: 'GR_UNEXPECTED_ERROR');
950: FND_MESSAGE.SET_TOKEN('TEXT',
951: l_msg_data,
950: FND_MESSAGE.SET_TOKEN('TEXT',
951: l_msg_data,
952: FALSE);
953: IF FND_API.To_Boolean(p_called_by_form) THEN
954: APP_EXCEPTION.Raise_Exception;
955: ELSE
956: x_msg_data := FND_MESSAGE.Get;
957: END IF;
958:
1008:
1009: EXCEPTION
1010:
1011: WHEN Others THEN
1012: l_msg_data := APP_EXCEPTION.Get_Text;
1013: FND_MESSAGE.SET_NAME('GR',
1014: 'GR_UNEXPECTED_ERROR');
1015: FND_MESSAGE.SET_TOKEN('TEXT',
1016: l_msg_data,
1015: FND_MESSAGE.SET_TOKEN('TEXT',
1016: l_msg_data,
1017: FALSE);
1018: IF FND_API.To_Boolean(p_called_by_form) THEN
1019: APP_EXCEPTION.Raise_Exception;
1020: END IF;
1021:
1022: END Check_Primary_Key;
1023: