[Home] [Help]
62: 'F',
63: l_rowid,
64: l_key_exists);
65:
66: IF FND_API.To_Boolean(l_key_exists) THEN
67: RAISE Item_Exists_Error;
68: END IF;
69:
70: INSERT INTO gr_toxic_effects_b
89: 'F',
90: l_rowid,
91: l_key_exists);
92:
93: IF FND_API.To_Boolean(l_key_exists) THEN
94: x_rowid := l_rowid;
95: ELSE
96: RAISE Row_Missing_Error;
97: END IF;
97: END IF;
98:
99: /* Check the commit flag and if set, then commit the work. */
100:
101: IF FND_API.To_Boolean(p_commit) THEN
102: COMMIT WORK;
103: END IF;
104:
105: EXCEPTION
112: 'GR_FOREIGN_KEY_ERROR');
113: FND_MESSAGE.SET_TOKEN('TEXT',
114: l_msg_data,
115: FALSE);
116: IF FND_API.To_Boolean(p_called_by_form) THEN
117: APP_EXCEPTION.Raise_Exception;
118: ELSE
119: x_msg_data := FND_MESSAGE.Get;
120: END IF;
127: 'GR_RECORD_EXISTS');
128: FND_MESSAGE.SET_TOKEN('CODE',
129: p_toxic_effect_code,
130: FALSE);
131: IF FND_API.To_Boolean(p_called_by_form) THEN
132: APP_EXCEPTION.Raise_Exception;
133: ELSE
134: x_msg_data := FND_MESSAGE.Get;
135: END IF;
142: 'GR_NO_RECORD_INSERTED');
143: FND_MESSAGE.SET_TOKEN('CODE',
144: p_toxic_effect_code,
145: FALSE);
146: IF FND_API.To_Boolean(p_called_by_form) THEN
147: APP_EXCEPTION.Raise_Exception;
148: ELSE
149: x_msg_data := FND_MESSAGE.Get;
150: END IF;
158: 'GR_UNEXPECTED_ERROR');
159: FND_MESSAGE.SET_TOKEN('TEXT',
160: l_msg_data,
161: FALSE);
162: IF FND_API.To_Boolean(p_called_by_form) THEN
163: APP_EXCEPTION.Raise_Exception;
164: ELSE
165: x_msg_data := FND_MESSAGE.Get;
166: END IF;
230: END IF;
231:
232: /* Check if do the commit */
233:
234: IF FND_API.To_Boolean(p_commit) THEN
235: COMMIT WORK;
236: END IF;
237:
238: EXCEPTION
245: 'GR_FOREIGN_KEY_ERROR');
246: FND_MESSAGE.SET_TOKEN('TEXT',
247: l_msg_data,
248: FALSE);
249: IF FND_API.To_Boolean(p_called_by_form) THEN
250: APP_EXCEPTION.Raise_Exception;
251: ELSE
252: x_msg_data := FND_MESSAGE.Get;
253: END IF;
260: 'GR_NO_RECORD_INSERTED');
261: FND_MESSAGE.SET_TOKEN('CODE',
262: p_toxic_effect_code,
263: FALSE);
264: IF FND_API.To_Boolean(p_called_by_form) THEN
265: APP_EXCEPTION.Raise_Exception;
266: ELSE
267: x_msg_data := FND_MESSAGE.Get;
268: END IF;
276: 'GR_UNEXPECTED_ERROR');
277: FND_MESSAGE.SET_TOKEN('TEXT',
278: l_msg_data,
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;
345: IF LockEffectRcd.last_update_date <> p_last_update_date THEN
346: RAISE RECORD_CHANGED_ERROR;
347: END IF;
348:
349: IF FND_API.To_Boolean(p_commit) THEN
350: COMMIT WORK;
351: END IF;
352:
353: EXCEPTION
359: 'GR_RECORD_NOT_FOUND');
360: FND_MESSAGE.SET_TOKEN('CODE',
361: p_toxic_effect_code,
362: FALSE);
363: IF FND_API.To_Boolean(p_called_by_form) THEN
364: APP_EXCEPTION.Raise_Exception;
365: ELSE
366: x_msg_data := FND_MESSAGE.Get;
367: END IF;
370: ROLLBACK TO SAVEPOINT Lock_Row;
371: X_return_status := 'E';
372: FND_MESSAGE.SET_NAME('FND',
373: 'FORM_RECORD_CHANGED');
374: IF FND_API.To_Boolean(p_called_by_form) THEN
375: APP_EXCEPTION.Raise_Exception;
376: ELSE
377: x_msg_data := FND_MESSAGE.Get;
378: END IF;
379: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
380: ROLLBACK TO SAVEPOINT Lock_Row;
381: x_return_status := 'L';
382: x_oracle_error := APP_EXCEPTION.Get_Code;
383: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
384: FND_MESSAGE.SET_NAME('GR',
385: 'GR_ROW_IS_LOCKED');
386: x_msg_data := FND_MESSAGE.Get;
387: END IF;
395: 'GR_UNEXPECTED_ERROR');
396: FND_MESSAGE.SET_TOKEN('TEXT',
397: l_msg_data,
398: FALSE);
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
459: WHERE rowid = p_rowid;
460:
461: /* Check the commit flag and if set, then commit the work. */
462:
463: IF FND_API.TO_Boolean(p_commit) THEN
464: COMMIT WORK;
465: END IF;
466:
467: EXCEPTION
470: ROLLBACK TO SAVEPOINT Delete_Row;
471: x_return_status := l_return_status;
472: x_oracle_error := l_oracle_error;
473: x_msg_data := l_msg_data;
474: IF FND_API.To_Boolean(p_called_by_form) THEN
475: APP_EXCEPTION.Raise_Exception;
476: ELSE
477: x_msg_data := FND_MESSAGE.Get;
478: END IF;
485: 'GR_RECORD_NOT_FOUND');
486: FND_MESSAGE.SET_TOKEN('CODE',
487: p_toxic_effect_code,
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;
502: 'GR_UNEXPECTED_ERROR');
503: FND_MESSAGE.SET_TOKEN('TEXT',
504: l_msg_data,
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;
623: FALSE);
624: FND_MESSAGE.SET_TOKEN('TABLES',
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;
638: 'GR_UNEXPECTED_ERROR');
639: FND_MESSAGE.SET_TOKEN('TEXT',
640: l_msg_data,
641: FALSE);
642: IF FND_API.To_Boolean(p_called_by_form) THEN
643: APP_EXCEPTION.Raise_Exception;
644: ELSE
645: x_msg_data := FND_MESSAGE.Get;
646: END IF;
685: 'GR_UNEXPECTED_ERROR');
686: FND_MESSAGE.SET_TOKEN('TEXT',
687: l_msg_data,
688: FALSE);
689: IF FND_API.To_Boolean(p_called_by_form) THEN
690: APP_EXCEPTION.Raise_Exception;
691: END IF;
692:
693: END Check_Primary_Key;