51: X_LAST_UPDATE_DATE in DATE,
52: X_LAST_UPDATED_BY in NUMBER,
53: X_LAST_UPDATE_LOGIN in NUMBER
54: ) IS
55: CURSOR C IS SELECT ROWID FROM GMD_ITEM_SUBSTITUTION_HDR_B
56: WHERE SUBSTITUTION_ID = X_SUBSTITUTION_ID
57: ;
58: BEGIN
59: INSERT INTO GMD_ITEM_SUBSTITUTION_HDR_B (
55: CURSOR C IS SELECT ROWID FROM GMD_ITEM_SUBSTITUTION_HDR_B
56: WHERE SUBSTITUTION_ID = X_SUBSTITUTION_ID
57: ;
58: BEGIN
59: INSERT INTO GMD_ITEM_SUBSTITUTION_HDR_B (
60: SUBSTITUTION_ID,
61: SUBSTITUTION_NAME,
62: SUBSTITUTION_VERSION,
63: SUBSTITUTION_STATUS,
282: ATTRIBUTE27,
283: ATTRIBUTE28,
284: ATTRIBUTE29,
285: ATTRIBUTE30
286: from GMD_ITEM_SUBSTITUTION_HDR_B
287: where SUBSTITUTION_ID = X_SUBSTITUTION_ID
288: for update of SUBSTITUTION_ID nowait;
289: recinfo c%rowtype;
290:
450: X_LAST_UPDATED_BY in NUMBER,
451: X_LAST_UPDATE_LOGIN in NUMBER
452: ) is
453: begin
454: update GMD_ITEM_SUBSTITUTION_HDR_B set
455: SUBSTITUTION_NAME = X_SUBSTITUTION_NAME,
456: SUBSTITUTION_VERSION = X_SUBSTITUTION_VERSION,
457: SUBSTITUTION_STATUS = X_SUBSTITUTION_STATUS,
458: ORIGINAL_INVENTORY_ITEM_ID = X_ORIGINAL_INVENTORY_ITEM_ID,
527: if (sql%notfound) then
528: raise no_data_found;
529: end if;
530:
531: delete from GMD_ITEM_SUBSTITUTION_HDR_B
532: where SUBSTITUTION_ID = X_SUBSTITUTION_ID;
533:
534: if (sql%notfound) then
535: raise no_data_found;
541: begin
542: delete from GMD_ITEM_SUBSTITUTION_HDR_TL T
543: where not exists
544: (select NULL
545: from GMD_ITEM_SUBSTITUTION_HDR_B B
546: where B.SUBSTITUTION_ID = T.SUBSTITUTION_ID
547: );
548:
549: update GMD_ITEM_SUBSTITUTION_HDR_TL T set (