[Home] [Help]
75: 'F',
76: l_rowid,
77: l_key_exists);
78:
79: IF FND_API.To_Boolean(l_key_exists) THEN
80: RAISE Item_Exists_Error;
81: END IF;
82:
83: INSERT INTO gr_ein_asl_concs
120: 'F',
121: l_rowid,
122: l_key_exists);
123:
124: IF FND_API.To_Boolean(l_key_exists) THEN
125: x_rowid := l_rowid;
126: ELSE
127: RAISE Row_Missing_Error;
128: END IF;
128: END IF;
129:
130: /* Check the commit flag and if set, then commit the work. */
131:
132: IF FND_API.To_Boolean(p_commit) THEN
133: COMMIT WORK;
134: END IF;
135:
136: EXCEPTION
143: 'GR_FOREIGN_KEY_ERROR');
144: FND_MESSAGE.SET_TOKEN('TEXT',
145: l_msg_data,
146: FALSE);
147: IF FND_API.To_Boolean(p_called_by_form) THEN
148: APP_EXCEPTION.Raise_Exception;
149: ELSE
150: x_msg_data := FND_MESSAGE.Get;
151: END IF;
158: 'GR_RECORD_EXISTS');
159: FND_MESSAGE.SET_TOKEN('CODE',
160: p_european_index_number||' '||p_hazard_classification_code,
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;
174: FND_MESSAGE.SET_TOKEN('CODE',
175: p_european_index_number,
176: FALSE);
177: x_msg_data := FND_MESSAGE.Get;
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;
190: 'GR_UNEXPECTED_ERROR');
191: FND_MESSAGE.SET_TOKEN('TEXT',
192: l_msg_data,
193: FALSE);
194: IF FND_API.To_Boolean(p_called_by_form) THEN
195: APP_EXCEPTION.Raise_Exception;
196: ELSE
197: x_msg_data := FND_MESSAGE.Get;
198: END IF;
276: END IF;
277:
278: /* Check if do the commit */
279:
280: IF FND_API.To_Boolean(p_commit) THEN
281: COMMIT WORK;
282: END IF;
283:
284: EXCEPTION
291: 'GR_FOREIGN_KEY_ERROR');
292: FND_MESSAGE.SET_TOKEN('TEXT',
293: l_msg_data,
294: FALSE);
295: IF FND_API.To_Boolean(p_called_by_form) THEN
296: APP_EXCEPTION.Raise_Exception;
297: ELSE
298: x_msg_data := FND_MESSAGE.Get;
299: END IF;
306: 'GR_NO_RECORD_INSERTED');
307: FND_MESSAGE.SET_TOKEN('CODE',
308: p_european_index_number||' '||TO_CHAR(p_concentration_low)||'-'||TO_CHAR(p_concentration_high),
309: FALSE);
310: IF FND_API.To_Boolean(p_called_by_form) THEN
311: APP_EXCEPTION.Raise_Exception;
312: ELSE
313: x_msg_data := FND_MESSAGE.Get;
314: END IF;
322: 'GR_UNEXPECTED_ERROR');
323: FND_MESSAGE.SET_TOKEN('TEXT',
324: l_msg_data,
325: FALSE);
326: IF FND_API.To_Boolean(p_called_by_form) THEN
327: APP_EXCEPTION.Raise_Exception;
328: ELSE
329: x_msg_data := FND_MESSAGE.Get;
330: END IF;
398: IF LockEinRcd.last_update_date <> p_last_update_date THEN
399: RAISE RECORD_CHANGED_ERROR;
400: END IF;
401:
402: IF FND_API.To_Boolean(p_commit) THEN
403: COMMIT WORK;
404: END IF;
405:
406: EXCEPTION
412: 'GR_RECORD_NOT_FOUND');
413: FND_MESSAGE.SET_TOKEN('CODE',
414: p_european_index_number||' '||TO_CHAR(p_concentration_low)||'-'||TO_CHAR(p_concentration_high),
415: FALSE);
416: IF FND_API.To_Boolean(p_called_by_form) THEN
417: APP_EXCEPTION.Raise_Exception;
418: ELSE
419: x_msg_data := FND_MESSAGE.Get;
420: END IF;
422: ROLLBACK TO SAVEPOINT Lock_Row;
423: X_return_status := 'E';
424: FND_MESSAGE.SET_NAME('FND',
425: 'FORM_RECORD_CHANGED');
426: IF FND_API.To_Boolean(p_called_by_form) THEN
427: APP_EXCEPTION.Raise_Exception;
428: ELSE
429: x_msg_data := FND_MESSAGE.Get;
430: END IF;
431: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
432: ROLLBACK TO SAVEPOINT Lock_Row;
433: x_return_status := 'L';
434: x_oracle_error := APP_EXCEPTION.Get_Code;
435: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
436: FND_MESSAGE.SET_NAME('GR',
437: 'GR_ROW_IS_LOCKED');
438: x_msg_data := FND_MESSAGE.Get;
439: END IF;
446: 'GR_UNEXPECTED_ERROR');
447: FND_MESSAGE.SET_TOKEN('TEXT',
448: l_msg_data,
449: FALSE);
450: IF FND_API.To_Boolean(p_called_by_form) THEN
451: APP_EXCEPTION.Raise_Exception;
452: ELSE
453: x_msg_data := FND_MESSAGE.Get;
454: END IF;
517: WHERE rowid = p_rowid;
518:
519: /* Check the commit flag and if set, then commit the work. */
520:
521: IF FND_API.TO_Boolean(p_commit) THEN
522: COMMIT WORK;
523: END IF;
524:
525: EXCEPTION
527: WHEN Check_Integrity_Error THEN
528: ROLLBACK TO SAVEPOINT Delete_Row;
529: x_return_status := l_return_status;
530: x_oracle_error := l_oracle_error;
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
533: ELSE
534: x_msg_data := FND_MESSAGE.Get;
535: END IF;
542: 'GR_RECORD_NOT_FOUND');
543: FND_MESSAGE.SET_TOKEN('CODE',
544: p_european_index_number||' '||TO_CHAR(p_concentration_low)||'-'||TO_CHAR(p_concentration_high),
545: FALSE);
546: IF FND_API.To_Boolean(p_called_by_form) THEN
547: APP_EXCEPTION.Raise_Exception;
548: ELSE
549: x_msg_data := FND_MESSAGE.Get;
550: END IF;
558: 'GR_UNEXPECTED_ERROR');
559: FND_MESSAGE.SET_TOKEN('TEXT',
560: l_msg_data,
561: FALSE);
562: IF FND_API.To_Boolean(p_called_by_form) THEN
563: APP_EXCEPTION.Raise_Exception;
564: ELSE
565: x_msg_data := FND_MESSAGE.Get;
566: END IF;
600:
601: DELETE FROM gr_ein_asl_concs
602: WHERE european_index_number = p_european_index_number;
603:
604: IF FND_API.To_Boolean(p_commit) THEN
605: COMMIT WORK;
606: END IF;
607:
608: EXCEPTION
616: 'GR_UNEXPECTED_ERROR');
617: FND_MESSAGE.SET_TOKEN('TEXT',
618: l_msg_token,
619: FALSE);
620: IF FND_API.To_Boolean(p_called_by_form) THEN
621: APP_EXCEPTION.Raise_Exception;
622: ELSE
623: x_msg_data := FND_MESSAGE.Get;
624: END IF;
752: FALSE);
753: FND_MESSAGE.SET_TOKEN('TABLES',
754: l_msg_data,
755: FALSE);
756: IF FND_API.To_Boolean(p_called_by_form) THEN
757: APP_EXCEPTION.Raise_Exception;
758: ELSE
759: x_msg_data := FND_MESSAGE.Get;
760: END IF;
767: 'GR_UNEXPECTED_ERROR');
768: FND_MESSAGE.SET_TOKEN('TEXT',
769: l_msg_data,
770: FALSE);
771: IF FND_API.To_Boolean(p_called_by_form) THEN
772: APP_EXCEPTION.Raise_Exception;
773: ELSE
774: x_msg_data := FND_MESSAGE.Get;
775: END IF;
825: 'GR_UNEXPECTED_ERROR');
826: FND_MESSAGE.SET_TOKEN('TEXT',
827: l_msg_data,
828: FALSE);
829: IF FND_API.To_Boolean(p_called_by_form) THEN
830: APP_EXCEPTION.Raise_Exception;
831: END IF;
832:
833: END Check_Primary_Key;