116: FND_MESSAGE.SET_TOKEN('TEXT',
117: l_msg_data,
118: FALSE);
119: IF FND_API.To_Boolean(p_called_by_form) THEN
120: APP_EXCEPTION.Raise_Exception;
121: ELSE
122: x_msg_data := FND_MESSAGE.Get;
123: END IF;
124:
124:
125: WHEN Item_Exists_Error THEN
126: ROLLBACK TO SAVEPOINT Insert_Row;
127: x_return_status := 'E';
128: x_oracle_error := APP_EXCEPTION.Get_Code;
129: FND_MESSAGE.SET_NAME('GR',
130: 'GR_RECORD_EXISTS');
131: FND_MESSAGE.SET_TOKEN('CODE',
132: p_hazard_group_code,
131: FND_MESSAGE.SET_TOKEN('CODE',
132: p_hazard_group_code,
133: FALSE);
134: IF FND_API.To_Boolean(p_called_by_form) THEN
135: APP_EXCEPTION.Raise_Exception;
136: ELSE
137: x_msg_data := FND_MESSAGE.Get;
138: END IF;
139:
139:
140: WHEN Row_Missing_Error THEN
141: ROLLBACK TO SAVEPOINT Insert_Row;
142: x_return_status := 'E';
143: x_oracle_error := APP_EXCEPTION.Get_Code;
144: FND_MESSAGE.SET_NAME('GR',
145: 'GR_NO_RECORD_INSERTED');
146: FND_MESSAGE.SET_TOKEN('CODE',
147: p_hazard_group_code,
146: FND_MESSAGE.SET_TOKEN('CODE',
147: p_hazard_group_code,
148: FALSE);
149: IF FND_API.To_Boolean(p_called_by_form) THEN
150: APP_EXCEPTION.Raise_Exception;
151: ELSE
152: x_msg_data := FND_MESSAGE.Get;
153: END IF;
154:
154:
155: WHEN OTHERS THEN
156: ROLLBACK TO SAVEPOINT Insert_Row;
157: x_return_status := 'U';
158: x_oracle_error := APP_EXCEPTION.Get_Code;
159: l_msg_data := APP_EXCEPTION.Get_Text;
160: FND_MESSAGE.SET_NAME('GR',
161: 'GR_UNEXPECTED_ERROR');
162: FND_MESSAGE.SET_TOKEN('TEXT',
155: WHEN OTHERS THEN
156: ROLLBACK TO SAVEPOINT Insert_Row;
157: x_return_status := 'U';
158: x_oracle_error := APP_EXCEPTION.Get_Code;
159: l_msg_data := APP_EXCEPTION.Get_Text;
160: FND_MESSAGE.SET_NAME('GR',
161: 'GR_UNEXPECTED_ERROR');
162: FND_MESSAGE.SET_TOKEN('TEXT',
163: l_msg_data,
162: FND_MESSAGE.SET_TOKEN('TEXT',
163: l_msg_data,
164: FALSE);
165: IF FND_API.To_Boolean(p_called_by_form) THEN
166: APP_EXCEPTION.Raise_Exception;
167: ELSE
168: x_msg_data := FND_MESSAGE.Get;
169: END IF;
170:
252: FND_MESSAGE.SET_TOKEN('TEXT',
253: l_msg_data,
254: FALSE);
255: IF FND_API.To_Boolean(p_called_by_form) THEN
256: APP_EXCEPTION.Raise_Exception;
257: ELSE
258: x_msg_data := FND_MESSAGE.Get;
259: END IF;
260:
260:
261: WHEN Row_Missing_Error THEN
262: ROLLBACK TO SAVEPOINT Update_Row;
263: x_return_status := 'E';
264: x_oracle_error := APP_EXCEPTION.Get_Code;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_NO_RECORD_INSERTED');
267: FND_MESSAGE.SET_TOKEN('CODE',
268: p_hazard_group_code,
267: FND_MESSAGE.SET_TOKEN('CODE',
268: p_hazard_group_code,
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
272: ELSE
273: x_msg_data := FND_MESSAGE.Get;
274: END IF;
275:
275:
276: WHEN OTHERS THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
278: x_return_status := 'U';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: l_msg_data := APP_EXCEPTION.Get_Text;
281: FND_MESSAGE.SET_NAME('GR',
282: 'GR_UNEXPECTED_ERROR');
283: FND_MESSAGE.SET_TOKEN('TEXT',
276: WHEN OTHERS THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
278: x_return_status := 'U';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: l_msg_data := APP_EXCEPTION.Get_Text;
281: FND_MESSAGE.SET_NAME('GR',
282: 'GR_UNEXPECTED_ERROR');
283: FND_MESSAGE.SET_TOKEN('TEXT',
284: l_msg_data,
283: FND_MESSAGE.SET_TOKEN('TEXT',
284: l_msg_data,
285: FALSE);
286: IF FND_API.To_Boolean(p_called_by_form) THEN
287: APP_EXCEPTION.Raise_Exception;
288: ELSE
289: x_msg_data := FND_MESSAGE.Get;
290: END IF;
291:
364: FND_MESSAGE.SET_TOKEN('CODE',
365: p_hazard_group_code,
366: FALSE);
367: IF FND_API.To_Boolean(p_called_by_form) THEN
368: APP_EXCEPTION.Raise_Exception;
369: ELSE
370: x_msg_data := FND_MESSAGE.Get;
371: END IF;
372:
372:
373: WHEN Row_Already_Locked_Error THEN
374: ROLLBACK TO SAVEPOINT Lock_Row;
375: x_return_status := 'E';
376: x_oracle_error := APP_EXCEPTION.Get_Code;
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ROW_IS_LOCKED');
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
376: x_oracle_error := APP_EXCEPTION.Get_Code;
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ROW_IS_LOCKED');
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:
384:
385: WHEN OTHERS THEN
386: ROLLBACK TO SAVEPOINT Lock_Row;
387: x_return_status := 'U';
388: x_oracle_error := APP_EXCEPTION.Get_Code;
389: l_msg_data := APP_EXCEPTION.Get_Text;
390: FND_MESSAGE.SET_NAME('GR',
391: 'GR_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('TEXT',
385: WHEN OTHERS THEN
386: ROLLBACK TO SAVEPOINT Lock_Row;
387: x_return_status := 'U';
388: x_oracle_error := APP_EXCEPTION.Get_Code;
389: l_msg_data := APP_EXCEPTION.Get_Text;
390: FND_MESSAGE.SET_NAME('GR',
391: 'GR_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('TEXT',
393: l_msg_data,
392: FND_MESSAGE.SET_TOKEN('TEXT',
393: l_msg_data,
394: FALSE);
395: IF FND_API.To_Boolean(p_called_by_form) THEN
396: APP_EXCEPTION.Raise_Exception;
397: ELSE
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
400:
470: ROLLBACK TO SAVEPOINT Delete_Row;
471: x_return_status := l_return_status;
472: x_oracle_error := l_oracle_error;
473: IF FND_API.To_Boolean(p_called_by_form) THEN
474: APP_EXCEPTION.Raise_Exception;
475: ELSE
476: x_msg_data := FND_MESSAGE.Get;
477: END IF;
478:
478:
479: WHEN Row_Missing_Error THEN
480: ROLLBACK TO SAVEPOINT Delete_Row;
481: x_return_status := 'E';
482: x_oracle_error := APP_EXCEPTION.Get_Code;
483: FND_MESSAGE.SET_NAME('GR',
484: 'GR_RECORD_NOT_FOUND');
485: FND_MESSAGE.SET_TOKEN('CODE',
486: p_hazard_group_code,
485: FND_MESSAGE.SET_TOKEN('CODE',
486: p_hazard_group_code,
487: FALSE);
488: IF FND_API.To_Boolean(p_called_by_form) THEN
489: APP_EXCEPTION.Raise_Exception;
490: ELSE
491: x_msg_data := FND_MESSAGE.Get;
492: END IF;
493:
493:
494: WHEN OTHERS THEN
495: ROLLBACK TO SAVEPOINT Delete_Row;
496: x_return_status := 'U';
497: x_oracle_error := APP_EXCEPTION.Get_Code;
498: l_msg_data := APP_EXCEPTION.Get_Text;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
494: WHEN OTHERS THEN
495: ROLLBACK TO SAVEPOINT Delete_Row;
496: x_return_status := 'U';
497: x_oracle_error := APP_EXCEPTION.Get_Code;
498: l_msg_data := APP_EXCEPTION.Get_Text;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
495: ROLLBACK TO SAVEPOINT Delete_Row;
496: x_return_status := 'U';
497: x_oracle_error := APP_EXCEPTION.Get_Code;
498: l_msg_data := APP_EXCEPTION.Get_Text;
499: l_msg_data := APP_EXCEPTION.Get_Text;
500: FND_MESSAGE.SET_NAME('GR',
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_data,
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_data,
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
510:
551:
552: WHEN OTHERS THEN
553: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
554: x_return_status := 'U';
555: x_oracle_error := APP_EXCEPTION.Get_Code;
556: l_msg_data := APP_EXCEPTION.Get_Text;
557: FND_MESSAGE.SET_NAME('GR',
558: 'GR_UNEXPECTED_ERROR');
559: FND_MESSAGE.SET_TOKEN('TEXT',
552: WHEN OTHERS THEN
553: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
554: x_return_status := 'U';
555: x_oracle_error := APP_EXCEPTION.Get_Code;
556: l_msg_data := APP_EXCEPTION.Get_Text;
557: FND_MESSAGE.SET_NAME('GR',
558: 'GR_UNEXPECTED_ERROR');
559: FND_MESSAGE.SET_TOKEN('TEXT',
560: l_msg_data,
635: FND_MESSAGE.SET_TOKEN('TABLES',
636: l_msg_data,
637: FALSE);
638: IF FND_API.To_Boolean(p_called_by_form) THEN
639: APP_EXCEPTION.Raise_Exception;
640: ELSE
641: x_msg_data := FND_MESSAGE.Get;
642: END IF;
643: WHEN OTHERS THEN
642: END IF;
643: WHEN OTHERS THEN
644: ROLLBACK TO SAVEPOINT Check_Integrity;
645: x_return_status := 'U';
646: x_oracle_error := APP_EXCEPTION.Get_Code;
647: l_msg_data := APP_EXCEPTION.Get_Text;
648: FND_MESSAGE.SET_NAME('GR',
649: 'GR_UNEXPECTED_ERROR');
650: FND_MESSAGE.SET_TOKEN('TEXT',
643: WHEN OTHERS THEN
644: ROLLBACK TO SAVEPOINT Check_Integrity;
645: x_return_status := 'U';
646: x_oracle_error := APP_EXCEPTION.Get_Code;
647: l_msg_data := APP_EXCEPTION.Get_Text;
648: FND_MESSAGE.SET_NAME('GR',
649: 'GR_UNEXPECTED_ERROR');
650: FND_MESSAGE.SET_TOKEN('TEXT',
651: l_msg_data,
650: FND_MESSAGE.SET_TOKEN('TEXT',
651: l_msg_data,
652: FALSE);
653: IF FND_API.To_Boolean(p_called_by_form) THEN
654: APP_EXCEPTION.Raise_Exception;
655: ELSE
656: x_msg_data := FND_MESSAGE.Get;
657: END IF;
658:
698:
699: EXCEPTION
700:
701: WHEN Others THEN
702: l_msg_data := APP_EXCEPTION.Get_Text;
703: FND_MESSAGE.SET_NAME('GR',
704: 'GR_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('TEXT',
706: l_msg_data,
705: FND_MESSAGE.SET_TOKEN('TEXT',
706: l_msg_data,
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
710: END IF;
711:
712: END Check_Primary_Key;
713: