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_organization_id || ' ' || p_inventory_item_id || ' ' || 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_organization_id || ' ' || p_inventory_item_id || ' ' || 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_organization_id || ' ' || p_inventory_item_id || ' ' || 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_organization_id || ' ' || p_inventory_item_id || ' ' || 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:
313: FND_MESSAGE.SET_TOKEN('TEXT',
314: l_msg_data,
315: FALSE);
316: IF FND_API.To_Boolean(p_called_by_form) THEN
317: APP_EXCEPTION.Raise_Exception;
318: ELSE
319: x_msg_data := FND_MESSAGE.Get;
320: END IF;
321:
321:
322: WHEN Row_Missing_Error THEN
323: ROLLBACK TO SAVEPOINT Update_Row;
324: x_return_status := 'E';
325: x_oracle_error := APP_EXCEPTION.Get_Code;
326: FND_MESSAGE.SET_NAME('GR',
327: 'GR_NO_RECORD_INSERTED');
328: FND_MESSAGE.SET_TOKEN('CODE',
329: l_msg_token,
328: FND_MESSAGE.SET_TOKEN('CODE',
329: l_msg_token,
330: FALSE);
331: IF FND_API.To_Boolean(p_called_by_form) THEN
332: APP_EXCEPTION.Raise_Exception;
333: ELSE
334: x_msg_data := FND_MESSAGE.Get;
335: END IF;
336:
336:
337: WHEN OTHERS THEN
338: ROLLBACK TO SAVEPOINT Update_Row;
339: x_return_status := 'U';
340: x_oracle_error := APP_EXCEPTION.Get_Code;
341: l_msg_data := APP_EXCEPTION.Get_Text;
342: FND_MESSAGE.SET_NAME('GR',
343: 'GR_UNEXPECTED_ERROR');
344: FND_MESSAGE.SET_TOKEN('TEXT',
337: WHEN OTHERS THEN
338: ROLLBACK TO SAVEPOINT Update_Row;
339: x_return_status := 'U';
340: x_oracle_error := APP_EXCEPTION.Get_Code;
341: l_msg_data := APP_EXCEPTION.Get_Text;
342: FND_MESSAGE.SET_NAME('GR',
343: 'GR_UNEXPECTED_ERROR');
344: FND_MESSAGE.SET_TOKEN('TEXT',
345: l_msg_token,
344: FND_MESSAGE.SET_TOKEN('TEXT',
345: l_msg_token,
346: FALSE);
347: IF FND_API.To_Boolean(p_called_by_form) THEN
348: APP_EXCEPTION.Raise_Exception;
349: ELSE
350: x_msg_data := FND_MESSAGE.Get;
351: END IF;
352:
434: FND_MESSAGE.SET_TOKEN('CODE',
435: l_msg_token,
436: FALSE);
437: IF FND_API.To_Boolean(p_called_by_form) THEN
438: APP_EXCEPTION.Raise_Exception;
439: ELSE
440: x_msg_data := FND_MESSAGE.Get;
441: END IF;
442:
442:
443: WHEN Row_Already_Locked_Error THEN
444: ROLLBACK TO SAVEPOINT Lock_Row;
445: x_return_status := 'E';
446: x_oracle_error := APP_EXCEPTION.Get_Code;
447: FND_MESSAGE.SET_NAME('GR',
448: 'GR_ROW_IS_LOCKED');
449: IF FND_API.To_Boolean(p_called_by_form) THEN
450: APP_EXCEPTION.Raise_Exception;
446: x_oracle_error := APP_EXCEPTION.Get_Code;
447: FND_MESSAGE.SET_NAME('GR',
448: 'GR_ROW_IS_LOCKED');
449: IF FND_API.To_Boolean(p_called_by_form) THEN
450: APP_EXCEPTION.Raise_Exception;
451: ELSE
452: x_msg_data := FND_MESSAGE.Get;
453: END IF;
454:
454:
455: WHEN OTHERS THEN
456: ROLLBACK TO SAVEPOINT Lock_Row;
457: x_return_status := 'U';
458: x_oracle_error := APP_EXCEPTION.Get_Code;
459: l_msg_data := APP_EXCEPTION.Get_Text;
460: FND_MESSAGE.SET_NAME('GR',
461: 'GR_UNEXPECTED_ERROR');
462: FND_MESSAGE.SET_TOKEN('TEXT',
455: WHEN OTHERS THEN
456: ROLLBACK TO SAVEPOINT Lock_Row;
457: x_return_status := 'U';
458: x_oracle_error := APP_EXCEPTION.Get_Code;
459: l_msg_data := APP_EXCEPTION.Get_Text;
460: FND_MESSAGE.SET_NAME('GR',
461: 'GR_UNEXPECTED_ERROR');
462: FND_MESSAGE.SET_TOKEN('TEXT',
463: l_msg_token,
462: FND_MESSAGE.SET_TOKEN('TEXT',
463: l_msg_token,
464: FALSE);
465: IF FND_API.To_Boolean(p_called_by_form) THEN
466: APP_EXCEPTION.Raise_Exception;
467: ELSE
468: x_msg_data := FND_MESSAGE.Get;
469: END IF;
470:
554: ROLLBACK TO SAVEPOINT Delete_Row;
555: x_return_status := l_return_status;
556: x_oracle_error := l_oracle_error;
557: IF FND_API.To_Boolean(p_called_by_form) THEN
558: APP_EXCEPTION.Raise_Exception;
559: ELSE
560: x_msg_data := FND_MESSAGE.Get;
561: END IF;
562:
562:
563: WHEN Row_Missing_Error THEN
564: ROLLBACK TO SAVEPOINT Delete_Row;
565: x_return_status := 'E';
566: x_oracle_error := APP_EXCEPTION.Get_Code;
567: FND_MESSAGE.SET_NAME('GR',
568: 'GR_RECORD_NOT_FOUND');
569: FND_MESSAGE.SET_TOKEN('CODE',
570: l_msg_token,
569: FND_MESSAGE.SET_TOKEN('CODE',
570: l_msg_token,
571: FALSE);
572: IF FND_API.To_Boolean(p_called_by_form) THEN
573: APP_EXCEPTION.Raise_Exception;
574: ELSE
575: x_msg_data := FND_MESSAGE.Get;
576: END IF;
577:
577:
578: WHEN OTHERS THEN
579: ROLLBACK TO SAVEPOINT Delete_Row;
580: x_return_status := 'U';
581: x_oracle_error := APP_EXCEPTION.Get_Code;
582: l_msg_data := APP_EXCEPTION.Get_Text;
583: l_msg_data := APP_EXCEPTION.Get_Text;
584: FND_MESSAGE.SET_NAME('GR',
585: 'GR_UNEXPECTED_ERROR');
578: WHEN OTHERS THEN
579: ROLLBACK TO SAVEPOINT Delete_Row;
580: x_return_status := 'U';
581: x_oracle_error := APP_EXCEPTION.Get_Code;
582: l_msg_data := APP_EXCEPTION.Get_Text;
583: l_msg_data := APP_EXCEPTION.Get_Text;
584: FND_MESSAGE.SET_NAME('GR',
585: 'GR_UNEXPECTED_ERROR');
586: FND_MESSAGE.SET_TOKEN('TEXT',
579: ROLLBACK TO SAVEPOINT Delete_Row;
580: x_return_status := 'U';
581: x_oracle_error := APP_EXCEPTION.Get_Code;
582: l_msg_data := APP_EXCEPTION.Get_Text;
583: l_msg_data := APP_EXCEPTION.Get_Text;
584: FND_MESSAGE.SET_NAME('GR',
585: 'GR_UNEXPECTED_ERROR');
586: FND_MESSAGE.SET_TOKEN('TEXT',
587: l_msg_token,
586: FND_MESSAGE.SET_TOKEN('TEXT',
587: l_msg_token,
588: FALSE);
589: IF FND_API.To_Boolean(p_called_by_form) THEN
590: APP_EXCEPTION.Raise_Exception;
591: ELSE
592: x_msg_data := FND_MESSAGE.Get;
593: END IF;
594:
680: EXCEPTION
681:
682: WHEN Null_Delete_Option_Error THEN
683: x_return_status := 'E';
684: x_oracle_error := APP_EXCEPTION.Get_Code;
685: FND_MESSAGE.SET_NAME('GR',
686: 'GR_NULL_VALUE');
687: FND_MESSAGE.SET_TOKEN('CODE',
688: l_msg_token,
687: FND_MESSAGE.SET_TOKEN('CODE',
688: l_msg_token,
689: FALSE);
690: IF FND_API.To_Boolean(p_called_by_form) THEN
691: APP_EXCEPTION.Raise_Exception;
692: ELSE
693: x_msg_data := FND_MESSAGE.Get;
694: END IF;
695:
695:
696: WHEN OTHERS THEN
697: ROLLBACK TO SAVEPOINT Delete_Rows;
698: x_return_status := 'U';
699: x_oracle_error := APP_EXCEPTION.Get_Code;
700: l_msg_data := APP_EXCEPTION.Get_Text;
701: FND_MESSAGE.SET_NAME('GR',
702: 'GR_UNEXPECTED_ERROR');
703: FND_MESSAGE.SET_TOKEN('TEXT',
696: WHEN OTHERS THEN
697: ROLLBACK TO SAVEPOINT Delete_Rows;
698: x_return_status := 'U';
699: x_oracle_error := APP_EXCEPTION.Get_Code;
700: l_msg_data := APP_EXCEPTION.Get_Text;
701: FND_MESSAGE.SET_NAME('GR',
702: 'GR_UNEXPECTED_ERROR');
703: FND_MESSAGE.SET_TOKEN('TEXT',
704: l_msg_token,
703: FND_MESSAGE.SET_TOKEN('TEXT',
704: l_msg_token,
705: FALSE);
706: IF FND_API.To_Boolean(p_called_by_form) THEN
707: APP_EXCEPTION.Raise_Exception;
708: ELSE
709: x_msg_data := FND_MESSAGE.Get;
710: END IF;
711:
807: EXCEPTION
808:
809: WHEN Row_Missing_Error THEN
810: x_return_status := 'E';
811: x_oracle_error := APP_EXCEPTION.Get_Code;
812: FND_MESSAGE.SET_NAME('GR',
813: 'GR_RECORD_NOT_FOUND');
814: FND_MESSAGE.SET_TOKEN('CODE',
815: l_msg_token,
817: x_msg_data := FND_MESSAGE.Get;
818:
819: WHEN OTHERS THEN
820: x_return_status := 'U';
821: x_oracle_error := APP_EXCEPTION.Get_Code;
822: l_msg_data := APP_EXCEPTION.Get_Text;
823: FND_MESSAGE.SET_NAME('GR',
824: 'GR_UNEXPECTED_ERROR');
825: FND_MESSAGE.SET_TOKEN('TEXT',
818:
819: WHEN OTHERS THEN
820: x_return_status := 'U';
821: x_oracle_error := APP_EXCEPTION.Get_Code;
822: l_msg_data := APP_EXCEPTION.Get_Text;
823: FND_MESSAGE.SET_NAME('GR',
824: 'GR_UNEXPECTED_ERROR');
825: FND_MESSAGE.SET_TOKEN('TEXT',
826: l_msg_token,
873:
874: WHEN OTHERS THEN
875: ROLLBACK TO SAVEPOINT Check_Integrity;
876: x_return_status := 'U';
877: x_oracle_error := APP_EXCEPTION.Get_Code;
878: l_msg_data := APP_EXCEPTION.Get_Text;
879: FND_MESSAGE.SET_NAME('GR',
880: 'GR_UNEXPECTED_ERROR');
881: FND_MESSAGE.SET_TOKEN('TEXT',
874: WHEN OTHERS THEN
875: ROLLBACK TO SAVEPOINT Check_Integrity;
876: x_return_status := 'U';
877: x_oracle_error := APP_EXCEPTION.Get_Code;
878: l_msg_data := APP_EXCEPTION.Get_Text;
879: FND_MESSAGE.SET_NAME('GR',
880: 'GR_UNEXPECTED_ERROR');
881: FND_MESSAGE.SET_TOKEN('TEXT',
882: l_msg_data,
881: FND_MESSAGE.SET_TOKEN('TEXT',
882: l_msg_data,
883: FALSE);
884: IF FND_API.To_Boolean(p_called_by_form) THEN
885: APP_EXCEPTION.Raise_Exception;
886: ELSE
887: x_msg_data := FND_MESSAGE.Get;
888: END IF;
889:
940:
941: EXCEPTION
942:
943: WHEN Others THEN
944: l_msg_data := APP_EXCEPTION.Get_Text;
945: FND_MESSAGE.SET_NAME('GR',
946: 'GR_UNEXPECTED_ERROR');
947: FND_MESSAGE.SET_TOKEN('TEXT',
948: l_msg_data,
947: FND_MESSAGE.SET_TOKEN('TEXT',
948: l_msg_data,
949: FALSE);
950: IF FND_API.To_Boolean(p_called_by_form) THEN
951: APP_EXCEPTION.Raise_Exception;
952: END IF;
953:
954: END Check_Primary_Key;
955: