130: FND_MESSAGE.SET_TOKEN('TEXT',
131: l_msg_data,
132: FALSE);
133: IF FND_API.To_Boolean(p_called_by_form) THEN
134: APP_EXCEPTION.Raise_Exception;
135: ELSE
136: x_msg_data := FND_MESSAGE.Get;
137: END IF;
138:
139: WHEN Item_Exists_Error THEN
140: ROLLBACK TO SAVEPOINT Insert_Row;
141: l_msg_token := p_cover_letter_id;
142: x_return_status := 'E';
143: x_oracle_error := APP_EXCEPTION.Get_Code;
144: FND_MESSAGE.SET_NAME('GR',
145: 'GR_RECORD_EXISTS');
146: FND_MESSAGE.SET_TOKEN('CODE',
147: l_msg_token,
146: FND_MESSAGE.SET_TOKEN('CODE',
147: l_msg_token,
148: FALSE);
149: IF FND_API.To_Boolean(p_called_by_form) THEN
150: APP_EXCEPTION.Raise_Exception;
151: ELSE
152: x_msg_data := FND_MESSAGE.Get;
153: END IF;
154:
155: WHEN Row_Missing_Error THEN
156: ROLLBACK TO SAVEPOINT Insert_Row;
157: l_msg_token := p_cover_letter_id;
158: x_return_status := 'E';
159: x_oracle_error := APP_EXCEPTION.Get_Code;
160: FND_MESSAGE.SET_NAME('GR',
161: 'GR_NO_RECORD_INSERTED');
162: FND_MESSAGE.SET_TOKEN('CODE',
163: l_msg_token,
162: FND_MESSAGE.SET_TOKEN('CODE',
163: l_msg_token,
164: FALSE);
165: IF FND_API.To_Boolean(p_called_by_form) THEN
166: APP_EXCEPTION.Raise_Exception;
167: ELSE
168: x_msg_data := FND_MESSAGE.Get;
169: END IF;
170:
171: WHEN OTHERS THEN
172: ROLLBACK TO SAVEPOINT Insert_Row;
173: l_msg_token := p_cover_letter_id;
174: x_return_status := 'U';
175: --B1052134 - changed APP_EXCEPTION to SQLCODE, added SQLERRM
176: x_oracle_error := SQLCODE;
177: l_msg_data := SUBSTR(SQLERRM, 1, 200);
178: FND_MESSAGE.SET_NAME('GR',
179: 'GR_UNEXPECTED_ERROR');
180: FND_MESSAGE.SET_TOKEN('TEXT',
181: l_msg_token||sqlerrm,
182: FALSE);
183: IF FND_API.To_Boolean(p_called_by_form) THEN
184: APP_EXCEPTION.Raise_Exception;
185: ELSE
186: x_msg_data := FND_MESSAGE.Get;
187: END IF;
188:
281: FND_MESSAGE.SET_TOKEN('TEXT',
282: l_msg_data,
283: FALSE);
284: IF FND_API.To_Boolean(p_called_by_form) THEN
285: APP_EXCEPTION.Raise_Exception;
286: ELSE
287: x_msg_data := FND_MESSAGE.Get;
288: END IF;
289:
289:
290: WHEN Row_Missing_Error THEN
291: ROLLBACK TO SAVEPOINT Update_Row;
292: x_return_status := 'E';
293: x_oracle_error := APP_EXCEPTION.Get_Code;
294: FND_MESSAGE.SET_NAME('GR',
295: 'GR_NO_RECORD_INSERTED');
296: FND_MESSAGE.SET_TOKEN('CODE',
297: l_msg_token,
296: FND_MESSAGE.SET_TOKEN('CODE',
297: l_msg_token,
298: FALSE);
299: IF FND_API.To_Boolean(p_called_by_form) THEN
300: APP_EXCEPTION.Raise_Exception;
301: ELSE
302: x_msg_data := FND_MESSAGE.Get;
303: END IF;
304:
306: ROLLBACK TO SAVEPOINT Update_Row;
307: x_return_status := 'U';
308: x_oracle_error := SQLCODE;
309: l_msg_data := SUBSTR(SQLERRM, 1, 200);
310: -- l_msg_data := APP_EXCEPTION.Get_Text;
311: FND_MESSAGE.SET_NAME('GR',
312: 'GR_UNEXPECTED_ERROR');
313: FND_MESSAGE.SET_TOKEN('TEXT',
314: l_msg_token||sqlerrm,
313: FND_MESSAGE.SET_TOKEN('TEXT',
314: l_msg_token||sqlerrm,
315: FALSE);
316: IF FND_API.To_Boolean(p_called_by_form) THEN
317: APP_EXCEPTION.Raise_Exception;
318: ELSE
319: x_msg_data := FND_MESSAGE.Get;
320: END IF;
321:
498:
499: WHEN Language_Missing_Error THEN
500: ROLLBACK TO SAVEPOINT Add_Language;
501: x_return_status := 'E';
502: x_oracle_error := APP_EXCEPTION.Get_Code;
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_RECORD_NOT_FOUND');
505: FND_MESSAGE.SET_TOKEN('CODE',
506: l_msg_token,
505: FND_MESSAGE.SET_TOKEN('CODE',
506: l_msg_token,
507: FALSE);
508: IF FND_API.To_Boolean(p_called_by_form) THEN
509: APP_EXCEPTION.Raise_Exception;
510: ELSE
511: x_msg_data := FND_MESSAGE.Get;
512: END IF;
513:
521: FND_MESSAGE.SET_TOKEN('TEXT',
522: l_msg_token||sqlerrm,
523: FALSE);
524: IF FND_API.To_Boolean(p_called_by_form) THEN
525: APP_EXCEPTION.Raise_Exception;
526: ELSE
527: x_msg_data := FND_MESSAGE.Get;
528: END IF;
529:
608: FND_MESSAGE.SET_TOKEN('CODE',
609: l_msg_token,
610: FALSE);
611: IF FND_API.To_Boolean(p_called_by_form) THEN
612: APP_EXCEPTION.Raise_Exception;
613: ELSE
614: x_msg_data := FND_MESSAGE.Get;
615: END IF;
616:
616:
617: WHEN Row_Already_Locked_Error THEN
618: ROLLBACK TO SAVEPOINT Lock_Row;
619: x_return_status := 'E';
620: x_oracle_error := APP_EXCEPTION.Get_Code;
621: FND_MESSAGE.SET_NAME('GR',
622: 'GR_ROW_IS_LOCKED');
623: IF FND_API.To_Boolean(p_called_by_form) THEN
624: APP_EXCEPTION.Raise_Exception;
620: x_oracle_error := APP_EXCEPTION.Get_Code;
621: FND_MESSAGE.SET_NAME('GR',
622: 'GR_ROW_IS_LOCKED');
623: IF FND_API.To_Boolean(p_called_by_form) THEN
624: APP_EXCEPTION.Raise_Exception;
625: ELSE
626: x_msg_data := FND_MESSAGE.Get;
627: END IF;
628:
630: ROLLBACK TO SAVEPOINT Lock_Row;
631: x_return_status := 'U';
632: x_oracle_error := SQLCODE;
633: l_msg_data := SUBSTR(SQLERRM, 1, 200);
634: --l_msg_data := APP_EXCEPTION.Get_Text;
635: FND_MESSAGE.SET_NAME('GR',
636: 'GR_UNEXPECTED_ERROR');
637: FND_MESSAGE.SET_TOKEN('TEXT',
638: l_msg_token||sqlerrm,
637: FND_MESSAGE.SET_TOKEN('TEXT',
638: l_msg_token||sqlerrm,
639: FALSE);
640: IF FND_API.To_Boolean(p_called_by_form) THEN
641: APP_EXCEPTION.Raise_Exception;
642: ELSE
643: x_msg_data := FND_MESSAGE.Get;
644: END IF;
645:
726: ROLLBACK TO SAVEPOINT Delete_Row;
727: x_return_status := l_return_status;
728: x_oracle_error := l_oracle_error;
729: IF FND_API.To_Boolean(p_called_by_form) THEN
730: APP_EXCEPTION.Raise_Exception;
731: ELSE
732: x_msg_data := FND_MESSAGE.Get;
733: END IF;
734:
734:
735: WHEN Row_Missing_Error THEN
736: ROLLBACK TO SAVEPOINT Delete_Row;
737: x_return_status := 'E';
738: x_oracle_error := APP_EXCEPTION.Get_Code;
739: FND_MESSAGE.SET_NAME('GR',
740: 'GR_RECORD_NOT_FOUND');
741: FND_MESSAGE.SET_TOKEN('CODE',
742: l_msg_token,
741: FND_MESSAGE.SET_TOKEN('CODE',
742: l_msg_token,
743: FALSE);
744: IF FND_API.To_Boolean(p_called_by_form) THEN
745: APP_EXCEPTION.Raise_Exception;
746: ELSE
747: x_msg_data := FND_MESSAGE.Get;
748: END IF;
749:
757: FND_MESSAGE.SET_TOKEN('TEXT',
758: l_msg_data,
759: FALSE);
760: IF FND_API.To_Boolean(p_called_by_form) THEN
761: APP_EXCEPTION.Raise_Exception;
762: ELSE
763: x_msg_data := FND_MESSAGE.Get;
764: END IF;
765:
809: ROLLBACK TO SAVEPOINT Delete_Rows;
810: x_return_status := 'U';
811: x_oracle_error := SQLCODE;
812: l_msg_token := SUBSTR(SQLERRM, 1, 200);
813: -- l_msg_data := APP_EXCEPTION.Get_Text;
814: FND_MESSAGE.SET_NAME('GR',
815: 'GR_UNEXPECTED_ERROR');
816: FND_MESSAGE.SET_TOKEN('TEXT',
817: l_msg_token||sqlerrm,
816: FND_MESSAGE.SET_TOKEN('TEXT',
817: l_msg_token||sqlerrm,
818: FALSE);
819: IF FND_API.To_Boolean(p_called_by_form) THEN
820: APP_EXCEPTION.Raise_Exception;
821: ELSE
822: x_msg_data := FND_MESSAGE.Get;
823: END IF;
824:
895:
896: WHEN Row_Missing_Error THEN
897: ROLLBACK TO SAVEPOINT Delete_Row;
898: x_return_status := 'E';
899: x_oracle_error := APP_EXCEPTION.Get_Code;
900: FND_MESSAGE.SET_NAME('GR',
901: 'GR_RECORD_NOT_FOUND');
902: FND_MESSAGE.SET_TOKEN('CODE',
903: l_msg_token,
908: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
909: x_return_status := 'U';
910: x_oracle_error := SQLCODE;
911: l_msg_data := SUBSTR(SQLERRM, 1, 200);
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||sqlerrm,
986: FND_MESSAGE.SET_TOKEN('CODE',
987: p_language,
988: FALSE);
989: IF FND_API.To_Boolean(p_called_by_form) THEN
990: APP_EXCEPTION.Raise_Exception;
991: ELSE
992: x_msg_data := FND_MESSAGE.Get;
993: END IF;
994:
996: ROLLBACK TO SAVEPOINT Check_Integrity;
997: x_return_status := 'U';
998: x_oracle_error := SQLCODE;
999: l_msg_data := SUBSTR(SQLERRM, 1, 200);
1000: --l_msg_data := APP_EXCEPTION.Get_Text;
1001: FND_MESSAGE.SET_NAME('GR',
1002: 'GR_UNEXPECTED_ERROR');
1003: FND_MESSAGE.SET_TOKEN('TEXT',
1004: l_msg_data,
1003: FND_MESSAGE.SET_TOKEN('TEXT',
1004: l_msg_data,
1005: FALSE);
1006: IF FND_API.To_Boolean(p_called_by_form) THEN
1007: APP_EXCEPTION.Raise_Exception;
1008: ELSE
1009: x_msg_data := FND_MESSAGE.Get;
1010: END IF;
1011:
1063: FND_MESSAGE.SET_TOKEN('TEXT',
1064: l_msg_data,
1065: FALSE);
1066: IF FND_API.To_Boolean(p_called_by_form) THEN
1067: APP_EXCEPTION.Raise_Exception;
1068: END IF;
1069:
1070: END Check_Primary_Key;
1071: