125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);
128: IF FND_API.To_Boolean(p_called_by_form) THEN
129: APP_EXCEPTION.Raise_Exception;
130: ELSE
131: x_msg_data := FND_MESSAGE.Get;
132: END IF;
133:
134: WHEN Item_Exists_Error THEN
135: ROLLBACK TO SAVEPOINT Insert_Row;
136: l_msg_token := p_exposure_type_code || ' ' || p_language;
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: l_msg_token,
141: FND_MESSAGE.SET_TOKEN('CODE',
142: l_msg_token,
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:
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: l_msg_token := p_exposure_type_code || ' ' || p_language;
153: x_return_status := 'E';
154: x_oracle_error := APP_EXCEPTION.Get_Code;
155: FND_MESSAGE.SET_NAME('GR',
156: 'GR_NO_RECORD_INSERTED');
157: FND_MESSAGE.SET_TOKEN('CODE',
158: l_msg_token,
157: FND_MESSAGE.SET_TOKEN('CODE',
158: l_msg_token,
159: FALSE);
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:
174: FND_MESSAGE.SET_TOKEN('TEXT',
175: l_msg_token,
176: FALSE);
177: IF FND_API.To_Boolean(p_called_by_form) THEN
178: APP_EXCEPTION.Raise_Exception;
179: ELSE
180: x_msg_data := FND_MESSAGE.Get;
181: END IF;
182:
272: FND_MESSAGE.SET_TOKEN('TEXT',
273: l_msg_data,
274: FALSE);
275: IF FND_API.To_Boolean(p_called_by_form) THEN
276: APP_EXCEPTION.Raise_Exception;
277: ELSE
278: x_msg_data := FND_MESSAGE.Get;
279: END IF;
280:
280:
281: WHEN Row_Missing_Error THEN
282: ROLLBACK TO SAVEPOINT Update_Row;
283: x_return_status := 'E';
284: x_oracle_error := APP_EXCEPTION.Get_Code;
285: FND_MESSAGE.SET_NAME('GR',
286: 'GR_NO_RECORD_INSERTED');
287: FND_MESSAGE.SET_TOKEN('CODE',
288: l_msg_token,
287: FND_MESSAGE.SET_TOKEN('CODE',
288: l_msg_token,
289: FALSE);
290: IF FND_API.To_Boolean(p_called_by_form) THEN
291: APP_EXCEPTION.Raise_Exception;
292: ELSE
293: x_msg_data := FND_MESSAGE.Get;
294: END IF;
295:
303: FND_MESSAGE.SET_TOKEN('TEXT',
304: l_msg_token,
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
308: ELSE
309: x_msg_data := FND_MESSAGE.Get;
310: END IF;
311:
477:
478: WHEN Language_Missing_Error THEN
479: ROLLBACK TO SAVEPOINT Add_Language;
480: x_return_status := 'E';
481: x_oracle_error := APP_EXCEPTION.Get_Code;
482: FND_MESSAGE.SET_NAME('GR',
483: 'GR_RECORD_NOT_FOUND');
484: FND_MESSAGE.SET_TOKEN('CODE',
485: l_msg_token,
484: FND_MESSAGE.SET_TOKEN('CODE',
485: l_msg_token,
486: FALSE);
487: IF FND_API.To_Boolean(p_called_by_form) THEN
488: APP_EXCEPTION.Raise_Exception;
489: ELSE
490: x_msg_data := FND_MESSAGE.Get;
491: END IF;
492:
500: FND_MESSAGE.SET_TOKEN('TEXT',
501: l_msg_token,
502: FALSE);
503: IF FND_API.To_Boolean(p_called_by_form) THEN
504: APP_EXCEPTION.Raise_Exception;
505: ELSE
506: x_msg_data := FND_MESSAGE.Get;
507: END IF;
508:
588: FND_MESSAGE.SET_TOKEN('CODE',
589: l_msg_token,
590: FALSE);
591: IF FND_API.To_Boolean(p_called_by_form) THEN
592: APP_EXCEPTION.Raise_Exception;
593: ELSE
594: x_msg_data := FND_MESSAGE.Get;
595: END IF;
596:
599: X_return_status := 'E';
600: FND_MESSAGE.SET_NAME('FND',
601: 'FORM_RECORD_CHANGED');
602: IF FND_API.To_Boolean(p_called_by_form) THEN
603: APP_EXCEPTION.Raise_Exception;
604: ELSE
605: x_msg_data := FND_MESSAGE.Get;
606: END IF;
607: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
603: APP_EXCEPTION.Raise_Exception;
604: ELSE
605: x_msg_data := FND_MESSAGE.Get;
606: END IF;
607: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
608: ROLLBACK TO SAVEPOINT Lock_Row;
609: x_return_status := 'L';
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
606: END IF;
607: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
608: ROLLBACK TO SAVEPOINT Lock_Row;
609: x_return_status := 'L';
610: x_oracle_error := APP_EXCEPTION.Get_Code;
611: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
612: FND_MESSAGE.SET_NAME('GR',
613: 'GR_ROW_IS_LOCKED');
614: x_msg_data := FND_MESSAGE.Get;
624: FND_MESSAGE.SET_TOKEN('TEXT',
625: l_msg_token,
626: FALSE);
627: IF FND_API.To_Boolean(p_called_by_form) THEN
628: APP_EXCEPTION.Raise_Exception;
629: ELSE
630: x_msg_data := FND_MESSAGE.Get;
631: END IF;
632:
712: x_return_status := l_return_status;
713: x_oracle_error := l_oracle_error;
714: x_msg_data := l_msg_data;
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
717: END IF;
718:
719: WHEN Row_Missing_Error THEN
720: ROLLBACK TO SAVEPOINT Delete_Row;
718:
719: WHEN Row_Missing_Error THEN
720: ROLLBACK TO SAVEPOINT Delete_Row;
721: x_return_status := 'E';
722: x_oracle_error := APP_EXCEPTION.Get_Code;
723: FND_MESSAGE.SET_NAME('GR',
724: 'GR_RECORD_NOT_FOUND');
725: FND_MESSAGE.SET_TOKEN('CODE',
726: l_msg_token,
725: FND_MESSAGE.SET_TOKEN('CODE',
726: l_msg_token,
727: FALSE);
728: IF FND_API.To_Boolean(p_called_by_form) THEN
729: APP_EXCEPTION.Raise_Exception;
730: ELSE
731: x_msg_data := FND_MESSAGE.Get;
732: END IF;
733:
741: FND_MESSAGE.SET_TOKEN('TEXT',
742: l_msg_token,
743: FALSE);
744: IF FND_API.To_Boolean(p_called_by_form) THEN
745: APP_EXCEPTION.Raise_Exception;
746: ELSE
747: x_msg_data := FND_MESSAGE.Get;
748: END IF;
749:
799: FND_MESSAGE.SET_TOKEN('TEXT',
800: l_msg_token,
801: FALSE);
802: IF FND_API.To_Boolean(p_called_by_form) THEN
803: APP_EXCEPTION.Raise_Exception;
804: ELSE
805: x_msg_data := FND_MESSAGE.Get;
806: END IF;
807:
854: FETCH c_get_language INTO LangRecord;
855: IF c_get_language%NOTFOUND THEN
856: l_msg_token := l_language_code;
857: x_return_status := 'E';
858: x_oracle_error := APP_EXCEPTION.Get_Code;
859: FND_MESSAGE.SET_NAME('GR',
860: 'GR_RECORD_NOT_FOUND');
861: FND_MESSAGE.SET_TOKEN('CODE',
862: l_msg_token,
870: FETCH c_get_language INTO LangRecord;
871: IF c_get_language%NOTFOUND THEN
872: l_msg_token := l_language_code;
873: x_return_status := 'E';
874: x_oracle_error := APP_EXCEPTION.Get_Code;
875: FND_MESSAGE.SET_NAME('GR',
876: 'GR_RECORD_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN('CODE',
878: l_msg_token,
964: FND_MESSAGE.SET_TOKEN('CODE',
965: p_language,
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
969: ELSE
970: x_msg_data := FND_MESSAGE.Get;
971: END IF;
972:
980: FND_MESSAGE.SET_TOKEN('TEXT',
981: l_msg_data,
982: FALSE);
983: IF FND_API.To_Boolean(p_called_by_form) THEN
984: APP_EXCEPTION.Raise_Exception;
985: ELSE
986: x_msg_data := FND_MESSAGE.Get;
987: END IF;
988:
1039: FND_MESSAGE.SET_TOKEN('TEXT',
1040: l_msg_data,
1041: FALSE);
1042: IF FND_API.To_Boolean(p_called_by_form) THEN
1043: APP_EXCEPTION.Raise_Exception;
1044: END IF;
1045:
1046: END Check_Primary_Key;
1047: