70: 'F',
71: l_rowid,
72: l_key_exists);
73:
74: IF FND_API.To_Boolean(l_key_exists) THEN
75: RAISE Item_Exists_Error;
76: END IF;
77:
78: INSERT INTO gr_item_explosion_properties
106: 'F',
107: l_rowid,
108: l_key_exists);
109:
110: IF FND_API.To_Boolean(l_key_exists) THEN
111: x_rowid := l_rowid;
112: ELSE
113: RAISE Row_Missing_Error;
114: END IF;
114: END IF;
115:
116: /* Check the commit flag and if set, then commit the work. */
117:
118: IF FND_API.To_Boolean(p_commit) THEN
119: COMMIT WORK;
120: END IF;
121:
122: EXCEPTION
129: 'GR_FOREIGN_KEY_ERROR');
130: FND_MESSAGE.SET_TOKEN('TEXT',
131: l_msg_data,
132: FALSE);
133: IF FND_API.To_Boolean(p_called_by_form) THEN
134: APP_EXCEPTION.Raise_Exception;
135: ELSE
136: x_msg_data := FND_MESSAGE.Get;
137: END IF;
144: 'GR_RECORD_EXISTS');
145: FND_MESSAGE.SET_TOKEN('CODE',
146: p_inventory_item_id,
147: FALSE);
148: IF FND_API.To_Boolean(p_called_by_form) THEN
149: APP_EXCEPTION.Raise_Exception;
150: ELSE
151: x_msg_data := FND_MESSAGE.Get;
152: END IF;
159: 'GR_NO_RECORD_INSERTED');
160: FND_MESSAGE.SET_TOKEN('CODE',
161: p_inventory_item_id,
162: FALSE);
163: IF FND_API.To_Boolean(p_called_by_form) THEN
164: APP_EXCEPTION.Raise_Exception;
165: ELSE
166: x_msg_data := FND_MESSAGE.Get;
167: END IF;
175: 'GR_UNEXPECTED_ERROR');
176: FND_MESSAGE.SET_TOKEN('TEXT',
177: l_msg_data,
178: FALSE);
179: IF FND_API.To_Boolean(p_called_by_form) THEN
180: APP_EXCEPTION.Raise_Exception;
181: ELSE
182: x_msg_data := FND_MESSAGE.Get;
183: END IF;
258: END IF;
259:
260: /* Check the commit flag and if set, then commit the work. */
261:
262: IF FND_API.To_Boolean(p_commit) THEN
263: COMMIT WORK;
264: END IF;
265:
266: EXCEPTION
273: 'GR_FOREIGN_KEY_ERROR');
274: FND_MESSAGE.SET_TOKEN('TEXT',
275: l_msg_data,
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;
288: 'GR_NO_RECORD_INSERTED');
289: FND_MESSAGE.SET_TOKEN('CODE',
290: p_inventory_item_id,
291: FALSE);
292: IF FND_API.To_Boolean(p_called_by_form) THEN
293: APP_EXCEPTION.Raise_Exception;
294: ELSE
295: x_msg_data := FND_MESSAGE.Get;
296: END IF;
304: 'GR_UNEXPECTED_ERROR');
305: FND_MESSAGE.SET_TOKEN('TEXT',
306: l_msg_data,
307: FALSE);
308: IF FND_API.To_Boolean(p_called_by_form) THEN
309: APP_EXCEPTION.Raise_Exception;
310: ELSE
311: x_msg_data := FND_MESSAGE.Get;
312: END IF;
374: RAISE No_Data_Found_Error;
375: END IF;
376: CLOSE c_lock_item;
377:
378: IF FND_API.To_Boolean(p_commit) THEN
379: COMMIT WORK;
380: END IF;
381:
382: EXCEPTION
388: 'GR_RECORD_NOT_FOUND');
389: FND_MESSAGE.SET_TOKEN('CODE',
390: p_inventory_item_id,
391: FALSE);
392: IF FND_API.To_Boolean(p_called_by_form) THEN
393: APP_EXCEPTION.Raise_Exception;
394: ELSE
395: x_msg_data := FND_MESSAGE.Get;
396: END IF;
400: x_return_status := 'E';
401: x_oracle_error := APP_EXCEPTION.Get_Code;
402: FND_MESSAGE.SET_NAME('GR',
403: 'GR_ROW_IS_LOCKED');
404: IF FND_API.To_Boolean(p_called_by_form) THEN
405: APP_EXCEPTION.Raise_Exception;
406: ELSE
407: x_msg_data := FND_MESSAGE.Get;
408: END IF;
416: 'GR_UNEXPECTED_ERROR');
417: FND_MESSAGE.SET_TOKEN('TEXT',
418: l_msg_data,
419: FALSE);
420: IF FND_API.To_Boolean(p_called_by_form) THEN
421: APP_EXCEPTION.Raise_Exception;
422: ELSE
423: x_msg_data := FND_MESSAGE.Get;
424: END IF;
491: WHERE rowid = p_rowid;
492:
493: /* Check the commit flag and if set, then commit the work. */
494:
495: IF FND_API.TO_Boolean(p_commit) THEN
496: COMMIT WORK;
497: END IF;
498:
499: EXCEPTION
501: WHEN Check_Integrity_Error THEN
502: ROLLBACK TO SAVEPOINT Delete_Row;
503: x_return_status := l_return_status;
504: x_oracle_error := l_oracle_error;
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
516: 'GR_RECORD_NOT_FOUND');
517: FND_MESSAGE.SET_TOKEN('CODE',
518: p_inventory_item_id,
519: FALSE);
520: IF FND_API.To_Boolean(p_called_by_form) THEN
521: APP_EXCEPTION.Raise_Exception;
522: ELSE
523: x_msg_data := FND_MESSAGE.Get;
524: END IF;
533: 'GR_UNEXPECTED_ERROR');
534: FND_MESSAGE.SET_TOKEN('TEXT',
535: l_msg_data,
536: FALSE);
537: IF FND_API.To_Boolean(p_called_by_form) THEN
538: APP_EXCEPTION.Raise_Exception;
539: ELSE
540: x_msg_data := FND_MESSAGE.Get;
541: END IF;
666: FALSE);
667: FND_MESSAGE.SET_TOKEN('TABLES',
668: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
669: FALSE);
670: IF FND_API.To_Boolean(p_called_by_form) THEN
671: APP_EXCEPTION.Raise_Exception;
672: ELSE
673: x_msg_data := FND_MESSAGE.Get;
674: END IF;
681: 'GR_UNEXPECTED_ERROR');
682: FND_MESSAGE.SET_TOKEN('TEXT',
683: l_msg_data,
684: FALSE);
685: IF FND_API.To_Boolean(p_called_by_form) THEN
686: APP_EXCEPTION.Raise_Exception;
687: ELSE
688: x_msg_data := FND_MESSAGE.Get;
689: END IF;
740: 'GR_UNEXPECTED_ERROR');
741: FND_MESSAGE.SET_TOKEN('TEXT',
742: l_msg_data,
743: FALSE);
744: IF FND_API.To_Boolean(p_called_by_form) THEN
745: APP_EXCEPTION.Raise_Exception;
746: END IF;
747:
748: END Check_Primary_Key;