138: 'F',
139: l_rowid,
140: l_key_exists);
141:
142: IF FND_API.To_Boolean(l_key_exists) THEN
143: RAISE Label_Exists_Error;
144: END IF;
145:
146: /* Melanie Grosser 23-Jan-2003 BUG 2761024
156: 'F',
157: l_rowid,
158: l_key_exists);
159:
160: IF FND_API.To_Boolean(l_key_exists) THEN
161: RAISE Reg_Item_Error;
162: END IF;
163:
164: Check_Master_Item_Assoc
167: 'F',
168: l_rowid,
169: l_key_exists);
170:
171: IF FND_API.To_Boolean(l_key_exists) THEN
172: RAISE Already_Linked_Error;
173: END IF;
174: /* Melanie Grosser 23-Jan-2003 BUG 2761024 - End of changes */
175:
264: 'F',
265: l_rowid,
266: l_key_exists);
267:
268: IF FND_API.To_Boolean(l_key_exists) THEN
269: x_rowid := l_rowid;
270: ELSE
271: RAISE Row_Missing_Error;
272: END IF;
272: END IF;
273:
274: /* Check the commit flag and if set, then commit the work. */
275:
276: IF FND_API.To_Boolean(p_commit) THEN
277: COMMIT WORK;
278: END IF;
279:
280: EXCEPTION
287: 'GR_FOREIGN_KEY_ERROR');
288: FND_MESSAGE.SET_TOKEN('TEXT',
289: l_msg_data,
290: FALSE);
291: IF FND_API.To_Boolean(p_called_by_form) THEN
292: APP_EXCEPTION.Raise_Exception;
293: ELSE
294: x_msg_data := FND_MESSAGE.Get;
295: END IF;
302: 'GR_RECORD_EXISTS');
303: FND_MESSAGE.SET_TOKEN('CODE',
304: p_item_code || ' ' || p_item_no,
305: FALSE);
306: IF FND_API.To_Boolean(p_called_by_form) THEN
307: APP_EXCEPTION.Raise_Exception;
308: ELSE
309: x_msg_data := FND_MESSAGE.Get;
310: END IF;
317: 'GR_NO_RECORD_INSERTED');
318: FND_MESSAGE.SET_TOKEN('CODE',
319: p_item_code || ' ' || p_item_no,
320: FALSE);
321: IF FND_API.To_Boolean(p_called_by_form) THEN
322: APP_EXCEPTION.Raise_Exception;
323: ELSE
324: x_msg_data := FND_MESSAGE.Get;
325: END IF;
338: 'GR_REG_ITEM');
339: FND_MESSAGE.SET_TOKEN('ITEM',
340: p_item_no,
341: FALSE);
342: IF FND_API.To_Boolean(p_called_by_form) THEN
343: APP_EXCEPTION.Raise_Exception;
344: ELSE
345: x_msg_data := FND_MESSAGE.Get;
346: END IF;
356: FALSE);
357: FND_MESSAGE.SET_TOKEN('REG_ITEM',
358: p_item_code,
359: FALSE);
360: IF FND_API.To_Boolean(p_called_by_form) THEN
361: APP_EXCEPTION.Raise_Exception;
362: ELSE
363: x_msg_data := FND_MESSAGE.Get;
364: END IF;
373: 'GR_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('TEXT',
375: l_msg_data,
376: FALSE);
377: IF FND_API.To_Boolean(p_called_by_form) THEN
378: APP_EXCEPTION.Raise_Exception;
379: ELSE
380: x_msg_data := FND_MESSAGE.Get;
381: END IF;
547: END IF;
548:
549: /* Check the commit flag and if set, then commit the work. */
550:
551: IF FND_API.To_Boolean(p_commit) THEN
552: COMMIT WORK;
553: END IF;
554:
555: EXCEPTION
562: 'GR_FOREIGN_KEY_ERROR');
563: FND_MESSAGE.SET_TOKEN('TEXT',
564: l_msg_data,
565: FALSE);
566: IF FND_API.To_Boolean(p_called_by_form) THEN
567: APP_EXCEPTION.Raise_Exception;
568: ELSE
569: x_msg_data := FND_MESSAGE.Get;
570: END IF;
577: 'GR_NO_RECORD_INSERTED');
578: FND_MESSAGE.SET_TOKEN('CODE',
579: p_item_code || ' ' || p_item_no,
580: FALSE);
581: IF FND_API.To_Boolean(p_called_by_form) THEN
582: APP_EXCEPTION.Raise_Exception;
583: ELSE
584: x_msg_data := FND_MESSAGE.Get;
585: END IF;
593: 'GR_UNEXPECTED_ERROR');
594: FND_MESSAGE.SET_TOKEN('TEXT',
595: l_msg_data,
596: FALSE);
597: IF FND_API.To_Boolean(p_called_by_form) THEN
598: APP_EXCEPTION.Raise_Exception;
599: ELSE
600: x_msg_data := FND_MESSAGE.Get;
601: END IF;
697: IF LockGenericRcd.last_update_date <> p_last_update_date THEN
698: RAISE RECORD_CHANGED_ERROR;
699: END IF;
700:
701: IF FND_API.To_Boolean(p_commit) THEN
702: COMMIT WORK;
703: END IF;
704:
705: EXCEPTION
711: 'GR_RECORD_NOT_FOUND');
712: FND_MESSAGE.SET_TOKEN('CODE',
713: p_item_code || ' ' || p_item_no,
714: FALSE);
715: IF FND_API.To_Boolean(p_called_by_form) THEN
716: APP_EXCEPTION.Raise_Exception;
717: ELSE
718: x_msg_data := FND_MESSAGE.Get;
719: END IF;
722: ROLLBACK TO SAVEPOINT Lock_Row;
723: X_return_status := 'E';
724: FND_MESSAGE.SET_NAME('FND',
725: 'FORM_RECORD_CHANGED');
726: IF FND_API.To_Boolean(p_called_by_form) THEN
727: APP_EXCEPTION.Raise_Exception;
728: ELSE
729: x_msg_data := FND_MESSAGE.Get;
730: END IF;
731: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
732: ROLLBACK TO SAVEPOINT Lock_Row;
733: x_return_status := 'L';
734: x_oracle_error := APP_EXCEPTION.Get_Code;
735: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
736: FND_MESSAGE.SET_NAME('GR',
737: 'GR_ROW_IS_LOCKED');
738: x_msg_data := FND_MESSAGE.Get;
739: END IF;
748: 'GR_UNEXPECTED_ERROR');
749: FND_MESSAGE.SET_TOKEN('TEXT',
750: l_msg_data,
751: FALSE);
752: IF FND_API.To_Boolean(p_called_by_form) THEN
753: APP_EXCEPTION.Raise_Exception;
754: ELSE
755: x_msg_data := FND_MESSAGE.Get;
756: END IF;
883: WHERE rowid = p_rowid;
884:
885: /* Check the commit flag and if set, then commit the work. */
886:
887: IF FND_API.TO_Boolean(p_commit) THEN
888: COMMIT WORK;
889: END IF;
890:
891: EXCEPTION
893: WHEN Check_Integrity_Error THEN
894: ROLLBACK TO SAVEPOINT Delete_Row;
895: x_return_status := l_return_status;
896: x_oracle_error := l_oracle_error;
897: IF FND_API.To_Boolean(p_called_by_form) THEN
898: APP_EXCEPTION.Raise_Exception;
899: ELSE
900: x_msg_data := FND_MESSAGE.Get;
901: END IF;
908: 'GR_RECORD_NOT_FOUND');
909: FND_MESSAGE.SET_TOKEN('CODE',
910: p_item_code || ' ' || p_item_no,
911: FALSE);
912: IF FND_API.To_Boolean(p_called_by_form) THEN
913: APP_EXCEPTION.Raise_Exception;
914: ELSE
915: x_msg_data := FND_MESSAGE.Get;
916: END IF;
925: 'GR_UNEXPECTED_ERROR');
926: FND_MESSAGE.SET_TOKEN('TEXT',
927: l_msg_data,
928: FALSE);
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;
995: WHERE item_no = p_item_no;
996: END IF;
997: END IF;
998:
999: IF FND_API.To_Boolean(p_commit) THEN
1000: COMMIT WORK;
1001: END IF;
1002:
1003: EXCEPTION
1009: 'GR_NULL_VALUE');
1010: FND_MESSAGE.SET_TOKEN('CODE',
1011: l_msg_token,
1012: FALSE);
1013: IF FND_API.To_Boolean(p_called_by_form) THEN
1014: APP_EXCEPTION.Raise_Exception;
1015: ELSE
1016: x_msg_data := FND_MESSAGE.Get;
1017: END IF;
1025: 'GR_UNEXPECTED_ERROR');
1026: FND_MESSAGE.SET_TOKEN('TEXT',
1027: l_msg_token,
1028: FALSE);
1029: IF FND_API.To_Boolean(p_called_by_form) THEN
1030: APP_EXCEPTION.Raise_Exception;
1031: ELSE
1032: x_msg_data := FND_MESSAGE.Get;
1033: END IF;
1113: (l_item_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',
1274: 'GR_UNEXPECTED_ERROR');
1275: FND_MESSAGE.SET_TOKEN('TEXT',
1276: l_msg_data,
1277: FALSE);
1278: IF FND_API.To_Boolean(p_called_by_form) THEN
1279: APP_EXCEPTION.Raise_Exception;
1280: ELSE
1281: x_msg_data := FND_MESSAGE.Get;
1282: END IF;
1333: 'GR_UNEXPECTED_ERROR');
1334: FND_MESSAGE.SET_TOKEN('TEXT',
1335: l_msg_data,
1336: FALSE);
1337: IF FND_API.To_Boolean(p_called_by_form) THEN
1338: APP_EXCEPTION.Raise_Exception;
1339: END IF;
1340:
1341: END Check_Primary_Key;
1401: 'GR_UNEXPECTED_ERROR');
1402: FND_MESSAGE.SET_TOKEN('TEXT',
1403: l_msg_data,
1404: FALSE);
1405: IF FND_API.To_Boolean(p_called_by_form) THEN
1406: APP_EXCEPTION.Raise_Exception;
1407: END IF;
1408:
1409: END Check_Master_Item_Assoc;