[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_ein_safety
95: 'F',
96: l_rowid,
97: l_key_exists);
98:
99: IF FND_API.To_Boolean(l_key_exists) THEN
100: x_rowid := l_rowid;
101: ELSE
102: RAISE Row_Missing_Error;
103: END IF;
103: END IF;
104:
105: /* Check the commit flag and if set, then commit the work. */
106:
107: IF FND_API.To_Boolean(p_commit) THEN
108: COMMIT WORK;
109: END IF;
110:
111: EXCEPTION
118: 'GR_FOREIGN_KEY_ERROR');
119: FND_MESSAGE.SET_TOKEN('TEXT',
120: l_msg_data,
121: FALSE);
122: IF FND_API.To_Boolean(p_called_by_form) THEN
123: APP_EXCEPTION.Raise_Exception;
124: ELSE
125: x_msg_data := FND_MESSAGE.Get;
126: END IF;
133: 'GR_RECORD_EXISTS');
134: FND_MESSAGE.SET_TOKEN('CODE',
135: p_european_index_number||' '||p_safety_phrase_code,
136: FALSE);
137: IF FND_API.To_Boolean(p_called_by_form) THEN
138: APP_EXCEPTION.Raise_Exception;
139: ELSE
140: x_msg_data := FND_MESSAGE.Get;
141: END IF;
149: FND_MESSAGE.SET_TOKEN('CODE',
150: p_european_index_number,
151: FALSE);
152: x_msg_data := FND_MESSAGE.Get;
153: IF FND_API.To_Boolean(p_called_by_form) THEN
154: APP_EXCEPTION.Raise_Exception;
155: ELSE
156: x_msg_data := FND_MESSAGE.Get;
157: END IF;
165: 'GR_UNEXPECTED_ERROR');
166: FND_MESSAGE.SET_TOKEN('TEXT',
167: l_msg_data,
168: FALSE);
169: IF FND_API.To_Boolean(p_called_by_form) THEN
170: APP_EXCEPTION.Raise_Exception;
171: ELSE
172: x_msg_data := FND_MESSAGE.Get;
173: END IF;
241: END IF;
242:
243: /* Check if do the commit */
244:
245: IF FND_API.To_Boolean(p_commit) THEN
246: COMMIT WORK;
247: END IF;
248:
249: EXCEPTION
256: 'GR_FOREIGN_KEY_ERROR');
257: FND_MESSAGE.SET_TOKEN('TEXT',
258: l_msg_data,
259: FALSE);
260: IF FND_API.To_Boolean(p_called_by_form) THEN
261: APP_EXCEPTION.Raise_Exception;
262: ELSE
263: x_msg_data := FND_MESSAGE.Get;
264: END IF;
271: 'GR_NO_RECORD_INSERTED');
272: FND_MESSAGE.SET_TOKEN('CODE',
273: p_european_index_number||' '||p_safety_phrase_code,
274: FALSE);
275: IF FND_API.To_Boolean(p_called_by_form) THEN
276: APP_EXCEPTION.Raise_Exception;
277: ELSE
278: x_msg_data := FND_MESSAGE.Get;
279: END IF;
287: 'GR_UNEXPECTED_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
358: IF LockEinRcd.last_update_date <> p_last_update_date THEN
359: RAISE RECORD_CHANGED_ERROR;
360: END IF;
361:
362: IF FND_API.To_Boolean(p_commit) THEN
363: COMMIT WORK;
364: END IF;
365:
366: EXCEPTION
372: 'GR_RECORD_NOT_FOUND');
373: FND_MESSAGE.SET_TOKEN('CODE',
374: p_european_index_number||' '||p_safety_phrase_code,
375: FALSE);
376: IF FND_API.To_Boolean(p_called_by_form) THEN
377: APP_EXCEPTION.Raise_Exception;
378: ELSE
379: x_msg_data := FND_MESSAGE.Get;
380: END IF;
382: ROLLBACK TO SAVEPOINT Lock_Row;
383: X_return_status := 'E';
384: FND_MESSAGE.SET_NAME('FND',
385: 'FORM_RECORD_CHANGED');
386: IF FND_API.To_Boolean(p_called_by_form) THEN
387: APP_EXCEPTION.Raise_Exception;
388: ELSE
389: x_msg_data := FND_MESSAGE.Get;
390: END IF;
391: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
392: ROLLBACK TO SAVEPOINT Lock_Row;
393: x_return_status := 'L';
394: x_oracle_error := APP_EXCEPTION.Get_Code;
395: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
396: FND_MESSAGE.SET_NAME('GR',
397: 'GR_ROW_IS_LOCKED');
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
406: 'GR_UNEXPECTED_ERROR');
407: FND_MESSAGE.SET_TOKEN('TEXT',
408: l_msg_data,
409: FALSE);
410: IF FND_API.To_Boolean(p_called_by_form) THEN
411: APP_EXCEPTION.Raise_Exception;
412: ELSE
413: x_msg_data := FND_MESSAGE.Get;
414: END IF;
467: WHERE rowid = p_rowid;
468:
469: /* Check the commit flag and if set, then commit the work. */
470:
471: IF FND_API.TO_Boolean(p_commit) THEN
472: COMMIT WORK;
473: END IF;
474:
475: EXCEPTION
477: WHEN Check_Integrity_Error THEN
478: ROLLBACK TO SAVEPOINT Delete_Row;
479: x_return_status := l_return_status;
480: x_oracle_error := l_oracle_error;
481: IF FND_API.To_Boolean(p_called_by_form) THEN
482: APP_EXCEPTION.Raise_Exception;
483: ELSE
484: x_msg_data := FND_MESSAGE.Get;
485: END IF;
492: 'GR_RECORD_NOT_FOUND');
493: FND_MESSAGE.SET_TOKEN('CODE',
494: p_european_index_number||' '||p_safety_phrase_code,
495: FALSE);
496: IF FND_API.To_Boolean(p_called_by_form) THEN
497: APP_EXCEPTION.Raise_Exception;
498: ELSE
499: x_msg_data := FND_MESSAGE.Get;
500: END IF;
508: 'GR_UNEXPECTED_ERROR');
509: FND_MESSAGE.SET_TOKEN('TEXT',
510: l_msg_data,
511: FALSE);
512: IF FND_API.To_Boolean(p_called_by_form) THEN
513: APP_EXCEPTION.Raise_Exception;
514: ELSE
515: x_msg_data := FND_MESSAGE.Get;
516: END IF;
550:
551: DELETE FROM gr_ein_safety
552: WHERE european_index_number = p_european_index_number;
553:
554: IF FND_API.To_Boolean(p_commit) THEN
555: COMMIT WORK;
556: END IF;
557:
558: EXCEPTION
566: 'GR_UNEXPECTED_ERROR');
567: FND_MESSAGE.SET_TOKEN('TEXT',
568: l_msg_token,
569: FALSE);
570: IF FND_API.To_Boolean(p_called_by_form) THEN
571: APP_EXCEPTION.Raise_Exception;
572: ELSE
573: x_msg_data := FND_MESSAGE.Get;
574: END IF;
697: FALSE);
698: FND_MESSAGE.SET_TOKEN('TABLES',
699: l_msg_data,
700: FALSE);
701: IF FND_API.To_Boolean(p_called_by_form) THEN
702: APP_EXCEPTION.Raise_Exception;
703: ELSE
704: x_msg_data := FND_MESSAGE.Get;
705: END IF;
712: 'GR_UNEXPECTED_ERROR');
713: FND_MESSAGE.SET_TOKEN('TEXT',
714: l_msg_data,
715: FALSE);
716: IF FND_API.To_Boolean(p_called_by_form) THEN
717: APP_EXCEPTION.Raise_Exception;
718: ELSE
719: x_msg_data := FND_MESSAGE.Get;
720: END IF;
761: 'GR_UNEXPECTED_ERROR');
762: FND_MESSAGE.SET_TOKEN('TEXT',
763: l_msg_data,
764: FALSE);
765: IF FND_API.To_Boolean(p_called_by_form) THEN
766: APP_EXCEPTION.Raise_Exception;
767: END IF;
768:
769: END Check_Primary_Key;