120: WHEN Foreign_Key_Error THEN
121: ROLLBACK TO SAVEPOINT Insert_Row;
122: x_return_status := l_return_status;
123: x_oracle_error := l_oracle_error;
124: FND_MESSAGE.SET_NAME('GR',
125: 'GR_FOREIGN_KEY_ERROR');
126: FND_MESSAGE.SET_TOKEN('TEXT',
127: l_msg_data,
128: FALSE);
122: x_return_status := l_return_status;
123: x_oracle_error := l_oracle_error;
124: FND_MESSAGE.SET_NAME('GR',
125: 'GR_FOREIGN_KEY_ERROR');
126: FND_MESSAGE.SET_TOKEN('TEXT',
127: l_msg_data,
128: FALSE);
129: IF FND_API.To_Boolean(p_called_by_form) THEN
130: APP_EXCEPTION.Raise_Exception;
128: FALSE);
129: IF FND_API.To_Boolean(p_called_by_form) THEN
130: APP_EXCEPTION.Raise_Exception;
131: ELSE
132: x_msg_data := FND_MESSAGE.Get;
133: END IF;
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: l_msg_token := p_property_id || ' ' || p_language;
138: x_return_status := 'E';
139: x_oracle_error := APP_EXCEPTION.Get_Code;
140: FND_MESSAGE.SET_NAME('GR',
141: 'GR_RECORD_EXISTS');
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
144: FALSE);
138: x_return_status := 'E';
139: x_oracle_error := APP_EXCEPTION.Get_Code;
140: FND_MESSAGE.SET_NAME('GR',
141: 'GR_RECORD_EXISTS');
142: FND_MESSAGE.SET_TOKEN('CODE',
143: l_msg_token,
144: FALSE);
145: IF FND_API.To_Boolean(p_called_by_form) THEN
146: APP_EXCEPTION.Raise_Exception;
144: FALSE);
145: IF FND_API.To_Boolean(p_called_by_form) THEN
146: APP_EXCEPTION.Raise_Exception;
147: ELSE
148: x_msg_data := FND_MESSAGE.Get;
149: END IF;
150:
151: WHEN Row_Missing_Error THEN
152: ROLLBACK TO SAVEPOINT Insert_Row;
152: ROLLBACK TO SAVEPOINT Insert_Row;
153: l_msg_token := p_property_id || ' ' || p_language;
154: x_return_status := 'E';
155: x_oracle_error := APP_EXCEPTION.Get_Code;
156: FND_MESSAGE.SET_NAME('GR',
157: 'GR_NO_RECORD_INSERTED');
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
160: FALSE);
154: x_return_status := 'E';
155: x_oracle_error := APP_EXCEPTION.Get_Code;
156: FND_MESSAGE.SET_NAME('GR',
157: 'GR_NO_RECORD_INSERTED');
158: FND_MESSAGE.SET_TOKEN('CODE',
159: l_msg_token,
160: FALSE);
161: IF FND_API.To_Boolean(p_called_by_form) THEN
162: APP_EXCEPTION.Raise_Exception;
160: FALSE);
161: IF FND_API.To_Boolean(p_called_by_form) THEN
162: APP_EXCEPTION.Raise_Exception;
163: ELSE
164: x_msg_data := FND_MESSAGE.Get;
165: END IF;
166:
167: WHEN OTHERS THEN
168: ROLLBACK TO SAVEPOINT Insert_Row;
169: l_msg_token := p_property_id || ' ' || p_language;
170: x_return_status := 'U';
171: x_oracle_error := SQLCODE;
172: l_msg_data := SUBSTR(SQLERRM, 1, 200);
173: FND_MESSAGE.SET_NAME('GR',
174: 'GR_UNEXPECTED_ERROR');
175: FND_MESSAGE.SET_TOKEN('TEXT',
176: l_msg_token,
177: FALSE);
171: x_oracle_error := SQLCODE;
172: l_msg_data := SUBSTR(SQLERRM, 1, 200);
173: FND_MESSAGE.SET_NAME('GR',
174: 'GR_UNEXPECTED_ERROR');
175: FND_MESSAGE.SET_TOKEN('TEXT',
176: l_msg_token,
177: FALSE);
178: IF FND_API.To_Boolean(p_called_by_form) THEN
179: APP_EXCEPTION.Raise_Exception;
177: FALSE);
178: IF FND_API.To_Boolean(p_called_by_form) THEN
179: APP_EXCEPTION.Raise_Exception;
180: ELSE
181: x_msg_data := FND_MESSAGE.Get;
182: END IF;
183:
184: END Insert_Row;
185:
267: WHEN Foreign_Key_Error THEN
268: ROLLBACK TO SAVEPOINT Update_Row;
269: x_return_status := l_return_status;
270: x_oracle_error := l_oracle_error;
271: FND_MESSAGE.SET_NAME('GR',
272: 'GR_FOREIGN_KEY_ERROR');
273: FND_MESSAGE.SET_TOKEN('TEXT',
274: l_msg_data,
275: FALSE);
269: x_return_status := l_return_status;
270: x_oracle_error := l_oracle_error;
271: FND_MESSAGE.SET_NAME('GR',
272: 'GR_FOREIGN_KEY_ERROR');
273: FND_MESSAGE.SET_TOKEN('TEXT',
274: l_msg_data,
275: FALSE);
276: IF FND_API.To_Boolean(p_called_by_form) THEN
277: APP_EXCEPTION.Raise_Exception;
275: FALSE);
276: IF FND_API.To_Boolean(p_called_by_form) THEN
277: APP_EXCEPTION.Raise_Exception;
278: ELSE
279: x_msg_data := FND_MESSAGE.Get;
280: END IF;
281:
282: WHEN Row_Missing_Error THEN
283: ROLLBACK TO SAVEPOINT Update_Row;
282: WHEN Row_Missing_Error THEN
283: ROLLBACK TO SAVEPOINT Update_Row;
284: x_return_status := 'E';
285: x_oracle_error := APP_EXCEPTION.Get_Code;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_NO_RECORD_INSERTED');
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
290: FALSE);
284: x_return_status := 'E';
285: x_oracle_error := APP_EXCEPTION.Get_Code;
286: FND_MESSAGE.SET_NAME('GR',
287: 'GR_NO_RECORD_INSERTED');
288: FND_MESSAGE.SET_TOKEN('CODE',
289: l_msg_token,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
296:
297: WHEN OTHERS THEN
298: ROLLBACK TO SAVEPOINT Update_Row;
298: ROLLBACK TO SAVEPOINT Update_Row;
299: x_return_status := 'U';
300: x_oracle_error := SQLCODE;
301: l_msg_data := SUBSTR(SQLERRM , 1, 200);
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_UNEXPECTED_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_token,
306: FALSE);
300: x_oracle_error := SQLCODE;
301: l_msg_data := SUBSTR(SQLERRM , 1, 200);
302: FND_MESSAGE.SET_NAME('GR',
303: 'GR_UNEXPECTED_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_token,
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
309: ELSE
310: x_msg_data := FND_MESSAGE.Get;
311: END IF;
312:
313: END Update_Row;
314:
481: WHEN Language_Missing_Error THEN
482: ROLLBACK TO SAVEPOINT Add_Language;
483: x_return_status := 'E';
484: x_oracle_error := APP_EXCEPTION.Get_Code;
485: FND_MESSAGE.SET_NAME('GR',
486: 'GR_RECORD_NOT_FOUND');
487: FND_MESSAGE.SET_TOKEN('CODE',
488: l_msg_token,
489: FALSE);
483: x_return_status := 'E';
484: x_oracle_error := APP_EXCEPTION.Get_Code;
485: FND_MESSAGE.SET_NAME('GR',
486: 'GR_RECORD_NOT_FOUND');
487: FND_MESSAGE.SET_TOKEN('CODE',
488: l_msg_token,
489: FALSE);
490: IF FND_API.To_Boolean(p_called_by_form) THEN
491: APP_EXCEPTION.Raise_Exception;
489: FALSE);
490: IF FND_API.To_Boolean(p_called_by_form) THEN
491: APP_EXCEPTION.Raise_Exception;
492: ELSE
493: x_msg_data := FND_MESSAGE.Get;
494: END IF;
495:
496: WHEN OTHERS THEN
497: ROLLBACK TO SAVEPOINT Add_Language;
497: ROLLBACK TO SAVEPOINT Add_Language;
498: x_return_status := 'U';
499: x_oracle_error := SQLCODE;
500: l_msg_data := SUBSTR(SQLERRM, 1, 200);
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_token,
505: FALSE);
499: x_oracle_error := SQLCODE;
500: l_msg_data := SUBSTR(SQLERRM, 1, 200);
501: FND_MESSAGE.SET_NAME('GR',
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_token,
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
505: FALSE);
506: IF FND_API.To_Boolean(p_called_by_form) THEN
507: APP_EXCEPTION.Raise_Exception;
508: ELSE
509: x_msg_data := FND_MESSAGE.Get;
510: END IF;
511:
512: END Add_Language;
513:
582:
583: WHEN No_Data_Found_Error THEN
584: ROLLBACK TO SAVEPOINT Lock_Row;
585: x_return_status := 'E';
586: FND_MESSAGE.SET_NAME('GR',
587: 'GR_RECORD_NOT_FOUND');
588: FND_MESSAGE.SET_TOKEN('CODE',
589: l_msg_token,
590: FALSE);
584: ROLLBACK TO SAVEPOINT Lock_Row;
585: x_return_status := 'E';
586: FND_MESSAGE.SET_NAME('GR',
587: 'GR_RECORD_NOT_FOUND');
588: FND_MESSAGE.SET_TOKEN('CODE',
589: l_msg_token,
590: FALSE);
591: IF FND_API.To_Boolean(p_called_by_form) THEN
592: APP_EXCEPTION.Raise_Exception;
590: FALSE);
591: IF FND_API.To_Boolean(p_called_by_form) THEN
592: APP_EXCEPTION.Raise_Exception;
593: ELSE
594: x_msg_data := FND_MESSAGE.Get;
595: END IF;
596:
597: WHEN Row_Already_Locked_Error THEN
598: ROLLBACK TO SAVEPOINT Lock_Row;
597: WHEN Row_Already_Locked_Error THEN
598: ROLLBACK TO SAVEPOINT Lock_Row;
599: x_return_status := 'E';
600: x_oracle_error := APP_EXCEPTION.Get_Code;
601: FND_MESSAGE.SET_NAME('GR',
602: 'GR_ROW_IS_LOCKED');
603: IF FND_API.To_Boolean(p_called_by_form) THEN
604: APP_EXCEPTION.Raise_Exception;
605: ELSE
602: 'GR_ROW_IS_LOCKED');
603: IF FND_API.To_Boolean(p_called_by_form) THEN
604: APP_EXCEPTION.Raise_Exception;
605: ELSE
606: x_msg_data := FND_MESSAGE.Get;
607: END IF;
608:
609: WHEN OTHERS THEN
610: ROLLBACK TO SAVEPOINT Lock_Row;
610: ROLLBACK TO SAVEPOINT Lock_Row;
611: x_return_status := 'U';
612: x_oracle_error := SQLCODE;
613: l_msg_data := SUBSTR(SQLERRM, 1, 200);
614: FND_MESSAGE.SET_NAME('GR',
615: 'GR_UNEXPECTED_ERROR');
616: FND_MESSAGE.SET_TOKEN('TEXT',
617: l_msg_token,
618: FALSE);
612: x_oracle_error := SQLCODE;
613: l_msg_data := SUBSTR(SQLERRM, 1, 200);
614: FND_MESSAGE.SET_NAME('GR',
615: 'GR_UNEXPECTED_ERROR');
616: FND_MESSAGE.SET_TOKEN('TEXT',
617: l_msg_token,
618: FALSE);
619: IF FND_API.To_Boolean(p_called_by_form) THEN
620: APP_EXCEPTION.Raise_Exception;
618: FALSE);
619: IF FND_API.To_Boolean(p_called_by_form) THEN
620: APP_EXCEPTION.Raise_Exception;
621: ELSE
622: x_msg_data := FND_MESSAGE.Get;
623: END IF;
624:
625: END Lock_Row;
626:
705: x_oracle_error := l_oracle_error;
706: IF FND_API.To_Boolean(p_called_by_form) THEN
707: APP_EXCEPTION.Raise_Exception;
708: ELSE
709: x_msg_data := FND_MESSAGE.Get;
710: END IF;
711:
712: WHEN Row_Missing_Error THEN
713: ROLLBACK TO SAVEPOINT Delete_Row;
712: WHEN Row_Missing_Error THEN
713: ROLLBACK TO SAVEPOINT Delete_Row;
714: x_return_status := 'E';
715: x_oracle_error := APP_EXCEPTION.Get_Code;
716: FND_MESSAGE.SET_NAME('GR',
717: 'GR_RECORD_NOT_FOUND');
718: FND_MESSAGE.SET_TOKEN('CODE',
719: l_msg_token,
720: FALSE);
714: x_return_status := 'E';
715: x_oracle_error := APP_EXCEPTION.Get_Code;
716: FND_MESSAGE.SET_NAME('GR',
717: 'GR_RECORD_NOT_FOUND');
718: FND_MESSAGE.SET_TOKEN('CODE',
719: l_msg_token,
720: FALSE);
721: IF FND_API.To_Boolean(p_called_by_form) THEN
722: APP_EXCEPTION.Raise_Exception;
720: FALSE);
721: IF FND_API.To_Boolean(p_called_by_form) THEN
722: APP_EXCEPTION.Raise_Exception;
723: ELSE
724: x_msg_data := FND_MESSAGE.Get;
725: END IF;
726:
727: WHEN OTHERS THEN
728: ROLLBACK TO SAVEPOINT Delete_Row;
729: x_return_status := 'U';
730: x_oracle_error := SQLCODE;
731: l_msg_data := SUBSTR(SQLERRM, 1, 200);
732: l_msg_data := APP_EXCEPTION.Get_Text;
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_UNEXPECTED_ERROR');
735: FND_MESSAGE.SET_TOKEN('TEXT',
736: l_msg_token,
737: FALSE);
731: l_msg_data := SUBSTR(SQLERRM, 1, 200);
732: l_msg_data := APP_EXCEPTION.Get_Text;
733: FND_MESSAGE.SET_NAME('GR',
734: 'GR_UNEXPECTED_ERROR');
735: FND_MESSAGE.SET_TOKEN('TEXT',
736: l_msg_token,
737: FALSE);
738: IF FND_API.To_Boolean(p_called_by_form) THEN
739: APP_EXCEPTION.Raise_Exception;
737: FALSE);
738: IF FND_API.To_Boolean(p_called_by_form) THEN
739: APP_EXCEPTION.Raise_Exception;
740: ELSE
741: x_msg_data := FND_MESSAGE.Get;
742: END IF;
743:
744: END Delete_Row;
745:
787: ROLLBACK TO SAVEPOINT Delete_Rows;
788: x_return_status := 'U';
789: x_oracle_error := SQLCODE;
790: l_msg_data := SUBSTR(SQLERRM, 1, 200);
791: FND_MESSAGE.SET_NAME('GR',
792: 'GR_UNEXPECTED_ERROR');
793: FND_MESSAGE.SET_TOKEN('TEXT',
794: l_msg_token,
795: FALSE);
789: x_oracle_error := SQLCODE;
790: l_msg_data := SUBSTR(SQLERRM, 1, 200);
791: FND_MESSAGE.SET_NAME('GR',
792: 'GR_UNEXPECTED_ERROR');
793: FND_MESSAGE.SET_TOKEN('TEXT',
794: l_msg_token,
795: FALSE);
796: IF FND_API.To_Boolean(p_called_by_form) THEN
797: APP_EXCEPTION.Raise_Exception;
795: FALSE);
796: IF FND_API.To_Boolean(p_called_by_form) THEN
797: APP_EXCEPTION.Raise_Exception;
798: ELSE
799: x_msg_data := FND_MESSAGE.Get;
800: END IF;
801:
802: END Delete_Rows;
803:
872: WHEN Row_Missing_Error THEN
873: ROLLBACK TO SAVEPOINT Delete_Row;
874: x_return_status := 'E';
875: x_oracle_error := APP_EXCEPTION.Get_Code;
876: FND_MESSAGE.SET_NAME('GR',
877: 'GR_RECORD_NOT_FOUND');
878: FND_MESSAGE.SET_TOKEN('CODE',
879: l_msg_token,
880: FALSE);
874: x_return_status := 'E';
875: x_oracle_error := APP_EXCEPTION.Get_Code;
876: FND_MESSAGE.SET_NAME('GR',
877: 'GR_RECORD_NOT_FOUND');
878: FND_MESSAGE.SET_TOKEN('CODE',
879: l_msg_token,
880: FALSE);
881: x_msg_data := FND_MESSAGE.Get;
882:
877: 'GR_RECORD_NOT_FOUND');
878: FND_MESSAGE.SET_TOKEN('CODE',
879: l_msg_token,
880: FALSE);
881: x_msg_data := FND_MESSAGE.Get;
882:
883: WHEN OTHERS THEN
884: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
885: x_return_status := 'U';
884: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
885: x_return_status := 'U';
886: x_oracle_error := SQLCODE;
887: l_msg_data := SUBSTR(SQLERRM, 1, 200);
888: FND_MESSAGE.SET_NAME('GR',
889: 'GR_UNEXPECTED_ERROR');
890: FND_MESSAGE.SET_TOKEN('TEXT',
891: l_msg_token,
892: FALSE);
886: x_oracle_error := SQLCODE;
887: l_msg_data := SUBSTR(SQLERRM, 1, 200);
888: FND_MESSAGE.SET_NAME('GR',
889: 'GR_UNEXPECTED_ERROR');
890: FND_MESSAGE.SET_TOKEN('TEXT',
891: l_msg_token,
892: FALSE);
893: x_msg_data := FND_MESSAGE.Get;
894:
889: 'GR_UNEXPECTED_ERROR');
890: FND_MESSAGE.SET_TOKEN('TEXT',
891: l_msg_token,
892: FALSE);
893: x_msg_data := FND_MESSAGE.Get;
894:
895: END Check_Foreign_Keys;
896:
897: PROCEDURE Check_Integrity
954:
955: WHEN Installed_Language_Error THEN
956: ROLLBACK TO SAVEPOINT Check_Integrity;
957: x_return_status := 'E';
958: FND_MESSAGE.SET_NAME('GR',
959: 'GR_INSTALLED_LANG');
960: FND_MESSAGE.SET_TOKEN('CODE',
961: p_language,
962: FALSE);
956: ROLLBACK TO SAVEPOINT Check_Integrity;
957: x_return_status := 'E';
958: FND_MESSAGE.SET_NAME('GR',
959: 'GR_INSTALLED_LANG');
960: FND_MESSAGE.SET_TOKEN('CODE',
961: p_language,
962: FALSE);
963: IF FND_API.To_Boolean(p_called_by_form) THEN
964: APP_EXCEPTION.Raise_Exception;
962: FALSE);
963: IF FND_API.To_Boolean(p_called_by_form) THEN
964: APP_EXCEPTION.Raise_Exception;
965: ELSE
966: x_msg_data := FND_MESSAGE.Get;
967: END IF;
968:
969: WHEN OTHERS THEN
970: ROLLBACK TO SAVEPOINT Check_Integrity;
970: ROLLBACK TO SAVEPOINT Check_Integrity;
971: x_return_status := 'U';
972: x_oracle_error := SQLCODE;
973: l_msg_data := SUBSTR(SQLERRM, 1, 200);
974: FND_MESSAGE.SET_NAME('GR',
975: 'GR_UNEXPECTED_ERROR');
976: FND_MESSAGE.SET_TOKEN('TEXT',
977: l_msg_data,
978: FALSE);
972: x_oracle_error := SQLCODE;
973: l_msg_data := SUBSTR(SQLERRM, 1, 200);
974: FND_MESSAGE.SET_NAME('GR',
975: 'GR_UNEXPECTED_ERROR');
976: FND_MESSAGE.SET_TOKEN('TEXT',
977: l_msg_data,
978: FALSE);
979: IF FND_API.To_Boolean(p_called_by_form) THEN
980: APP_EXCEPTION.Raise_Exception;
978: FALSE);
979: IF FND_API.To_Boolean(p_called_by_form) THEN
980: APP_EXCEPTION.Raise_Exception;
981: ELSE
982: x_msg_data := FND_MESSAGE.Get;
983: END IF;
984:
985: END Check_Integrity;
986:
1030: EXCEPTION
1031:
1032: WHEN Others THEN
1033: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1034: FND_MESSAGE.SET_NAME('GR',
1035: 'GR_UNEXPECTED_ERROR');
1036: FND_MESSAGE.SET_TOKEN('TEXT',
1037: l_msg_data,
1038: FALSE);
1032: WHEN Others THEN
1033: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1034: FND_MESSAGE.SET_NAME('GR',
1035: 'GR_UNEXPECTED_ERROR');
1036: FND_MESSAGE.SET_TOKEN('TEXT',
1037: l_msg_data,
1038: FALSE);
1039: IF FND_API.To_Boolean(p_called_by_form) THEN
1040: APP_EXCEPTION.Raise_Exception;