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;
131: ELSE
132: x_msg_data := FND_MESSAGE.Get;
133: END IF;
134:
134:
135: WHEN Item_Exists_Error THEN
136: ROLLBACK TO SAVEPOINT Insert_Row;
137: x_return_status := 'E';
138: x_oracle_error := APP_EXCEPTION.Get_Code;
139: FND_MESSAGE.SET_NAME('GR',
140: 'GR_RECORD_EXISTS');
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_document_code,
141: FND_MESSAGE.SET_TOKEN('CODE',
142: p_document_code,
143: FALSE);
144: IF FND_API.To_Boolean(p_called_by_form) THEN
145: APP_EXCEPTION.Raise_Exception;
146: ELSE
147: x_msg_data := FND_MESSAGE.Get;
148: END IF;
149:
149:
150: WHEN Row_Missing_Error THEN
151: ROLLBACK TO SAVEPOINT Insert_Row;
152: x_return_status := 'E';
153: x_oracle_error := APP_EXCEPTION.Get_Code;
154: FND_MESSAGE.SET_NAME('GR',
155: 'GR_NO_RECORD_INSERTED');
156: FND_MESSAGE.SET_TOKEN('CODE',
157: p_document_code,
157: p_document_code,
158: FALSE);
159: x_msg_data := FND_MESSAGE.Get;
160: IF FND_API.To_Boolean(p_called_by_form) THEN
161: APP_EXCEPTION.Raise_Exception;
162: ELSE
163: x_msg_data := FND_MESSAGE.Get;
164: END IF;
165:
173: FND_MESSAGE.SET_TOKEN('TEXT',
174: l_msg_data,
175: FALSE);
176: IF FND_API.To_Boolean(p_called_by_form) THEN
177: APP_EXCEPTION.Raise_Exception;
178: ELSE
179: x_msg_data := FND_MESSAGE.Get;
180: END IF;
181:
269: FND_MESSAGE.SET_TOKEN('TEXT',
270: l_msg_data,
271: FALSE);
272: IF FND_API.To_Boolean(p_called_by_form) THEN
273: APP_EXCEPTION.Raise_Exception;
274: ELSE
275: x_msg_data := FND_MESSAGE.Get;
276: END IF;
277:
277:
278: WHEN Row_Missing_Error THEN
279: ROLLBACK TO SAVEPOINT Update_Row;
280: x_return_status := 'E';
281: x_oracle_error := APP_EXCEPTION.Get_Code;
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_NO_RECORD_INSERTED');
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_document_code,
284: FND_MESSAGE.SET_TOKEN('CODE',
285: p_document_code,
286: FALSE);
287: IF FND_API.To_Boolean(p_called_by_form) THEN
288: APP_EXCEPTION.Raise_Exception;
289: ELSE
290: x_msg_data := FND_MESSAGE.Get;
291: END IF;
292:
300: FND_MESSAGE.SET_TOKEN('TEXT',
301: l_msg_data,
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:
479:
480: WHEN Language_Missing_Error THEN
481: ROLLBACK TO SAVEPOINT Add_Language;
482: x_return_status := 'E';
483: x_oracle_error := APP_EXCEPTION.Get_Code;
484: FND_MESSAGE.SET_NAME('GR',
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: l_msg_token,
486: FND_MESSAGE.SET_TOKEN('CODE',
487: l_msg_token,
488: FALSE);
489: IF FND_API.To_Boolean(p_called_by_form) THEN
490: APP_EXCEPTION.Raise_Exception;
491: ELSE
492: x_msg_data := FND_MESSAGE.Get;
493: END IF;
494:
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_token||SQLERRM,
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
510:
590: FND_MESSAGE.SET_TOKEN('CODE',
591: p_document_code,
592: FALSE);
593: IF FND_API.To_Boolean(p_called_by_form) THEN
594: APP_EXCEPTION.Raise_Exception;
595: ELSE
596: x_msg_data := FND_MESSAGE.Get;
597: END IF;
598: WHEN RECORD_CHANGED_ERROR THEN
600: X_return_status := 'E';
601: FND_MESSAGE.SET_NAME('FND',
602: 'FORM_RECORD_CHANGED');
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: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
604: APP_EXCEPTION.Raise_Exception;
605: ELSE
606: x_msg_data := FND_MESSAGE.Get;
607: END IF;
608: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
609: ROLLBACK TO SAVEPOINT Lock_Row;
610: x_return_status := 'L';
611: x_oracle_error := APP_EXCEPTION.Get_Code;
612: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
607: END IF;
608: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
609: ROLLBACK TO SAVEPOINT Lock_Row;
610: x_return_status := 'L';
611: x_oracle_error := APP_EXCEPTION.Get_Code;
612: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
613: FND_MESSAGE.SET_NAME('GR',
614: 'GR_ROW_IS_LOCKED');
615: x_msg_data := FND_MESSAGE.Get;
624: FND_MESSAGE.SET_TOKEN('TEXT',
625: l_msg_data,
626: FALSE);
627: IF FND_API.To_Boolean(p_called_by_form) THEN
628: APP_EXCEPTION.Raise_Exception;
629: ELSE
630: x_msg_data := FND_MESSAGE.Get;
631: END IF;
632:
695: ROLLBACK TO SAVEPOINT Delete_Row;
696: x_return_status := l_return_status;
697: x_oracle_error := l_oracle_error;
698: IF FND_API.To_Boolean(p_called_by_form) THEN
699: APP_EXCEPTION.Raise_Exception;
700: ELSE
701: x_msg_data := FND_MESSAGE.Get;
702: END IF;
703:
703:
704: WHEN Row_Missing_Error THEN
705: ROLLBACK TO SAVEPOINT Delete_Row;
706: x_return_status := 'E';
707: x_oracle_error := APP_EXCEPTION.Get_Code;
708: FND_MESSAGE.SET_NAME('GR',
709: 'GR_RECORD_NOT_FOUND');
710: FND_MESSAGE.SET_TOKEN('CODE',
711: p_document_code,
710: FND_MESSAGE.SET_TOKEN('CODE',
711: p_document_code,
712: FALSE);
713: IF FND_API.To_Boolean(p_called_by_form) THEN
714: APP_EXCEPTION.Raise_Exception;
715: ELSE
716: x_msg_data := FND_MESSAGE.Get;
717: END IF;
718:
726: FND_MESSAGE.SET_TOKEN('TEXT',
727: l_msg_data,
728: FALSE);
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:
784: FND_MESSAGE.SET_TOKEN('TEXT',
785: l_msg_token||SQLERRM,
786: FALSE);
787: IF FND_API.To_Boolean(p_called_by_form) THEN
788: APP_EXCEPTION.Raise_Exception;
789: ELSE
790: x_msg_data := FND_MESSAGE.Get;
791: END IF;
792:
841: FETCH c_get_language INTO LangRecord;
842: IF c_get_language%NOTFOUND THEN
843: l_msg_token := l_language_code;
844: x_return_status := 'E';
845: x_oracle_error := APP_EXCEPTION.Get_Code;
846: FND_MESSAGE.SET_NAME('GR',
847: 'GR_RECORD_NOT_FOUND');
848: FND_MESSAGE.SET_TOKEN('CODE',
849: l_msg_token,
857: FETCH c_get_language INTO LangRecord;
858: IF c_get_language%NOTFOUND THEN
859: l_msg_token := l_language_code;
860: x_return_status := 'E';
861: x_oracle_error := APP_EXCEPTION.Get_Code;
862: FND_MESSAGE.SET_NAME('GR',
863: 'GR_RECORD_NOT_FOUND');
864: FND_MESSAGE.SET_TOKEN('CODE',
865: l_msg_token,
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_language,
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
953: ELSE
954: x_msg_data := FND_MESSAGE.Get;
955: END IF;
956:
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
969: ELSE
970: x_msg_data := FND_MESSAGE.Get;
971: END IF;
972:
1013: FND_MESSAGE.SET_TOKEN('TEXT',
1014: l_msg_data,
1015: FALSE);
1016: IF FND_API.To_Boolean(p_called_by_form) THEN
1017: APP_EXCEPTION.Raise_Exception;
1018: END IF;
1019:
1020: END Check_Primary_Key;
1021: