[Home] [Help]
2122: if (l_sub_type = WSM_SUB_DEL AND v_wljdi_routing_op_seq_num(l_d) is not null) THEN
2123: begin
2124: select source_phantom_id
2125: into v_wljdi_src_phantom_item_id(l_d)
2126: from wsm_copy_requirement_ops
2127: where wip_entity_id=p_wip_entity_id
2128: and component_item_id = v_wljdi_inventory_item_id_old(l_d)
2129: and operation_seq_num in (v_wljdi_routing_op_seq_num(l_d), (-1)*v_wljdi_routing_op_seq_num(l_d));
2130: exception
5446: c_rtg_op_seq_num number,
5447: c_src_phm_item_id number) is
5448: select component_sequence_id,
5449: bill_quantity_per_assembly -- bug 3347985, was 'quantity_per_assembly'
5450: from wsm_copy_requirement_ops
5451: where wip_entity_id = c_wip_entity_id
5452: and operation_seq_num = c_rtg_op_seq_num
5453: and source_phantom_id = c_src_phm_item_id
5454: order by component_sequence_id;
5618: l_op_recommended,
5619: l_scheduled_qty,
5620: l_bom_qpa
5621: from wsm_copy_operations wco,
5622: wsm_copy_requirement_ops wcro
5623: where wco.wip_entity_id = p_wip_entity_id
5624: and wco.operation_seq_num = l_rtg_op_seq_num
5625: and wcro.wip_entity_id = wco.wip_entity_id
5626: and wcro.operation_seq_num = wco.operation_seq_num
5782: select 1
5783: into l_phan_exist
5784: from dual
5785: where exists (select component_item_id
5786: from wsm_copy_requirement_ops
5787: where wip_entity_id = p_wip_entity_id
5788: and source_phantom_id = l_item_old_id
5789: and component_item_id <>l_item_old_id
5790: and operation_seq_num = l_rtg_op_seq_num);
5956:
5957: begin
5958: select 1
5959: into l_comp_duplicate
5960: from wsm_copy_requirement_ops wcro
5961: where wcro.wip_entity_id = p_wip_entity_id
5962: and wcro.organization_id=p_org_id
5963: and wcro.component_item_id=l_item_id
5964: and (wcro.operation_seq_num =l_rtg_op_seq_num or
5979:
5980: begin
5981: select 1
5982: into l_comp_duplicate
5983: from wsm_copy_requirement_ops wcro
5984: where wcro.wip_entity_id = p_wip_entity_id
5985: and wcro.organization_id=p_org_id
5986: and wcro.component_item_id=l_src_phm_item_id
5987: and wcro.operation_seq_num = -1*l_rtg_op_seq_num;
10586: select decode(l_is_src_lot_sub,1,l_sub_comp_qpa,quantity_per_assembly),
10587: decode(l_is_src_lot_sub,1,l_sub_comp_bill_qpa,BILL_QUANTITY_PER_ASSEMBLY),
10588: basis_type
10589: into l_required_qpa,l_bill_req_qpa,l_basis_type
10590: from wsm_copy_requirement_ops wcro
10591: where wcro.wip_entity_id = v_wlji_wip_entity_id(v_idx)
10592: /* and wcro.component_item_id = v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id */
10593: 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)
10594:
10619: l_temp_num := 0;
10620: begin
10621: select 1
10622: into l_temp_num
10623: from wsm_copy_requirement_ops wcro
10624: where wcro.wip_entity_id = v_wlji_wip_entity_id(v_idx)
10625: /*and wcro.component_item_id = v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id */
10626: 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)
10627: and recommended = 'Y'
15159: c_src_phantom_id number) is
15160: select wcro.component_item_id,
15161: wcro.component_sequence_id,
15162: wcro.source_phantom_id
15163: from wsm_copy_requirement_ops wcro
15164: where wcro.wip_entity_id = c_wip_entity_id
15165: and wcro.operation_seq_num = c_rtg_op_seq_num
15166: and wcro.component_item_id <> c_item_id
15167: and wcro.primary_component_id = c_primary_item_id
15169: union
15170: select wcro.component_item_id,
15171: wcro.component_sequence_id,
15172: wcro.source_phantom_id
15173: from wsm_copy_requirement_ops wcro
15174: where wcro.wip_entity_id = c_wip_entity_id
15175: and wcro.operation_seq_num = c_rtg_op_seq_num
15176: and wcro.primary_component_id = c_primary_item_id
15177: and wcro.source_phantom_id <> -1 -- IS NOT NULL
17027: delete from wsm_copy_op_resource_usage
17028: where wip_entity_id = p_wip_entity_id
17029: and operation_seq_num = l_rtg_op_seq_num;
17030:
17031: delete from wsm_copy_requirement_ops
17032: where wip_entity_id = p_wip_entity_id
17033: and operation_seq_num = l_rtg_op_seq_num;
17034:
17035: end if;
19595: raise e_wljdi_common_error;
19596: end if;
19597:
19598: if v_wljdi_src_phantom_item_id(l_d)=0 then
19599: delete wsm_copy_requirement_ops
19600: where operation_seq_num=(-1)*l_rtg_op_seq_num
19601: and wip_entity_id =p_wip_entity_id
19602: and component_item_id =l_item_old_id;
19603: else
19600: where operation_seq_num=(-1)*l_rtg_op_seq_num
19601: and wip_entity_id =p_wip_entity_id
19602: and component_item_id =l_item_old_id;
19603: else
19604: delete wsm_copy_requirement_ops
19605: where operation_seq_num=l_rtg_op_seq_num
19606: and wip_entity_id =p_wip_entity_id
19607: and component_item_id =l_item_old_id;
19608: end if;
19634: if p_error_code <> 0 then
19635: raise e_wljdi_common_error;
19636: end if;
19637:
19638: INSERT INTO WSM_COPY_REQUIREMENT_OPS
19639: (wip_entity_id,
19640: operation_seq_num,
19641: component_item_id,
19642: primary_component_id,
19953: -- Note: wcro.source_phantom_id is a NOT NULL column now,
19954: -- l_v_comp_phm_item_id(i) can be null or -1,
19955: -- should treate them as the same,
19956:
19957: update wsm_copy_requirement_ops
19958: set reco_date_required = NVL(l_v_comp_reqd_date(i), reco_date_required),
19959: component_yield_factor = nvl(l_v_comp_yield(i), component_yield_factor),
19960: quantity_per_assembly = nvl(l_v_comp_qpa(i), quantity_per_assembly), -- ADD bug 3347985
19961: recommended = NVL(l_v_recoflag(i), recommended),