[Home] [Help]
1851: l_xst := 0;
1852:
1853: select resource_id
1854: into v_wljdi_resource_id_new(l_d)
1855: from wip_operation_resources wor
1856: where wor.wip_entity_id = p_wip_entity_id
1857: and wor.operation_seq_num = l_job_op_seq_num
1858: and wor.resource_seq_num = v_wljdi_resource_seq_num(l_d);
1859: EXCEPTION
2465: begin
2466: l_stmt_num := 70.4;
2467: select resource_seq_num
2468: into l_res_seq_num
2469: from wip_operation_resources wor
2470: where wor.wip_entity_id = p_wip_entity_id
2471: and wor.organization_id = p_org_id
2472: and wor.operation_seq_num = l_job_op_seq_num
2473: and wor.resource_id = l_resource_id
3200: and parent_resource_seq_num IS NULL; -- ST : Detailed Scheduling.. Consider only the runtime resources
3201:
3202: cursor c_wip_rpl_grp is
3203: select resource_id
3204: from wip_operation_resources
3205: where wip_entity_id = p_wip_entity_id
3206: and operation_seq_num = l_job_op_seq_num
3207: and NVL(substitute_group_num, -1) = NVL(l_sub_grp_num, -1)
3208: and NVL(replacement_group_num, 0) = NVL(l_rpl_grp_num, 0)
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
3279: and wor.operation_seq_num = l_job_op_seq_num
3280: and wor.resource_id = l_resource_id
3281: and NVL(wor.substitute_group_num, -1) = NVL(l_sub_grp_num, -1)
3690: l_xst := 0;
3691:
3692: select 1,applied_resource_units
3693: into l_xst,l_app_res_units
3694: from wip_operation_resources wor
3695: where wor.wip_entity_id = p_wip_entity_id
3696: and wor.operation_seq_num = l_job_op_seq_num
3697: and wor.resource_seq_num = l_res_seq_num;
3698:
3964: end;
3965: if l_res_seq_num is null then
3966: select greatest(nvl(max(wor.resource_seq_num),0),nvl(max(wsor.resource_seq_num),0))+10
3967: into l_res_seq_num
3968: from wip_operation_resources wor,
3969: wip_sub_operation_resources wsor
3970: where wor.organization_id = p_org_id
3971: and wor.wip_entity_id = p_wip_entity_id
3972: and wor.operation_seq_num = l_job_op_seq_num
3977: l_xst := 0;
3978: begin
3979: select 1
3980: into l_xst
3981: from wip_operation_resources wor
3982: where wor.organization_id = p_org_id
3983: and wor.wip_entity_id = p_wip_entity_id
3984: and wor.operation_seq_num = l_job_op_seq_num
3985: and wor.resource_seq_num =l_res_seq_num;
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
4025: and wor.operation_seq_num = l_job_op_seq_num
4026: and nvl(wor.substitute_group_num,-1) = nvl(p_v_res(l_i).sub_grp_num,-1)
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
4044: and wor.operation_seq_num = l_job_op_seq_num
4045: and nvl(wor.substitute_group_num,-1) = nvl(p_v_res(l_i).sub_grp_num,-1));
4515:
4516: BEGIN
4517: select resource_seq_num
4518: into l_res_seq_num
4519: from wip_operation_resources WOR
4520: where WOR.wip_entity_id = p_wip_entity_id
4521: and WOR.organization_id = p_org_id
4522: and WOR.operation_seq_num = l_job_op_seq_num
4523: and WOR.parent_resource_seq = p_parent_res_seq_num
4642: into l_res_sdate,
4643: l_res_edate,
4644: l_resource_id, -- this is used for validate instance_id
4645: l_department_id /*Added Department Id for bug 5476647*/
4646: from wip_operation_resources wor, wip_operations wo
4647: where wor.wip_entity_id = p_wip_entity_id
4648: and wor.organization_id = p_org_id
4649: and wor.operation_seq_num = l_job_op_seq_num
4650: and wor.resource_seq_num = l_res_seq_num
4960: ELSE
4961: BEGIN
4962: select resource_seq_num
4963: into l_res_seq_num
4964: from wip_operation_resources WOR
4965: where WOR.wip_entity_id = p_wip_entity_id
4966: and WOR.organization_id = p_org_id
4967: and WOR.operation_seq_num = l_job_op_seq_num
4968: and WOR.parent_resource_seq = p_parent_res_seq_num
5181: select start_date,
5182: completion_date
5183: into l_the_sdate,
5184: l_the_edate
5185: from wip_operation_resources wor
5186: where wip_entity_id = p_wip_entity_id
5187: and organization_id = p_org_id
5188: and operation_seq_num = l_job_op_seq_num
5189: and resource_seq_num = l_res_seq_num;
10491: delete from wip_operations
10492: where wip_entity_id = v_wlji_wip_entity_id(v_idx);
10493: delete from wip_operation_yields
10494: where wip_entity_id = v_wlji_wip_entity_id(v_idx);
10495: delete from wip_operation_resources
10496: where wip_entity_id = v_wlji_wip_entity_id(v_idx);
10497: delete from wip_requirement_operations
10498: where wip_entity_id = v_wlji_wip_entity_id(v_idx);
10499: delete from wip_sub_operation_resources
11094: -- bug 3203505 change order with updating wro
11095: --Bug 5456260:In Option C,resource dates should not be
11096: --updated with the header dates.
11097: /*******************
11098: update wip_operation_resources
11099: set start_date = decode(l_txnexist,
11100: 0, nvl(v_wlji_fusd(v_idx), start_date), -- bug 3394520
11101: start_date),
11102: completion_date = decode(l_txnexist,
13089: l_setup_exists NUMBER := 0;
13090: l_res_costed number := 0;
13091: cursor c_setup_res(c_par_res_seq_num NUMBER) is
13092: select resource_id,resource_seq_num,operation_seq_num,applied_resource_units
13093: from wip_operation_resources wor
13094: where wor.organization_id = p_org_id
13095: and wor.wip_entity_id = p_wip_entity_id
13096: and wor.operation_seq_num = p_op_seq_num
13097: and wor.parent_resource_seq = c_par_res_seq_num;
13166: where wori.organization_id = p_org_id
13167: and wori.wip_entity_id = p_wip_entity_id
13168: and wori.operation_seq_num = p_op_seq_num
13169: and wori.RESOURCE_SEQ_NUM in (select resource_seq_num
13170: from wip_operation_resources wor
13171: where wor.organization_id = p_org_id
13172: and wor.wip_entity_id = p_wip_entity_id
13173: and wor.operation_seq_num = p_op_seq_num
13174: and wor.parent_resource_seq = p_par_res_seq_num
13181: where woru.organization_id = p_org_id
13182: and woru.wip_entity_id = p_wip_entity_id
13183: and woru.operation_seq_num = p_op_seq_num
13184: and woru.resource_seq_num in (select resource_seq_num
13185: from wip_operation_resources wor
13186: where wor.organization_id = p_org_id
13187: and wor.wip_entity_id = p_wip_entity_id
13188: and wor.operation_seq_num = p_op_seq_num
13189: and wor.parent_resource_seq = p_par_res_seq_num
13191:
13192: l_stmt_num := 70;
13193:
13194: /* delete the setup resources.... */
13195: delete from wip_operation_resources wor
13196: where wor.organization_id = p_org_id
13197: and wor.wip_entity_id = p_wip_entity_id
13198: and wor.operation_seq_num = p_op_seq_num
13199: and wor.parent_resource_seq = p_par_res_seq_num;
13346: e_res_not_batchable exception;
13347:
13348: cursor c_setup_res(c_par_res_seq_num NUMBER) is
13349: select resource_id,resource_seq_num,operation_seq_num
13350: from wip_operation_resources wor
13351: where wor.organization_id = p_org_id
13352: and wor.wip_entity_id = p_wip_entity_id
13353: and wor.operation_seq_num = p_job_op_seq_num
13354: and wor.parent_resource_seq = c_par_res_seq_num;
13361: begin
13362:
13363: select max(resource_seq_num)
13364: into l_res_num1
13365: from wip_operation_resources wor
13366: where wor.organization_id = p_org_id
13367: and wor.wip_entity_id = p_wip_entity_id
13368: and wor.operation_seq_num = p_job_op_seq_num;
13369:
13377:
13378: /* Indicates that there is no parent resource being added... ..... */
13379: /*
13380: Validations to be done...
13381: i) check if any parent resource exists ( consider only WIP_OPERATION_RESOURCES )
13382: ii) Check if any setup resources already exist....
13383: iii) Delete the setup resources...( if no cost incurred )
13384: */
13385:
13389: l_exists := 0;
13390:
13391: select 1
13392: into l_exists
13393: from wip_operation_resources wor
13394: where wor.organization_id = p_org_id
13395: and wor.wip_entity_id = p_wip_entity_id
13396: and wor.operation_seq_num = p_job_op_seq_num
13397: and resource_seq_num = l_par_res_seq_num;
13407: l_setup_exists := 0;
13408:
13409: select 1
13410: into l_setup_exists
13411: from wip_operation_resources wor
13412: where wor.organization_id = p_org_id
13413: and wor.wip_entity_id = p_wip_entity_id
13414: and wor.operation_seq_num = p_job_op_seq_num
13415: and wor.parent_resource_seq = l_par_res_seq_num
13453: end if;
13454: l_stmt_num := 70;
13455:
13456: /* delete the setup resources.... */
13457: delete from wip_operation_resources wor
13458: where wor.organization_id = p_org_id
13459: and wor.wip_entity_id = p_wip_entity_id
13460: and wor.operation_seq_num = p_job_op_seq_num
13461: and wor.parent_resource_seq = l_par_res_seq_num;
13736: /* check in WOR... */
13737: begin
13738: select 1
13739: into l_dummy
13740: from wip_operation_resources wor
13741: where wor.organization_id = p_org_id
13742: and wor.wip_entity_id = p_wip_entity_id
13743: and wor.operation_seq_num = p_job_op_seq_num
13744: and wor.resource_seq_num = p_new_res_tbl(l_index).res_seq_num;
14339:
14340: forall i in l_setup_index_tbl.first..l_setup_index_tbl.last
14341:
14342: /* issue the insert statement */
14343: insert into wip_operation_resources
14344: (
14345: wip_entity_id,
14346: operation_seq_num,
14347: resource_seq_num,
17657: if p_error_code <> 0 then
17658: raise e_wljdi_common_error;
17659: end if;
17660:
17661: delete from wip_operation_resources wor
17662: where wor.wip_entity_id = p_wip_entity_id
17663: and wor.operation_seq_num = l_job_op_seq_num
17664: and wor.resource_seq_num = l_resource_seq_num
17665: and wor.organization_id = p_org_id;
17822: end if;
17823:
17824: IF l_v_res(l_resource_id).reco_flag = 'Y' then
17825:
17826: insert into wip_operation_resources
17827: (wip_entity_id,
17828: operation_seq_num,
17829: resource_seq_num,
17830: organization_id,
18487: begin
18488: l_stmt_num := 250.3;
18489: select 0
18490: into l_swap
18491: from wip_operation_resources
18492: where wip_entity_id = p_wip_entity_id
18493: and operation_seq_num = l_job_op_seq_num
18494: and NVL(substitute_group_num, -1) = NVL(l_sub_grp_num, -1)
18495: and NVL(replacement_group_num, 0) = NVL(l_rpl_grp_num, 0);
18551: l_stmt_num := 250.6;
18552: while(l_resource_id IS NOT NULL) -- bug 3736602 added loop
18553: loop
18554:
18555: UPDATE WIP_OPERATION_RESOURCES
18556: set start_date = NVL(l_v_res(l_resource_id).start_date,
18557: start_date),
18558: completion_date = NVL(l_v_res(l_resource_id).completion_date,
18559: completion_date),
20977: )
20978: /* ST bug fix 3493984 : end */
20979: or exists (
20980: select 'x'
20981: from wip_operation_resources
20982: where organization_id = p_organization_id
20983: and wip_entity_id = p_wip_entity_id
20984: and applied_resource_units <> 0)
20985: /* for bug fix 16327585 */
21042: where organization_id = p_organization_id
21043: and wip_entity_id = p_wip_entity_id)
21044: or exists (
21045: select 'x'
21046: from wip_operation_resources
21047: where organization_id = p_organization_id
21048: and wip_entity_id = p_wip_entity_id
21049: and applied_resource_units <> 0));
21050: BEGIN