[Home] [Help]
128: 'F',
129: l_rowid,
130: l_key_exists);
131:
132: IF FND_API.To_Boolean(l_key_exists) THEN
133: RAISE Item_Exists_Error;
134: END IF;
135:
136: INSERT INTO gr_safety_phrases_b
223: 'F',
224: l_rowid,
225: l_key_exists);
226:
227: IF FND_API.To_Boolean(l_key_exists) THEN
228: x_rowid := l_rowid;
229: ELSE
230: RAISE Row_Missing_Error;
231: END IF;
231: END IF;
232:
233: /* Check the commit flag and if set, then commit the work. */
234:
235: IF FND_API.To_Boolean(p_commit) THEN
236: COMMIT WORK;
237: END IF;
238:
239: EXCEPTION
246: 'GR_FOREIGN_KEY_ERROR');
247: FND_MESSAGE.SET_TOKEN('TEXT',
248: l_msg_data,
249: FALSE);
250: IF FND_API.To_Boolean(p_called_by_form) THEN
251: APP_EXCEPTION.Raise_Exception;
252: ELSE
253: x_msg_data := FND_MESSAGE.Get;
254: END IF;
261: 'GR_RECORD_EXISTS');
262: FND_MESSAGE.SET_TOKEN('CODE',
263: p_safety_phrase_code,
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_safety_phrase_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;
466: END IF;
467:
468: /* Check the commit flag and if set, then commit the work. */
469:
470: IF FND_API.To_Boolean(p_commit) THEN
471: COMMIT WORK;
472: END IF;
473:
474: EXCEPTION
481: 'GR_FOREIGN_KEY_ERROR');
482: FND_MESSAGE.SET_TOKEN('TEXT',
483: l_msg_data,
484: FALSE);
485: IF FND_API.To_Boolean(p_called_by_form) THEN
486: APP_EXCEPTION.Raise_Exception;
487: ELSE
488: x_msg_data := FND_MESSAGE.Get;
489: END IF;
496: 'GR_NO_RECORD_INSERTED');
497: FND_MESSAGE.SET_TOKEN('CODE',
498: p_safety_phrase_code,
499: FALSE);
500: IF FND_API.To_Boolean(p_called_by_form) THEN
501: APP_EXCEPTION.Raise_Exception;
502: ELSE
503: x_msg_data := FND_MESSAGE.Get;
504: END IF;
512: 'GR_UNEXPECTED_ERROR');
513: FND_MESSAGE.SET_TOKEN('TEXT',
514: l_msg_data,
515: FALSE);
516: IF FND_API.To_Boolean(p_called_by_form) THEN
517: APP_EXCEPTION.Raise_Exception;
518: ELSE
519: x_msg_data := FND_MESSAGE.Get;
520: END IF;
615: IF LockSafetyRcd.last_update_date <> p_last_update_date THEN
616: RAISE RECORD_CHANGED_ERROR;
617: END IF;
618:
619: IF FND_API.To_Boolean(p_commit) THEN
620: COMMIT WORK;
621: END IF;
622:
623: EXCEPTION
629: 'GR_RECORD_NOT_FOUND');
630: FND_MESSAGE.SET_TOKEN('CODE',
631: p_safety_phrase_code,
632: FALSE);
633: IF FND_API.To_Boolean(p_called_by_form) THEN
634: APP_EXCEPTION.Raise_Exception;
635: ELSE
636: x_msg_data := FND_MESSAGE.Get;
637: END IF;
640: ROLLBACK TO SAVEPOINT Lock_Row;
641: X_return_status := 'E';
642: FND_MESSAGE.SET_NAME('FND',
643: 'FORM_RECORD_CHANGED');
644: IF FND_API.To_Boolean(p_called_by_form) THEN
645: APP_EXCEPTION.Raise_Exception;
646: ELSE
647: x_msg_data := FND_MESSAGE.Get;
648: END IF;
649: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
650: ROLLBACK TO SAVEPOINT Lock_Row;
651: x_return_status := 'L';
652: x_oracle_error := APP_EXCEPTION.Get_Code;
653: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
654: FND_MESSAGE.SET_NAME('GR',
655: 'GR_ROW_IS_LOCKED');
656: x_msg_data := FND_MESSAGE.Get;
657: END IF;
665: 'GR_UNEXPECTED_ERROR');
666: FND_MESSAGE.SET_TOKEN('TEXT',
667: l_msg_data,
668: FALSE);
669: IF FND_API.To_Boolean(p_called_by_form) THEN
670: APP_EXCEPTION.Raise_Exception;
671: ELSE
672: x_msg_data := FND_MESSAGE.Get;
673: END IF;
800: WHERE rowid = p_rowid;
801:
802: /* Check the commit flag and if set, then commit the work. */
803:
804: IF FND_API.TO_Boolean(p_commit) THEN
805: COMMIT WORK;
806: END IF;
807:
808: EXCEPTION
810: WHEN Check_Integrity_Error THEN
811: ROLLBACK TO SAVEPOINT Delete_Row;
812: x_return_status := l_return_status;
813: x_oracle_error := l_oracle_error;
814: IF FND_API.To_Boolean(p_called_by_form) THEN
815: APP_EXCEPTION.Raise_Exception;
816: ELSE
817: x_msg_data := FND_MESSAGE.Get;
818: END IF;
825: 'GR_RECORD_NOT_FOUND');
826: FND_MESSAGE.SET_TOKEN('CODE',
827: p_safety_phrase_code,
828: FALSE);
829: IF FND_API.To_Boolean(p_called_by_form) THEN
830: APP_EXCEPTION.Raise_Exception;
831: ELSE
832: x_msg_data := FND_MESSAGE.Get;
833: END IF;
842: 'GR_UNEXPECTED_ERROR');
843: FND_MESSAGE.SET_TOKEN('TEXT',
844: l_msg_data,
845: FALSE);
846: IF FND_API.To_Boolean(p_called_by_form) THEN
847: APP_EXCEPTION.Raise_Exception;
848: ELSE
849: x_msg_data := FND_MESSAGE.Get;
850: END IF;
1047: FALSE);
1048: FND_MESSAGE.SET_TOKEN('TABLES',
1049: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1050: FALSE);
1051: IF FND_API.To_Boolean(p_called_by_form) THEN
1052: APP_EXCEPTION.Raise_Exception;
1053: ELSE
1054: x_msg_data := FND_MESSAGE.Get;
1055: END IF;
1062: 'GR_UNEXPECTED_ERROR');
1063: FND_MESSAGE.SET_TOKEN('TEXT',
1064: l_msg_data,
1065: FALSE);
1066: IF FND_API.To_Boolean(p_called_by_form) THEN
1067: APP_EXCEPTION.Raise_Exception;
1068: ELSE
1069: x_msg_data := FND_MESSAGE.Get;
1070: END IF;
1117: 'GR_UNEXPECTED_ERROR');
1118: FND_MESSAGE.SET_TOKEN('TEXT',
1119: l_msg_data,
1120: FALSE);
1121: IF FND_API.To_Boolean(p_called_by_form) THEN
1122: APP_EXCEPTION.Raise_Exception;
1123: END IF;
1124:
1125: END Check_Primary_Key;