[Home] [Help]
38: -- MES secondary qty changes
39: type t_wsm_job_sec_qty_tbl is table of wsm_job_secondary_quantities%rowtype index by binary_integer;
40: type t_wsm_sj_sec_qty_tbl is table of wsm_sj_secondary_quantities%rowtype index by binary_integer;
41: type t_wsm_rj_sec_qty_tbl is table of wsm_rj_secondary_quantities%rowtype index by binary_integer;
42: type t_wsm_op_sec_qty_tbl is table of wsm_op_secondary_quantities%rowtype index by binary_integer;
43:
44: type t_we_id_tbl is table of wip_entities.wip_entity_id%type index by binary_integer;
45: type t_cur_qty_tbl is table of wsm_job_secondary_quantities.current_quantity%type index by binary_integer;
46: type t_cur_uom_tbl is table of wsm_job_secondary_quantities.uom_code%type index by binary_integer;
230: ----- Handle Secondary qty information passed for Split,Merge,Upd Assy and Update Qty transaction-------------------------------------
231: IF p_wltx_header.transaction_type_id in (WSMPCNST.SPLIT,WSMPCNST.MERGE,WSMPCNST.UPDATE_ASSEMBLY,WSMPCNST.UPDATE_QUANTITY) then
232:
233: -- For all the new resulting jobs (non-SpUA jobs)
234: -- bulk insert data into wsm_op_secondary_quantities by reading from wsm_job_secondary_quantities
235: --Assumes that the wsm_job_secondary_quantities is already populated in lbj build_header_info proc
236: IF p_wltx_header.transaction_type_id in (WSMPCNST.SPLIT,WSMPCNST.MERGE) then
237: l_op_tbl_counter := 1;
238:
256: from wsm_job_secondary_quantities
257: where wip_entity_id = p_wltx_resulting_jobs_tbl(l_counter).wip_entity_id
258: and currently_active = 1;
259:
260: -- now populate the local pl/sql table with rowtype same as wsm_op_secondary_quantities
261: -- so as to do bulk insert
262:
263: if l_job_qty_tbl.count > 0 then
264: l_index := l_job_qty_tbl.first;
283: END IF;
284: l_counter := p_wltx_resulting_jobs_tbl.next(l_counter);
285: end loop;
286:
287: -- bulk insert into wsm_op_secondary_quantities
288: if l_wsm_op_sec_qty_tbl.count > 0 then
289: forall i in indices of l_wsm_op_sec_qty_tbl
290: insert into wsm_op_secondary_quantities
291: values l_wsm_op_sec_qty_tbl(i);
286:
287: -- bulk insert into wsm_op_secondary_quantities
288: if l_wsm_op_sec_qty_tbl.count > 0 then
289: forall i in indices of l_wsm_op_sec_qty_tbl
290: insert into wsm_op_secondary_quantities
291: values l_wsm_op_sec_qty_tbl(i);
292: end if;
293: ELSE
294: l_job_name_tbl(p_wltx_resulting_jobs_tbl(p_wltx_resulting_jobs_tbl.first).wip_entity_name) :=
294: l_job_name_tbl(p_wltx_resulting_jobs_tbl(p_wltx_resulting_jobs_tbl.first).wip_entity_name) :=
295: p_wltx_resulting_jobs_tbl(p_wltx_resulting_jobs_tbl.first).wip_entity_id;
296: END IF;
297:
298: -- Insertion of wsm_op_secondary_quantities for non-SpUA new resulting jobs over
299: l_stmt_num := 60;
300: l_sj_rj_sec_qty_exists := 0;
301: IF p_secondary_qty_tbl.count > 0 then
302:
570: -- now handle bonus.Insert skeletal data in both job level and op level tables as for job
571: -- we are calling option 1 code so LBJ proc wont insert elementary sec qty data
572:
573: -- Call the WSMOPRNB procedure for BONUS,UPDATE_ASSEMBLY, SpUA and UPDATE_ROUTING transactions
574: -- to fill in data from the WSM_JOB_SECONDARY_QUANTITIES into ... WSM_OP_SECONDARY_QUANTITIES
575: IF p_wltx_header.transaction_type_id IN (WSMPCNST.BONUS,WSMPCNST.UPDATE_ASSEMBLY,WSMPCNST.UPDATE_ROUTING,WSMPCNST.SPLIT) THEN
576: l_counter := p_wltx_resulting_jobs_tbl.first;
577: while l_counter IS NOT NULL LOOP
578: IF (p_wltx_header.transaction_type_id <> WSMPCNST.SPLIT) OR