[Home] [Help]
65: 'F',
66: l_rowid,
67: l_key_exists);
68:
69: IF FND_API.To_Boolean(l_key_exists) THEN
70: RAISE Item_Exists_Error;
71: END IF;
72:
73: INSERT INTO gr_toxic_species_b
98: 'F',
99: l_rowid,
100: l_key_exists);
101:
102: IF FND_API.To_Boolean(l_key_exists) THEN
103: x_rowid := l_rowid;
104: ELSE
105: RAISE Row_Missing_Error;
106: END IF;
106: END IF;
107:
108: /* Check the commit flag and if set, then commit the work. */
109:
110: IF FND_API.To_Boolean(p_commit) THEN
111: COMMIT WORK;
112: END IF;
113:
114: EXCEPTION
121: 'GR_FOREIGN_KEY_ERROR');
122: FND_MESSAGE.SET_TOKEN('TEXT',
123: l_msg_data,
124: FALSE);
125: IF FND_API.To_Boolean(p_called_by_form) THEN
126: APP_EXCEPTION.Raise_Exception;
127: ELSE
128: x_msg_data := FND_MESSAGE.Get;
129: END IF;
136: 'GR_RECORD_EXISTS');
137: FND_MESSAGE.SET_TOKEN('CODE',
138: p_toxic_species_code,
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
142: ELSE
143: x_msg_data := FND_MESSAGE.Get;
144: END IF;
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_toxic_species_code,
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
157: ELSE
158: x_msg_data := FND_MESSAGE.Get;
159: END IF;
167: 'GR_UNEXPECTED_ERROR');
168: FND_MESSAGE.SET_TOKEN('TEXT',
169: l_msg_data,
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
173: ELSE
174: x_msg_data := FND_MESSAGE.Get;
175: END IF;
246: END IF;
247:
248: /* Check if do the commit */
249:
250: IF FND_API.To_Boolean(p_commit) THEN
251: COMMIT WORK;
252: END IF;
253:
254: EXCEPTION
261: 'GR_FOREIGN_KEY_ERROR');
262: FND_MESSAGE.SET_TOKEN('TEXT',
263: l_msg_data,
264: FALSE);
265: IF FND_API.To_Boolean(p_called_by_form) THEN
266: APP_EXCEPTION.Raise_Exception;
267: ELSE
268: x_msg_data := FND_MESSAGE.Get;
269: END IF;
276: 'GR_NO_RECORD_INSERTED');
277: FND_MESSAGE.SET_TOKEN('CODE',
278: p_toxic_species_code,
279: FALSE);
280: IF FND_API.To_Boolean(p_called_by_form) THEN
281: APP_EXCEPTION.Raise_Exception;
282: ELSE
283: x_msg_data := FND_MESSAGE.Get;
284: END IF;
292: 'GR_UNEXPECTED_ERROR');
293: FND_MESSAGE.SET_TOKEN('TEXT',
294: l_msg_data,
295: FALSE);
296: IF FND_API.To_Boolean(p_called_by_form) THEN
297: APP_EXCEPTION.Raise_Exception;
298: ELSE
299: x_msg_data := FND_MESSAGE.Get;
300: END IF;
363: IF LockSpeciesRcd.last_update_date <> p_last_update_date THEN
364: RAISE RECORD_CHANGED_ERROR;
365: END IF;
366:
367: IF FND_API.To_Boolean(p_commit) THEN
368: COMMIT WORK;
369: END IF;
370:
371: EXCEPTION
377: 'GR_RECORD_NOT_FOUND');
378: FND_MESSAGE.SET_TOKEN('CODE',
379: p_toxic_species_code,
380: FALSE);
381: IF FND_API.To_Boolean(p_called_by_form) THEN
382: APP_EXCEPTION.Raise_Exception;
383: ELSE
384: x_msg_data := FND_MESSAGE.Get;
385: END IF;
388: ROLLBACK TO SAVEPOINT Lock_Row;
389: X_return_status := 'E';
390: FND_MESSAGE.SET_NAME('FND',
391: 'FORM_RECORD_CHANGED');
392: IF FND_API.To_Boolean(p_called_by_form) THEN
393: APP_EXCEPTION.Raise_Exception;
394: ELSE
395: x_msg_data := FND_MESSAGE.Get;
396: END IF;
397: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
398: ROLLBACK TO SAVEPOINT Lock_Row;
399: x_return_status := 'L';
400: x_oracle_error := APP_EXCEPTION.Get_Code;
401: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
402: FND_MESSAGE.SET_NAME('GR',
403: 'GR_ROW_IS_LOCKED');
404: x_msg_data := FND_MESSAGE.Get;
405: END IF;
414: 'GR_UNEXPECTED_ERROR');
415: FND_MESSAGE.SET_TOKEN('TEXT',
416: l_msg_data,
417: FALSE);
418: IF FND_API.To_Boolean(p_called_by_form) THEN
419: APP_EXCEPTION.Raise_Exception;
420: ELSE
421: x_msg_data := FND_MESSAGE.Get;
422: END IF;
478: WHERE rowid = p_rowid;
479:
480: /* Check the commit flag and if set, then commit the work. */
481:
482: IF FND_API.TO_Boolean(p_commit) THEN
483: COMMIT WORK;
484: END IF;
485:
486: EXCEPTION
488: WHEN Check_Integrity_Error THEN
489: ROLLBACK TO SAVEPOINT Delete_Row;
490: x_return_status := l_return_status;
491: x_oracle_error := l_oracle_error;
492: IF FND_API.To_Boolean(p_called_by_form) THEN
493: APP_EXCEPTION.Raise_Exception;
494: ELSE
495: x_msg_data := FND_MESSAGE.Get;
496: END IF;
503: 'GR_RECORD_NOT_FOUND');
504: FND_MESSAGE.SET_TOKEN('CODE',
505: p_toxic_species_code,
506: FALSE);
507: IF FND_API.To_Boolean(p_called_by_form) THEN
508: APP_EXCEPTION.Raise_Exception;
509: ELSE
510: x_msg_data := FND_MESSAGE.Get;
511: END IF;
520: 'GR_UNEXPECTED_ERROR');
521: FND_MESSAGE.SET_TOKEN('TEXT',
522: l_msg_data,
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;
641: FALSE);
642: FND_MESSAGE.SET_TOKEN('TABLES',
643: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
644: FALSE);
645: IF FND_API.To_Boolean(p_called_by_form) THEN
646: APP_EXCEPTION.Raise_Exception;
647: ELSE
648: x_msg_data := FND_MESSAGE.Get;
649: END IF;
656: 'GR_UNEXPECTED_ERROR');
657: FND_MESSAGE.SET_TOKEN('TEXT',
658: l_msg_data,
659: FALSE);
660: IF FND_API.To_Boolean(p_called_by_form) THEN
661: APP_EXCEPTION.Raise_Exception;
662: ELSE
663: x_msg_data := FND_MESSAGE.Get;
664: END IF;
703: 'GR_UNEXPECTED_ERROR');
704: FND_MESSAGE.SET_TOKEN('TEXT',
705: l_msg_data,
706: FALSE);
707: IF FND_API.To_Boolean(p_called_by_form) THEN
708: APP_EXCEPTION.Raise_Exception;
709: END IF;
710:
711: END Check_Primary_Key;