274: FND_MESSAGE.SET_TOKEN('TEXT',
275: l_msg_data,
276: FALSE);
277: IF FND_API.To_Boolean(p_called_by_form) THEN
278: APP_EXCEPTION.Raise_Exception;
279: ELSE
280: x_msg_data := FND_MESSAGE.Get;
281: END IF;
282:
282:
283: WHEN Label_Exists_Error THEN
284: ROLLBACK TO SAVEPOINT Insert_Row;
285: x_return_status := 'E';
286: x_oracle_error := APP_EXCEPTION.Get_Code;
287: FND_MESSAGE.SET_NAME('GR',
288: 'GR_RECORD_EXISTS');
289: FND_MESSAGE.SET_TOKEN('CODE',
290: p_document_structures_seqno ,
289: FND_MESSAGE.SET_TOKEN('CODE',
290: p_document_structures_seqno ,
291: FALSE);
292: IF FND_API.To_Boolean(p_called_by_form) THEN
293: APP_EXCEPTION.Raise_Exception;
294: ELSE
295: x_msg_data := FND_MESSAGE.Get;
296: END IF;
297:
298: WHEN Row_Missing_Error THEN
299: ROLLBACK TO SAVEPOINT Insert_Row;
300: l_msg_data := p_document_structures_seqno || ' ' || p_document_headings_seqno;
301: x_return_status := 'E';
302: x_oracle_error := APP_EXCEPTION.Get_Code;
303: FND_MESSAGE.SET_NAME('GR',
304: 'GR_NO_RECORD_INSERTED');
305: FND_MESSAGE.SET_TOKEN('CODE',
306: l_msg_data,
305: FND_MESSAGE.SET_TOKEN('CODE',
306: l_msg_data,
307: FALSE);
308: IF FND_API.To_Boolean(p_called_by_form) THEN
309: APP_EXCEPTION.Raise_Exception;
310: ELSE
311: x_msg_data := FND_MESSAGE.Get;
312: END IF;
313:
313:
314: WHEN OTHERS THEN
315: ROLLBACK TO SAVEPOINT Insert_Row;
316: x_return_status := 'U';
317: x_oracle_error := APP_EXCEPTION.Get_Code;
318: l_msg_data := APP_EXCEPTION.Get_Text;
319: FND_MESSAGE.SET_NAME('GR',
320: 'GR_UNEXPECTED_ERROR');
321: FND_MESSAGE.SET_TOKEN('TEXT',
314: WHEN OTHERS THEN
315: ROLLBACK TO SAVEPOINT Insert_Row;
316: x_return_status := 'U';
317: x_oracle_error := APP_EXCEPTION.Get_Code;
318: l_msg_data := APP_EXCEPTION.Get_Text;
319: FND_MESSAGE.SET_NAME('GR',
320: 'GR_UNEXPECTED_ERROR');
321: FND_MESSAGE.SET_TOKEN('TEXT',
322: l_msg_data,
321: FND_MESSAGE.SET_TOKEN('TEXT',
322: l_msg_data,
323: FALSE);
324: IF FND_API.To_Boolean(p_called_by_form) THEN
325: APP_EXCEPTION.Raise_Exception;
326: ELSE
327: x_msg_data := FND_MESSAGE.Get;
328: END IF;
329:
522: FND_MESSAGE.SET_TOKEN('TEXT',
523: l_msg_data,
524: FALSE);
525: IF FND_API.To_Boolean(p_called_by_form) THEN
526: APP_EXCEPTION.Raise_Exception;
527: ELSE
528: x_msg_data := FND_MESSAGE.Get;
529: END IF;
530:
531: WHEN Row_Missing_Error THEN
532: ROLLBACK TO SAVEPOINT Update_Row;
533: l_msg_data := p_document_structures_seqno || ' ' || p_document_headings_seqno;
534: x_return_status := 'E';
535: x_oracle_error := APP_EXCEPTION.Get_Code;
536: FND_MESSAGE.SET_NAME('GR',
537: 'GR_NO_RECORD_INSERTED');
538: FND_MESSAGE.SET_TOKEN('CODE',
539: l_msg_data,
538: FND_MESSAGE.SET_TOKEN('CODE',
539: l_msg_data,
540: FALSE);
541: IF FND_API.To_Boolean(p_called_by_form) THEN
542: APP_EXCEPTION.Raise_Exception;
543: ELSE
544: x_msg_data := FND_MESSAGE.Get;
545: END IF;
546:
546:
547: WHEN OTHERS THEN
548: ROLLBACK TO SAVEPOINT Update_Row;
549: x_return_status := 'U';
550: x_oracle_error := APP_EXCEPTION.Get_Code;
551: l_msg_data := APP_EXCEPTION.Get_Text;
552: FND_MESSAGE.SET_NAME('GR',
553: 'GR_UNEXPECTED_ERROR');
554: FND_MESSAGE.SET_TOKEN('TEXT',
547: WHEN OTHERS THEN
548: ROLLBACK TO SAVEPOINT Update_Row;
549: x_return_status := 'U';
550: x_oracle_error := APP_EXCEPTION.Get_Code;
551: l_msg_data := APP_EXCEPTION.Get_Text;
552: FND_MESSAGE.SET_NAME('GR',
553: 'GR_UNEXPECTED_ERROR');
554: FND_MESSAGE.SET_TOKEN('TEXT',
555: l_msg_data,
554: FND_MESSAGE.SET_TOKEN('TEXT',
555: l_msg_data,
556: FALSE);
557: IF FND_API.To_Boolean(p_called_by_form) THEN
558: APP_EXCEPTION.Raise_Exception;
559: ELSE
560: x_msg_data := FND_MESSAGE.Get;
561: END IF;
562:
623:
624: WHEN Row_Missing_Error THEN
625: ROLLBACK TO SAVEPOINT Update_Display_Columns;
626: x_return_status := 'E';
627: x_oracle_error := APP_EXCEPTION.Get_Code;
628: FND_MESSAGE.SET_NAME('GR',
629: 'GR_NO_RECORD_INSERTED');
630: FND_MESSAGE.SET_TOKEN('CODE',
631: p_document_structures_seqno,
630: FND_MESSAGE.SET_TOKEN('CODE',
631: p_document_structures_seqno,
632: FALSE);
633: IF FND_API.To_Boolean(p_called_by_form) THEN
634: APP_EXCEPTION.Raise_Exception;
635: ELSE
636: x_msg_data := FND_MESSAGE.Get;
637: END IF;
638:
638:
639: WHEN OTHERS THEN
640: ROLLBACK TO SAVEPOINT Update_Display_Columns;
641: x_return_status := 'U';
642: x_oracle_error := APP_EXCEPTION.Get_Code;
643: l_msg_data := APP_EXCEPTION.Get_Text;
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_UNEXPECTED_ERROR');
646: FND_MESSAGE.SET_TOKEN('TEXT',
639: WHEN OTHERS THEN
640: ROLLBACK TO SAVEPOINT Update_Display_Columns;
641: x_return_status := 'U';
642: x_oracle_error := APP_EXCEPTION.Get_Code;
643: l_msg_data := APP_EXCEPTION.Get_Text;
644: FND_MESSAGE.SET_NAME('GR',
645: 'GR_UNEXPECTED_ERROR');
646: FND_MESSAGE.SET_TOKEN('TEXT',
647: l_msg_data,
646: FND_MESSAGE.SET_TOKEN('TEXT',
647: l_msg_data,
648: FALSE);
649: IF FND_API.To_Boolean(p_called_by_form) THEN
650: APP_EXCEPTION.Raise_Exception;
651: ELSE
652: x_msg_data := FND_MESSAGE.Get;
653: END IF;
654:
768: FND_MESSAGE.SET_TOKEN('CODE',
769: l_msg_data,
770: FALSE);
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:
776:
777: WHEN Row_Already_Locked_Error THEN
778: ROLLBACK TO SAVEPOINT Lock_Row;
779: x_return_status := 'E';
780: x_oracle_error := APP_EXCEPTION.Get_Code;
781: FND_MESSAGE.SET_NAME('GR',
782: 'GR_ROW_IS_LOCKED');
783: IF FND_API.To_Boolean(p_called_by_form) THEN
784: APP_EXCEPTION.Raise_Exception;
780: x_oracle_error := APP_EXCEPTION.Get_Code;
781: FND_MESSAGE.SET_NAME('GR',
782: 'GR_ROW_IS_LOCKED');
783: IF FND_API.To_Boolean(p_called_by_form) THEN
784: APP_EXCEPTION.Raise_Exception;
785: ELSE
786: x_msg_data := FND_MESSAGE.Get;
787: END IF;
788:
788:
789: WHEN OTHERS THEN
790: ROLLBACK TO SAVEPOINT Lock_Row;
791: x_return_status := 'U';
792: x_oracle_error := APP_EXCEPTION.Get_Code;
793: l_msg_data := APP_EXCEPTION.Get_Text;
794: FND_MESSAGE.SET_NAME('GR',
795: 'GR_UNEXPECTED_ERROR');
796: FND_MESSAGE.SET_TOKEN('TEXT',
789: WHEN OTHERS THEN
790: ROLLBACK TO SAVEPOINT Lock_Row;
791: x_return_status := 'U';
792: x_oracle_error := APP_EXCEPTION.Get_Code;
793: l_msg_data := APP_EXCEPTION.Get_Text;
794: FND_MESSAGE.SET_NAME('GR',
795: 'GR_UNEXPECTED_ERROR');
796: FND_MESSAGE.SET_TOKEN('TEXT',
797: l_msg_data,
796: FND_MESSAGE.SET_TOKEN('TEXT',
797: l_msg_data,
798: FALSE);
799: IF FND_API.To_Boolean(p_called_by_form) THEN
800: APP_EXCEPTION.Raise_Exception;
801: ELSE
802: x_msg_data := FND_MESSAGE.Get;
803: END IF;
804:
950: ROLLBACK TO SAVEPOINT Delete_Row;
951: x_return_status := l_return_status;
952: x_oracle_error := l_oracle_error;
953: IF FND_API.To_Boolean(p_called_by_form) THEN
954: APP_EXCEPTION.Raise_Exception;
955: ELSE
956: x_msg_data := FND_MESSAGE.Get;
957: END IF;
958:
959: WHEN Row_Missing_Error THEN
960: ROLLBACK TO SAVEPOINT Delete_Row;
961: l_msg_data := p_document_structures_seqno || ' ' || p_document_headings_seqno;
962: x_return_status := 'E';
963: x_oracle_error := APP_EXCEPTION.Get_Code;
964: FND_MESSAGE.SET_NAME('GR',
965: 'GR_RECORD_NOT_FOUND');
966: FND_MESSAGE.SET_TOKEN('CODE',
967: l_msg_data,
966: FND_MESSAGE.SET_TOKEN('CODE',
967: l_msg_data,
968: FALSE);
969: IF FND_API.To_Boolean(p_called_by_form) THEN
970: APP_EXCEPTION.Raise_Exception;
971: ELSE
972: x_msg_data := FND_MESSAGE.Get;
973: END IF;
974:
974:
975: WHEN OTHERS THEN
976: ROLLBACK TO SAVEPOINT Delete_Row;
977: x_return_status := 'U';
978: x_oracle_error := APP_EXCEPTION.Get_Code;
979: l_msg_data := APP_EXCEPTION.Get_Text;
980: l_msg_data := APP_EXCEPTION.Get_Text;
981: FND_MESSAGE.SET_NAME('GR',
982: 'GR_UNEXPECTED_ERROR');
975: WHEN OTHERS THEN
976: ROLLBACK TO SAVEPOINT Delete_Row;
977: x_return_status := 'U';
978: x_oracle_error := APP_EXCEPTION.Get_Code;
979: l_msg_data := APP_EXCEPTION.Get_Text;
980: l_msg_data := APP_EXCEPTION.Get_Text;
981: FND_MESSAGE.SET_NAME('GR',
982: 'GR_UNEXPECTED_ERROR');
983: FND_MESSAGE.SET_TOKEN('TEXT',
976: ROLLBACK TO SAVEPOINT Delete_Row;
977: x_return_status := 'U';
978: x_oracle_error := APP_EXCEPTION.Get_Code;
979: l_msg_data := APP_EXCEPTION.Get_Text;
980: l_msg_data := APP_EXCEPTION.Get_Text;
981: FND_MESSAGE.SET_NAME('GR',
982: 'GR_UNEXPECTED_ERROR');
983: FND_MESSAGE.SET_TOKEN('TEXT',
984: l_msg_data,
983: FND_MESSAGE.SET_TOKEN('TEXT',
984: l_msg_data,
985: FALSE);
986: IF FND_API.To_Boolean(p_called_by_form) THEN
987: APP_EXCEPTION.Raise_Exception;
988: ELSE
989: x_msg_data := FND_MESSAGE.Get;
990: END IF;
991:
1148:
1149: WHEN OTHERS THEN
1150: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1151: x_return_status := 'U';
1152: x_oracle_error := APP_EXCEPTION.Get_Code;
1153: l_msg_data := APP_EXCEPTION.Get_Text;
1154: FND_MESSAGE.SET_NAME('GR',
1155: 'GR_UNEXPECTED_ERROR');
1156: FND_MESSAGE.SET_TOKEN('TEXT',
1149: WHEN OTHERS THEN
1150: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
1151: x_return_status := 'U';
1152: x_oracle_error := APP_EXCEPTION.Get_Code;
1153: l_msg_data := APP_EXCEPTION.Get_Text;
1154: FND_MESSAGE.SET_NAME('GR',
1155: 'GR_UNEXPECTED_ERROR');
1156: FND_MESSAGE.SET_TOKEN('TEXT',
1157: l_msg_data,
1242:
1243: WHEN OTHERS THEN
1244: ROLLBACK TO SAVEPOINT Check_Integrity;
1245: x_return_status := 'U';
1246: x_oracle_error := APP_EXCEPTION.Get_Code;
1247: l_msg_data := APP_EXCEPTION.Get_Text;
1248: FND_MESSAGE.SET_NAME('GR',
1249: 'GR_UNEXPECTED_ERROR');
1250: FND_MESSAGE.SET_TOKEN('TEXT',
1243: WHEN OTHERS THEN
1244: ROLLBACK TO SAVEPOINT Check_Integrity;
1245: x_return_status := 'U';
1246: x_oracle_error := APP_EXCEPTION.Get_Code;
1247: l_msg_data := APP_EXCEPTION.Get_Text;
1248: FND_MESSAGE.SET_NAME('GR',
1249: 'GR_UNEXPECTED_ERROR');
1250: FND_MESSAGE.SET_TOKEN('TEXT',
1251: l_msg_data,
1250: FND_MESSAGE.SET_TOKEN('TEXT',
1251: l_msg_data,
1252: FALSE);
1253: IF FND_API.To_Boolean(p_called_by_form) THEN
1254: APP_EXCEPTION.Raise_Exception;
1255: ELSE
1256: x_msg_data := FND_MESSAGE.Get;
1257: END IF;
1258:
1302:
1303: EXCEPTION
1304:
1305: WHEN Others THEN
1306: l_msg_data := APP_EXCEPTION.Get_Text;
1307: FND_MESSAGE.SET_NAME('GR',
1308: 'GR_UNEXPECTED_ERROR');
1309: FND_MESSAGE.SET_TOKEN('TEXT',
1310: l_msg_data,
1309: FND_MESSAGE.SET_TOKEN('TEXT',
1310: l_msg_data,
1311: FALSE);
1312: IF FND_API.To_Boolean(p_called_by_form) THEN
1313: APP_EXCEPTION.Raise_Exception;
1314: END IF;
1315:
1316: END Check_Primary_Key;
1317: