65: X_stmt_num := 400;
66:
67: X_GTIN_ST_TYPE_ID := Get_GTIN_Structure_Type_Id;
68:
69: UPDATE BOM_BILL_OF_MATERIALS
70: SET ASSEMBLY_TYPE = 1,
71: LAST_UPDATE_DATE = sysdate,
72: LAST_UPDATED_BY = to_number(fnd_profile.value('USER_ID'))
73: WHERE ORGANIZATION_ID = X_org_id
97: < X_unit_number)))
98: OR (X_transfer_option = 3 AND
99: NVL(BIC.TO_END_ITEM_UNIT_NUMBER, X_unit_number) < X_unit_number))
100: AND BIC.BILL_SEQUENCE_ID in (SELECT BOM_T.BILL_SEQUENCE_ID
101: FROM BOM_BILL_OF_MATERIALS BOM_T
102: WHERE ORGANIZATION_ID = X_org_id
103: AND ASSEMBLY_ITEM_ID = X_eng_item_id
104: AND ASSEMBLY_TYPE = 1
105: AND ((X_designator_option = 2 AND ALTERNATE_BOM_DESIGNATOR IS NULL)
117: <= X_effectivity_date))
118: OR (X_transfer_option = 3 AND NVL(BIC.DISABLE_DATE, X_effectivity_date +
119: 1) <= X_effectivity_date))
120: AND BIC.BILL_SEQUENCE_ID in (SELECT BOM_T.BILL_SEQUENCE_ID
121: FROM BOM_BILL_OF_MATERIALS BOM_T
122: WHERE ORGANIZATION_ID = X_org_id
123: AND ASSEMBLY_ITEM_ID = X_eng_item_id
124: AND ASSEMBLY_TYPE = 1
125: AND ((X_designator_option = 2 AND ALTERNATE_BOM_DESIGNATOR IS NULL)
187: X_GTIN_ST_TYPE_ID NUMBER;
188: FLAG NUMBER;
189: CURSOR BOM_CURSOR IS
190: SELECT BILL_SEQUENCE_ID, ALTERNATE_BOM_DESIGNATOR
191: FROM BOM_BILL_OF_MATERIALS
192: WHERE ORGANIZATION_ID = X_org_id
193: AND ASSEMBLY_ITEM_ID = X_mfg_item_id
194: AND nvl(effectivity_control, 1) <> 4 -- Bug 4210718
195: AND Source_BILL_SEQUENCE_ID = BILL_SEQUENCE_ID; --R12
196:
197: -- BUG 3503220
198: CURSOR BOM_COPIES IS
199: SELECT BILL_SEQUENCE_ID, ALTERNATE_BOM_DESIGNATOR, assembly_item_id, organization_id, obj_name
200: FROM BOM_BILL_OF_MATERIALS BOM_T
201: WHERE ORGANIZATION_ID = X_org_id
202: AND ASSEMBLY_ITEM_ID = X_mfg_item_id
203: AND nvl(BOM_T.effectivity_control, 1) <> 4 -- Bug 4210718
204: AND ((X_designator_option = 2 AND
210: (X_designator_option = 1));
211:
212: BEGIN
213:
214: --- BOM_BILL_OF_MATERIALS
215:
216: X_stmt_num := 700;
217:
218:
226: ELSE
227: FLAG:= 0;
228: END IF;
229: -- Bug 3523263 Bug 4240131 inserted effectivity_control in table.
230: INSERT INTO BOM_BILL_OF_MATERIALS(
231: ASSEMBLY_ITEM_ID,
232: ORGANIZATION_ID,
233: ALTERNATE_BOM_DESIGNATOR,
234: LAST_UPDATE_DATE,
308: BOM_T.EFFECTIVITY_CONTROL,
309: DECODE(BOM_T.COMMON_BILL_SEQUENCE_ID,BOM_T.BILL_SEQUENCE_ID,BOM_INVENTORY_COMPONENTS_S.CURRVAL,BOM_T.COMMON_BILL_SEQUENCE_ID),
310: X_mfg_item_id,
311: ORGANIZATION_ID
312: FROM BOM_BILL_OF_MATERIALS BOM_T
313: WHERE ORGANIZATION_ID = X_org_id
314: AND ASSEMBLY_ITEM_ID = X_eng_item_id
315: AND ((X_designator_option = 2 AND
316: BOM_T.ALTERNATE_BOM_DESIGNATOR IS NULL)
359: X_stmt_num := 701;
360: BEGIN
361: SELECT BILL_SEQUENCE_ID
362: INTO X_from_bill_sequence_id
363: FROM BOM_BILL_OF_MATERIALS
364: WHERE ORGANIZATION_ID = X_org_id
365: AND ASSEMBLY_ITEM_ID = X_eng_item_id
366: AND NVL(ALTERNATE_BOM_DESIGNATOR,'NONE') = NVL(BOM1.ALTERNATE_BOM_DESIGNATOR,'NONE');
367: EXCEPTION
395: from_item_id =>X_eng_item_id);
396:
397: END LOOP;
398: IF FLAG=1 THEN -- 3503263
399: UPDATE BOM_BILL_OF_MATERIALS BOM1
400: SET BOM1.ALTERNATE_BOM_DESIGNATOR =NULL
401: WHERE ORGANIZATION_ID = X_org_id
402: AND ASSEMBLY_ITEM_ID = X_mfg_item_id
403: AND (X_designator_option = 3 AND