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_toxic_route_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_toxic_route_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:
481:
482: WHEN Language_Missing_Error THEN
483: ROLLBACK TO SAVEPOINT Add_Language;
484: x_return_status := 'E';
485: x_oracle_error := APP_EXCEPTION.Get_Code;
486: FND_MESSAGE.SET_NAME('GR',
487: 'GR_RECORD_NOT_FOUND');
488: FND_MESSAGE.SET_TOKEN('CODE',
489: l_msg_token,
488: FND_MESSAGE.SET_TOKEN('CODE',
489: l_msg_token,
490: FALSE);
491: IF FND_API.To_Boolean(p_called_by_form) THEN
492: APP_EXCEPTION.Raise_Exception;
493: ELSE
494: x_msg_data := FND_MESSAGE.Get;
495: END IF;
496:
504: FND_MESSAGE.SET_TOKEN('TEXT',
505: l_msg_token,
506: FALSE);
507: IF FND_API.To_Boolean(p_called_by_form) THEN
508: APP_EXCEPTION.Raise_Exception;
509: ELSE
510: x_msg_data := FND_MESSAGE.Get;
511: END IF;
512:
592: FND_MESSAGE.SET_TOKEN('CODE',
593: l_msg_token,
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
597: ELSE
598: x_msg_data := FND_MESSAGE.Get;
599: END IF;
600:
603: X_return_status := 'E';
604: FND_MESSAGE.SET_NAME('FND',
605: 'FORM_RECORD_CHANGED');
606: IF FND_API.To_Boolean(p_called_by_form) THEN
607: APP_EXCEPTION.Raise_Exception;
608: ELSE
609: x_msg_data := FND_MESSAGE.Get;
610: END IF;
611: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
607: APP_EXCEPTION.Raise_Exception;
608: ELSE
609: x_msg_data := FND_MESSAGE.Get;
610: END IF;
611: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
612: ROLLBACK TO SAVEPOINT Lock_Row;
613: x_return_status := 'L';
614: x_oracle_error := APP_EXCEPTION.Get_Code;
615: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
610: END IF;
611: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
612: ROLLBACK TO SAVEPOINT Lock_Row;
613: x_return_status := 'L';
614: x_oracle_error := APP_EXCEPTION.Get_Code;
615: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
616: FND_MESSAGE.SET_NAME('GR',
617: 'GR_ROW_IS_LOCKED');
618: x_msg_data := FND_MESSAGE.Get;
628: FND_MESSAGE.SET_TOKEN('TEXT',
629: l_msg_token,
630: FALSE);
631: IF FND_API.To_Boolean(p_called_by_form) THEN
632: APP_EXCEPTION.Raise_Exception;
633: ELSE
634: x_msg_data := FND_MESSAGE.Get;
635: END IF;
636:
715: ROLLBACK TO SAVEPOINT Delete_Row;
716: x_return_status := l_return_status;
717: x_oracle_error := l_oracle_error;
718: IF FND_API.To_Boolean(p_called_by_form) THEN
719: APP_EXCEPTION.Raise_Exception;
720: ELSE
721: x_msg_data := FND_MESSAGE.Get;
722: END IF;
723:
723:
724: WHEN Row_Missing_Error THEN
725: ROLLBACK TO SAVEPOINT Delete_Row;
726: x_return_status := 'E';
727: x_oracle_error := APP_EXCEPTION.Get_Code;
728: FND_MESSAGE.SET_NAME('GR',
729: 'GR_RECORD_NOT_FOUND');
730: FND_MESSAGE.SET_TOKEN('CODE',
731: l_msg_token,
730: FND_MESSAGE.SET_TOKEN('CODE',
731: l_msg_token,
732: FALSE);
733: IF FND_API.To_Boolean(p_called_by_form) THEN
734: APP_EXCEPTION.Raise_Exception;
735: ELSE
736: x_msg_data := FND_MESSAGE.Get;
737: END IF;
738:
746: FND_MESSAGE.SET_TOKEN('TEXT',
747: l_msg_token,
748: FALSE);
749: IF FND_API.To_Boolean(p_called_by_form) THEN
750: APP_EXCEPTION.Raise_Exception;
751: ELSE
752: x_msg_data := FND_MESSAGE.Get;
753: END IF;
754:
804: FND_MESSAGE.SET_TOKEN('TEXT',
805: l_msg_token,
806: FALSE);
807: IF FND_API.To_Boolean(p_called_by_form) THEN
808: APP_EXCEPTION.Raise_Exception;
809: ELSE
810: x_msg_data := FND_MESSAGE.Get;
811: END IF;
812:
859: FETCH c_get_language INTO LangRecord;
860: IF c_get_language%NOTFOUND THEN
861: l_msg_token := l_language_code;
862: x_return_status := 'E';
863: x_oracle_error := APP_EXCEPTION.Get_Code;
864: FND_MESSAGE.SET_NAME('GR',
865: 'GR_RECORD_NOT_FOUND');
866: FND_MESSAGE.SET_TOKEN('CODE',
867: l_msg_token,
875: FETCH c_get_language INTO LangRecord;
876: IF c_get_language%NOTFOUND THEN
877: l_msg_token := l_language_code;
878: x_return_status := 'E';
879: x_oracle_error := APP_EXCEPTION.Get_Code;
880: FND_MESSAGE.SET_NAME('GR',
881: 'GR_RECORD_NOT_FOUND');
882: FND_MESSAGE.SET_TOKEN('CODE',
883: l_msg_token,
971: FND_MESSAGE.SET_TOKEN('CODE',
972: p_language,
973: FALSE);
974: IF FND_API.To_Boolean(p_called_by_form) THEN
975: APP_EXCEPTION.Raise_Exception;
976: ELSE
977: x_msg_data := FND_MESSAGE.Get;
978: END IF;
979:
987: FND_MESSAGE.SET_TOKEN('TEXT',
988: l_msg_data,
989: FALSE);
990: IF FND_API.To_Boolean(p_called_by_form) THEN
991: APP_EXCEPTION.Raise_Exception;
992: ELSE
993: x_msg_data := FND_MESSAGE.Get;
994: END IF;
995:
1047: FND_MESSAGE.SET_TOKEN('TEXT',
1048: l_msg_data,
1049: FALSE);
1050: IF FND_API.To_Boolean(p_called_by_form) THEN
1051: APP_EXCEPTION.Raise_Exception;
1052: END IF;
1053:
1054: END Check_Primary_Key;
1055: