114: WHEN Foreign_Key_Error THEN
115: ROLLBACK TO SAVEPOINT Insert_Row;
116: x_return_status := l_return_status;
117: x_oracle_error := l_oracle_error;
118: FND_MESSAGE.SET_NAME('GR',
119: 'GR_FOREIGN_KEY_ERROR');
120: FND_MESSAGE.SET_TOKEN('TEXT',
121: l_msg_data,
122: FALSE);
116: x_return_status := l_return_status;
117: x_oracle_error := l_oracle_error;
118: FND_MESSAGE.SET_NAME('GR',
119: 'GR_FOREIGN_KEY_ERROR');
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;
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:
129: WHEN Item_Exists_Error THEN
130: ROLLBACK TO SAVEPOINT Insert_Row;
130: ROLLBACK TO SAVEPOINT Insert_Row;
131: l_msg_token := p_sub_heading_code;
132: x_return_status := 'E';
133: x_oracle_error := APP_EXCEPTION.Get_Code;
134: FND_MESSAGE.SET_NAME('GR',
135: 'GR_RECORD_EXISTS');
136: FND_MESSAGE.SET_TOKEN('CODE',
137: l_msg_token,
138: FALSE);
132: x_return_status := 'E';
133: x_oracle_error := APP_EXCEPTION.Get_Code;
134: FND_MESSAGE.SET_NAME('GR',
135: 'GR_RECORD_EXISTS');
136: FND_MESSAGE.SET_TOKEN('CODE',
137: l_msg_token,
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
141: ELSE
142: x_msg_data := FND_MESSAGE.Get;
143: END IF;
144:
145: WHEN Row_Missing_Error THEN
146: ROLLBACK TO SAVEPOINT Insert_Row;
146: ROLLBACK TO SAVEPOINT Insert_Row;
147: l_msg_token := p_sub_heading_code;
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: l_msg_token,
154: FALSE);
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: l_msg_token,
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
157: ELSE
158: x_msg_data := FND_MESSAGE.Get;
159: END IF;
160:
161: WHEN OTHERS THEN
162: ROLLBACK TO SAVEPOINT Insert_Row;
163: l_msg_token := p_sub_heading_code;
164: x_return_status := 'U';
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: l_msg_data := APP_EXCEPTION.Get_Text;
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_UNEXPECTED_ERROR');
169: FND_MESSAGE.SET_TOKEN('TEXT',
170: l_msg_token,
171: FALSE);
165: x_oracle_error := APP_EXCEPTION.Get_Code;
166: l_msg_data := APP_EXCEPTION.Get_Text;
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_UNEXPECTED_ERROR');
169: FND_MESSAGE.SET_TOKEN('TEXT',
170: l_msg_token,
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
174: ELSE
175: x_msg_data := FND_MESSAGE.Get;
176: END IF;
177:
178: END Insert_Row;
179:
258: WHEN Foreign_Key_Error THEN
259: ROLLBACK TO SAVEPOINT Update_Row;
260: x_return_status := l_return_status;
261: x_oracle_error := l_oracle_error;
262: FND_MESSAGE.SET_NAME('GR',
263: 'GR_FOREIGN_KEY_ERROR');
264: FND_MESSAGE.SET_TOKEN('TEXT',
265: l_msg_data,
266: FALSE);
260: x_return_status := l_return_status;
261: x_oracle_error := l_oracle_error;
262: FND_MESSAGE.SET_NAME('GR',
263: 'GR_FOREIGN_KEY_ERROR');
264: FND_MESSAGE.SET_TOKEN('TEXT',
265: l_msg_data,
266: FALSE);
267: IF FND_API.To_Boolean(p_called_by_form) THEN
268: APP_EXCEPTION.Raise_Exception;
266: FALSE);
267: IF FND_API.To_Boolean(p_called_by_form) THEN
268: APP_EXCEPTION.Raise_Exception;
269: ELSE
270: x_msg_data := FND_MESSAGE.Get;
271: END IF;
272:
273: WHEN Row_Missing_Error THEN
274: ROLLBACK TO SAVEPOINT Update_Row;
273: WHEN Row_Missing_Error THEN
274: ROLLBACK TO SAVEPOINT Update_Row;
275: x_return_status := 'E';
276: x_oracle_error := APP_EXCEPTION.Get_Code;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_NO_RECORD_INSERTED');
279: FND_MESSAGE.SET_TOKEN('CODE',
280: l_msg_token,
281: FALSE);
275: x_return_status := 'E';
276: x_oracle_error := APP_EXCEPTION.Get_Code;
277: FND_MESSAGE.SET_NAME('GR',
278: 'GR_NO_RECORD_INSERTED');
279: FND_MESSAGE.SET_TOKEN('CODE',
280: l_msg_token,
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
284: ELSE
285: x_msg_data := FND_MESSAGE.Get;
286: END IF;
287:
288: WHEN OTHERS THEN
289: ROLLBACK TO SAVEPOINT Update_Row;
289: ROLLBACK TO SAVEPOINT Update_Row;
290: x_return_status := 'U';
291: x_oracle_error := APP_EXCEPTION.Get_Code;
292: l_msg_data := APP_EXCEPTION.Get_Text;
293: FND_MESSAGE.SET_NAME('GR',
294: 'GR_UNEXPECTED_ERROR');
295: FND_MESSAGE.SET_TOKEN('TEXT',
296: l_msg_token,
297: FALSE);
291: x_oracle_error := APP_EXCEPTION.Get_Code;
292: l_msg_data := APP_EXCEPTION.Get_Text;
293: FND_MESSAGE.SET_NAME('GR',
294: 'GR_UNEXPECTED_ERROR');
295: FND_MESSAGE.SET_TOKEN('TEXT',
296: l_msg_token,
297: FALSE);
298: IF FND_API.To_Boolean(p_called_by_form) THEN
299: APP_EXCEPTION.Raise_Exception;
297: FALSE);
298: IF FND_API.To_Boolean(p_called_by_form) THEN
299: APP_EXCEPTION.Raise_Exception;
300: ELSE
301: x_msg_data := FND_MESSAGE.Get;
302: END IF;
303:
304: END Update_Row;
305: /*
378:
379: WHEN No_Data_Found_Error THEN
380: ROLLBACK TO SAVEPOINT Lock_Row;
381: x_return_status := 'E';
382: FND_MESSAGE.SET_NAME('GR',
383: 'GR_RECORD_NOT_FOUND');
384: FND_MESSAGE.SET_TOKEN('CODE',
385: l_msg_token,
386: FALSE);
380: ROLLBACK TO SAVEPOINT Lock_Row;
381: x_return_status := 'E';
382: FND_MESSAGE.SET_NAME('GR',
383: 'GR_RECORD_NOT_FOUND');
384: FND_MESSAGE.SET_TOKEN('CODE',
385: l_msg_token,
386: FALSE);
387: IF FND_API.To_Boolean(p_called_by_form) THEN
388: APP_EXCEPTION.Raise_Exception;
386: FALSE);
387: IF FND_API.To_Boolean(p_called_by_form) THEN
388: APP_EXCEPTION.Raise_Exception;
389: ELSE
390: x_msg_data := FND_MESSAGE.Get;
391: END IF;
392:
393: WHEN Row_Already_Locked_Error THEN
394: ROLLBACK TO SAVEPOINT Lock_Row;
393: WHEN Row_Already_Locked_Error THEN
394: ROLLBACK TO SAVEPOINT Lock_Row;
395: x_return_status := 'E';
396: x_oracle_error := APP_EXCEPTION.Get_Code;
397: FND_MESSAGE.SET_NAME('GR',
398: 'GR_ROW_IS_LOCKED');
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
398: 'GR_ROW_IS_LOCKED');
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
404:
405: WHEN OTHERS THEN
406: ROLLBACK TO SAVEPOINT Lock_Row;
406: ROLLBACK TO SAVEPOINT Lock_Row;
407: x_return_status := 'U';
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: l_msg_data := APP_EXCEPTION.Get_Text;
410: FND_MESSAGE.SET_NAME('GR',
411: 'GR_UNEXPECTED_ERROR');
412: FND_MESSAGE.SET_TOKEN('TEXT',
413: l_msg_token,
414: FALSE);
408: x_oracle_error := APP_EXCEPTION.Get_Code;
409: l_msg_data := APP_EXCEPTION.Get_Text;
410: FND_MESSAGE.SET_NAME('GR',
411: 'GR_UNEXPECTED_ERROR');
412: FND_MESSAGE.SET_TOKEN('TEXT',
413: l_msg_token,
414: FALSE);
415: IF FND_API.To_Boolean(p_called_by_form) THEN
416: APP_EXCEPTION.Raise_Exception;
414: FALSE);
415: IF FND_API.To_Boolean(p_called_by_form) THEN
416: APP_EXCEPTION.Raise_Exception;
417: ELSE
418: x_msg_data := FND_MESSAGE.Get;
419: END IF;
420:
421: END Lock_Row;
422:
499: x_oracle_error := l_oracle_error;
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:
506: WHEN Row_Missing_Error THEN
507: ROLLBACK TO SAVEPOINT Delete_Row;
506: WHEN Row_Missing_Error THEN
507: ROLLBACK TO SAVEPOINT Delete_Row;
508: x_return_status := 'E';
509: x_oracle_error := APP_EXCEPTION.Get_Code;
510: FND_MESSAGE.SET_NAME('GR',
511: 'GR_RECORD_NOT_FOUND');
512: FND_MESSAGE.SET_TOKEN('CODE',
513: l_msg_token,
514: FALSE);
508: x_return_status := 'E';
509: x_oracle_error := APP_EXCEPTION.Get_Code;
510: FND_MESSAGE.SET_NAME('GR',
511: 'GR_RECORD_NOT_FOUND');
512: FND_MESSAGE.SET_TOKEN('CODE',
513: l_msg_token,
514: FALSE);
515: IF FND_API.To_Boolean(p_called_by_form) THEN
516: APP_EXCEPTION.Raise_Exception;
514: FALSE);
515: IF FND_API.To_Boolean(p_called_by_form) THEN
516: APP_EXCEPTION.Raise_Exception;
517: ELSE
518: x_msg_data := FND_MESSAGE.Get;
519: END IF;
520:
521: WHEN OTHERS THEN
522: ROLLBACK TO SAVEPOINT Delete_Row;
522: ROLLBACK TO SAVEPOINT Delete_Row;
523: x_return_status := 'U';
524: x_oracle_error := APP_EXCEPTION.Get_Code;
525: l_msg_data := APP_EXCEPTION.Get_Text;
526: FND_MESSAGE.SET_NAME('GR',
527: 'GR_UNEXPECTED_ERROR');
528: FND_MESSAGE.SET_TOKEN('TEXT',
529: l_msg_data,
530: FALSE);
524: x_oracle_error := APP_EXCEPTION.Get_Code;
525: l_msg_data := APP_EXCEPTION.Get_Text;
526: FND_MESSAGE.SET_NAME('GR',
527: 'GR_UNEXPECTED_ERROR');
528: FND_MESSAGE.SET_TOKEN('TEXT',
529: l_msg_data,
530: FALSE);
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
530: FALSE);
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
533: ELSE
534: x_msg_data := FND_MESSAGE.Get;
535: END IF;
536:
537: END Delete_Row;
538:
581: WHEN Row_Missing_Error THEN
582: ROLLBACK TO SAVEPOINT Delete_Row;
583: x_return_status := 'E';
584: x_oracle_error := APP_EXCEPTION.Get_Code;
585: FND_MESSAGE.SET_NAME('GR',
586: 'GR_RECORD_NOT_FOUND');
587: FND_MESSAGE.SET_TOKEN('CODE',
588: p_sub_heading_code,
589: FALSE);
583: x_return_status := 'E';
584: x_oracle_error := APP_EXCEPTION.Get_Code;
585: FND_MESSAGE.SET_NAME('GR',
586: 'GR_RECORD_NOT_FOUND');
587: FND_MESSAGE.SET_TOKEN('CODE',
588: p_sub_heading_code,
589: FALSE);
590: x_msg_data := FND_MESSAGE.Get;
591:
586: 'GR_RECORD_NOT_FOUND');
587: FND_MESSAGE.SET_TOKEN('CODE',
588: p_sub_heading_code,
589: FALSE);
590: x_msg_data := FND_MESSAGE.Get;
591:
592: WHEN OTHERS THEN
593: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
594: x_return_status := 'U';
593: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
594: x_return_status := 'U';
595: x_oracle_error := APP_EXCEPTION.Get_Code;
596: l_msg_data := APP_EXCEPTION.Get_Text;
597: FND_MESSAGE.SET_NAME('GR',
598: 'GR_UNEXPECTED_ERROR');
599: FND_MESSAGE.SET_TOKEN('TEXT',
600: l_msg_token,
601: FALSE);
595: x_oracle_error := APP_EXCEPTION.Get_Code;
596: l_msg_data := APP_EXCEPTION.Get_Text;
597: FND_MESSAGE.SET_NAME('GR',
598: 'GR_UNEXPECTED_ERROR');
599: FND_MESSAGE.SET_TOKEN('TEXT',
600: l_msg_token,
601: FALSE);
602: x_msg_data := FND_MESSAGE.Get;
603:
598: 'GR_UNEXPECTED_ERROR');
599: FND_MESSAGE.SET_TOKEN('TEXT',
600: l_msg_token,
601: FALSE);
602: x_msg_data := FND_MESSAGE.Get;
603:
604: END Check_Foreign_Keys;
605:
606: PROCEDURE Check_Integrity
685:
686: EXCEPTION
687: WHEN INTEGRITY_ERROR THEN
688: x_return_status := 'E';
689: FND_MESSAGE.SET_NAME('GR',
690: 'GR_INTEGRITY_HEADER');
691: FND_MESSAGE.SET_TOKEN('CODE',
692: p_sub_heading_code,
693: FALSE);
687: WHEN INTEGRITY_ERROR THEN
688: x_return_status := 'E';
689: FND_MESSAGE.SET_NAME('GR',
690: 'GR_INTEGRITY_HEADER');
691: FND_MESSAGE.SET_TOKEN('CODE',
692: p_sub_heading_code,
693: FALSE);
694: FND_MESSAGE.SET_TOKEN('TABLES',
695: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
690: 'GR_INTEGRITY_HEADER');
691: FND_MESSAGE.SET_TOKEN('CODE',
692: p_sub_heading_code,
693: FALSE);
694: FND_MESSAGE.SET_TOKEN('TABLES',
695: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
696: FALSE);
697: IF FND_API.To_Boolean(p_called_by_form) THEN
698: APP_EXCEPTION.Raise_Exception;
696: FALSE);
697: IF FND_API.To_Boolean(p_called_by_form) THEN
698: APP_EXCEPTION.Raise_Exception;
699: ELSE
700: x_msg_data := FND_MESSAGE.Get;
701: END IF;
702: WHEN OTHERS THEN
703: ROLLBACK TO SAVEPOINT Check_Integrity;
704: x_return_status := 'U';
705: x_oracle_error := APP_EXCEPTION.Get_Code;
706: IF FND_API.To_Boolean(p_called_by_form) THEN
707: RAISE;
708: ELSE
709: x_msg_data := FND_MESSAGE.Get;
710: END IF;
711:
712: END Check_Integrity;
713:
754: EXCEPTION
755:
756: WHEN Others THEN
757: l_msg_data := APP_EXCEPTION.Get_Text;
758: FND_MESSAGE.SET_NAME('GR',
759: 'GR_UNEXPECTED_ERROR');
760: FND_MESSAGE.SET_TOKEN('TEXT',
761: l_msg_data,
762: FALSE);
756: WHEN Others THEN
757: l_msg_data := APP_EXCEPTION.Get_Text;
758: FND_MESSAGE.SET_NAME('GR',
759: 'GR_UNEXPECTED_ERROR');
760: FND_MESSAGE.SET_TOKEN('TEXT',
761: l_msg_data,
762: FALSE);
763: IF FND_API.To_Boolean(p_called_by_form) THEN
764: APP_EXCEPTION.Raise_Exception;