[Home] [Help]
1069: l_stmt_num := 20;
1070: -- Derive Job_Name.
1071: select FND_Profile.value('WIP_JOB_PREFIX') || wip_job_number_s.nextval
1072: into p_job_name
1073: from dual;
1074: end if;
1075:
1076: -- Be sure the provided Job_Name is not already in use.
1077: l_temp_num := 0;
3265: l_xst := 0;
3266: l_stmt_num := 30;
3267: select 1
3268: into l_xst
3269: from dual
3270: where exists (
3271: select resource_id
3272: from wip_operation_resources wor
3273: where wor.wip_entity_id = p_wip_entity_id
3717: l_xst := 0;
3718:
3719: select 1
3720: into l_xst
3721: from dual
3722: where exists ( select transaction_id
3723: from wip_transactions wt
3724: where wt.wip_entity_id = p_wip_entity_id
3725: and wt.organization_id = p_org_id
3749: l_xst := 0;
3750:
3751: select 1
3752: into l_xst
3753: from dual
3754: where exists ( select 'PO/REQ Linked'
3755: from po_releases_all pr,
3756: po_headers_all ph,
3757: po_distributions_all pd,
3993: l_check_primary:=0;
3994: begin
3995: select 'N'
3996: into p_v_res(l_i).reco_flag
3997: from dual
3998: where exists( select 1
3999: from wip_sub_operation_resources wsor
4000: where wsor.organization_id = p_org_id
4001: and wsor.wip_entity_id = p_wip_entity_id
4011: if l_check_primary=1 then
4012: begin
4013: select 'Y'
4014: into p_v_res(l_i).reco_flag
4015: from dual
4016: where exists( select 1
4017: from wip_operation_resources wor
4018: where wor.organization_id = p_org_id
4019: and wor.wip_entity_id = p_wip_entity_id
4030: if l_check_primary=2 then
4031: begin
4032: select 'N'
4033: into p_v_res(l_i).reco_flag
4034: from dual
4035: where exists( select 1
4036: from wip_operation_resources wor
4037: where wor.organization_id = p_org_id
4038: and wor.wip_entity_id = p_wip_entity_id
4105: l_check_primary:=0;
4106: begin
4107: select 'N'
4108: into p_v_res(l_i).reco_flag
4109: from dual
4110: where exists( select 1
4111: from wsm_copy_op_resources wcor
4112: where wcor.organization_id = p_org_id
4113: and wcor.wip_entity_id = p_wip_entity_id
4125: if l_check_primary=1 then
4126: begin
4127: select 'Y'
4128: into p_v_res(l_i).reco_flag
4129: from dual
4130: where exists( select 1
4131: from wsm_copy_op_resources wcor
4132: where wcor.organization_id = p_org_id
4133: and wcor.wip_entity_id = p_wip_entity_id
4145: if l_check_primary=2 then
4146: begin
4147: select 'N'
4148: into p_v_res(l_i).reco_flag
4149: from dual
4150: where exists( select 1
4151: from wsm_copy_op_resources wcor
4152: where wcor.organization_id = p_org_id
4153: and wcor.wip_entity_id = p_wip_entity_id
4705: /*l_exists :=0;
4706:
4707: select 1
4708: into l_exists
4709: from dual
4710: where exists( select instance_id
4711: from bom_dept_res_instances bdri
4712: where bdri.resource_id = l_resource_id
4713: and bdri.instance_id = l_instance_id
5731: begin
5732:
5733: select 1
5734: into l_temp
5735: from dual
5736: where exists
5737: (select 1
5738: from wip_requirement_operations wro
5739: where wro.wip_entity_id = p_wip_entity_id
5780: if l_src_phm_item_id=0 then
5781: begin
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
5800: -- For a standard job, assembly should not be a component.
5801: begin
5802: select 1
5803: into l_comp_exist
5804: from dual
5805: where exists ( select 1
5806: from wip_discrete_jobs
5807: where wip_entity_id = p_wip_entity_id
5808: and organization_id = p_org_id
6658: l_wrk_cnt := l_wrk_cnt + 1; -- one more worker
6659: -- get a new group id
6660: select wsm_lot_job_interface_s.NEXTVAL
6661: into l_group_id
6662: from dual;
6663: l_v_group_id(l_wrk_cnt) := l_group_id;
6664: l_v_group_no(l_wrk_cnt) := 0;
6665: end if;
6666: l_job_cnt := l_job_cnt+1;
6686: if mod(l_job_cnt, l_num_jobs_per) = 0 then
6687: l_wrk_cnt := l_wrk_cnt +1; -- one more worker
6688: select wsm_lot_job_interface_s.NEXTVAL
6689: into l_group_id
6690: from dual;
6691: l_v_group_id(l_wrk_cnt) := l_group_id;
6692: l_v_group_no(l_wrk_cnt) := 0;
6693: end if;
6694: l_job_cnt := l_job_cnt+1;
7316: l_stmt_num := 50;
7317: -- getting the header_id to be populated for mmtt
7318: select mtl_material_transactions_s.nextval
7319: into l_mmtt_txn_hdr_id
7320: from dual;
7321:
7322: l_stmt_num := 60;
7323: -- updating the group_id column of wlji with a number unique for this particular batch.
7324: -- This'll help when I select corresponding rows from wsli.
7324: -- This'll help when I select corresponding rows from wsli.
7325:
7326: select wsm_lot_job_interface_s.NEXTVAL
7327: into l_batch_grp_id
7328: from dual;
7329:
7330: l_stmt_num := 60.1;
7331: forall indx in v_wlji_header_id.first..v_wlji_header_id.last
7332: update wsm_lot_job_interface
15911: begin
15912: l_temp :=0;
15913: select 1
15914: into l_temp
15915: from dual
15916: where exists ( SELECT 1
15917: FROM bom_std_op_resources bsor
15918: WHERE bsor.standard_operation_id = v_wljdi_std_op_id(l_d)
15919: AND bsor.autocharge_type = WIP_CONSTANTS.PO_MOVE)
16981: begin
16982:
16983: select 1
16984: into l_temp
16985: from dual
16986: where exists ( select 1
16987: from wsm_copy_op_networks
16988: where wip_entity_id = p_wip_entity_id
16989: and from_op_seq_num = l_rtg_op_seq_num
20621: union
20622: select l_rtg_op_seq_num0 "from_op_seq_num",
20623: l_op_seq_id,
20624: -1
20625: from dual
20626: ) order by 2 desc;
20627:
20628: BEGIN
20629: p_error_code := 0;
20981: l_stmt_num := 100;
20982: -- get a new wip entity id
20983: select wip_entities_s.nextval
20984: into p_wip_entity_id
20985: from dual;
20986:
20987:
20988: l_stmt_num := 110;
20989: -- get wip accounting class information