153: 'F',
154: l_rowid,
155: l_key_exists);
156:
157: IF FND_API.To_Boolean(l_key_exists) THEN
158: RAISE Label_Exists_Error;
159: END IF;
160: /*B1319565 Added for Technical Parameters */
161: /*B1979042 Added column rollup_disclosure code*/
273: 'F',
274: l_rowid,
275: l_key_exists);
276:
277: IF FND_API.To_Boolean(l_key_exists) THEN
278: x_rowid := l_rowid;
279: ELSE
280: RAISE Row_Missing_Error;
281: END IF;
281: END IF;
282:
283: /* Check the commit flag and if set, then commit the work. */
284:
285: IF FND_API.To_Boolean(p_commit) THEN
286: COMMIT WORK;
287: END IF;
288:
289: EXCEPTION
296: 'GR_FOREIGN_KEY_ERROR');
297: FND_MESSAGE.SET_TOKEN('TEXT',
298: l_msg_data,
299: FALSE);
300: IF FND_API.To_Boolean(p_called_by_form) THEN
301: APP_EXCEPTION.Raise_Exception;
302: ELSE
303: x_msg_data := FND_MESSAGE.Get;
304: END IF;
311: 'GR_RECORD_EXISTS');
312: FND_MESSAGE.SET_TOKEN('CODE',
313: p_label_code,
314: FALSE);
315: IF FND_API.To_Boolean(p_called_by_form) THEN
316: APP_EXCEPTION.Raise_Exception;
317: ELSE
318: x_msg_data := FND_MESSAGE.Get;
319: END IF;
326: 'GR_NO_RECORD_INSERTED');
327: FND_MESSAGE.SET_TOKEN('CODE',
328: p_label_code,
329: FALSE);
330: IF FND_API.To_Boolean(p_called_by_form) THEN
331: APP_EXCEPTION.Raise_Exception;
332: ELSE
333: x_msg_data := FND_MESSAGE.Get;
334: END IF;
342: 'GR_UNEXPECTED_ERROR');
343: FND_MESSAGE.SET_TOKEN('TEXT',
344: l_msg_data,
345: FALSE);
346: IF FND_API.To_Boolean(p_called_by_form) THEN
347: APP_EXCEPTION.Raise_Exception;
348: ELSE
349: x_msg_data := FND_MESSAGE.Get;
350: END IF;
554: END IF;
555:
556: /* Check the commit flag and if set, then commit the work. */
557:
558: IF FND_API.To_Boolean(p_commit) THEN
559: COMMIT WORK;
560: END IF;
561:
562: EXCEPTION
569: 'GR_FOREIGN_KEY_ERROR');
570: FND_MESSAGE.SET_TOKEN('TEXT',
571: l_msg_data,
572: FALSE);
573: IF FND_API.To_Boolean(p_called_by_form) THEN
574: APP_EXCEPTION.Raise_Exception;
575: ELSE
576: x_msg_data := FND_MESSAGE.Get;
577: END IF;
584: 'GR_NO_RECORD_INSERTED');
585: FND_MESSAGE.SET_TOKEN('CODE',
586: p_label_code,
587: FALSE);
588: IF FND_API.To_Boolean(p_called_by_form) THEN
589: APP_EXCEPTION.Raise_Exception;
590: ELSE
591: x_msg_data := FND_MESSAGE.Get;
592: END IF;
600: 'GR_UNEXPECTED_ERROR');
601: FND_MESSAGE.SET_TOKEN('TEXT',
602: l_msg_data,
603: FALSE);
604: IF FND_API.To_Boolean(p_called_by_form) THEN
605: APP_EXCEPTION.Raise_Exception;
606: ELSE
607: x_msg_data := FND_MESSAGE.Get;
608: END IF;
713: RAISE No_Data_Found_Error;
714: END IF;
715: CLOSE c_lock_label;
716:
717: IF FND_API.To_Boolean(p_commit) THEN
718: COMMIT WORK;
719: END IF;
720:
721: EXCEPTION
727: 'GR_RECORD_NOT_FOUND');
728: FND_MESSAGE.SET_TOKEN('CODE',
729: p_label_code,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;
733: ELSE
734: x_msg_data := FND_MESSAGE.Get;
735: END IF;
739: x_return_status := 'E';
740: x_oracle_error := APP_EXCEPTION.Get_Code;
741: FND_MESSAGE.SET_NAME('GR',
742: 'GR_ROW_IS_LOCKED');
743: IF FND_API.To_Boolean(p_called_by_form) THEN
744: APP_EXCEPTION.Raise_Exception;
745: ELSE
746: x_msg_data := FND_MESSAGE.Get;
747: END IF;
755: 'GR_UNEXPECTED_ERROR');
756: FND_MESSAGE.SET_TOKEN('TEXT',
757: l_msg_data,
758: FALSE);
759: IF FND_API.To_Boolean(p_called_by_form) THEN
760: APP_EXCEPTION.Raise_Exception;
761: ELSE
762: x_msg_data := FND_MESSAGE.Get;
763: END IF;
915: WHERE rowid = p_rowid;
916:
917: /* Check the commit flag and if set, then commit the work. */
918:
919: IF FND_API.TO_Boolean(p_commit) THEN
920: COMMIT WORK;
921: END IF;
922:
923: EXCEPTION
925: WHEN Check_Integrity_Error THEN
926: ROLLBACK TO SAVEPOINT Delete_Row;
927: x_return_status := l_return_status;
928: x_oracle_error := l_oracle_error;
929: IF FND_API.To_Boolean(p_called_by_form) THEN
930: APP_EXCEPTION.Raise_Exception;
931: ELSE
932: x_msg_data := FND_MESSAGE.Get;
933: END IF;
940: 'GR_RECORD_NOT_FOUND');
941: FND_MESSAGE.SET_TOKEN('CODE',
942: p_label_code,
943: FALSE);
944: IF FND_API.To_Boolean(p_called_by_form) THEN
945: APP_EXCEPTION.Raise_Exception;
946: ELSE
947: x_msg_data := FND_MESSAGE.Get;
948: END IF;
956: 'GR_UNEXPECTED_ERROR');
957: FND_MESSAGE.SET_TOKEN('TEXT',
958: l_msg_data,
959: FALSE);
960: IF FND_API.To_Boolean(p_called_by_form) THEN
961: APP_EXCEPTION.Raise_Exception;
962: ELSE
963: x_msg_data := FND_MESSAGE.Get;
964: END IF;
1094: (p_ingredient_label_code,
1095: 'F',
1096: l_rowid,
1097: l_key_exists);
1098: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1099: x_return_status := 'E';
1100: FND_MESSAGE.SET_NAME('GR',
1101: 'GR_RECORD_NOT_FOUND');
1102: FND_MESSAGE.SET_TOKEN('CODE',
1113: (p_inherit_from_label_code,
1114: 'F',
1115: l_rowid,
1116: l_key_exists);
1117: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1118: x_return_status := 'E';
1119: FND_MESSAGE.SET_NAME('GR',
1120: 'GR_RECORD_NOT_FOUND');
1121: FND_MESSAGE.SET_TOKEN('CODE',
1450: FALSE);
1451: FND_MESSAGE.SET_TOKEN('TABLES',
1452: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1453: FALSE);
1454: IF FND_API.To_Boolean(p_called_by_form) THEN
1455: APP_EXCEPTION.Raise_Exception;
1456: ELSE
1457: x_msg_data := FND_MESSAGE.Get;
1458: END IF;
1466: 'GR_UNEXPECTED_ERROR');
1467: FND_MESSAGE.SET_TOKEN('TEXT',
1468: l_msg_data,
1469: FALSE);
1470: IF FND_API.To_Boolean(p_called_by_form) THEN
1471: APP_EXCEPTION.Raise_Exception;
1472: ELSE
1473: x_msg_data := FND_MESSAGE.Get;
1474: END IF;
1522: 'GR_UNEXPECTED_ERROR');
1523: FND_MESSAGE.SET_TOKEN('TEXT',
1524: l_msg_data,
1525: FALSE);
1526: IF FND_API.To_Boolean(p_called_by_form) THEN
1527: APP_EXCEPTION.Raise_Exception;
1528: END IF;
1529:
1530: END Check_Primary_Key;