[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_risk_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_THERE');
262: FND_MESSAGE.SET_TOKEN('CODE',
263: p_risk_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_risk_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;
465: END IF;
466:
467: /* Check the commit flag and if set, then commit the work. */
468:
469: IF FND_API.To_Boolean(p_commit) THEN
470: COMMIT WORK;
471: END IF;
472:
473: EXCEPTION
480: 'GR_FOREIGN_KEY_ERROR');
481: FND_MESSAGE.SET_TOKEN('TEXT',
482: l_msg_data,
483: FALSE);
484: IF FND_API.To_Boolean(p_called_by_form) THEN
485: APP_EXCEPTION.Raise_Exception;
486: ELSE
487: x_msg_data := FND_MESSAGE.Get;
488: END IF;
495: 'GR_NO_RECORD_INSERTED');
496: FND_MESSAGE.SET_TOKEN('CODE',
497: p_risk_phrase_code,
498: FALSE);
499: IF FND_API.To_Boolean(p_called_by_form) THEN
500: APP_EXCEPTION.Raise_Exception;
501: ELSE
502: x_msg_data := FND_MESSAGE.Get;
503: END IF;
511: 'GR_UNEXPECTED_ERROR');
512: FND_MESSAGE.SET_TOKEN('TEXT',
513: l_msg_data,
514: FALSE);
515: IF FND_API.To_Boolean(p_called_by_form) THEN
516: APP_EXCEPTION.Raise_Exception;
517: ELSE
518: x_msg_data := FND_MESSAGE.Get;
519: END IF;
614: IF LockSafetyRcd.last_update_date <> p_last_update_date THEN
615: RAISE RECORD_CHANGED_ERROR;
616: END IF;
617:
618: IF FND_API.To_Boolean(p_commit) THEN
619: COMMIT WORK;
620: END IF;
621:
622: EXCEPTION
628: 'GR_RECORD_NOT_FOUND');
629: FND_MESSAGE.SET_TOKEN('CODE',
630: p_risk_phrase_code,
631: FALSE);
632: IF FND_API.To_Boolean(p_called_by_form) THEN
633: APP_EXCEPTION.Raise_Exception;
634: ELSE
635: x_msg_data := FND_MESSAGE.Get;
636: END IF;
639: ROLLBACK TO SAVEPOINT Lock_Row;
640: X_return_status := 'E';
641: FND_MESSAGE.SET_NAME('FND',
642: 'FORM_RECORD_CHANGED');
643: IF FND_API.To_Boolean(p_called_by_form) THEN
644: APP_EXCEPTION.Raise_Exception;
645: ELSE
646: x_msg_data := FND_MESSAGE.Get;
647: END IF;
648: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
649: ROLLBACK TO SAVEPOINT Lock_Row;
650: x_return_status := 'L';
651: x_oracle_error := APP_EXCEPTION.Get_Code;
652: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
653: FND_MESSAGE.SET_NAME('GR',
654: 'GR_ROW_IS_LOCKED');
655: x_msg_data := FND_MESSAGE.Get;
656: 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;
799: WHERE rowid = p_rowid;
800:
801: /* Check the commit flag and if set, then commit the work. */
802:
803: IF FND_API.TO_Boolean(p_commit) THEN
804: COMMIT WORK;
805: END IF;
806:
807: EXCEPTION
810: ROLLBACK TO SAVEPOINT Delete_Row;
811: x_return_status := l_return_status;
812: x_oracle_error := l_oracle_error;
813: x_msg_data := l_msg_data;
814: IF FND_API.To_Boolean(p_called_by_form) THEN
815: APP_EXCEPTION.Raise_Exception;
816: END IF;
817:
818: WHEN Row_Missing_Error THEN
823: 'GR_RECORD_NOT_FOUND');
824: FND_MESSAGE.SET_TOKEN('CODE',
825: p_risk_phrase_code,
826: FALSE);
827: IF FND_API.To_Boolean(p_called_by_form) THEN
828: APP_EXCEPTION.Raise_Exception;
829: ELSE
830: x_msg_data := FND_MESSAGE.Get;
831: END IF;
840: 'GR_UNEXPECTED_ERROR');
841: FND_MESSAGE.SET_TOKEN('TEXT',
842: l_msg_data,
843: FALSE);
844: IF FND_API.To_Boolean(p_called_by_form) THEN
845: APP_EXCEPTION.Raise_Exception;
846: ELSE
847: x_msg_data := FND_MESSAGE.Get;
848: END IF;
1213: FALSE);
1214: FND_MESSAGE.SET_TOKEN('TABLES',
1215: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1216: FALSE);
1217: IF FND_API.To_Boolean(p_called_by_form) THEN
1218: APP_EXCEPTION.Raise_Exception;
1219: ELSE
1220: x_msg_data := FND_MESSAGE.Get;
1221: END IF;
1229: 'GR_UNEXPECTED_ERROR');
1230: FND_MESSAGE.SET_TOKEN('TEXT',
1231: l_msg_data,
1232: FALSE);
1233: IF FND_API.To_Boolean(p_called_by_form) THEN
1234: APP_EXCEPTION.Raise_Exception;
1235: ELSE
1236: x_msg_data := FND_MESSAGE.Get;
1237: END IF;
1284: 'GR_UNEXPECTED_ERROR');
1285: FND_MESSAGE.SET_TOKEN('TEXT',
1286: l_msg_data,
1287: FALSE);
1288: IF FND_API.To_Boolean(p_called_by_form) THEN
1289: APP_EXCEPTION.Raise_Exception;
1290: END IF;
1291:
1292: END Check_Primary_Key;