[Home] [Help]
1082: p_item,
1083: decode(p_job_type, 3,p_bom_reference_id, null),
1084: decode(p_job_type, 3, p_routing_reference_id, null),
1085: p_firm_planned_flag,
1086: decode(p_job_type, 3, WIP_CONSTANTS.NONSTANDARD, WIP_CONSTANTS.STANDARD),
1087: p_wip_supply_type,
1088: p_class_code,
1089: l_material_account,
1090: l_material_overhead_account,
1755: PROGRAM_APPLICATION_ID,
1756: PROGRAM_ID,
1757: PROGRAM_UPDATE_DATE,
1758: OPERATION_SEQUENCE_ID,
1759: STANDARD_OPERATION_ID,
1760: DEPARTMENT_ID,
1761: DESCRIPTION,
1762: SCHEDULED_QUANTITY,
1763: QUANTITY_IN_QUEUE,
1806: p_program_application_id,
1807: p_program_id,
1808: p_prog_updt_date,
1809: SEQ.OPERATION_SEQUENCE_ID,
1810: SEQ.STANDARD_OPERATION_ID,
1811: SEQ.DEPARTMENT_ID,
1812: SEQ.OPERATION_DESCRIPTION,
1813: --Bug 5207481:Actual quantity changes-Scheduled_quantity should be zero.
1814: --Bug 5510126:Scheduled quantity was made as 0 earlier as infinite
1959: PROGRAM_APPLICATION_ID, PROGRAM_ID, PROGRAM_UPDATE_DATE,
1960: RESOURCE_ID, UOM_CODE,
1961: BASIS_TYPE, USAGE_RATE_OR_AMOUNT, ACTIVITY_ID,
1962: SCHEDULED_FLAG, ASSIGNED_UNITS, AUTOCHARGE_TYPE,
1963: STANDARD_RATE_FLAG, APPLIED_RESOURCE_UNITS, APPLIED_RESOURCE_VALUE,
1964: START_DATE, COMPLETION_DATE,
1965: ATTRIBUTE_CATEGORY, ATTRIBUTE1, ATTRIBUTE2,
1966: ATTRIBUTE3, ATTRIBUTE4, ATTRIBUTE5,
1967: ATTRIBUTE6, ATTRIBUTE7, ATTRIBUTE8,
1983: OPS.PROGRAM_APPLICATION_ID, OPS.PROGRAM_ID,
1984: OPS.PROGRAM_UPDATE_DATE, ORS.RESOURCE_ID, RSC.UNIT_OF_MEASURE,
1985: ORS.BASIS_TYPE, ORS.USAGE_RATE_OR_AMOUNT, ORS.ACTIVITY_ID,
1986: ORS.SCHEDULE_FLAG, ORS.ASSIGNED_UNITS, ORS.AUTOCHARGE_TYPE,
1987: ORS.STANDARD_RATE_FLAG, 0, 0,
1988: OPS.FIRST_UNIT_START_DATE, OPS.LAST_UNIT_COMPLETION_DATE,
1989: ORS.ATTRIBUTE_CATEGORY, ORS.ATTRIBUTE1, ORS.ATTRIBUTE2,
1990: ORS.ATTRIBUTE3, ORS.ATTRIBUTE4, ORS.ATTRIBUTE5,
1991: ORS.ATTRIBUTE6, ORS.ATTRIBUTE7, ORS.ATTRIBUTE8,
3397: -- VALIDATIONS BEGIN
3398: -- ==============================================================================================
3399:
3400: l_stmt_num := 81;
3401: -- *** job_type = 3 => non-standard job. Anything else/null => standard job ***
3402: if v_wlji_job_type(v_index) is null then v_wlji_job_type(v_index):= 1; end if;
3403:
3404:
3405: l_stmt_num := 82;
3402: if v_wlji_job_type(v_index) is null then v_wlji_job_type(v_index):= 1; end if;
3403:
3404:
3405: l_stmt_num := 82;
3406: -- *** mode_flag cannot be 2 for non-standard jobs ***
3407: if v_wlji_job_type(v_index) = 3 and v_wlji_mode_flag(v_index) = 2 then
3408: l_aux_mesg := 'Mode Flag cannot be 2 for Non Standard Jobs';
3409: process_invalid_field('MODE FlAG',
3410: l_aux_mesg,
3404:
3405: l_stmt_num := 82;
3406: -- *** mode_flag cannot be 2 for non-standard jobs ***
3407: if v_wlji_job_type(v_index) = 3 and v_wlji_mode_flag(v_index) = 2 then
3408: l_aux_mesg := 'Mode Flag cannot be 2 for Non Standard Jobs';
3409: process_invalid_field('MODE FlAG',
3410: l_aux_mesg,
3411: l_stmt_num);
3412: l_error_code := -1;
3586: GOTO skip_validate_constants;
3587: elsif v_wlji_job_type(v_index) = 3 then
3588: if v_wlji_mode_flag(v_index) <> 1 then
3589: if lbji_debug = 'Y' then
3590: fnd_file.put_line(fnd_file.log, 'Ignoring mode_flag, has to be 1 for non-standard jobs.');
3591: end if;
3592: end if;
3593: if v_wlji_mode_flag(v_index) is null then
3594: v_wlji_mode_flag(v_index) := 1;
3663: l_stmt_num := 181.5;
3664: l_error_code := 0;
3665: l_err_msg := '';
3666:
3667: -- *** validation of a non-standard job for creation***
3668:
3669: if v_wlji_job_type(v_index) = 3 and v_wlji_load_type(v_index) = 5 then
3670:
3671: -- validation_level = 0 => validations performed during job creation
3722: fnd_file.put_line(fnd_file.log,l_err_msg);
3723: fnd_file.new_line(fnd_file.log, 2);
3724: l_err_msg := '';
3725: end if;
3726: end if; -- non-standard validations end
3727:
3728: if l_error_code <> 0 then
3729: l_error_count := l_error_count + 1;
3730: GOTO skip_other_steps;
3772: -- *** validate assembly quantity end ***
3773:
3774: l_stmt_num := 260;
3775: -- *** validate mode one item id begin ***
3776: -- CZH: why only for standard job ???
3777: if v_wlji_load_type(v_index) = 5 and v_wlji_job_type(v_index) <> 3 then
3778:
3779: if v_wlji_mode_flag(v_index) = 1 then
3780: xst := WSMPLCVA.v_item.exists(v_wlji_item(v_index));
5487: where wip_entity_id = v_wlji_wip_entity_id(v_index)
5488: and organization_id = v_wlji_org(v_index);
5489:
5490: /* *** Bug 2762029 commenting begins
5491: -- for update of a standard job, if the user populates any of the following fields,
5492: -- they are ignored
5493: if p_old_job_type = 1 then
5494:
5495: if
5510: v_wlji_bom_revision(v_index) := null;
5511: v_wlji_alt_bom_designator(v_index) := null;
5512: v_wlji_alt_routing_designator(v_index) := null;
5513:
5514: fnd_file.put_line(fnd_file.log, 'Ignoring any of the following fields if provided by the user for this standard job:');
5515: -- fnd_file.new_line(fnd_file.log, 1);
5516: fnd_file.put_line(fnd_file.log, 'ROUTING_REFERENCE_ID, BOM_REFERENCE_ID, ROUTING_REVISION_DATE, ROUTING_REVISION, BOM_REVISION_DATE, BOM_REVISION, ALTERNATE_BOM_DESIGNATOR, ALTERNATE_ROUTING_DESIGNATOR');
5517: end if;
5518:
5893: GOTO skip_resched_validations;
5894: end if;
5895:
5896: elsif p_old_status_type <> 1 then
5897: fnd_file.put_line(fnd_file.log, 'Ignoring any of the following fields if provided by the user for this standard job:');
5898: fnd_file.put_line(fnd_file.log, 'ROUTING_REVISION_DATE, ROUTING_REVISION, BOM_REVISION_DATE, BOM_REVISION,
5899: ALTERNATE_BOM_DESIGNATOR, ALTERNATE_ROUTING_DESIGNATOR');
5900: end if; -- change bom/routing alternate
5901:
5933: -- =============================================================================================
5934: -- UPDATE OF REFERENCES BEGINS
5935: -- =============================================================================================
5936:
5937: -- non standard job bom/routing reference update. The assumption is that this module will
5938: -- NOT update the quantity/dates/etc., they will be taken care in the later modules.
5939: -- This module will just look at the reference info, and assume qnty/date/etc to be same
5940: -- as the old values.
5941: l_stmt_num:= 701;
5964: v_wlji_alt_routing_designator(v_index):=p_old_alt_routing_designator;
5965: end if;
5966:
5967:
5968: -- user can update the bom_reference and the routing reference of a non-standard job only if the
5969: -- job is unreleased. If the user updates the bom/routing on an unreleased job as well as it's
5970: -- status to released, the update of the bom/rtg will be assumed to have taken place before
5971: -- the update of status.
5972: