118: WHEN Foreign_Key_Error THEN
119: ROLLBACK TO SAVEPOINT Insert_Row;
120: x_return_status := l_return_status;
121: x_oracle_error := l_oracle_error;
122: FND_MESSAGE.SET_NAME('GR',
123: 'GR_FOREIGN_KEY_ERROR');
124: FND_MESSAGE.SET_TOKEN('TEXT',
125: l_msg_data,
126: FALSE);
120: x_return_status := l_return_status;
121: x_oracle_error := l_oracle_error;
122: FND_MESSAGE.SET_NAME('GR',
123: 'GR_FOREIGN_KEY_ERROR');
124: FND_MESSAGE.SET_TOKEN('TEXT',
125: l_msg_data,
126: FALSE);
127: IF FND_API.To_Boolean(p_called_by_form) THEN
128: APP_EXCEPTION.Raise_Exception;
126: FALSE);
127: IF FND_API.To_Boolean(p_called_by_form) THEN
128: APP_EXCEPTION.Raise_Exception;
129: ELSE
130: x_msg_data := FND_MESSAGE.Get;
131: END IF;
132:
133: WHEN Label_Exists_Error THEN
134: ROLLBACK TO SAVEPOINT Insert_Row;
133: WHEN Label_Exists_Error THEN
134: ROLLBACK TO SAVEPOINT Insert_Row;
135: x_return_status := 'E';
136: x_oracle_error := APP_EXCEPTION.Get_Code;
137: FND_MESSAGE.SET_NAME('GR',
138: 'GR_RECORD_EXISTS');
139: FND_MESSAGE.SET_TOKEN('CODE',
140: p_document_code,
141: FALSE);
135: x_return_status := 'E';
136: x_oracle_error := APP_EXCEPTION.Get_Code;
137: FND_MESSAGE.SET_NAME('GR',
138: 'GR_RECORD_EXISTS');
139: FND_MESSAGE.SET_TOKEN('CODE',
140: p_document_code,
141: FALSE);
142: IF FND_API.To_Boolean(p_called_by_form) THEN
143: APP_EXCEPTION.Raise_Exception;
141: FALSE);
142: IF FND_API.To_Boolean(p_called_by_form) THEN
143: APP_EXCEPTION.Raise_Exception;
144: ELSE
145: x_msg_data := FND_MESSAGE.Get;
146: END IF;
147:
148: WHEN Row_Missing_Error THEN
149: ROLLBACK TO SAVEPOINT Insert_Row;
148: WHEN Row_Missing_Error THEN
149: ROLLBACK TO SAVEPOINT Insert_Row;
150: x_return_status := 'E';
151: x_oracle_error := APP_EXCEPTION.Get_Code;
152: FND_MESSAGE.SET_NAME('GR',
153: 'GR_NO_RECORD_INSERTED');
154: FND_MESSAGE.SET_TOKEN('CODE',
155: p_document_code,
156: FALSE);
150: x_return_status := 'E';
151: x_oracle_error := APP_EXCEPTION.Get_Code;
152: FND_MESSAGE.SET_NAME('GR',
153: 'GR_NO_RECORD_INSERTED');
154: FND_MESSAGE.SET_TOKEN('CODE',
155: p_document_code,
156: FALSE);
157: IF FND_API.To_Boolean(p_called_by_form) THEN
158: APP_EXCEPTION.Raise_Exception;
156: FALSE);
157: IF FND_API.To_Boolean(p_called_by_form) THEN
158: APP_EXCEPTION.Raise_Exception;
159: ELSE
160: x_msg_data := FND_MESSAGE.Get;
161: END IF;
162:
163: WHEN OTHERS THEN
164: ROLLBACK TO SAVEPOINT Insert_Row;
164: ROLLBACK TO SAVEPOINT Insert_Row;
165: x_return_status := 'U';
166: x_oracle_error := APP_EXCEPTION.Get_Code;
167: l_msg_data := APP_EXCEPTION.Get_Text;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_UNEXPECTED_ERROR');
170: FND_MESSAGE.SET_TOKEN('TEXT',
171: l_msg_data,
172: FALSE);
166: x_oracle_error := APP_EXCEPTION.Get_Code;
167: l_msg_data := APP_EXCEPTION.Get_Text;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_UNEXPECTED_ERROR');
170: FND_MESSAGE.SET_TOKEN('TEXT',
171: l_msg_data,
172: FALSE);
173: IF FND_API.To_Boolean(p_called_by_form) THEN
174: APP_EXCEPTION.Raise_Exception;
172: FALSE);
173: IF FND_API.To_Boolean(p_called_by_form) THEN
174: APP_EXCEPTION.Raise_Exception;
175: ELSE
176: x_msg_data := FND_MESSAGE.Get;
177: END IF;
178:
179: END Insert_Row;
180:
260: WHEN Foreign_Key_Error THEN
261: ROLLBACK TO SAVEPOINT Update_Row;
262: x_return_status := l_return_status;
263: x_oracle_error := l_oracle_error;
264: FND_MESSAGE.SET_NAME('GR',
265: 'GR_FOREIGN_KEY_ERROR');
266: FND_MESSAGE.SET_TOKEN('TEXT',
267: l_msg_data,
268: FALSE);
262: x_return_status := l_return_status;
263: x_oracle_error := l_oracle_error;
264: FND_MESSAGE.SET_NAME('GR',
265: 'GR_FOREIGN_KEY_ERROR');
266: FND_MESSAGE.SET_TOKEN('TEXT',
267: l_msg_data,
268: FALSE);
269: IF FND_API.To_Boolean(p_called_by_form) THEN
270: APP_EXCEPTION.Raise_Exception;
268: FALSE);
269: IF FND_API.To_Boolean(p_called_by_form) THEN
270: APP_EXCEPTION.Raise_Exception;
271: ELSE
272: x_msg_data := FND_MESSAGE.Get;
273: END IF;
274:
275: WHEN Row_Missing_Error THEN
276: ROLLBACK TO SAVEPOINT Update_Row;
275: WHEN Row_Missing_Error THEN
276: ROLLBACK TO SAVEPOINT Update_Row;
277: x_return_status := 'E';
278: x_oracle_error := APP_EXCEPTION.Get_Code;
279: FND_MESSAGE.SET_NAME('GR',
280: 'GR_NO_RECORD_INSERTED');
281: FND_MESSAGE.SET_TOKEN('CODE',
282: p_document_code,
283: FALSE);
277: x_return_status := 'E';
278: x_oracle_error := APP_EXCEPTION.Get_Code;
279: FND_MESSAGE.SET_NAME('GR',
280: 'GR_NO_RECORD_INSERTED');
281: FND_MESSAGE.SET_TOKEN('CODE',
282: p_document_code,
283: FALSE);
284: IF FND_API.To_Boolean(p_called_by_form) THEN
285: APP_EXCEPTION.Raise_Exception;
283: FALSE);
284: IF FND_API.To_Boolean(p_called_by_form) THEN
285: APP_EXCEPTION.Raise_Exception;
286: ELSE
287: x_msg_data := FND_MESSAGE.Get;
288: END IF;
289:
290: WHEN OTHERS THEN
291: ROLLBACK TO SAVEPOINT Update_Row;
291: ROLLBACK TO SAVEPOINT Update_Row;
292: x_return_status := 'U';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: l_msg_data := APP_EXCEPTION.Get_Text;
295: FND_MESSAGE.SET_NAME('GR',
296: 'GR_UNEXPECTED_ERROR');
297: FND_MESSAGE.SET_TOKEN('TEXT',
298: l_msg_data,
299: FALSE);
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: l_msg_data := APP_EXCEPTION.Get_Text;
295: FND_MESSAGE.SET_NAME('GR',
296: 'GR_UNEXPECTED_ERROR');
297: FND_MESSAGE.SET_TOKEN('TEXT',
298: l_msg_data,
299: FALSE);
300: IF FND_API.To_Boolean(p_called_by_form) THEN
301: APP_EXCEPTION.Raise_Exception;
299: FALSE);
300: IF FND_API.To_Boolean(p_called_by_form) THEN
301: APP_EXCEPTION.Raise_Exception;
302: ELSE
303: x_msg_data := FND_MESSAGE.Get;
304: END IF;
305:
306: END Update_Row;
307:
375:
376: WHEN No_Data_Found_Error THEN
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: p_document_code,
383: FALSE);
377: ROLLBACK TO SAVEPOINT Lock_Row;
378: x_return_status := 'E';
379: FND_MESSAGE.SET_NAME('GR',
380: 'GR_RECORD_NOT_FOUND');
381: FND_MESSAGE.SET_TOKEN('CODE',
382: p_document_code,
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;
386: ELSE
387: x_msg_data := FND_MESSAGE.Get;
388: END IF;
389:
390: WHEN Row_Already_Locked_Error THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
390: WHEN Row_Already_Locked_Error THEN
391: ROLLBACK TO SAVEPOINT Lock_Row;
392: x_return_status := 'E';
393: x_oracle_error := APP_EXCEPTION.Get_Code;
394: FND_MESSAGE.SET_NAME('GR',
395: 'GR_ROW_IS_LOCKED');
396: IF FND_API.To_Boolean(p_called_by_form) THEN
397: APP_EXCEPTION.Raise_Exception;
398: ELSE
395: 'GR_ROW_IS_LOCKED');
396: IF FND_API.To_Boolean(p_called_by_form) THEN
397: APP_EXCEPTION.Raise_Exception;
398: ELSE
399: x_msg_data := FND_MESSAGE.Get;
400: END IF;
401:
402: WHEN OTHERS THEN
403: ROLLBACK TO SAVEPOINT Lock_Row;
403: ROLLBACK TO SAVEPOINT Lock_Row;
404: x_return_status := 'U';
405: x_oracle_error := APP_EXCEPTION.Get_Code;
406: l_msg_data := APP_EXCEPTION.Get_Text;
407: FND_MESSAGE.SET_NAME('GR',
408: 'GR_UNEXPECTED_ERROR');
409: FND_MESSAGE.SET_TOKEN('TEXT',
410: l_msg_data,
411: FALSE);
405: x_oracle_error := APP_EXCEPTION.Get_Code;
406: l_msg_data := APP_EXCEPTION.Get_Text;
407: FND_MESSAGE.SET_NAME('GR',
408: 'GR_UNEXPECTED_ERROR');
409: FND_MESSAGE.SET_TOKEN('TEXT',
410: l_msg_data,
411: FALSE);
412: IF FND_API.To_Boolean(p_called_by_form) THEN
413: APP_EXCEPTION.Raise_Exception;
411: FALSE);
412: IF FND_API.To_Boolean(p_called_by_form) THEN
413: APP_EXCEPTION.Raise_Exception;
414: ELSE
415: x_msg_data := FND_MESSAGE.Get;
416: END IF;
417:
418: END Lock_Row;
419:
494: x_oracle_error := l_oracle_error;
495: IF FND_API.To_Boolean(p_called_by_form) THEN
496: APP_EXCEPTION.Raise_Exception;
497: ELSE
498: x_msg_data := FND_MESSAGE.Get;
499: END IF;
500:
501: WHEN Row_Missing_Error THEN
502: ROLLBACK TO SAVEPOINT Delete_Row;
501: WHEN Row_Missing_Error THEN
502: ROLLBACK TO SAVEPOINT Delete_Row;
503: x_return_status := 'E';
504: x_oracle_error := APP_EXCEPTION.Get_Code;
505: FND_MESSAGE.SET_NAME('GR',
506: 'GR_RECORD_NOT_FOUND');
507: FND_MESSAGE.SET_TOKEN('CODE',
508: p_document_code,
509: FALSE);
503: x_return_status := 'E';
504: x_oracle_error := APP_EXCEPTION.Get_Code;
505: FND_MESSAGE.SET_NAME('GR',
506: 'GR_RECORD_NOT_FOUND');
507: FND_MESSAGE.SET_TOKEN('CODE',
508: p_document_code,
509: FALSE);
510: IF FND_API.To_Boolean(p_called_by_form) THEN
511: APP_EXCEPTION.Raise_Exception;
509: FALSE);
510: IF FND_API.To_Boolean(p_called_by_form) THEN
511: APP_EXCEPTION.Raise_Exception;
512: ELSE
513: x_msg_data := FND_MESSAGE.Get;
514: END IF;
515:
516: WHEN OTHERS THEN
517: ROLLBACK TO SAVEPOINT Delete_Row;
518: x_return_status := 'U';
519: x_oracle_error := APP_EXCEPTION.Get_Code;
520: l_msg_data := APP_EXCEPTION.Get_Text;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: FND_MESSAGE.SET_NAME('GR',
523: 'GR_UNEXPECTED_ERROR');
524: FND_MESSAGE.SET_TOKEN('TEXT',
525: l_msg_data,
526: FALSE);
520: l_msg_data := APP_EXCEPTION.Get_Text;
521: l_msg_data := APP_EXCEPTION.Get_Text;
522: FND_MESSAGE.SET_NAME('GR',
523: 'GR_UNEXPECTED_ERROR');
524: FND_MESSAGE.SET_TOKEN('TEXT',
525: l_msg_data,
526: FALSE);
527: IF FND_API.To_Boolean(p_called_by_form) THEN
528: APP_EXCEPTION.Raise_Exception;
526: FALSE);
527: IF FND_API.To_Boolean(p_called_by_form) THEN
528: APP_EXCEPTION.Raise_Exception;
529: ELSE
530: x_msg_data := FND_MESSAGE.Get;
531: END IF;
532:
533: END Delete_Row;
534:
576: ROLLBACK TO SAVEPOINT Delete_Rows;
577: x_return_status := 'U';
578: x_oracle_error := APP_EXCEPTION.Get_Code;
579: l_msg_data := APP_EXCEPTION.Get_Text;
580: FND_MESSAGE.SET_NAME('GR',
581: 'GR_UNEXPECTED_ERROR');
582: FND_MESSAGE.SET_TOKEN('TEXT',
583: l_msg_token,
584: FALSE);
578: x_oracle_error := APP_EXCEPTION.Get_Code;
579: l_msg_data := APP_EXCEPTION.Get_Text;
580: FND_MESSAGE.SET_NAME('GR',
581: 'GR_UNEXPECTED_ERROR');
582: FND_MESSAGE.SET_TOKEN('TEXT',
583: l_msg_token,
584: FALSE);
585: IF FND_API.To_Boolean(p_called_by_form) THEN
586: APP_EXCEPTION.Raise_Exception;
584: FALSE);
585: IF FND_API.To_Boolean(p_called_by_form) THEN
586: APP_EXCEPTION.Raise_Exception;
587: ELSE
588: x_msg_data := FND_MESSAGE.Get;
589: END IF;
590:
591: END Delete_Rows;
592:
640: OPEN c_get_ar_values;
641: FETCH c_get_ar_values INTO ARValuesRcd;
642: IF c_get_ar_values%NOTFOUND THEN
643: x_return_status := 'E';
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_RECORD_NOT_FOUND');
646: FND_MESSAGE.SET_TOKEN('CODE',
647: p_document_code,
648: FALSE);
642: IF c_get_ar_values%NOTFOUND THEN
643: x_return_status := 'E';
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_RECORD_NOT_FOUND');
646: FND_MESSAGE.SET_TOKEN('CODE',
647: p_document_code,
648: FALSE);
649: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
650: END IF;
645: 'GR_RECORD_NOT_FOUND');
646: FND_MESSAGE.SET_TOKEN('CODE',
647: p_document_code,
648: FALSE);
649: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
650: END IF;
651: CLOSE c_get_ar_values;
652:
653:
662: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
663: x_return_status := 'U';
664: x_oracle_error := APP_EXCEPTION.Get_Code;
665: l_msg_data := APP_EXCEPTION.Get_Text;
666: FND_MESSAGE.SET_NAME('GR',
667: 'GR_UNEXPECTED_ERROR');
668: FND_MESSAGE.SET_TOKEN('TEXT',
669: l_msg_data,
670: FALSE);
664: x_oracle_error := APP_EXCEPTION.Get_Code;
665: l_msg_data := APP_EXCEPTION.Get_Text;
666: FND_MESSAGE.SET_NAME('GR',
667: 'GR_UNEXPECTED_ERROR');
668: FND_MESSAGE.SET_TOKEN('TEXT',
669: l_msg_data,
670: FALSE);
671: x_msg_data := FND_MESSAGE.Get;
672:
667: 'GR_UNEXPECTED_ERROR');
668: FND_MESSAGE.SET_TOKEN('TEXT',
669: l_msg_data,
670: FALSE);
671: x_msg_data := FND_MESSAGE.Get;
672:
673: END Check_Foreign_Keys;
674:
675: PROCEDURE Check_Integrity
722: ROLLBACK TO SAVEPOINT Check_Integrity;
723: x_return_status := 'U';
724: x_oracle_error := APP_EXCEPTION.Get_Code;
725: l_msg_data := APP_EXCEPTION.Get_Text;
726: FND_MESSAGE.SET_NAME('GR',
727: 'GR_UNEXPECTED_ERROR');
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
730: FALSE);
724: x_oracle_error := APP_EXCEPTION.Get_Code;
725: l_msg_data := APP_EXCEPTION.Get_Text;
726: FND_MESSAGE.SET_NAME('GR',
727: 'GR_UNEXPECTED_ERROR');
728: FND_MESSAGE.SET_TOKEN('TEXT',
729: l_msg_data,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;
733: ELSE
734: x_msg_data := FND_MESSAGE.Get;
735: END IF;
736:
737: END Check_Integrity;
738:
778: EXCEPTION
779:
780: WHEN Others THEN
781: l_msg_data := APP_EXCEPTION.Get_Text;
782: FND_MESSAGE.SET_NAME('GR',
783: 'GR_UNEXPECTED_ERROR');
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_data,
786: FALSE);
780: WHEN Others THEN
781: l_msg_data := APP_EXCEPTION.Get_Text;
782: FND_MESSAGE.SET_NAME('GR',
783: 'GR_UNEXPECTED_ERROR');
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_data,
786: FALSE);
787: IF FND_API.To_Boolean(p_called_by_form) THEN
788: APP_EXCEPTION.Raise_Exception;