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:
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: x_return_status := 'E';
138: x_oracle_error := APP_EXCEPTION.Get_Code;
139: FND_MESSAGE.SET_NAME('GR',
140: 'GR_RECORD_EXISTS');
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_european_index_number,
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_european_index_number,
143: FALSE);
144: IF FND_API.To_Boolean(p_called_by_form) THEN
145: APP_EXCEPTION.Raise_Exception;
146: ELSE
147: x_msg_data := FND_MESSAGE.Get;
148: END IF;
149:
149:
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: x_return_status := 'E';
153: x_oracle_error := APP_EXCEPTION.Get_Code;
154: FND_MESSAGE.SET_NAME('GR',
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_european_index_number,
157: p_european_index_number,
158: FALSE);
159: x_msg_data := FND_MESSAGE.Get;
160: IF FND_API.To_Boolean(p_called_by_form) THEN
161: APP_EXCEPTION.Raise_Exception;
162: ELSE
163: x_msg_data := FND_MESSAGE.Get;
164: END IF;
165:
173: FND_MESSAGE.SET_TOKEN('TEXT',
174: l_msg_data,
175: FALSE);
176: IF FND_API.To_Boolean(p_called_by_form) THEN
177: APP_EXCEPTION.Raise_Exception;
178: ELSE
179: x_msg_data := FND_MESSAGE.Get;
180: END IF;
181:
269: FND_MESSAGE.SET_TOKEN('TEXT',
270: l_msg_data,
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
274: ELSE
275: x_msg_data := FND_MESSAGE.Get;
276: END IF;
277:
277:
278: WHEN Row_Missing_Error THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'E';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_NO_RECORD_INSERTED');
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_european_index_number,
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_european_index_number,
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
289: ELSE
290: x_msg_data := FND_MESSAGE.Get;
291: END IF;
292:
300: FND_MESSAGE.SET_TOKEN('TEXT',
301: l_msg_data,
302: FALSE);
303: IF FND_API.To_Boolean(p_called_by_form) THEN
304: APP_EXCEPTION.Raise_Exception;
305: ELSE
306: x_msg_data := FND_MESSAGE.Get;
307: END IF;
308:
474:
475: WHEN Language_Missing_Error THEN
476: ROLLBACK TO SAVEPOINT Add_Language;
477: x_return_status := 'E';
478: x_oracle_error := APP_EXCEPTION.Get_Code;
479: FND_MESSAGE.SET_NAME('GR',
480: 'GR_RECORD_NOT_FOUND');
481: FND_MESSAGE.SET_TOKEN('CODE',
482: l_msg_token,
481: FND_MESSAGE.SET_TOKEN('CODE',
482: l_msg_token,
483: FALSE);
484: IF FND_API.To_Boolean(p_called_by_form) THEN
485: APP_EXCEPTION.Raise_Exception;
486: ELSE
487: x_msg_data := FND_MESSAGE.Get;
488: END IF;
489:
497: FND_MESSAGE.SET_TOKEN('TEXT',
498: l_msg_token,
499: FALSE);
500: IF FND_API.To_Boolean(p_called_by_form) THEN
501: APP_EXCEPTION.Raise_Exception;
502: ELSE
503: x_msg_data := FND_MESSAGE.Get;
504: END IF;
505:
585: FND_MESSAGE.SET_TOKEN('CODE',
586: p_european_index_number,
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
590: ELSE
591: x_msg_data := FND_MESSAGE.Get;
592: END IF;
593: WHEN RECORD_CHANGED_ERROR THEN
595: X_return_status := 'E';
596: FND_MESSAGE.SET_NAME('FND',
597: 'FORM_RECORD_CHANGED');
598: IF FND_API.To_Boolean(p_called_by_form) THEN
599: APP_EXCEPTION.Raise_Exception;
600: ELSE
601: x_msg_data := FND_MESSAGE.Get;
602: END IF;
603: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
599: APP_EXCEPTION.Raise_Exception;
600: ELSE
601: x_msg_data := FND_MESSAGE.Get;
602: END IF;
603: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
604: ROLLBACK TO SAVEPOINT Lock_Row;
605: x_return_status := 'L';
606: x_oracle_error := APP_EXCEPTION.Get_Code;
607: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
602: END IF;
603: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
604: ROLLBACK TO SAVEPOINT Lock_Row;
605: x_return_status := 'L';
606: x_oracle_error := APP_EXCEPTION.Get_Code;
607: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
608: FND_MESSAGE.SET_NAME('GR',
609: 'GR_ROW_IS_LOCKED');
610: x_msg_data := FND_MESSAGE.Get;
619: FND_MESSAGE.SET_TOKEN('TEXT',
620: l_msg_data,
621: FALSE);
622: IF FND_API.To_Boolean(p_called_by_form) THEN
623: APP_EXCEPTION.Raise_Exception;
624: ELSE
625: x_msg_data := FND_MESSAGE.Get;
626: END IF;
627:
690: ROLLBACK TO SAVEPOINT Delete_Row;
691: x_return_status := l_return_status;
692: x_oracle_error := l_oracle_error;
693: IF FND_API.To_Boolean(p_called_by_form) THEN
694: APP_EXCEPTION.Raise_Exception;
695: ELSE
696: x_msg_data := FND_MESSAGE.Get;
697: END IF;
698:
698:
699: WHEN Row_Missing_Error THEN
700: ROLLBACK TO SAVEPOINT Delete_Row;
701: x_return_status := 'E';
702: x_oracle_error := APP_EXCEPTION.Get_Code;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_RECORD_NOT_FOUND');
705: FND_MESSAGE.SET_TOKEN('CODE',
706: p_european_index_number,
705: FND_MESSAGE.SET_TOKEN('CODE',
706: p_european_index_number,
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
710: ELSE
711: x_msg_data := FND_MESSAGE.Get;
712: END IF;
713:
721: FND_MESSAGE.SET_TOKEN('TEXT',
722: l_msg_data,
723: FALSE);
724: IF FND_API.To_Boolean(p_called_by_form) THEN
725: APP_EXCEPTION.Raise_Exception;
726: ELSE
727: x_msg_data := FND_MESSAGE.Get;
728: END IF;
729:
779: FND_MESSAGE.SET_TOKEN('TEXT',
780: l_msg_token,
781: FALSE);
782: IF FND_API.To_Boolean(p_called_by_form) THEN
783: APP_EXCEPTION.Raise_Exception;
784: ELSE
785: x_msg_data := FND_MESSAGE.Get;
786: END IF;
787:
836: FETCH c_get_language INTO LangRecord;
837: IF c_get_language%NOTFOUND THEN
838: l_msg_token := l_language_code;
839: x_return_status := 'E';
840: x_oracle_error := APP_EXCEPTION.Get_Code;
841: FND_MESSAGE.SET_NAME('GR',
842: 'GR_RECORD_NOT_FOUND');
843: FND_MESSAGE.SET_TOKEN('CODE',
844: l_msg_token,
852: FETCH c_get_language INTO LangRecord;
853: IF c_get_language%NOTFOUND THEN
854: l_msg_token := l_language_code;
855: x_return_status := 'E';
856: x_oracle_error := APP_EXCEPTION.Get_Code;
857: FND_MESSAGE.SET_NAME('GR',
858: 'GR_RECORD_NOT_FOUND');
859: FND_MESSAGE.SET_TOKEN('CODE',
860: l_msg_token,
943: FND_MESSAGE.SET_TOKEN('CODE',
944: p_language,
945: FALSE);
946: IF FND_API.To_Boolean(p_called_by_form) THEN
947: APP_EXCEPTION.Raise_Exception;
948: ELSE
949: x_msg_data := FND_MESSAGE.Get;
950: END IF;
951:
959: FND_MESSAGE.SET_TOKEN('TEXT',
960: l_msg_data,
961: FALSE);
962: IF FND_API.To_Boolean(p_called_by_form) THEN
963: APP_EXCEPTION.Raise_Exception;
964: ELSE
965: x_msg_data := FND_MESSAGE.Get;
966: END IF;
967:
1008: FND_MESSAGE.SET_TOKEN('TEXT',
1009: l_msg_data,
1010: FALSE);
1011: IF FND_API.To_Boolean(p_called_by_form) THEN
1012: APP_EXCEPTION.Raise_Exception;
1013: END IF;
1014:
1015: END Check_Primary_Key;
1016: