[Home] [Help]
2127: if (l_sub_type = WSM_SUB_DEL AND v_wljdi_routing_op_seq_num(l_d) is not null) THEN
2128: begin
2129: select source_phantom_id
2130: into v_wljdi_src_phantom_item_id(l_d)
2131: from wsm_copy_requirement_ops
2132: where wip_entity_id=p_wip_entity_id
2133: and component_item_id = v_wljdi_inventory_item_id_old(l_d)
2134: and operation_seq_num in (v_wljdi_routing_op_seq_num(l_d), (-1)*v_wljdi_routing_op_seq_num(l_d));
2135: exception
5452: c_rtg_op_seq_num number,
5453: c_src_phm_item_id number) is
5454: select component_sequence_id,
5455: bill_quantity_per_assembly -- bug 3347985, was 'quantity_per_assembly'
5456: from wsm_copy_requirement_ops
5457: where wip_entity_id = c_wip_entity_id
5458: and operation_seq_num = c_rtg_op_seq_num
5459: and source_phantom_id = c_src_phm_item_id
5460: order by component_sequence_id;
5624: l_op_recommended,
5625: l_scheduled_qty,
5626: l_bom_qpa
5627: from wsm_copy_operations wco,
5628: wsm_copy_requirement_ops wcro
5629: where wco.wip_entity_id = p_wip_entity_id
5630: and wco.operation_seq_num = l_rtg_op_seq_num
5631: and wcro.wip_entity_id = wco.wip_entity_id
5632: and wcro.operation_seq_num = wco.operation_seq_num
5788: select 1
5789: into l_phan_exist
5790: from dual
5791: where exists (select component_item_id
5792: from wsm_copy_requirement_ops
5793: where wip_entity_id = p_wip_entity_id
5794: and source_phantom_id = l_item_old_id
5795: and component_item_id <>l_item_old_id
5796: and operation_seq_num = l_rtg_op_seq_num);
5967:
5968: begin
5969: select 1
5970: into l_comp_duplicate
5971: from wsm_copy_requirement_ops wcro
5972: where wcro.wip_entity_id = p_wip_entity_id
5973: and wcro.organization_id=p_org_id
5974: and wcro.component_item_id=l_item_id
5975: and (wcro.operation_seq_num =l_rtg_op_seq_num or
5990:
5991: begin
5992: select 1
5993: into l_comp_duplicate
5994: from wsm_copy_requirement_ops wcro
5995: where wcro.wip_entity_id = p_wip_entity_id
5996: and wcro.organization_id=p_org_id
5997: and wcro.component_item_id=l_src_phm_item_id
5998: and wcro.operation_seq_num = -1*l_rtg_op_seq_num;
10688: select decode(l_is_src_lot_sub,1,l_sub_comp_qpa,quantity_per_assembly),
10689: decode(l_is_src_lot_sub,1,l_sub_comp_bill_qpa,BILL_QUANTITY_PER_ASSEMBLY),
10690: basis_type
10691: into l_required_qpa,l_bill_req_qpa,l_basis_type
10692: from wsm_copy_requirement_ops wcro
10693: where wcro.wip_entity_id = v_wlji_wip_entity_id(v_idx)
10694: /* and wcro.component_item_id = v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id */
10695: and wcro.component_item_id = decode(l_is_src_lot_sub,1,l_primary_comp_item_id,v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id)
10696:
10721: l_temp_num := 0;
10722: begin
10723: select 1
10724: into l_temp_num
10725: from wsm_copy_requirement_ops wcro
10726: where wcro.wip_entity_id = v_wlji_wip_entity_id(v_idx)
10727: /*and wcro.component_item_id = v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id */
10728: and wcro.component_item_id = decode(l_is_src_lot_sub,1,l_primary_comp_item_id,v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id)
10729: and recommended = 'Y'
15281: c_src_phantom_id number) is
15282: select wcro.component_item_id,
15283: wcro.component_sequence_id,
15284: wcro.source_phantom_id
15285: from wsm_copy_requirement_ops wcro
15286: where wcro.wip_entity_id = c_wip_entity_id
15287: and wcro.operation_seq_num = c_rtg_op_seq_num
15288: and wcro.component_item_id <> c_item_id
15289: and wcro.primary_component_id = c_primary_item_id
15291: union
15292: select wcro.component_item_id,
15293: wcro.component_sequence_id,
15294: wcro.source_phantom_id
15295: from wsm_copy_requirement_ops wcro
15296: where wcro.wip_entity_id = c_wip_entity_id
15297: and wcro.operation_seq_num = c_rtg_op_seq_num
15298: and wcro.primary_component_id = c_primary_item_id
15299: and wcro.source_phantom_id <> -1 -- IS NOT NULL
17469: delete from wsm_copy_op_resource_usage
17470: where wip_entity_id = p_wip_entity_id
17471: and operation_seq_num = l_rtg_op_seq_num;
17472:
17473: delete from wsm_copy_requirement_ops
17474: where wip_entity_id = p_wip_entity_id
17475: and operation_seq_num = l_rtg_op_seq_num;
17476:
17477: delete from wsm_copy_requirement_ops
17473: delete from wsm_copy_requirement_ops
17474: where wip_entity_id = p_wip_entity_id
17475: and operation_seq_num = l_rtg_op_seq_num;
17476:
17477: delete from wsm_copy_requirement_ops
17478: where wip_entity_id = p_wip_entity_id
17479: and operation_seq_num = (-1)*l_rtg_op_seq_num;
17480:
17481: end if;
20187: raise e_wljdi_common_error;
20188: end if;
20189:
20190: if v_wljdi_src_phantom_item_id(l_d)=0 then
20191: delete wsm_copy_requirement_ops
20192: where operation_seq_num=(-1)*l_rtg_op_seq_num
20193: and wip_entity_id =p_wip_entity_id
20194: and component_item_id =l_item_old_id;
20195: else
20192: where operation_seq_num=(-1)*l_rtg_op_seq_num
20193: and wip_entity_id =p_wip_entity_id
20194: and component_item_id =l_item_old_id;
20195: else
20196: delete wsm_copy_requirement_ops
20197: where operation_seq_num=l_rtg_op_seq_num
20198: and wip_entity_id =p_wip_entity_id
20199: and component_item_id =l_item_old_id;
20200: end if;
20226: if p_error_code <> 0 then
20227: raise e_wljdi_common_error;
20228: end if;
20229:
20230: INSERT INTO WSM_COPY_REQUIREMENT_OPS
20231: (wip_entity_id,
20232: operation_seq_num,
20233: component_item_id,
20234: primary_component_id,
20593: -- Note: wcro.source_phantom_id is a NOT NULL column now,
20594: -- l_v_comp_phm_item_id(i) can be null or -1,
20595: -- should treate them as the same,
20596:
20597: update wsm_copy_requirement_ops
20598: set reco_date_required = NVL(l_v_comp_reqd_date(i), reco_date_required),
20599: component_yield_factor = nvl(l_v_comp_yield(i), component_yield_factor),
20600: quantity_per_assembly = nvl(l_v_comp_qpa(i), quantity_per_assembly), -- ADD bug 3347985
20601: recommended = NVL(l_v_recoflag(i), recommended),