DBA Data[Home] [Help]

APPS.GR_ITEM_TOXIC_PKG dependencies on FND_MESSAGE

Line 283: FND_MESSAGE.SET_NAME('GR',

279: WHEN Foreign_Key_Error THEN
280: ROLLBACK TO SAVEPOINT Insert_Row;
281: x_return_status := l_return_status;
282: x_oracle_error := l_oracle_error;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_FOREIGN_KEY_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
287: FALSE);

Line 285: FND_MESSAGE.SET_TOKEN('TEXT',

281: x_return_status := l_return_status;
282: x_oracle_error := l_oracle_error;
283: FND_MESSAGE.SET_NAME('GR',
284: 'GR_FOREIGN_KEY_ERROR');
285: FND_MESSAGE.SET_TOKEN('TEXT',
286: l_msg_data,
287: FALSE);
288: IF FND_API.To_Boolean(p_called_by_form) THEN
289: APP_EXCEPTION.Raise_Exception;

Line 291: x_msg_data := FND_MESSAGE.Get;

287: FALSE);
288: IF FND_API.To_Boolean(p_called_by_form) THEN
289: APP_EXCEPTION.Raise_Exception;
290: ELSE
291: x_msg_data := FND_MESSAGE.Get;
292: END IF;
293:
294: WHEN Item_Exists_Error THEN
295: ROLLBACK TO SAVEPOINT Insert_Row;

