DBA Data[Home] [Help]

APPS.GR_ITEM_CLASSNS_PKG dependencies on FND_MESSAGE

Line 123: FND_MESSAGE.SET_NAME('GR',

119: WHEN Foreign_Key_Error THEN
120: ROLLBACK TO SAVEPOINT Insert_Row;
121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
125: FND_MESSAGE.SET_TOKEN('TEXT',
126: l_msg_data,
127: FALSE);

Line 125: FND_MESSAGE.SET_TOKEN('TEXT',

121: x_return_status := l_return_status;
122: x_oracle_error := l_oracle_error;
123: FND_MESSAGE.SET_NAME('GR',
124: 'GR_FOREIGN_KEY_ERROR');
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;

Line 131: x_msg_data := FND_MESSAGE.Get;

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;

Line 138: FND_MESSAGE.SET_NAME('GR',

134: WHEN Item_Exists_Error THEN
135: ROLLBACK TO SAVEPOINT Insert_Row;
136: x_return_status := 'E';
137: x_oracle_error := APP_EXCEPTION.Get_Code;
138: FND_MESSAGE.SET_NAME('GR',
139: 'GR_RECORD_EXISTS');
140: FND_MESSAGE.SET_TOKEN('CODE',
141: l_msg_token,
142: FALSE);

Line 140: FND_MESSAGE.SET_TOKEN('CODE',

136: x_return_status := 'E';
137: x_oracle_error := APP_EXCEPTION.Get_Code;
138: FND_MESSAGE.SET_NAME('GR',
139: 'GR_RECORD_EXISTS');
140: FND_MESSAGE.SET_TOKEN('CODE',
141: l_msg_token,
142: FALSE);
143: IF FND_API.To_Boolean(p_called_by_form) THEN
144: APP_EXCEPTION.Raise_Exception;

Line 146: x_msg_data := FND_MESSAGE.Get;

142: FALSE);
143: IF FND_API.To_Boolean(p_called_by_form) THEN
144: APP_EXCEPTION.Raise_Exception;
145: ELSE
146: x_msg_data := FND_MESSAGE.Get;
147: END IF;
148:
149: WHEN Row_Missing_Error THEN
150: ROLLBACK TO SAVEPOINT Insert_Row;

Line 153: FND_MESSAGE.SET_NAME('GR',

149: WHEN Row_Missing_Error THEN
150: ROLLBACK TO SAVEPOINT Insert_Row;
151: x_return_status := 'E';
152: x_oracle_error := APP_EXCEPTION.Get_Code;
153: FND_MESSAGE.SET_NAME('GR',
154: 'GR_NO_RECORD_INSERTED');
155: FND_MESSAGE.SET_TOKEN('CODE',
156: l_msg_token,
157: FALSE);

Line 155: FND_MESSAGE.SET_TOKEN('CODE',

151: x_return_status := 'E';
152: x_oracle_error := APP_EXCEPTION.Get_Code;
153: FND_MESSAGE.SET_NAME('GR',
154: 'GR_NO_RECORD_INSERTED');
155: FND_MESSAGE.SET_TOKEN('CODE',
156: l_msg_token,
157: FALSE);
158: IF FND_API.To_Boolean(p_called_by_form) THEN
159: APP_EXCEPTION.Raise_Exception;

Line 161: x_msg_data := FND_MESSAGE.Get;

157: FALSE);
158: IF FND_API.To_Boolean(p_called_by_form) THEN
159: APP_EXCEPTION.Raise_Exception;
160: ELSE
161: x_msg_data := FND_MESSAGE.Get;
162: END IF;
163:
164: WHEN OTHERS THEN
165: ROLLBACK TO SAVEPOINT Insert_Row;

Line 169: FND_MESSAGE.SET_NAME('GR',

165: ROLLBACK TO SAVEPOINT Insert_Row;
166: x_return_status := 'U';
167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: l_msg_data := APP_EXCEPTION.Get_Text;
169: FND_MESSAGE.SET_NAME('GR',
170: 'GR_UNEXPECTED_ERROR');
171: FND_MESSAGE.SET_TOKEN('TEXT',
172: l_msg_token,
173: FALSE);

Line 171: FND_MESSAGE.SET_TOKEN('TEXT',

167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: l_msg_data := APP_EXCEPTION.Get_Text;
169: FND_MESSAGE.SET_NAME('GR',
170: 'GR_UNEXPECTED_ERROR');
171: FND_MESSAGE.SET_TOKEN('TEXT',
172: l_msg_token,
173: FALSE);
174: IF FND_API.To_Boolean(p_called_by_form) THEN
175: APP_EXCEPTION.Raise_Exception;

Line 177: x_msg_data := FND_MESSAGE.Get;

173: FALSE);
174: IF FND_API.To_Boolean(p_called_by_form) THEN
175: APP_EXCEPTION.Raise_Exception;
176: ELSE
177: x_msg_data := FND_MESSAGE.Get;
178: END IF;
179:
180: END Insert_Row;
181:

Line 265: FND_MESSAGE.SET_NAME('GR',

261: WHEN Foreign_Key_Error THEN
262: ROLLBACK TO SAVEPOINT Update_Row;
263: x_return_status := l_return_status;
264: x_oracle_error := l_oracle_error;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_FOREIGN_KEY_ERROR');
267: FND_MESSAGE.SET_TOKEN('TEXT',
268: l_msg_data,
269: FALSE);

Line 267: FND_MESSAGE.SET_TOKEN('TEXT',

263: x_return_status := l_return_status;
264: x_oracle_error := l_oracle_error;
265: FND_MESSAGE.SET_NAME('GR',
266: 'GR_FOREIGN_KEY_ERROR');
267: FND_MESSAGE.SET_TOKEN('TEXT',
268: l_msg_data,
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;

Line 273: x_msg_data := FND_MESSAGE.Get;

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:
276: WHEN Row_Missing_Error THEN
277: ROLLBACK TO SAVEPOINT Update_Row;

Line 280: FND_MESSAGE.SET_NAME('GR',

276: WHEN Row_Missing_Error THEN
277: ROLLBACK TO SAVEPOINT Update_Row;
278: x_return_status := 'E';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: FND_MESSAGE.SET_NAME('GR',
281: 'GR_NO_RECORD_INSERTED');
282: FND_MESSAGE.SET_TOKEN('CODE',
283: l_msg_token,
284: FALSE);

Line 282: FND_MESSAGE.SET_TOKEN('CODE',

278: x_return_status := 'E';
279: x_oracle_error := APP_EXCEPTION.Get_Code;
280: FND_MESSAGE.SET_NAME('GR',
281: 'GR_NO_RECORD_INSERTED');
282: FND_MESSAGE.SET_TOKEN('CODE',
283: l_msg_token,
284: FALSE);
285: IF FND_API.To_Boolean(p_called_by_form) THEN
286: APP_EXCEPTION.Raise_Exception;

Line 288: x_msg_data := FND_MESSAGE.Get;

284: FALSE);
285: IF FND_API.To_Boolean(p_called_by_form) THEN
286: APP_EXCEPTION.Raise_Exception;
287: ELSE
288: x_msg_data := FND_MESSAGE.Get;
289: END IF;
290:
291: WHEN OTHERS THEN
292: ROLLBACK TO SAVEPOINT Update_Row;

Line 296: FND_MESSAGE.SET_NAME('GR',

292: ROLLBACK TO SAVEPOINT Update_Row;
293: x_return_status := 'U';
294: x_oracle_error := APP_EXCEPTION.Get_Code;
295: l_msg_data := APP_EXCEPTION.Get_Text;
296: FND_MESSAGE.SET_NAME('GR',
297: 'GR_UNEXPECTED_ERROR');
298: FND_MESSAGE.SET_TOKEN('TEXT',
299: l_msg_token,
300: FALSE);

Line 298: FND_MESSAGE.SET_TOKEN('TEXT',

294: x_oracle_error := APP_EXCEPTION.Get_Code;
295: l_msg_data := APP_EXCEPTION.Get_Text;
296: FND_MESSAGE.SET_NAME('GR',
297: 'GR_UNEXPECTED_ERROR');
298: FND_MESSAGE.SET_TOKEN('TEXT',
299: l_msg_token,
300: FALSE);
301: IF FND_API.To_Boolean(p_called_by_form) THEN
302: APP_EXCEPTION.Raise_Exception;

Line 304: x_msg_data := FND_MESSAGE.Get;

300: FALSE);
301: IF FND_API.To_Boolean(p_called_by_form) THEN
302: APP_EXCEPTION.Raise_Exception;
303: ELSE
304: x_msg_data := FND_MESSAGE.Get;
305: END IF;
306:
307: END Update_Row;
308:

Line 379: FND_MESSAGE.SET_NAME('GR',

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: l_msg_token,
383: FALSE);

Line 381: FND_MESSAGE.SET_TOKEN('CODE',

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: l_msg_token,
383: FALSE);
384: IF FND_API.To_Boolean(p_called_by_form) THEN
385: APP_EXCEPTION.Raise_Exception;

Line 387: x_msg_data := FND_MESSAGE.Get;

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;

Line 394: FND_MESSAGE.SET_NAME('GR',

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

Line 399: x_msg_data := FND_MESSAGE.Get;

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;

Line 407: FND_MESSAGE.SET_NAME('GR',

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_token,
411: FALSE);

Line 409: FND_MESSAGE.SET_TOKEN('TEXT',

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_token,
411: FALSE);
412: IF FND_API.To_Boolean(p_called_by_form) THEN
413: APP_EXCEPTION.Raise_Exception;

Line 415: x_msg_data := FND_MESSAGE.Get;

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:

Line 506: FND_MESSAGE.SET_NAME('GR',

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: l_msg_token,
510: FALSE);

Line 508: FND_MESSAGE.SET_TOKEN('CODE',

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: l_msg_token,
510: FALSE);
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;

Line 514: x_msg_data := FND_MESSAGE.Get;

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:
517: WHEN OTHERS THEN
518: ROLLBACK TO SAVEPOINT Delete_Row;

Line 523: FND_MESSAGE.SET_NAME('GR',

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_token,
527: FALSE);

Line 525: FND_MESSAGE.SET_TOKEN('TEXT',

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_token,
527: FALSE);
528: IF FND_API.To_Boolean(p_called_by_form) THEN
529: APP_EXCEPTION.Raise_Exception;

Line 531: x_msg_data := FND_MESSAGE.Get;

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:
534: END Delete_Row;
535:

Line 604: FND_MESSAGE.SET_NAME('GR',

600:
601: WHEN Null_Delete_Option_Error THEN
602: x_return_status := 'E';
603: x_oracle_error := APP_EXCEPTION.Get_Code;
604: FND_MESSAGE.SET_NAME('GR',
605: 'GR_NULL_VALUE');
606: FND_MESSAGE.SET_TOKEN('CODE',
607: l_msg_token,
608: FALSE);

Line 606: FND_MESSAGE.SET_TOKEN('CODE',

602: x_return_status := 'E';
603: x_oracle_error := APP_EXCEPTION.Get_Code;
604: FND_MESSAGE.SET_NAME('GR',
605: 'GR_NULL_VALUE');
606: FND_MESSAGE.SET_TOKEN('CODE',
607: l_msg_token,
608: FALSE);
609: IF FND_API.To_Boolean(p_called_by_form) THEN
610: APP_EXCEPTION.Raise_Exception;

Line 612: x_msg_data := FND_MESSAGE.Get;

608: FALSE);
609: IF FND_API.To_Boolean(p_called_by_form) THEN
610: APP_EXCEPTION.Raise_Exception;
611: ELSE
612: x_msg_data := FND_MESSAGE.Get;
613: END IF;
614:
615: WHEN OTHERS THEN
616: ROLLBACK TO SAVEPOINT Delete_Rows;

Line 620: FND_MESSAGE.SET_NAME('GR',

616: ROLLBACK TO SAVEPOINT Delete_Rows;
617: x_return_status := 'U';
618: x_oracle_error := APP_EXCEPTION.Get_Code;
619: l_msg_data := APP_EXCEPTION.Get_Text;
620: FND_MESSAGE.SET_NAME('GR',
621: 'GR_UNEXPECTED_ERROR');
622: FND_MESSAGE.SET_TOKEN('TEXT',
623: l_msg_token,
624: FALSE);

Line 622: FND_MESSAGE.SET_TOKEN('TEXT',

618: x_oracle_error := APP_EXCEPTION.Get_Code;
619: l_msg_data := APP_EXCEPTION.Get_Text;
620: FND_MESSAGE.SET_NAME('GR',
621: 'GR_UNEXPECTED_ERROR');
622: FND_MESSAGE.SET_TOKEN('TEXT',
623: l_msg_token,
624: FALSE);
625: IF FND_API.To_Boolean(p_called_by_form) THEN
626: APP_EXCEPTION.Raise_Exception;

Line 628: x_msg_data := FND_MESSAGE.Get;

624: FALSE);
625: IF FND_API.To_Boolean(p_called_by_form) THEN
626: APP_EXCEPTION.Raise_Exception;
627: ELSE
628: x_msg_data := FND_MESSAGE.Get;
629: END IF;
630:
631: END Delete_Rows;
632:

Line 680: FND_MESSAGE.SET_NAME('GR',

676: l_key_exists);
677:
678: IF NOT FND_API.To_Boolean(l_key_exists) THEN
679: x_return_status := 'E';
680: FND_MESSAGE.SET_NAME('GR',
681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);

Line 682: FND_MESSAGE.SET_TOKEN('CODE',

678: IF NOT FND_API.To_Boolean(l_key_exists) THEN
679: x_return_status := 'E';
680: FND_MESSAGE.SET_NAME('GR',
681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);
685: l_msg_data := FND_MESSAGE.Get;
686: END IF;

Line 685: l_msg_data := FND_MESSAGE.Get;

681: 'GR_RECORD_NOT_FOUND');
682: FND_MESSAGE.SET_TOKEN('CODE',
683: p_item_code,
684: FALSE);
685: l_msg_data := FND_MESSAGE.Get;
686: END IF;
687:
688: /* Hazard Classification */
689:

Line 698: FND_MESSAGE.SET_NAME('GR',

694: l_key_exists);
695:
696: IF NOT FND_API.To_Boolean(l_key_exists) THEN
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);

Line 700: FND_MESSAGE.SET_TOKEN('CODE',

696: IF NOT FND_API.To_Boolean(l_key_exists) THEN
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);
703: l_msg_data := FND_MESSAGE.Get;
704: END IF;

Line 703: l_msg_data := FND_MESSAGE.Get;

699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: p_hazard_classification_code,
702: FALSE);
703: l_msg_data := FND_MESSAGE.Get;
704: END IF;
705:
706: EXCEPTION
707:

Line 713: FND_MESSAGE.SET_NAME('GR',

709: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
710: x_return_status := 'U';
711: x_oracle_error := APP_EXCEPTION.Get_Code;
712: l_msg_data := APP_EXCEPTION.Get_Text;
713: FND_MESSAGE.SET_NAME('GR',
714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);

Line 715: FND_MESSAGE.SET_TOKEN('TEXT',

711: x_oracle_error := APP_EXCEPTION.Get_Code;
712: l_msg_data := APP_EXCEPTION.Get_Text;
713: FND_MESSAGE.SET_NAME('GR',
714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);
718: x_msg_data := FND_MESSAGE.Get;
719:

Line 718: x_msg_data := FND_MESSAGE.Get;

714: 'GR_UNEXPECTED_ERROR');
715: FND_MESSAGE.SET_TOKEN('TEXT',
716: l_msg_token,
717: FALSE);
718: x_msg_data := FND_MESSAGE.Get;
719:
720: END Check_Foreign_Keys;
721:
722: PROCEDURE Check_Integrity

Line 768: FND_MESSAGE.SET_NAME('GR',

764: ROLLBACK TO SAVEPOINT Check_Integrity;
765: x_return_status := 'U';
766: x_oracle_error := APP_EXCEPTION.Get_Code;
767: l_msg_data := APP_EXCEPTION.Get_Text;
768: FND_MESSAGE.SET_NAME('GR',
769: 'GR_UNEXPECTED_ERROR');
770: FND_MESSAGE.SET_TOKEN('TEXT',
771: l_msg_data,
772: FALSE);

Line 770: FND_MESSAGE.SET_TOKEN('TEXT',

766: x_oracle_error := APP_EXCEPTION.Get_Code;
767: l_msg_data := APP_EXCEPTION.Get_Text;
768: FND_MESSAGE.SET_NAME('GR',
769: 'GR_UNEXPECTED_ERROR');
770: FND_MESSAGE.SET_TOKEN('TEXT',
771: l_msg_data,
772: FALSE);
773: IF FND_API.To_Boolean(p_called_by_form) THEN
774: APP_EXCEPTION.Raise_Exception;

Line 776: x_msg_data := FND_MESSAGE.Get;

772: FALSE);
773: IF FND_API.To_Boolean(p_called_by_form) THEN
774: APP_EXCEPTION.Raise_Exception;
775: ELSE
776: x_msg_data := FND_MESSAGE.Get;
777: END IF;
778:
779: END Check_Integrity;
780:

Line 828: FND_MESSAGE.SET_NAME('GR',

824: EXCEPTION
825:
826: WHEN Others THEN
827: l_msg_data := APP_EXCEPTION.Get_Text;
828: FND_MESSAGE.SET_NAME('GR',
829: 'GR_UNEXPECTED_ERROR');
830: FND_MESSAGE.SET_TOKEN('TEXT',
831: l_msg_data,
832: FALSE);

Line 830: FND_MESSAGE.SET_TOKEN('TEXT',

826: WHEN Others THEN
827: l_msg_data := APP_EXCEPTION.Get_Text;
828: FND_MESSAGE.SET_NAME('GR',
829: 'GR_UNEXPECTED_ERROR');
830: FND_MESSAGE.SET_TOKEN('TEXT',
831: l_msg_data,
832: FALSE);
833: IF FND_API.To_Boolean(p_called_by_form) THEN
834: APP_EXCEPTION.Raise_Exception;