120: FND_MESSAGE.SET_TOKEN('TEXT',
121: l_msg_data,
122: FALSE);
123: IF FND_API.To_Boolean(p_called_by_form) THEN
124: APP_EXCEPTION.Raise_Exception;
125: ELSE
126: x_msg_data := FND_MESSAGE.Get;
127: END IF;
128:
128:
129: WHEN Item_Exists_Error THEN
130: ROLLBACK TO SAVEPOINT Insert_Row;
131: x_return_status := 'E';
132: x_oracle_error := APP_EXCEPTION.Get_Code;
133: FND_MESSAGE.SET_NAME('GR',
134: 'GR_RECORD_EXISTS');
135: FND_MESSAGE.SET_TOKEN('CODE',
136: p_hazard_classification_code,
135: FND_MESSAGE.SET_TOKEN('CODE',
136: p_hazard_classification_code,
137: FALSE);
138: IF FND_API.To_Boolean(p_called_by_form) THEN
139: APP_EXCEPTION.Raise_Exception;
140: ELSE
141: x_msg_data := FND_MESSAGE.Get;
142: END IF;
143:
143:
144: WHEN Row_Missing_Error THEN
145: ROLLBACK TO SAVEPOINT Insert_Row;
146: x_return_status := 'E';
147: x_oracle_error := APP_EXCEPTION.Get_Code;
148: FND_MESSAGE.SET_NAME('GR',
149: 'GR_NO_RECORD_INSERTED');
150: FND_MESSAGE.SET_TOKEN('CODE',
151: p_hazard_classification_code,
150: FND_MESSAGE.SET_TOKEN('CODE',
151: p_hazard_classification_code,
152: FALSE);
153: IF FND_API.To_Boolean(p_called_by_form) THEN
154: APP_EXCEPTION.Raise_Exception;
155: ELSE
156: x_msg_data := FND_MESSAGE.Get;
157: END IF;
158:
158:
159: WHEN OTHERS THEN
160: ROLLBACK TO SAVEPOINT Insert_Row;
161: x_return_status := 'U';
162: x_oracle_error := APP_EXCEPTION.Get_Code;
163: l_msg_data := APP_EXCEPTION.Get_Text;
164: FND_MESSAGE.SET_NAME('GR',
165: 'GR_UNEXPECTED_ERROR');
166: FND_MESSAGE.SET_TOKEN('TEXT',
159: WHEN OTHERS THEN
160: ROLLBACK TO SAVEPOINT Insert_Row;
161: x_return_status := 'U';
162: x_oracle_error := APP_EXCEPTION.Get_Code;
163: l_msg_data := APP_EXCEPTION.Get_Text;
164: FND_MESSAGE.SET_NAME('GR',
165: 'GR_UNEXPECTED_ERROR');
166: FND_MESSAGE.SET_TOKEN('TEXT',
167: l_msg_data,
166: FND_MESSAGE.SET_TOKEN('TEXT',
167: l_msg_data,
168: FALSE);
169: IF FND_API.To_Boolean(p_called_by_form) THEN
170: APP_EXCEPTION.Raise_Exception;
171: ELSE
172: x_msg_data := FND_MESSAGE.Get;
173: END IF;
174:
259: FND_MESSAGE.SET_TOKEN('TEXT',
260: l_msg_data,
261: FALSE);
262: IF FND_API.To_Boolean(p_called_by_form) THEN
263: APP_EXCEPTION.Raise_Exception;
264: ELSE
265: x_msg_data := FND_MESSAGE.Get;
266: END IF;
267:
267:
268: WHEN Row_Missing_Error THEN
269: ROLLBACK TO SAVEPOINT Update_Row;
270: x_return_status := 'E';
271: x_oracle_error := APP_EXCEPTION.Get_Code;
272: FND_MESSAGE.SET_NAME('GR',
273: 'GR_NO_RECORD_INSERTED');
274: FND_MESSAGE.SET_TOKEN('CODE',
275: p_hazard_group_code,
274: FND_MESSAGE.SET_TOKEN('CODE',
275: p_hazard_group_code,
276: FALSE);
277: IF FND_API.To_Boolean(p_called_by_form) THEN
278: APP_EXCEPTION.Raise_Exception;
279: ELSE
280: x_msg_data := FND_MESSAGE.Get;
281: END IF;
282:
282:
283: WHEN OTHERS THEN
284: ROLLBACK TO SAVEPOINT Update_Row;
285: x_return_status := 'U';
286: x_oracle_error := APP_EXCEPTION.Get_Code;
287: l_msg_data := APP_EXCEPTION.Get_Text;
288: FND_MESSAGE.SET_NAME('GR',
289: 'GR_UNEXPECTED_ERROR');
290: FND_MESSAGE.SET_TOKEN('TEXT',
283: WHEN OTHERS THEN
284: ROLLBACK TO SAVEPOINT Update_Row;
285: x_return_status := 'U';
286: x_oracle_error := APP_EXCEPTION.Get_Code;
287: l_msg_data := APP_EXCEPTION.Get_Text;
288: FND_MESSAGE.SET_NAME('GR',
289: 'GR_UNEXPECTED_ERROR');
290: FND_MESSAGE.SET_TOKEN('TEXT',
291: l_msg_data,
290: FND_MESSAGE.SET_TOKEN('TEXT',
291: l_msg_data,
292: FALSE);
293: IF FND_API.To_Boolean(p_called_by_form) THEN
294: APP_EXCEPTION.Raise_Exception;
295: ELSE
296: x_msg_data := FND_MESSAGE.Get;
297: END IF;
298:
376: FND_MESSAGE.SET_TOKEN('CODE',
377: p_hazard_classification_code,
378: FALSE);
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
381: ELSE
382: x_msg_data := FND_MESSAGE.Get;
383: END IF;
384:
387: X_return_status := 'E';
388: FND_MESSAGE.SET_NAME('FND',
389: 'FORM_RECORD_CHANGED');
390: IF FND_API.To_Boolean(p_called_by_form) THEN
391: APP_EXCEPTION.Raise_Exception;
392: ELSE
393: x_msg_data := FND_MESSAGE.Get;
394: END IF;
395: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
391: APP_EXCEPTION.Raise_Exception;
392: ELSE
393: x_msg_data := FND_MESSAGE.Get;
394: END IF;
395: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
396: ROLLBACK TO SAVEPOINT Lock_Row;
397: x_return_status := 'L';
398: x_oracle_error := APP_EXCEPTION.Get_Code;
399: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
394: END IF;
395: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
396: ROLLBACK TO SAVEPOINT Lock_Row;
397: x_return_status := 'L';
398: x_oracle_error := APP_EXCEPTION.Get_Code;
399: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_ROW_IS_LOCKED');
402: x_msg_data := FND_MESSAGE.Get;
405:
406: WHEN OTHERS THEN
407: ROLLBACK TO SAVEPOINT Lock_Row;
408: x_return_status := 'U';
409: x_oracle_error := APP_EXCEPTION.Get_Code;
410: l_msg_data := APP_EXCEPTION.Get_Text;
411: FND_MESSAGE.SET_NAME('GR',
412: 'GR_UNEXPECTED_ERROR');
413: FND_MESSAGE.SET_TOKEN('TEXT',
406: WHEN OTHERS THEN
407: ROLLBACK TO SAVEPOINT Lock_Row;
408: x_return_status := 'U';
409: x_oracle_error := APP_EXCEPTION.Get_Code;
410: l_msg_data := APP_EXCEPTION.Get_Text;
411: FND_MESSAGE.SET_NAME('GR',
412: 'GR_UNEXPECTED_ERROR');
413: FND_MESSAGE.SET_TOKEN('TEXT',
414: l_msg_data,
413: FND_MESSAGE.SET_TOKEN('TEXT',
414: l_msg_data,
415: FALSE);
416: IF FND_API.To_Boolean(p_called_by_form) THEN
417: APP_EXCEPTION.Raise_Exception;
418: ELSE
419: x_msg_data := FND_MESSAGE.Get;
420: END IF;
421:
493: ROLLBACK TO SAVEPOINT Delete_Row;
494: x_return_status := l_return_status;
495: x_oracle_error := l_oracle_error;
496: IF FND_API.To_Boolean(p_called_by_form) THEN
497: APP_EXCEPTION.Raise_Exception;
498: ELSE
499: x_msg_data := FND_MESSAGE.Get;
500: END IF;
501:
501:
502: WHEN Row_Missing_Error THEN
503: ROLLBACK TO SAVEPOINT Delete_Row;
504: x_return_status := 'E';
505: x_oracle_error := APP_EXCEPTION.Get_Code;
506: FND_MESSAGE.SET_NAME('GR',
507: 'GR_RECORD_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('CODE',
509: p_hazard_classification_code,
508: FND_MESSAGE.SET_TOKEN('CODE',
509: p_hazard_classification_code,
510: FALSE);
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;
513: ELSE
514: x_msg_data := FND_MESSAGE.Get;
515: END IF;
516:
516:
517: WHEN OTHERS THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: l_msg_data := APP_EXCEPTION.Get_Text;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_UNEXPECTED_ERROR');
517: WHEN OTHERS THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: l_msg_data := APP_EXCEPTION.Get_Text;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_UNEXPECTED_ERROR');
525: FND_MESSAGE.SET_TOKEN('TEXT',
518: ROLLBACK TO SAVEPOINT Delete_Row;
519: x_return_status := 'U';
520: x_oracle_error := APP_EXCEPTION.Get_Code;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: l_msg_data := APP_EXCEPTION.Get_Text;
523: FND_MESSAGE.SET_NAME('GR',
524: 'GR_UNEXPECTED_ERROR');
525: FND_MESSAGE.SET_TOKEN('TEXT',
526: l_msg_data,
525: FND_MESSAGE.SET_TOKEN('TEXT',
526: l_msg_data,
527: FALSE);
528: IF FND_API.To_Boolean(p_called_by_form) THEN
529: APP_EXCEPTION.Raise_Exception;
530: ELSE
531: x_msg_data := FND_MESSAGE.Get;
532: END IF;
533:
593:
594: WHEN OTHERS THEN
595: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
596: x_return_status := 'U';
597: x_oracle_error := APP_EXCEPTION.Get_Code;
598: l_msg_data := APP_EXCEPTION.Get_Text;
599: FND_MESSAGE.SET_NAME('GR',
600: 'GR_UNEXPECTED_ERROR');
601: FND_MESSAGE.SET_TOKEN('TEXT',
594: WHEN OTHERS THEN
595: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
596: x_return_status := 'U';
597: x_oracle_error := APP_EXCEPTION.Get_Code;
598: l_msg_data := APP_EXCEPTION.Get_Text;
599: FND_MESSAGE.SET_NAME('GR',
600: 'GR_UNEXPECTED_ERROR');
601: FND_MESSAGE.SET_TOKEN('TEXT',
602: l_msg_data,
715:
716: WHEN OTHERS THEN
717: ROLLBACK TO SAVEPOINT Check_Integrity;
718: x_return_status := 'U';
719: x_oracle_error := APP_EXCEPTION.Get_Code;
720: l_msg_data := APP_EXCEPTION.Get_Text;
721: FND_MESSAGE.SET_NAME('GR',
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
716: WHEN OTHERS THEN
717: ROLLBACK TO SAVEPOINT Check_Integrity;
718: x_return_status := 'U';
719: x_oracle_error := APP_EXCEPTION.Get_Code;
720: l_msg_data := APP_EXCEPTION.Get_Text;
721: FND_MESSAGE.SET_NAME('GR',
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_data,
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_data,
725: FALSE);
726: IF FND_API.To_Boolean(p_called_by_form) THEN
727: APP_EXCEPTION.Raise_Exception;
728: ELSE
729: x_msg_data := FND_MESSAGE.Get;
730: END IF;
731:
771:
772: EXCEPTION
773:
774: WHEN Others THEN
775: l_msg_data := APP_EXCEPTION.Get_Text;
776: FND_MESSAGE.SET_NAME('GR',
777: 'GR_UNEXPECTED_ERROR');
778: FND_MESSAGE.SET_TOKEN('TEXT',
779: l_msg_data,
778: FND_MESSAGE.SET_TOKEN('TEXT',
779: l_msg_data,
780: FALSE);
781: IF FND_API.To_Boolean(p_called_by_form) THEN
782: APP_EXCEPTION.Raise_Exception;
783: END IF;
784:
785: END Check_Primary_Key;
786: