126: FND_MESSAGE.SET_TOKEN('TEXT',
127: l_msg_data,
128: FALSE);
129: IF FND_API.To_Boolean(p_called_by_form) THEN
130: APP_EXCEPTION.Raise_Exception;
131: ELSE
132: x_msg_data := FND_MESSAGE.Get;
133: END IF;
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: l_msg_token := p_safety_phrase_code || ' ' || p_language;
138: x_return_status := 'E';
139: x_oracle_error := APP_EXCEPTION.Get_Code;
140: FND_MESSAGE.SET_NAME('GR',
141: 'GR_RECORD_EXISTS');
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
144: FALSE);
145: IF FND_API.To_Boolean(p_called_by_form) THEN
146: APP_EXCEPTION.Raise_Exception;
147: ELSE
148: x_msg_data := FND_MESSAGE.Get;
149: END IF;
150:
151: WHEN Row_Missing_Error THEN
152: ROLLBACK TO SAVEPOINT Insert_Row;
153: l_msg_token := p_safety_phrase_code || ' ' || p_language;
154: x_return_status := 'E';
155: x_oracle_error := APP_EXCEPTION.Get_Code;
156: FND_MESSAGE.SET_NAME('GR',
157: 'GR_NO_RECORD_INSERTED');
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
160: FALSE);
161: IF FND_API.To_Boolean(p_called_by_form) THEN
162: APP_EXCEPTION.Raise_Exception;
163: ELSE
164: x_msg_data := FND_MESSAGE.Get;
165: END IF;
166:
175: FND_MESSAGE.SET_TOKEN('TEXT',
176: l_msg_token,
177: FALSE);
178: IF FND_API.To_Boolean(p_called_by_form) THEN
179: APP_EXCEPTION.Raise_Exception;
180: ELSE
181: x_msg_data := FND_MESSAGE.Get;
182: END IF;
183:
273: FND_MESSAGE.SET_TOKEN('TEXT',
274: l_msg_data,
275: FALSE);
276: IF FND_API.To_Boolean(p_called_by_form) THEN
277: APP_EXCEPTION.Raise_Exception;
278: ELSE
279: x_msg_data := FND_MESSAGE.Get;
280: END IF;
281:
281:
282: WHEN Row_Missing_Error THEN
283: ROLLBACK TO SAVEPOINT Update_Row;
284: x_return_status := 'E';
285: x_oracle_error := APP_EXCEPTION.Get_Code;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_NO_RECORD_INSERTED');
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
296:
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_token,
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:
482:
483: WHEN Language_Missing_Error THEN
484: ROLLBACK TO SAVEPOINT Add_Language;
485: x_return_status := 'E';
486: x_oracle_error := APP_EXCEPTION.Get_Code;
487: FND_MESSAGE.SET_NAME('GR',
488: 'GR_RECORD_NOT_FOUND');
489: FND_MESSAGE.SET_TOKEN('CODE',
490: l_msg_token,
489: FND_MESSAGE.SET_TOKEN('CODE',
490: l_msg_token,
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:
505: FND_MESSAGE.SET_TOKEN('TEXT',
506: l_msg_token,
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
510: ELSE
511: x_msg_data := FND_MESSAGE.Get;
512: END IF;
513:
593: FND_MESSAGE.SET_TOKEN('CODE',
594: l_msg_token,
595: FALSE);
596: IF FND_API.To_Boolean(p_called_by_form) THEN
597: APP_EXCEPTION.Raise_Exception;
598: ELSE
599: x_msg_data := FND_MESSAGE.Get;
600: END IF;
601:
604: X_return_status := 'E';
605: FND_MESSAGE.SET_NAME('FND',
606: 'FORM_RECORD_CHANGED');
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: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
608: APP_EXCEPTION.Raise_Exception;
609: ELSE
610: x_msg_data := FND_MESSAGE.Get;
611: END IF;
612: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'L';
615: x_oracle_error := APP_EXCEPTION.Get_Code;
616: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
611: END IF;
612: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
613: ROLLBACK TO SAVEPOINT Lock_Row;
614: x_return_status := 'L';
615: x_oracle_error := APP_EXCEPTION.Get_Code;
616: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
617: FND_MESSAGE.SET_NAME('GR',
618: 'GR_ROW_IS_LOCKED');
619: x_msg_data := FND_MESSAGE.Get;
630: FND_MESSAGE.SET_TOKEN('TEXT',
631: l_msg_token,
632: FALSE);
633: IF FND_API.To_Boolean(p_called_by_form) THEN
634: APP_EXCEPTION.Raise_Exception;
635: ELSE
636: x_msg_data := FND_MESSAGE.Get;
637: END IF;
638:
718: x_return_status := l_return_status;
719: x_oracle_error := l_oracle_error;
720: x_msg_data := l_msg_data;
721: IF FND_API.To_Boolean(p_called_by_form) THEN
722: APP_EXCEPTION.Raise_Exception;
723: ELSE
724: x_msg_data := FND_MESSAGE.Get;
725: END IF;
726:
726:
727: WHEN Row_Missing_Error THEN
728: ROLLBACK TO SAVEPOINT Delete_Row;
729: x_return_status := 'E';
730: x_oracle_error := APP_EXCEPTION.Get_Code;
731: FND_MESSAGE.SET_NAME('GR',
732: 'GR_RECORD_NOT_FOUND');
733: FND_MESSAGE.SET_TOKEN('CODE',
734: l_msg_token,
733: FND_MESSAGE.SET_TOKEN('CODE',
734: l_msg_token,
735: FALSE);
736: IF FND_API.To_Boolean(p_called_by_form) THEN
737: APP_EXCEPTION.Raise_Exception;
738: ELSE
739: x_msg_data := FND_MESSAGE.Get;
740: END IF;
741:
749: FND_MESSAGE.SET_TOKEN('TEXT',
750: l_msg_token,
751: FALSE);
752: IF FND_API.To_Boolean(p_called_by_form) THEN
753: APP_EXCEPTION.Raise_Exception;
754: ELSE
755: x_msg_data := FND_MESSAGE.Get;
756: END IF;
757:
807: FND_MESSAGE.SET_TOKEN('TEXT',
808: l_msg_token,
809: FALSE);
810: IF FND_API.To_Boolean(p_called_by_form) THEN
811: APP_EXCEPTION.Raise_Exception;
812: ELSE
813: x_msg_data := FND_MESSAGE.Get;
814: END IF;
815:
885:
886: WHEN Row_Missing_Error THEN
887: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
888: x_return_status := 'E';
889: x_oracle_error := APP_EXCEPTION.Get_Code;
890: FND_MESSAGE.SET_NAME('GR',
891: 'GR_RECORD_NOT_FOUND');
892: FND_MESSAGE.SET_TOKEN('CODE',
893: l_msg_token,
973: FND_MESSAGE.SET_TOKEN('CODE',
974: p_language,
975: FALSE);
976: IF FND_API.To_Boolean(p_called_by_form) THEN
977: APP_EXCEPTION.Raise_Exception;
978: ELSE
979: x_msg_data := FND_MESSAGE.Get;
980: END IF;
981:
989: FND_MESSAGE.SET_TOKEN('TEXT',
990: l_msg_data,
991: FALSE);
992: IF FND_API.To_Boolean(p_called_by_form) THEN
993: APP_EXCEPTION.Raise_Exception;
994: ELSE
995: x_msg_data := FND_MESSAGE.Get;
996: END IF;
997:
1049: FND_MESSAGE.SET_TOKEN('TEXT',
1050: l_msg_data,
1051: FALSE);
1052: IF FND_API.To_Boolean(p_called_by_form) THEN
1053: APP_EXCEPTION.Raise_Exception;
1054: END IF;
1055:
1056: END Check_Primary_Key;
1057: