132: WHEN Foreign_Key_Error THEN
133: ROLLBACK TO SAVEPOINT Insert_Row;
134: x_return_status := l_return_status;
135: x_oracle_error := l_oracle_error;
136: FND_MESSAGE.SET_NAME('GR',
137: 'GR_FOREIGN_KEY_ERROR');
138: FND_MESSAGE.SET_TOKEN('TEXT',
139: l_msg_data,
140: FALSE);
134: x_return_status := l_return_status;
135: x_oracle_error := l_oracle_error;
136: FND_MESSAGE.SET_NAME('GR',
137: 'GR_FOREIGN_KEY_ERROR');
138: FND_MESSAGE.SET_TOKEN('TEXT',
139: l_msg_data,
140: FALSE);
141: IF FND_API.To_Boolean(p_called_by_form) THEN
142: APP_EXCEPTION.Raise_Exception;
140: FALSE);
141: IF FND_API.To_Boolean(p_called_by_form) THEN
142: APP_EXCEPTION.Raise_Exception;
143: ELSE
144: x_msg_data := FND_MESSAGE.Get;
145: END IF;
146:
147: WHEN Item_Exists_Error THEN
148: ROLLBACK TO SAVEPOINT Insert_Row;
148: ROLLBACK TO SAVEPOINT Insert_Row;
149: l_msg_token := p_item_code || ' ' || p_orgn_code || ' ' || p_language;
150: x_return_status := 'E';
151: x_oracle_error := APP_EXCEPTION.Get_Code;
152: FND_MESSAGE.SET_NAME('GR',
153: 'GR_RECORD_EXISTS');
154: FND_MESSAGE.SET_TOKEN('CODE',
155: l_msg_token,
156: FALSE);
150: x_return_status := 'E';
151: x_oracle_error := APP_EXCEPTION.Get_Code;
152: FND_MESSAGE.SET_NAME('GR',
153: 'GR_RECORD_EXISTS');
154: FND_MESSAGE.SET_TOKEN('CODE',
155: l_msg_token,
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 Row_Missing_Error THEN
164: ROLLBACK TO SAVEPOINT Insert_Row;
164: ROLLBACK TO SAVEPOINT Insert_Row;
165: l_msg_token := p_item_code || ' ' || p_orgn_code || ' ' || p_language;
166: x_return_status := 'E';
167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_NO_RECORD_INSERTED');
170: FND_MESSAGE.SET_TOKEN('CODE',
171: l_msg_token,
172: FALSE);
166: x_return_status := 'E';
167: x_oracle_error := APP_EXCEPTION.Get_Code;
168: FND_MESSAGE.SET_NAME('GR',
169: 'GR_NO_RECORD_INSERTED');
170: FND_MESSAGE.SET_TOKEN('CODE',
171: l_msg_token,
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: WHEN OTHERS THEN
180: ROLLBACK TO SAVEPOINT Insert_Row;
181: l_msg_token := p_item_code || ' ' || p_orgn_code || ' ' || p_language;
182: x_return_status := 'U';
183: x_oracle_error := APP_EXCEPTION.Get_Code;
184: l_msg_data := APP_EXCEPTION.Get_Text;
185: FND_MESSAGE.SET_NAME('GR',
186: 'GR_UNEXPECTED_ERROR');
187: FND_MESSAGE.SET_TOKEN('TEXT',
188: l_msg_token,
189: FALSE);
183: x_oracle_error := APP_EXCEPTION.Get_Code;
184: l_msg_data := APP_EXCEPTION.Get_Text;
185: FND_MESSAGE.SET_NAME('GR',
186: 'GR_UNEXPECTED_ERROR');
187: FND_MESSAGE.SET_TOKEN('TEXT',
188: l_msg_token,
189: FALSE);
190: IF FND_API.To_Boolean(p_called_by_form) THEN
191: APP_EXCEPTION.Raise_Exception;
189: FALSE);
190: IF FND_API.To_Boolean(p_called_by_form) THEN
191: APP_EXCEPTION.Raise_Exception;
192: ELSE
193: x_msg_data := FND_MESSAGE.Get;
194: END IF;
195:
196: END Insert_Row;
197:
285: WHEN Foreign_Key_Error THEN
286: ROLLBACK TO SAVEPOINT Update_Row;
287: x_return_status := l_return_status;
288: x_oracle_error := l_oracle_error;
289: FND_MESSAGE.SET_NAME('GR',
290: 'GR_FOREIGN_KEY_ERROR');
291: FND_MESSAGE.SET_TOKEN('TEXT',
292: l_msg_data,
293: FALSE);
287: x_return_status := l_return_status;
288: x_oracle_error := l_oracle_error;
289: FND_MESSAGE.SET_NAME('GR',
290: 'GR_FOREIGN_KEY_ERROR');
291: FND_MESSAGE.SET_TOKEN('TEXT',
292: l_msg_data,
293: FALSE);
294: IF FND_API.To_Boolean(p_called_by_form) THEN
295: APP_EXCEPTION.Raise_Exception;
293: FALSE);
294: IF FND_API.To_Boolean(p_called_by_form) THEN
295: APP_EXCEPTION.Raise_Exception;
296: ELSE
297: x_msg_data := FND_MESSAGE.Get;
298: END IF;
299:
300: WHEN Row_Missing_Error THEN
301: ROLLBACK TO SAVEPOINT Update_Row;
300: WHEN Row_Missing_Error THEN
301: ROLLBACK TO SAVEPOINT Update_Row;
302: x_return_status := 'E';
303: x_oracle_error := APP_EXCEPTION.Get_Code;
304: FND_MESSAGE.SET_NAME('GR',
305: 'GR_NO_RECORD_INSERTED');
306: FND_MESSAGE.SET_TOKEN('CODE',
307: l_msg_token,
308: FALSE);
302: x_return_status := 'E';
303: x_oracle_error := APP_EXCEPTION.Get_Code;
304: FND_MESSAGE.SET_NAME('GR',
305: 'GR_NO_RECORD_INSERTED');
306: FND_MESSAGE.SET_TOKEN('CODE',
307: l_msg_token,
308: FALSE);
309: IF FND_API.To_Boolean(p_called_by_form) THEN
310: APP_EXCEPTION.Raise_Exception;
308: FALSE);
309: IF FND_API.To_Boolean(p_called_by_form) THEN
310: APP_EXCEPTION.Raise_Exception;
311: ELSE
312: x_msg_data := FND_MESSAGE.Get;
313: END IF;
314:
315: WHEN OTHERS THEN
316: ROLLBACK TO SAVEPOINT Update_Row;
316: ROLLBACK TO SAVEPOINT Update_Row;
317: x_return_status := 'U';
318: x_oracle_error := APP_EXCEPTION.Get_Code;
319: l_msg_data := APP_EXCEPTION.Get_Text;
320: FND_MESSAGE.SET_NAME('GR',
321: 'GR_UNEXPECTED_ERROR');
322: FND_MESSAGE.SET_TOKEN('TEXT',
323: l_msg_token,
324: FALSE);
318: x_oracle_error := APP_EXCEPTION.Get_Code;
319: l_msg_data := APP_EXCEPTION.Get_Text;
320: FND_MESSAGE.SET_NAME('GR',
321: 'GR_UNEXPECTED_ERROR');
322: FND_MESSAGE.SET_TOKEN('TEXT',
323: l_msg_token,
324: FALSE);
325: IF FND_API.To_Boolean(p_called_by_form) THEN
326: APP_EXCEPTION.Raise_Exception;
324: FALSE);
325: IF FND_API.To_Boolean(p_called_by_form) THEN
326: APP_EXCEPTION.Raise_Exception;
327: ELSE
328: x_msg_data := FND_MESSAGE.Get;
329: END IF;
330:
331: END Update_Row;
332:
540: WHEN Language_Missing_Error THEN
541: ROLLBACK TO SAVEPOINT Add_Language;
542: x_return_status := 'E';
543: x_oracle_error := APP_EXCEPTION.Get_Code;
544: FND_MESSAGE.SET_NAME('GR',
545: 'GR_RECORD_NOT_FOUND');
546: FND_MESSAGE.SET_TOKEN('CODE',
547: l_msg_token,
548: FALSE);
542: x_return_status := 'E';
543: x_oracle_error := APP_EXCEPTION.Get_Code;
544: FND_MESSAGE.SET_NAME('GR',
545: 'GR_RECORD_NOT_FOUND');
546: FND_MESSAGE.SET_TOKEN('CODE',
547: l_msg_token,
548: FALSE);
549: IF FND_API.To_Boolean(p_called_by_form) THEN
550: APP_EXCEPTION.Raise_Exception;
548: FALSE);
549: IF FND_API.To_Boolean(p_called_by_form) THEN
550: APP_EXCEPTION.Raise_Exception;
551: ELSE
552: x_msg_data := FND_MESSAGE.Get;
553: END IF;
554:
555: WHEN OTHERS THEN
556: ROLLBACK TO SAVEPOINT Add_Language;
555: WHEN OTHERS THEN
556: ROLLBACK TO SAVEPOINT Add_Language;
557: x_return_status := 'U';
558: x_oracle_error := APP_EXCEPTION.Get_Code;
559: FND_MESSAGE.SET_NAME('GR',
560: 'GR_UNEXPECTED_ERROR');
561: FND_MESSAGE.SET_TOKEN('TEXT',
562: l_msg_token,
563: FALSE);
557: x_return_status := 'U';
558: x_oracle_error := APP_EXCEPTION.Get_Code;
559: FND_MESSAGE.SET_NAME('GR',
560: 'GR_UNEXPECTED_ERROR');
561: FND_MESSAGE.SET_TOKEN('TEXT',
562: l_msg_token,
563: FALSE);
564: IF FND_API.To_Boolean(p_called_by_form) THEN
565: APP_EXCEPTION.Raise_Exception;
563: FALSE);
564: IF FND_API.To_Boolean(p_called_by_form) THEN
565: APP_EXCEPTION.Raise_Exception;
566: ELSE
567: x_msg_data := FND_MESSAGE.Get;
568: END IF;
569:
570: END Add_Language;
571:
643:
644: WHEN No_Data_Found_Error THEN
645: ROLLBACK TO SAVEPOINT Lock_Row;
646: x_return_status := 'E';
647: FND_MESSAGE.SET_NAME('GR',
648: 'GR_RECORD_NOT_FOUND');
649: FND_MESSAGE.SET_TOKEN('CODE',
650: l_msg_token,
651: FALSE);
645: ROLLBACK TO SAVEPOINT Lock_Row;
646: x_return_status := 'E';
647: FND_MESSAGE.SET_NAME('GR',
648: 'GR_RECORD_NOT_FOUND');
649: FND_MESSAGE.SET_TOKEN('CODE',
650: l_msg_token,
651: FALSE);
652: IF FND_API.To_Boolean(p_called_by_form) THEN
653: APP_EXCEPTION.Raise_Exception;
651: FALSE);
652: IF FND_API.To_Boolean(p_called_by_form) THEN
653: APP_EXCEPTION.Raise_Exception;
654: ELSE
655: x_msg_data := FND_MESSAGE.Get;
656: END IF;
657:
658: WHEN Row_Already_Locked_Error THEN
659: ROLLBACK TO SAVEPOINT Lock_Row;
658: WHEN Row_Already_Locked_Error THEN
659: ROLLBACK TO SAVEPOINT Lock_Row;
660: x_return_status := 'E';
661: x_oracle_error := APP_EXCEPTION.Get_Code;
662: FND_MESSAGE.SET_NAME('GR',
663: 'GR_ROW_IS_LOCKED');
664: IF FND_API.To_Boolean(p_called_by_form) THEN
665: APP_EXCEPTION.Raise_Exception;
666: ELSE
663: 'GR_ROW_IS_LOCKED');
664: IF FND_API.To_Boolean(p_called_by_form) THEN
665: APP_EXCEPTION.Raise_Exception;
666: ELSE
667: x_msg_data := FND_MESSAGE.Get;
668: END IF;
669:
670: WHEN OTHERS THEN
671: ROLLBACK TO SAVEPOINT Lock_Row;
671: ROLLBACK TO SAVEPOINT Lock_Row;
672: x_return_status := 'U';
673: x_oracle_error := APP_EXCEPTION.Get_Code;
674: l_msg_data := APP_EXCEPTION.Get_Text;
675: FND_MESSAGE.SET_NAME('GR',
676: 'GR_UNEXPECTED_ERROR');
677: FND_MESSAGE.SET_TOKEN('TEXT',
678: l_msg_token,
679: FALSE);
673: x_oracle_error := APP_EXCEPTION.Get_Code;
674: l_msg_data := APP_EXCEPTION.Get_Text;
675: FND_MESSAGE.SET_NAME('GR',
676: 'GR_UNEXPECTED_ERROR');
677: FND_MESSAGE.SET_TOKEN('TEXT',
678: l_msg_token,
679: FALSE);
680: IF FND_API.To_Boolean(p_called_by_form) THEN
681: APP_EXCEPTION.Raise_Exception;
679: FALSE);
680: IF FND_API.To_Boolean(p_called_by_form) THEN
681: APP_EXCEPTION.Raise_Exception;
682: ELSE
683: x_msg_data := FND_MESSAGE.Get;
684: END IF;
685:
686: END Lock_Row;
687:
770: x_oracle_error := l_oracle_error;
771: IF FND_API.To_Boolean(p_called_by_form) THEN
772: APP_EXCEPTION.Raise_Exception;
773: ELSE
774: x_msg_data := FND_MESSAGE.Get;
775: END IF;
776:
777: WHEN Row_Missing_Error THEN
778: ROLLBACK TO SAVEPOINT Delete_Row;
777: WHEN Row_Missing_Error THEN
778: ROLLBACK TO SAVEPOINT Delete_Row;
779: x_return_status := 'E';
780: x_oracle_error := APP_EXCEPTION.Get_Code;
781: FND_MESSAGE.SET_NAME('GR',
782: 'GR_RECORD_NOT_FOUND');
783: FND_MESSAGE.SET_TOKEN('CODE',
784: l_msg_token,
785: FALSE);
779: x_return_status := 'E';
780: x_oracle_error := APP_EXCEPTION.Get_Code;
781: FND_MESSAGE.SET_NAME('GR',
782: 'GR_RECORD_NOT_FOUND');
783: FND_MESSAGE.SET_TOKEN('CODE',
784: l_msg_token,
785: FALSE);
786: IF FND_API.To_Boolean(p_called_by_form) THEN
787: APP_EXCEPTION.Raise_Exception;
785: FALSE);
786: IF FND_API.To_Boolean(p_called_by_form) THEN
787: APP_EXCEPTION.Raise_Exception;
788: ELSE
789: x_msg_data := FND_MESSAGE.Get;
790: END IF;
791:
792: WHEN OTHERS THEN
793: ROLLBACK TO SAVEPOINT Delete_Row;
794: x_return_status := 'U';
795: x_oracle_error := APP_EXCEPTION.Get_Code;
796: l_msg_data := APP_EXCEPTION.Get_Text;
797: l_msg_data := APP_EXCEPTION.Get_Text;
798: FND_MESSAGE.SET_NAME('GR',
799: 'GR_UNEXPECTED_ERROR');
800: FND_MESSAGE.SET_TOKEN('TEXT',
801: l_msg_token,
802: FALSE);
796: l_msg_data := APP_EXCEPTION.Get_Text;
797: l_msg_data := APP_EXCEPTION.Get_Text;
798: FND_MESSAGE.SET_NAME('GR',
799: 'GR_UNEXPECTED_ERROR');
800: FND_MESSAGE.SET_TOKEN('TEXT',
801: l_msg_token,
802: FALSE);
803: IF FND_API.To_Boolean(p_called_by_form) THEN
804: APP_EXCEPTION.Raise_Exception;
802: FALSE);
803: IF FND_API.To_Boolean(p_called_by_form) THEN
804: APP_EXCEPTION.Raise_Exception;
805: ELSE
806: x_msg_data := FND_MESSAGE.Get;
807: END IF;
808:
809: END Delete_Row;
810:
893:
894: WHEN Null_Delete_Option_Error THEN
895: x_return_status := 'E';
896: x_oracle_error := APP_EXCEPTION.Get_Code;
897: FND_MESSAGE.SET_NAME('GR',
898: 'GR_NULL_VALUE');
899: FND_MESSAGE.SET_TOKEN('CODE',
900: l_msg_token,
901: FALSE);
895: x_return_status := 'E';
896: x_oracle_error := APP_EXCEPTION.Get_Code;
897: FND_MESSAGE.SET_NAME('GR',
898: 'GR_NULL_VALUE');
899: FND_MESSAGE.SET_TOKEN('CODE',
900: l_msg_token,
901: FALSE);
902: IF FND_API.To_Boolean(p_called_by_form) THEN
903: APP_EXCEPTION.Raise_Exception;
901: FALSE);
902: IF FND_API.To_Boolean(p_called_by_form) THEN
903: APP_EXCEPTION.Raise_Exception;
904: ELSE
905: x_msg_data := FND_MESSAGE.Get;
906: END IF;
907:
908: WHEN OTHERS THEN
909: ROLLBACK TO SAVEPOINT Delete_Rows;
909: ROLLBACK TO SAVEPOINT Delete_Rows;
910: x_return_status := 'U';
911: x_oracle_error := APP_EXCEPTION.Get_Code;
912: l_msg_data := APP_EXCEPTION.Get_Text;
913: FND_MESSAGE.SET_NAME('GR',
914: 'GR_UNEXPECTED_ERROR');
915: FND_MESSAGE.SET_TOKEN('TEXT',
916: l_msg_token,
917: FALSE);
911: x_oracle_error := APP_EXCEPTION.Get_Code;
912: l_msg_data := APP_EXCEPTION.Get_Text;
913: FND_MESSAGE.SET_NAME('GR',
914: 'GR_UNEXPECTED_ERROR');
915: FND_MESSAGE.SET_TOKEN('TEXT',
916: l_msg_token,
917: FALSE);
918: IF FND_API.To_Boolean(p_called_by_form) THEN
919: APP_EXCEPTION.Raise_Exception;
917: FALSE);
918: IF FND_API.To_Boolean(p_called_by_form) THEN
919: APP_EXCEPTION.Raise_Exception;
920: ELSE
921: x_msg_data := FND_MESSAGE.Get;
922: END IF;
923:
924: END Delete_Rows;
925:
990: l_rowid,
991: l_key_exists);
992: IF NOT FND_API.To_Boolean(l_key_exists) THEN
993: x_return_status := 'E';
994: FND_MESSAGE.SET_NAME('GR',
995: 'GR_RECORD_NOT_FOUND');
996: FND_MESSAGE.SET_TOKEN('CODE',
997: p_item_code,
998: FALSE);
992: IF NOT FND_API.To_Boolean(l_key_exists) THEN
993: x_return_status := 'E';
994: FND_MESSAGE.SET_NAME('GR',
995: 'GR_RECORD_NOT_FOUND');
996: FND_MESSAGE.SET_TOKEN('CODE',
997: p_item_code,
998: FALSE);
999: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1000: END IF;
995: 'GR_RECORD_NOT_FOUND');
996: FND_MESSAGE.SET_TOKEN('CODE',
997: p_item_code,
998: FALSE);
999: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
1000: END IF;
1001:
1002: /* Check the organization code */
1003:
1037: WHEN Row_Missing_Error THEN
1038: ROLLBACK TO SAVEPOINT Delete_Row;
1039: x_return_status := 'E';
1040: x_oracle_error := APP_EXCEPTION.Get_Code;
1041: FND_MESSAGE.SET_NAME('GR',
1042: 'GR_RECORD_NOT_FOUND');
1043: FND_MESSAGE.SET_TOKEN('CODE',
1044: l_msg_token,
1045: FALSE);
1039: x_return_status := 'E';
1040: x_oracle_error := APP_EXCEPTION.Get_Code;
1041: FND_MESSAGE.SET_NAME('GR',
1042: 'GR_RECORD_NOT_FOUND');
1043: FND_MESSAGE.SET_TOKEN('CODE',
1044: l_msg_token,
1045: FALSE);
1046: x_msg_data := FND_MESSAGE.Get;
1047:
1042: 'GR_RECORD_NOT_FOUND');
1043: FND_MESSAGE.SET_TOKEN('CODE',
1044: l_msg_token,
1045: FALSE);
1046: x_msg_data := FND_MESSAGE.Get;
1047:
1048: WHEN OTHERS THEN
1049: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1050: x_return_status := 'U';
1049: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1050: x_return_status := 'U';
1051: x_oracle_error := APP_EXCEPTION.Get_Code;
1052: l_msg_data := APP_EXCEPTION.Get_Text;
1053: FND_MESSAGE.SET_NAME('GR',
1054: 'GR_UNEXPECTED_ERROR');
1055: FND_MESSAGE.SET_TOKEN('TEXT',
1056: l_msg_token,
1057: FALSE);
1051: x_oracle_error := APP_EXCEPTION.Get_Code;
1052: l_msg_data := APP_EXCEPTION.Get_Text;
1053: FND_MESSAGE.SET_NAME('GR',
1054: 'GR_UNEXPECTED_ERROR');
1055: FND_MESSAGE.SET_TOKEN('TEXT',
1056: l_msg_token,
1057: FALSE);
1058: x_msg_data := FND_MESSAGE.Get;
1059:
1054: 'GR_UNEXPECTED_ERROR');
1055: FND_MESSAGE.SET_TOKEN('TEXT',
1056: l_msg_token,
1057: FALSE);
1058: x_msg_data := FND_MESSAGE.Get;
1059:
1060: END Check_Foreign_Keys;
1061:
1062: PROCEDURE Check_Integrity
1121:
1122: WHEN Installed_Language_Error THEN
1123: ROLLBACK TO SAVEPOINT Check_Integrity;
1124: x_return_status := 'E';
1125: FND_MESSAGE.SET_NAME('GR',
1126: 'GR_INSTALLED_LANG');
1127: FND_MESSAGE.SET_TOKEN('CODE',
1128: p_language,
1129: FALSE);
1123: ROLLBACK TO SAVEPOINT Check_Integrity;
1124: x_return_status := 'E';
1125: FND_MESSAGE.SET_NAME('GR',
1126: 'GR_INSTALLED_LANG');
1127: FND_MESSAGE.SET_TOKEN('CODE',
1128: p_language,
1129: FALSE);
1130: IF FND_API.To_Boolean(p_called_by_form) THEN
1131: APP_EXCEPTION.Raise_Exception;
1129: FALSE);
1130: IF FND_API.To_Boolean(p_called_by_form) THEN
1131: APP_EXCEPTION.Raise_Exception;
1132: ELSE
1133: x_msg_data := FND_MESSAGE.Get;
1134: END IF;
1135:
1136: WHEN OTHERS THEN
1137: ROLLBACK TO SAVEPOINT Check_Integrity;
1137: ROLLBACK TO SAVEPOINT Check_Integrity;
1138: x_return_status := 'U';
1139: x_oracle_error := APP_EXCEPTION.Get_Code;
1140: l_msg_data := APP_EXCEPTION.Get_Text;
1141: FND_MESSAGE.SET_NAME('GR',
1142: 'GR_UNEXPECTED_ERROR');
1143: FND_MESSAGE.SET_TOKEN('TEXT',
1144: l_msg_data,
1145: FALSE);
1139: x_oracle_error := APP_EXCEPTION.Get_Code;
1140: l_msg_data := APP_EXCEPTION.Get_Text;
1141: FND_MESSAGE.SET_NAME('GR',
1142: 'GR_UNEXPECTED_ERROR');
1143: FND_MESSAGE.SET_TOKEN('TEXT',
1144: l_msg_data,
1145: FALSE);
1146: IF FND_API.To_Boolean(p_called_by_form) THEN
1147: APP_EXCEPTION.Raise_Exception;
1145: FALSE);
1146: IF FND_API.To_Boolean(p_called_by_form) THEN
1147: APP_EXCEPTION.Raise_Exception;
1148: ELSE
1149: x_msg_data := FND_MESSAGE.Get;
1150: END IF;
1151:
1152: END Check_Integrity;
1153:
1203: EXCEPTION
1204:
1205: WHEN Others THEN
1206: l_msg_data := APP_EXCEPTION.Get_Text;
1207: FND_MESSAGE.SET_NAME('GR',
1208: 'GR_UNEXPECTED_ERROR');
1209: FND_MESSAGE.SET_TOKEN('TEXT',
1210: l_msg_data,
1211: FALSE);
1205: WHEN Others THEN
1206: l_msg_data := APP_EXCEPTION.Get_Text;
1207: FND_MESSAGE.SET_NAME('GR',
1208: 'GR_UNEXPECTED_ERROR');
1209: FND_MESSAGE.SET_TOKEN('TEXT',
1210: l_msg_data,
1211: FALSE);
1212: IF FND_API.To_Boolean(p_called_by_form) THEN
1213: APP_EXCEPTION.Raise_Exception;