Line 298: FND_MESSAGE.SET_NAME('GR',

294: WHEN Item_Exists_Error THEN
295: ROLLBACK TO SAVEPOINT Insert_Row;
296: x_return_status := 'E';
297: x_oracle_error := APP_EXCEPTION.Get_Code;
298: FND_MESSAGE.SET_NAME('GR',
299: 'GR_RECORD_EXISTS');
300: FND_MESSAGE.SET_TOKEN('CODE',
301: l_msg_token,
302: FALSE);

Line 300: FND_MESSAGE.SET_TOKEN('CODE',

296: x_return_status := 'E';
297: x_oracle_error := APP_EXCEPTION.Get_Code;
298: FND_MESSAGE.SET_NAME('GR',
299: 'GR_RECORD_EXISTS');
300: FND_MESSAGE.SET_TOKEN('CODE',
301: l_msg_token,
302: FALSE);
303: IF FND_API.To_Boolean(p_called_by_form) THEN
304: APP_EXCEPTION.Raise_Exception;

Line 306: x_msg_data := FND_MESSAGE.Get;

302: FALSE);
303: IF FND_API.To_Boolean(p_called_by_form) THEN
304: APP_EXCEPTION.Raise_Exception;
305: ELSE
306: x_msg_data := FND_MESSAGE.Get;
307: END IF;
308:
309: WHEN Row_Missing_Error THEN
310: ROLLBACK TO SAVEPOINT Insert_Row;

Line 313: FND_MESSAGE.SET_NAME('GR',

309: WHEN Row_Missing_Error THEN
310: ROLLBACK TO SAVEPOINT Insert_Row;
311: x_return_status := 'E';
312: x_oracle_error := APP_EXCEPTION.Get_Code;
313: FND_MESSAGE.SET_NAME('GR',
314: 'GR_NO_RECORD_INSERTED');
315: FND_MESSAGE.SET_TOKEN('CODE',
316: l_msg_token,
317: FALSE);

Line 315: FND_MESSAGE.SET_TOKEN('CODE',

311: x_return_status := 'E';
312: x_oracle_error := APP_EXCEPTION.Get_Code;
313: FND_MESSAGE.SET_NAME('GR',
314: 'GR_NO_RECORD_INSERTED');
315: FND_MESSAGE.SET_TOKEN('CODE',
316: l_msg_token,
317: FALSE);
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;

Line 321: x_msg_data := FND_MESSAGE.Get;

317: FALSE);
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;
320: ELSE
321: x_msg_data := FND_MESSAGE.Get;
322: END IF;
323:
324: WHEN OTHERS THEN
325: ROLLBACK TO SAVEPOINT Insert_Row;

Line 329: FND_MESSAGE.SET_NAME('GR',

325: ROLLBACK TO SAVEPOINT Insert_Row;
326: x_return_status := 'U';
327: x_oracle_error := APP_EXCEPTION.Get_Code;
328: l_msg_data := APP_EXCEPTION.Get_Text;
329: FND_MESSAGE.SET_NAME('GR',
330: 'GR_UNEXPECTED_ERROR');
331: FND_MESSAGE.SET_TOKEN('TEXT',
332: l_msg_token,
333: FALSE);

Line 331: FND_MESSAGE.SET_TOKEN('TEXT',

327: x_oracle_error := APP_EXCEPTION.Get_Code;
328: l_msg_data := APP_EXCEPTION.Get_Text;
329: FND_MESSAGE.SET_NAME('GR',
330: 'GR_UNEXPECTED_ERROR');
331: FND_MESSAGE.SET_TOKEN('TEXT',
332: l_msg_token,
333: FALSE);
334: IF FND_API.To_Boolean(p_called_by_form) THEN
335: APP_EXCEPTION.Raise_Exception;

Line 337: x_msg_data := FND_MESSAGE.Get;

333: FALSE);
334: IF FND_API.To_Boolean(p_called_by_form) THEN
335: APP_EXCEPTION.Raise_Exception;
336: ELSE
337: x_msg_data := FND_MESSAGE.Get;
338: END IF;
339:
340: END Insert_Row;
341:

Line 541: FND_MESSAGE.SET_NAME('GR',

537: WHEN Foreign_Key_Error THEN
538: ROLLBACK TO SAVEPOINT Update_Row;
539: x_return_status := l_return_status;
540: x_oracle_error := l_oracle_error;
541: FND_MESSAGE.SET_NAME('GR',
542: 'GR_FOREIGN_KEY_ERROR');
543: FND_MESSAGE.SET_TOKEN('TEXT',
544: l_msg_data,
545: FALSE);

Line 543: FND_MESSAGE.SET_TOKEN('TEXT',

539: x_return_status := l_return_status;
540: x_oracle_error := l_oracle_error;
541: FND_MESSAGE.SET_NAME('GR',
542: 'GR_FOREIGN_KEY_ERROR');
543: FND_MESSAGE.SET_TOKEN('TEXT',
544: l_msg_data,
545: FALSE);
546: IF FND_API.To_Boolean(p_called_by_form) THEN
547: APP_EXCEPTION.Raise_Exception;

Line 549: x_msg_data := FND_MESSAGE.Get;

545: FALSE);
546: IF FND_API.To_Boolean(p_called_by_form) THEN
547: APP_EXCEPTION.Raise_Exception;
548: ELSE
549: x_msg_data := FND_MESSAGE.Get;
550: END IF;
551:
552: WHEN Row_Missing_Error THEN
553: ROLLBACK TO SAVEPOINT Update_Row;

Line 556: FND_MESSAGE.SET_NAME('GR',

552: WHEN Row_Missing_Error THEN
553: ROLLBACK TO SAVEPOINT Update_Row;
554: x_return_status := 'E';
555: x_oracle_error := APP_EXCEPTION.Get_Code;
556: FND_MESSAGE.SET_NAME('GR',
557: 'GR_NO_RECORD_INSERTED');
558: FND_MESSAGE.SET_TOKEN('CODE',
559: l_msg_token,
560: FALSE);

Line 558: FND_MESSAGE.SET_TOKEN('CODE',

554: x_return_status := 'E';
555: x_oracle_error := APP_EXCEPTION.Get_Code;
556: FND_MESSAGE.SET_NAME('GR',
557: 'GR_NO_RECORD_INSERTED');
558: FND_MESSAGE.SET_TOKEN('CODE',
559: l_msg_token,
560: FALSE);
561: IF FND_API.To_Boolean(p_called_by_form) THEN
562: APP_EXCEPTION.Raise_Exception;

Line 564: x_msg_data := FND_MESSAGE.Get;

560: FALSE);
561: IF FND_API.To_Boolean(p_called_by_form) THEN
562: APP_EXCEPTION.Raise_Exception;
563: ELSE
564: x_msg_data := FND_MESSAGE.Get;
565: END IF;
566:
567: WHEN OTHERS THEN
568: ROLLBACK TO SAVEPOINT Update_Row;

Line 572: FND_MESSAGE.SET_NAME('GR',

568: ROLLBACK TO SAVEPOINT Update_Row;
569: x_return_status := 'U';
570: x_oracle_error := APP_EXCEPTION.Get_Code;
571: l_msg_data := APP_EXCEPTION.Get_Text;
572: FND_MESSAGE.SET_NAME('GR',
573: 'GR_UNEXPECTED_ERROR');
574: FND_MESSAGE.SET_TOKEN('TEXT',
575: l_msg_token,
576: FALSE);

Line 574: FND_MESSAGE.SET_TOKEN('TEXT',

570: x_oracle_error := APP_EXCEPTION.Get_Code;
571: l_msg_data := APP_EXCEPTION.Get_Text;
572: FND_MESSAGE.SET_NAME('GR',
573: 'GR_UNEXPECTED_ERROR');
574: FND_MESSAGE.SET_TOKEN('TEXT',
575: l_msg_token,
576: FALSE);
577: IF FND_API.To_Boolean(p_called_by_form) THEN
578: APP_EXCEPTION.Raise_Exception;

Line 580: x_msg_data := FND_MESSAGE.Get;

576: FALSE);
577: IF FND_API.To_Boolean(p_called_by_form) THEN
578: APP_EXCEPTION.Raise_Exception;
579: ELSE
580: x_msg_data := FND_MESSAGE.Get;
581: END IF;
582:
583: END Update_Row;
584:

Line 698: FND_MESSAGE.SET_NAME('GR',

694:
695: WHEN No_Data_Found_Error THEN
696: ROLLBACK TO SAVEPOINT Lock_Row;
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: l_msg_token,
702: FALSE);

Line 700: FND_MESSAGE.SET_TOKEN('CODE',

696: ROLLBACK TO SAVEPOINT Lock_Row;
697: x_return_status := 'E';
698: FND_MESSAGE.SET_NAME('GR',
699: 'GR_RECORD_NOT_FOUND');
700: FND_MESSAGE.SET_TOKEN('CODE',
701: l_msg_token,
702: FALSE);
703: IF FND_API.To_Boolean(p_called_by_form) THEN
704: APP_EXCEPTION.Raise_Exception;

Line 706: x_msg_data := FND_MESSAGE.Get;

702: FALSE);
703: IF FND_API.To_Boolean(p_called_by_form) THEN
704: APP_EXCEPTION.Raise_Exception;
705: ELSE
706: x_msg_data := FND_MESSAGE.Get;
707: END IF;
708:
709: WHEN Row_Already_Locked_Error THEN
710: ROLLBACK TO SAVEPOINT Lock_Row;

Line 713: FND_MESSAGE.SET_NAME('GR',

709: WHEN Row_Already_Locked_Error THEN
710: ROLLBACK TO SAVEPOINT Lock_Row;
711: x_return_status := 'E';
712: x_oracle_error := APP_EXCEPTION.Get_Code;
713: FND_MESSAGE.SET_NAME('GR',
714: 'GR_ROW_IS_LOCKED');
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
717: ELSE

Line 718: x_msg_data := FND_MESSAGE.Get;

714: 'GR_ROW_IS_LOCKED');
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
717: ELSE
718: x_msg_data := FND_MESSAGE.Get;
719: END IF;
720:
721: WHEN OTHERS THEN
722: ROLLBACK TO SAVEPOINT Lock_Row;

Line 726: FND_MESSAGE.SET_NAME('GR',

722: ROLLBACK TO SAVEPOINT Lock_Row;
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_token,
730: FALSE);

Line 728: FND_MESSAGE.SET_TOKEN('TEXT',

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_token,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;

Line 734: x_msg_data := FND_MESSAGE.Get;

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 Lock_Row;
738:

Line 895: x_msg_data := FND_MESSAGE.Get;

891: x_oracle_error := l_oracle_error;
892: IF FND_API.To_Boolean(p_called_by_form) THEN
893: APP_EXCEPTION.Raise_Exception;
894: ELSE
895: x_msg_data := FND_MESSAGE.Get;
896: END IF;
897:
898: WHEN Row_Missing_Error THEN
899: ROLLBACK TO SAVEPOINT Delete_Row;

Line 902: FND_MESSAGE.SET_NAME('GR',

898: WHEN Row_Missing_Error THEN
899: ROLLBACK TO SAVEPOINT Delete_Row;
900: x_return_status := 'E';
901: x_oracle_error := APP_EXCEPTION.Get_Code;
902: FND_MESSAGE.SET_NAME('GR',
903: 'GR_RECORD_NOT_FOUND');
904: FND_MESSAGE.SET_TOKEN('CODE',
905: l_msg_token,
906: FALSE);

Line 904: FND_MESSAGE.SET_TOKEN('CODE',

900: x_return_status := 'E';
901: x_oracle_error := APP_EXCEPTION.Get_Code;
902: FND_MESSAGE.SET_NAME('GR',
903: 'GR_RECORD_NOT_FOUND');
904: FND_MESSAGE.SET_TOKEN('CODE',
905: l_msg_token,
906: FALSE);
907: IF FND_API.To_Boolean(p_called_by_form) THEN
908: APP_EXCEPTION.Raise_Exception;

Line 910: x_msg_data := FND_MESSAGE.Get;

906: FALSE);
907: IF FND_API.To_Boolean(p_called_by_form) THEN
908: APP_EXCEPTION.Raise_Exception;
909: ELSE
910: x_msg_data := FND_MESSAGE.Get;
911: END IF;
912:
913: WHEN OTHERS THEN
914: ROLLBACK TO SAVEPOINT Delete_Row;

Line 919: FND_MESSAGE.SET_NAME('GR',

915: x_return_status := 'U';
916: x_oracle_error := APP_EXCEPTION.Get_Code;
917: l_msg_data := APP_EXCEPTION.Get_Text;
918: l_msg_data := APP_EXCEPTION.Get_Text;
919: FND_MESSAGE.SET_NAME('GR',
920: 'GR_UNEXPECTED_ERROR');
921: FND_MESSAGE.SET_TOKEN('TEXT',
922: l_msg_token,
923: FALSE);

Line 921: FND_MESSAGE.SET_TOKEN('TEXT',

917: l_msg_data := APP_EXCEPTION.Get_Text;
918: l_msg_data := APP_EXCEPTION.Get_Text;
919: FND_MESSAGE.SET_NAME('GR',
920: 'GR_UNEXPECTED_ERROR');
921: FND_MESSAGE.SET_TOKEN('TEXT',
922: l_msg_token,
923: FALSE);
924: IF FND_API.To_Boolean(p_called_by_form) THEN
925: APP_EXCEPTION.Raise_Exception;

Line 927: x_msg_data := FND_MESSAGE.Get;

923: FALSE);
924: IF FND_API.To_Boolean(p_called_by_form) THEN
925: APP_EXCEPTION.Raise_Exception;
926: ELSE
927: x_msg_data := FND_MESSAGE.Get;
928: END IF;
929:
930: END Delete_Row;
931:

Line 1063: FND_MESSAGE.SET_NAME('GR',

1059:
1060: WHEN Null_Delete_Option_Error THEN
1061: x_return_status := 'E';
1062: x_oracle_error := APP_EXCEPTION.Get_Code;
1063: FND_MESSAGE.SET_NAME('GR',
1064: 'GR_NULL_VALUE');
1065: FND_MESSAGE.SET_TOKEN('CODE',
1066: l_msg_token,
1067: FALSE);

Line 1065: FND_MESSAGE.SET_TOKEN('CODE',

1061: x_return_status := 'E';
1062: x_oracle_error := APP_EXCEPTION.Get_Code;
1063: FND_MESSAGE.SET_NAME('GR',
1064: 'GR_NULL_VALUE');
1065: FND_MESSAGE.SET_TOKEN('CODE',
1066: l_msg_token,
1067: FALSE);
1068: IF FND_API.To_Boolean(p_called_by_form) THEN
1069: APP_EXCEPTION.Raise_Exception;

Line 1071: x_msg_data := FND_MESSAGE.Get;

1067: FALSE);
1068: IF FND_API.To_Boolean(p_called_by_form) THEN
1069: APP_EXCEPTION.Raise_Exception;
1070: ELSE
1071: x_msg_data := FND_MESSAGE.Get;
1072: END IF;
1073:
1074: WHEN OTHERS THEN
1075: ROLLBACK TO SAVEPOINT Delete_Rows;

Line 1079: FND_MESSAGE.SET_NAME('GR',

1075: ROLLBACK TO SAVEPOINT Delete_Rows;
1076: x_return_status := 'U';
1077: x_oracle_error := APP_EXCEPTION.Get_Code;
1078: l_msg_data := APP_EXCEPTION.Get_Text;
1079: FND_MESSAGE.SET_NAME('GR',
1080: 'GR_UNEXPECTED_ERROR');
1081: FND_MESSAGE.SET_TOKEN('TEXT',
1082: l_msg_token,
1083: FALSE);

Line 1081: FND_MESSAGE.SET_TOKEN('TEXT',

1077: x_oracle_error := APP_EXCEPTION.Get_Code;
1078: l_msg_data := APP_EXCEPTION.Get_Text;
1079: FND_MESSAGE.SET_NAME('GR',
1080: 'GR_UNEXPECTED_ERROR');
1081: FND_MESSAGE.SET_TOKEN('TEXT',
1082: l_msg_token,
1083: FALSE);
1084: IF FND_API.To_Boolean(p_called_by_form) THEN
1085: APP_EXCEPTION.Raise_Exception;

Line 1087: x_msg_data := FND_MESSAGE.Get;

1083: FALSE);
1084: IF FND_API.To_Boolean(p_called_by_form) THEN
1085: APP_EXCEPTION.Raise_Exception;
1086: ELSE
1087: x_msg_data := FND_MESSAGE.Get;
1088: END IF;
1089:
1090: END Delete_Rows;
1091:

Line 1243: FND_MESSAGE.SET_NAME('GR',

1239:
1240: WHEN Row_Missing_Error THEN
1241: x_return_status := 'E';
1242: x_oracle_error := APP_EXCEPTION.Get_Code;
1243: FND_MESSAGE.SET_NAME('GR',
1244: 'GR_RECORD_NOT_FOUND');
1245: FND_MESSAGE.SET_TOKEN('CODE',
1246: l_msg_token,
1247: FALSE);

Line 1245: FND_MESSAGE.SET_TOKEN('CODE',

1241: x_return_status := 'E';
1242: x_oracle_error := APP_EXCEPTION.Get_Code;
1243: FND_MESSAGE.SET_NAME('GR',
1244: 'GR_RECORD_NOT_FOUND');
1245: FND_MESSAGE.SET_TOKEN('CODE',
1246: l_msg_token,
1247: FALSE);
1248: x_msg_data := FND_MESSAGE.Get;
1249:

Line 1248: x_msg_data := FND_MESSAGE.Get;

1244: 'GR_RECORD_NOT_FOUND');
1245: FND_MESSAGE.SET_TOKEN('CODE',
1246: l_msg_token,
1247: FALSE);
1248: x_msg_data := FND_MESSAGE.Get;
1249:
1250: WHEN OTHERS THEN
1251: x_return_status := 'U';
1252: x_oracle_error := APP_EXCEPTION.Get_Code;

Line 1254: FND_MESSAGE.SET_NAME('GR',

1250: WHEN OTHERS THEN
1251: x_return_status := 'U';
1252: x_oracle_error := APP_EXCEPTION.Get_Code;
1253: l_msg_data := APP_EXCEPTION.Get_Text;
1254: FND_MESSAGE.SET_NAME('GR',
1255: 'GR_UNEXPECTED_ERROR');
1256: FND_MESSAGE.SET_TOKEN('TEXT',
1257: l_msg_token,
1258: FALSE);

Line 1256: FND_MESSAGE.SET_TOKEN('TEXT',

1252: x_oracle_error := APP_EXCEPTION.Get_Code;
1253: l_msg_data := APP_EXCEPTION.Get_Text;
1254: FND_MESSAGE.SET_NAME('GR',
1255: 'GR_UNEXPECTED_ERROR');
1256: FND_MESSAGE.SET_TOKEN('TEXT',
1257: l_msg_token,
1258: FALSE);
1259: x_msg_data := FND_MESSAGE.Get;
1260:

Line 1259: x_msg_data := FND_MESSAGE.Get;

1255: 'GR_UNEXPECTED_ERROR');
1256: FND_MESSAGE.SET_TOKEN('TEXT',
1257: l_msg_token,
1258: FALSE);
1259: x_msg_data := FND_MESSAGE.Get;
1260:
1261: END Check_Foreign_Keys;
1262:
1263: PROCEDURE Check_Integrity

Line 1343: FND_MESSAGE.SET_NAME('GR',

1339: ROLLBACK TO SAVEPOINT Check_Integrity;
1340: x_return_status := 'U';
1341: x_oracle_error := APP_EXCEPTION.Get_Code;
1342: l_msg_data := APP_EXCEPTION.Get_Text;
1343: FND_MESSAGE.SET_NAME('GR',
1344: 'GR_UNEXPECTED_ERROR');
1345: FND_MESSAGE.SET_TOKEN('TEXT',
1346: l_msg_data,
1347: FALSE);

Line 1345: FND_MESSAGE.SET_TOKEN('TEXT',

1341: x_oracle_error := APP_EXCEPTION.Get_Code;
1342: l_msg_data := APP_EXCEPTION.Get_Text;
1343: FND_MESSAGE.SET_NAME('GR',
1344: 'GR_UNEXPECTED_ERROR');
1345: FND_MESSAGE.SET_TOKEN('TEXT',
1346: l_msg_data,
1347: FALSE);
1348: IF FND_API.To_Boolean(p_called_by_form) THEN
1349: APP_EXCEPTION.Raise_Exception;

Line 1351: x_msg_data := FND_MESSAGE.Get;

1347: FALSE);
1348: IF FND_API.To_Boolean(p_called_by_form) THEN
1349: APP_EXCEPTION.Raise_Exception;
1350: ELSE
1351: x_msg_data := FND_MESSAGE.Get;
1352: END IF;
1353:
1354: END Check_Integrity;
1355:

Line 1415: FND_MESSAGE.SET_NAME('GR',

1411: EXCEPTION
1412:
1413: WHEN Others THEN
1414: l_msg_data := APP_EXCEPTION.Get_Text;
1415: FND_MESSAGE.SET_NAME('GR',
1416: 'GR_UNEXPECTED_ERROR');
1417: FND_MESSAGE.SET_TOKEN('TEXT',
1418: l_msg_data,
1419: FALSE);

Line 1417: FND_MESSAGE.SET_TOKEN('TEXT',

1413: WHEN Others THEN
1414: l_msg_data := APP_EXCEPTION.Get_Text;
1415: FND_MESSAGE.SET_NAME('GR',
1416: 'GR_UNEXPECTED_ERROR');
1417: FND_MESSAGE.SET_TOKEN('TEXT',
1418: l_msg_data,
1419: FALSE);
1420: IF FND_API.To_Boolean(p_called_by_form) THEN
1421: APP_EXCEPTION.Raise_Exception;