[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_eurohazards_b
96: 'F',
97: l_rowid,
98: l_key_exists);
99:
100: IF FND_API.To_Boolean(l_key_exists) THEN
101: x_rowid := l_rowid;
102: ELSE
103: RAISE Row_Missing_Error;
104: END IF;
104: END IF;
105:
106: /* Check the commit flag and if set, then commit the work. */
107:
108: IF FND_API.To_Boolean(p_commit) THEN
109: COMMIT WORK;
110: END IF;
111:
112: EXCEPTION
119: 'GR_FOREIGN_KEY_ERROR');
120: FND_MESSAGE.SET_TOKEN('TEXT',
121: l_msg_data,
122: FALSE);
123: IF FND_API.To_Boolean(p_called_by_form) THEN
124: APP_EXCEPTION.Raise_Exception;
125: ELSE
126: x_msg_data := FND_MESSAGE.Get;
127: END IF;
134: 'GR_RECORD_EXISTS');
135: FND_MESSAGE.SET_TOKEN('CODE',
136: p_hazard_classification_code,
137: FALSE);
138: IF FND_API.To_Boolean(p_called_by_form) THEN
139: APP_EXCEPTION.Raise_Exception;
140: ELSE
141: x_msg_data := FND_MESSAGE.Get;
142: END IF;
149: 'GR_NO_RECORD_INSERTED');
150: FND_MESSAGE.SET_TOKEN('CODE',
151: p_hazard_classification_code,
152: FALSE);
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;
243: END IF;
244:
245: /* Check the commit flag and if set, then commit the work. */
246:
247: IF FND_API.To_Boolean(p_commit) THEN
248: COMMIT WORK;
249: END IF;
250:
251: EXCEPTION
258: 'GR_FOREIGN_KEY_ERROR');
259: FND_MESSAGE.SET_TOKEN('TEXT',
260: l_msg_data,
261: FALSE);
262: IF FND_API.To_Boolean(p_called_by_form) THEN
263: APP_EXCEPTION.Raise_Exception;
264: ELSE
265: x_msg_data := FND_MESSAGE.Get;
266: END IF;
273: 'GR_NO_RECORD_INSERTED');
274: FND_MESSAGE.SET_TOKEN('CODE',
275: p_hazard_group_code,
276: FALSE);
277: IF FND_API.To_Boolean(p_called_by_form) THEN
278: APP_EXCEPTION.Raise_Exception;
279: ELSE
280: x_msg_data := FND_MESSAGE.Get;
281: END IF;
289: 'GR_UNEXPECTED_ERROR');
290: FND_MESSAGE.SET_TOKEN('TEXT',
291: l_msg_data,
292: FALSE);
293: IF FND_API.To_Boolean(p_called_by_form) THEN
294: APP_EXCEPTION.Raise_Exception;
295: ELSE
296: x_msg_data := FND_MESSAGE.Get;
297: END IF;
361: IF LockHazardRcd.last_update_date <> p_last_update_date THEN
362: RAISE RECORD_CHANGED_ERROR;
363: END IF;
364:
365: IF FND_API.To_Boolean(p_commit) THEN
366: COMMIT WORK;
367: END IF;
368:
369: EXCEPTION
375: 'GR_RECORD_NOT_FOUND');
376: FND_MESSAGE.SET_TOKEN('CODE',
377: p_hazard_classification_code,
378: FALSE);
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
381: ELSE
382: x_msg_data := FND_MESSAGE.Get;
383: END IF;
386: ROLLBACK TO SAVEPOINT Lock_Row;
387: X_return_status := 'E';
388: FND_MESSAGE.SET_NAME('FND',
389: 'FORM_RECORD_CHANGED');
390: IF FND_API.To_Boolean(p_called_by_form) THEN
391: APP_EXCEPTION.Raise_Exception;
392: ELSE
393: x_msg_data := FND_MESSAGE.Get;
394: END IF;
395: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
396: ROLLBACK TO SAVEPOINT Lock_Row;
397: x_return_status := 'L';
398: x_oracle_error := APP_EXCEPTION.Get_Code;
399: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
400: FND_MESSAGE.SET_NAME('GR',
401: 'GR_ROW_IS_LOCKED');
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
412: 'GR_UNEXPECTED_ERROR');
413: FND_MESSAGE.SET_TOKEN('TEXT',
414: l_msg_data,
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;
482: WHERE rowid = p_rowid;
483:
484: /* Check the commit flag and if set, then commit the work. */
485:
486: IF FND_API.TO_Boolean(p_commit) THEN
487: COMMIT WORK;
488: END IF;
489:
490: EXCEPTION
492: WHEN Check_Integrity_Error THEN
493: ROLLBACK TO SAVEPOINT Delete_Row;
494: x_return_status := l_return_status;
495: x_oracle_error := l_oracle_error;
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;
507: 'GR_RECORD_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('CODE',
509: p_hazard_classification_code,
510: FALSE);
511: IF FND_API.To_Boolean(p_called_by_form) THEN
512: APP_EXCEPTION.Raise_Exception;
513: ELSE
514: x_msg_data := FND_MESSAGE.Get;
515: END IF;
524: 'GR_UNEXPECTED_ERROR');
525: FND_MESSAGE.SET_TOKEN('TEXT',
526: l_msg_data,
527: FALSE);
528: IF FND_API.To_Boolean(p_called_by_form) THEN
529: APP_EXCEPTION.Raise_Exception;
530: ELSE
531: x_msg_data := FND_MESSAGE.Get;
532: END IF;
574: 'F',
575: l_rowid,
576: l_key_exists);
577:
578: IF NOT FND_API.To_Boolean(l_key_exists) THEN
579: x_return_status := 'E';
580: FND_MESSAGE.SET_NAME('GR',
581: 'GR_RECORD_NOT_FOUND');
582: FND_MESSAGE.SET_TOKEN('CODE',
722: 'GR_UNEXPECTED_ERROR');
723: FND_MESSAGE.SET_TOKEN('TEXT',
724: l_msg_data,
725: FALSE);
726: IF FND_API.To_Boolean(p_called_by_form) THEN
727: APP_EXCEPTION.Raise_Exception;
728: ELSE
729: x_msg_data := FND_MESSAGE.Get;
730: END IF;
777: 'GR_UNEXPECTED_ERROR');
778: FND_MESSAGE.SET_TOKEN('TEXT',
779: l_msg_data,
780: FALSE);
781: IF FND_API.To_Boolean(p_called_by_form) THEN
782: APP_EXCEPTION.Raise_Exception;
783: END IF;
784:
785: END Check_Primary_Key;