155: 'F',
156: l_rowid,
157: l_key_exists);
158:
159: IF FND_API.To_Boolean(l_key_exists) THEN
160: RAISE Label_Exists_Error;
161: END IF;
162: /*B1319565 Added for Technical Parameters */
163: /*B1979042 Added column rollup_disclosure code*/
277: 'F',
278: l_rowid,
279: l_key_exists);
280:
281: IF FND_API.To_Boolean(l_key_exists) THEN
282: x_rowid := l_rowid;
283: ELSE
284:
285:
287: END IF;
288:
289: /* Check the commit flag and if set, then commit the work. */
290:
291: IF FND_API.To_Boolean(p_commit) THEN
292: COMMIT WORK;
293: END IF;
294:
295: EXCEPTION
303: 'GR_FOREIGN_KEY_ERROR');
304: FND_MESSAGE.SET_TOKEN('TEXT',
305: l_msg_data,
306: FALSE);
307: IF FND_API.To_Boolean(p_called_by_form) THEN
308: APP_EXCEPTION.Raise_Exception;
309: ELSE
310: x_msg_data := FND_MESSAGE.Get;
311: END IF;
318: 'GR_RECORD_EXISTS');
319: FND_MESSAGE.SET_TOKEN('CODE',
320: p_label_code,
321: FALSE);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
324: ELSE
325: x_msg_data := FND_MESSAGE.Get;
326: END IF;
333: 'GR_NO_RECORD_INSERTED');
334: FND_MESSAGE.SET_TOKEN('CODE',
335: p_label_code,
336: FALSE);
337: IF FND_API.To_Boolean(p_called_by_form) THEN
338: APP_EXCEPTION.Raise_Exception;
339: ELSE
340: x_msg_data := FND_MESSAGE.Get;
341: END IF;
349: 'GR_UNEXPECTED_ERROR');
350: FND_MESSAGE.SET_TOKEN('TEXT',
351: l_msg_data,
352: FALSE);
353: IF FND_API.To_Boolean(p_called_by_form) THEN
354: APP_EXCEPTION.Raise_Exception;
355: ELSE
356: x_msg_data := FND_MESSAGE.Get;
357: END IF;
561: END IF;
562:
563: /* Check the commit flag and if set, then commit the work. */
564:
565: IF FND_API.To_Boolean(p_commit) THEN
566: COMMIT WORK;
567: END IF;
568:
569: EXCEPTION
576: 'GR_FOREIGN_KEY_ERROR');
577: FND_MESSAGE.SET_TOKEN('TEXT',
578: l_msg_data,
579: FALSE);
580: IF FND_API.To_Boolean(p_called_by_form) THEN
581: APP_EXCEPTION.Raise_Exception;
582: ELSE
583: x_msg_data := FND_MESSAGE.Get;
584: END IF;
591: 'GR_NO_RECORD_INSERTED');
592: FND_MESSAGE.SET_TOKEN('CODE',
593: p_label_code,
594: FALSE);
595: IF FND_API.To_Boolean(p_called_by_form) THEN
596: APP_EXCEPTION.Raise_Exception;
597: ELSE
598: x_msg_data := FND_MESSAGE.Get;
599: END IF;
607: 'GR_UNEXPECTED_ERROR');
608: FND_MESSAGE.SET_TOKEN('TEXT',
609: l_msg_data,
610: FALSE);
611: IF FND_API.To_Boolean(p_called_by_form) THEN
612: APP_EXCEPTION.Raise_Exception;
613: ELSE
614: x_msg_data := FND_MESSAGE.Get;
615: END IF;
720: RAISE No_Data_Found_Error;
721: END IF;
722: CLOSE c_lock_label;
723:
724: IF FND_API.To_Boolean(p_commit) THEN
725: COMMIT WORK;
726: END IF;
727:
728: EXCEPTION
734: 'GR_RECORD_NOT_FOUND');
735: FND_MESSAGE.SET_TOKEN('CODE',
736: p_label_code,
737: FALSE);
738: IF FND_API.To_Boolean(p_called_by_form) THEN
739: APP_EXCEPTION.Raise_Exception;
740: ELSE
741: x_msg_data := FND_MESSAGE.Get;
742: END IF;
746: x_return_status := 'E';
747: x_oracle_error := APP_EXCEPTION.Get_Code;
748: FND_MESSAGE.SET_NAME('GR',
749: 'GR_ROW_IS_LOCKED');
750: IF FND_API.To_Boolean(p_called_by_form) THEN
751: APP_EXCEPTION.Raise_Exception;
752: ELSE
753: x_msg_data := FND_MESSAGE.Get;
754: END IF;
762: 'GR_UNEXPECTED_ERROR');
763: FND_MESSAGE.SET_TOKEN('TEXT',
764: l_msg_data,
765: FALSE);
766: IF FND_API.To_Boolean(p_called_by_form) THEN
767: APP_EXCEPTION.Raise_Exception;
768: ELSE
769: x_msg_data := FND_MESSAGE.Get;
770: END IF;
922: WHERE rowid = p_rowid;
923:
924: /* Check the commit flag and if set, then commit the work. */
925:
926: IF FND_API.TO_Boolean(p_commit) THEN
927: COMMIT WORK;
928: END IF;
929:
930: EXCEPTION
932: WHEN Check_Integrity_Error THEN
933: ROLLBACK TO SAVEPOINT Delete_Row;
934: x_return_status := l_return_status;
935: x_oracle_error := l_oracle_error;
936: IF FND_API.To_Boolean(p_called_by_form) THEN
937: APP_EXCEPTION.Raise_Exception;
938: ELSE
939: x_msg_data := FND_MESSAGE.Get;
940: END IF;
947: 'GR_RECORD_NOT_FOUND');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_label_code,
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
953: ELSE
954: x_msg_data := FND_MESSAGE.Get;
955: END IF;
963: 'GR_UNEXPECTED_ERROR');
964: FND_MESSAGE.SET_TOKEN('TEXT',
965: l_msg_data,
966: FALSE);
967: IF FND_API.To_Boolean(p_called_by_form) THEN
968: APP_EXCEPTION.Raise_Exception;
969: ELSE
970: x_msg_data := FND_MESSAGE.Get;
971: END IF;
1101: (p_ingredient_label_code,
1102: 'F',
1103: l_rowid,
1104: l_key_exists);
1105: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1106: x_return_status := 'E';
1107: FND_MESSAGE.SET_NAME('GR',
1108: 'GR_RECORD_NOT_FOUND');
1109: FND_MESSAGE.SET_TOKEN('CODE',
1120: (p_inherit_from_label_code,
1121: 'F',
1122: l_rowid,
1123: l_key_exists);
1124: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1125: x_return_status := 'E';
1126: FND_MESSAGE.SET_NAME('GR',
1127: 'GR_RECORD_NOT_FOUND');
1128: FND_MESSAGE.SET_TOKEN('CODE',
1457: FALSE);
1458: FND_MESSAGE.SET_TOKEN('TABLES',
1459: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
1460: FALSE);
1461: IF FND_API.To_Boolean(p_called_by_form) THEN
1462: APP_EXCEPTION.Raise_Exception;
1463: ELSE
1464: x_msg_data := FND_MESSAGE.Get;
1465: END IF;
1473: 'GR_UNEXPECTED_ERROR');
1474: FND_MESSAGE.SET_TOKEN('TEXT',
1475: l_msg_data,
1476: FALSE);
1477: IF FND_API.To_Boolean(p_called_by_form) THEN
1478: APP_EXCEPTION.Raise_Exception;
1479: ELSE
1480: x_msg_data := FND_MESSAGE.Get;
1481: END IF;
1531: 'GR_UNEXPECTED_ERROR');
1532: FND_MESSAGE.SET_TOKEN('TEXT',
1533: l_msg_data,
1534: FALSE);
1535: IF FND_API.To_Boolean(p_called_by_form) THEN
1536: APP_EXCEPTION.Raise_Exception;
1537: END IF;
1538:
1539: END Check_Primary_Key;