[Home] [Help]
1074: l_stmt_num := 20;
1075: -- Derive Job_Name.
1076: select FND_Profile.value('WIP_JOB_PREFIX') || wip_job_number_s.nextval
1077: into p_job_name
1078: from dual;
1079: end if;
1080:
1081: -- Be sure the provided Job_Name is not already in use.
1082: l_temp_num := 0;
3270: l_xst := 0;
3271: l_stmt_num := 30;
3272: select 1
3273: into l_xst
3274: from dual
3275: where exists (
3276: select resource_id
3277: from wip_operation_resources wor
3278: where wor.wip_entity_id = p_wip_entity_id
3722: l_xst := 0;
3723:
3724: select 1
3725: into l_xst
3726: from dual
3727: where exists ( select transaction_id
3728: from wip_transactions wt
3729: where wt.wip_entity_id = p_wip_entity_id
3730: and wt.organization_id = p_org_id
3754: l_xst := 0;
3755:
3756: select 1
3757: into l_xst
3758: from dual
3759: where exists ( select 'PO/REQ Linked'
3760: from po_releases_all pr,
3761: po_headers_all ph,
3762: po_distributions_all pd,
3998: l_check_primary:=0;
3999: begin
4000: select 'N'
4001: into p_v_res(l_i).reco_flag
4002: from dual
4003: where exists( select 1
4004: from wip_sub_operation_resources wsor
4005: where wsor.organization_id = p_org_id
4006: and wsor.wip_entity_id = p_wip_entity_id
4016: if l_check_primary=1 then
4017: begin
4018: select 'Y'
4019: into p_v_res(l_i).reco_flag
4020: from dual
4021: where exists( select 1
4022: from wip_operation_resources wor
4023: where wor.organization_id = p_org_id
4024: and wor.wip_entity_id = p_wip_entity_id
4035: if l_check_primary=2 then
4036: begin
4037: select 'N'
4038: into p_v_res(l_i).reco_flag
4039: from dual
4040: where exists( select 1
4041: from wip_operation_resources wor
4042: where wor.organization_id = p_org_id
4043: and wor.wip_entity_id = p_wip_entity_id
4110: l_check_primary:=0;
4111: begin
4112: select 'N'
4113: into p_v_res(l_i).reco_flag
4114: from dual
4115: where exists( select 1
4116: from wsm_copy_op_resources wcor
4117: where wcor.organization_id = p_org_id
4118: and wcor.wip_entity_id = p_wip_entity_id
4130: if l_check_primary=1 then
4131: begin
4132: select 'Y'
4133: into p_v_res(l_i).reco_flag
4134: from dual
4135: where exists( select 1
4136: from wsm_copy_op_resources wcor
4137: where wcor.organization_id = p_org_id
4138: and wcor.wip_entity_id = p_wip_entity_id
4150: if l_check_primary=2 then
4151: begin
4152: select 'N'
4153: into p_v_res(l_i).reco_flag
4154: from dual
4155: where exists( select 1
4156: from wsm_copy_op_resources wcor
4157: where wcor.organization_id = p_org_id
4158: and wcor.wip_entity_id = p_wip_entity_id
4710: /*l_exists :=0;
4711:
4712: select 1
4713: into l_exists
4714: from dual
4715: where exists( select instance_id
4716: from bom_dept_res_instances bdri
4717: where bdri.resource_id = l_resource_id
4718: and bdri.instance_id = l_instance_id
5737: begin
5738:
5739: select 1
5740: into l_temp
5741: from dual
5742: where exists
5743: (select 1
5744: from wip_requirement_operations wro
5745: where wro.wip_entity_id = p_wip_entity_id
5786: if l_src_phm_item_id=0 then
5787: begin
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
5806: -- For a standard job, assembly should not be a component.
5807: begin
5808: select 1
5809: into l_comp_exist
5810: from dual
5811: where exists ( select 1
5812: from wip_discrete_jobs
5813: where wip_entity_id = p_wip_entity_id
5814: and organization_id = p_org_id
6674: l_wrk_cnt := l_wrk_cnt + 1; -- one more worker
6675: -- get a new group id
6676: select wsm_lot_job_interface_s.NEXTVAL
6677: into l_group_id
6678: from dual;
6679: l_v_group_id(l_wrk_cnt) := l_group_id;
6680: l_v_group_no(l_wrk_cnt) := 0;
6681: end if;
6682: l_job_cnt := l_job_cnt+1;
6702: if mod(l_job_cnt, l_num_jobs_per) = 0 then
6703: l_wrk_cnt := l_wrk_cnt +1; -- one more worker
6704: select wsm_lot_job_interface_s.NEXTVAL
6705: into l_group_id
6706: from dual;
6707: l_v_group_id(l_wrk_cnt) := l_group_id;
6708: l_v_group_no(l_wrk_cnt) := 0;
6709: end if;
6710: l_job_cnt := l_job_cnt+1;
7332: l_stmt_num := 50;
7333: -- getting the header_id to be populated for mmtt
7334: select mtl_material_transactions_s.nextval
7335: into l_mmtt_txn_hdr_id
7336: from dual;
7337:
7338: l_stmt_num := 60;
7339: -- updating the group_id column of wlji with a number unique for this particular batch.
7340: -- This'll help when I select corresponding rows from wsli.
7340: -- This'll help when I select corresponding rows from wsli.
7341:
7342: select wsm_lot_job_interface_s.NEXTVAL
7343: into l_batch_grp_id
7344: from dual;
7345:
7346: l_stmt_num := 60.1;
7347: forall indx in v_wlji_header_id.first..v_wlji_header_id.last
7348: update wsm_lot_job_interface
16287: begin
16288: l_temp :=0;
16289: select 1
16290: into l_temp
16291: from dual
16292: where exists ( SELECT 1
16293: FROM bom_std_op_resources bsor
16294: WHERE bsor.standard_operation_id = v_wljdi_std_op_id(l_d)
16295: AND bsor.autocharge_type = WIP_CONSTANTS.PO_MOVE)
17423: begin
17424:
17425: select 1
17426: into l_temp
17427: from dual
17428: where exists ( select 1
17429: from wsm_copy_op_networks
17430: where wip_entity_id = p_wip_entity_id
17431: and from_op_seq_num = l_rtg_op_seq_num
21286: union
21287: select l_rtg_op_seq_num0 "from_op_seq_num",
21288: l_op_seq_id,
21289: -1
21290: from dual
21291: ) order by 2 desc;
21292:
21293: BEGIN
21294: p_error_code := 0;
21646: l_stmt_num := 100;
21647: -- get a new wip entity id
21648: select wip_entities_s.nextval
21649: into p_wip_entity_id
21650: from dual;
21651:
21652:
21653: l_stmt_num := 110;
21654: -- get wip accounting class information