[Home] [Help]
100: MIN(woy.operation_seq_num) starting_op_seq,
101: WDJ.EST_SCRAP_ACCOUNT est_scrap_account,
102: WDJ.EST_SCRAP_VAR_ACCOUNT est_scrap_var_account,
103: WDJ.PRIMARY_ITEM_ID primary_item_id
104: FROM wip_operation_yields woy, wip_discrete_jobs wdj
105: WHERE woy.status IN (1, 3)
106: AND woy.wip_entity_id = DECODE(NVL(i_entity_id, 0), 0, woy.wip_entity_id, i_entity_id)
107: AND woy.organization_id = DECODE(NVL(i_organization_id, 0), 0, woy.organization_id, i_organization_id)
108: AND WDJ.WIP_ENTITY_ID = WOY.WIP_ENTITY_ID
116:
117: /* Bug #1554288, the check for wo.quantity_completed > 0 has been commented,
118: so that Operation Yield processor is able to reverse scrap absorption for
119: undo transactions. This fix however, causes a cumulative value to be
120: inserted against the last operation_seq_num in wip_operation_yields table.
121: Please note that it does not cause any valuation mismatch, and is not
122: a cause for concern, until now */
123:
124: CURSOR c_opseq(p_entity_id NUMBER, p_starting_opseq NUMBER, p_organization_id NUMBER) IS
138: DECODE (WO.OPERATION_YIELD_ENABLED, 1, NVL(WO.OPERATION_YIELD, 1),
139: 1) OPERATION_YIELD,
140: NVL(WO.DEPARTMENT_ID, 0) DEPARTMENT_ID,
141: WO.DISABLE_DATE DISABLE_DATE
142: FROM WIP_OPERATION_YIELDS WOY,
143: WIP_OPERATIONS WO
144: WHERE WOY.WIP_ENTITY_ID = p_entity_id
145: AND WOY.OPERATION_SEQ_NUM >= p_starting_opseq
146: AND WO.WIP_ENTITY_ID = WOY.WIP_ENTITY_ID
301: RAISE EST_ACCT_NOT_FOUND;
302: END IF;
303:
304: x_statement := 60;
305: UPDATE wip_operation_yields woy
306: SET SCRAP_ACCOUNT = l_scrap_acct,
307: EST_SCRAP_ABSORB_ACCOUNT = l_est_scrap_abs_acct
308: WHERE woy.operation_seq_num = rec_opseq.operation_seq_num
309: AND woy.wip_entity_id = rec_wip_entity.wip_entity_id
357:
358: x_statement := 200;
359: SELECT count(*)
360: INTO x_count
361: FROM WIP_OPERATION_YIELDS woy,
362: WIP_OPERATIONS wo
363: WHERE woy.wip_entity_id = rec_wip_entity.wip_entity_id
364: and wo.wip_entity_id = woy.wip_entity_id
365: and woy.organization_id = x_organization_id
377: x_statement := 220;
378:
379: SELECT NVL(CUM_OPERATION_UNIT_COST, 0)
380: INTO x_unit_cost
381: FROM WIP_OPERATION_YIELDS
382: WHERE wip_entity_id = rec_wip_entity.wip_entity_id
383: and organization_id = x_organization_id
384: and operation_seq_num = (select max(woy.operation_seq_num)
385: from wip_operation_yields woy,
381: FROM WIP_OPERATION_YIELDS
382: WHERE wip_entity_id = rec_wip_entity.wip_entity_id
383: and organization_id = x_organization_id
384: and operation_seq_num = (select max(woy.operation_seq_num)
385: from wip_operation_yields woy,
386: wip_operations wo
387: where woy.wip_entity_id = rec_wip_entity.wip_entity_id
388: and woy.organization_id = x_organization_id
389: and woy.operation_seq_num < rec_opseq.operation_seq_num
394:
395: x_statement := 230;
396: SELECT SUM( NVL(EST_SCRAP_UNIT_COST, 0))
397: INTO x_cum_pr_est_scp_per_unit
398: FROM WIP_OPERATION_YIELDS WOY,
399: WIP_OPERATIONS WO
400: WHERE woy.wip_entity_id = rec_wip_entity.wip_entity_id
401: and woy.organization_id = x_organization_id
402: and woy.operation_seq_num < rec_opseq.operation_seq_num
416: -- Compute the Cumulative Prior Estimated Scrap for other cases
417: ---------------------------------------------------------------
418: SELECT SUM( NVL(EST_SCRAP_UNIT_COST, 0))
419: INTO x_cum_pr_est_scp_per_unit
420: FROM WIP_OPERATION_YIELDS WOY,
421: WIP_OPERATIONS WO
422: WHERE woy.wip_entity_id = rec_wip_entity.wip_entity_id
423: and woy.organization_id = x_organization_id
424: and woy.operation_seq_num < rec_opseq.operation_seq_num
930: end if;
931:
932:
933: ---------------------------------------------------------
934: -- Update WIP_OPERATION_YIELDS --
935: ---------------------------------------------------------
936:
937: x_statement := 120;
938: UPDATE WIP_OPERATION_YIELDS
934: -- Update WIP_OPERATION_YIELDS --
935: ---------------------------------------------------------
936:
937: x_statement := 120;
938: UPDATE WIP_OPERATION_YIELDS
939: SET operation_unit_cost = x_op_unit_cost,
940: cum_operation_unit_cost = x_unit_cost,
941: est_scrap_unit_cost = x_est_scrap_per_unit,
942: cum_est_prior_unit_cost = x_cum_pr_est_scp_per_unit,
971: x_tl_scrap_in := 0;
972: x_tl_scrap_out := 0;
973: ROLLBACK TO x_save_point;
974:
975: UPDATE WIP_OPERATION_YIELDS
976: SET status = 3,
977: last_update_date = x_sysdate,
978: last_updated_by = x_last_updated_by,
979: request_id = x_request_id,
1008: x_tl_scrap_in := 0;
1009: x_tl_scrap_out := 0;
1010: ROLLBACK TO x_save_point;
1011:
1012: UPDATE WIP_OPERATION_YIELDS
1013: SET status = 3,
1014: last_update_date = x_sysdate,
1015: last_updated_by = x_last_updated_by,
1016: request_id = x_request_id,
1729: and WOO.organization_id = rec_wip_entity.organization_id;
1730:
1731: ---------------------------------------------------------
1732: -- Calculate operation_cost and --
1733: -- Update Wip_operation_yields --
1734: ---------------------------------------------------------
1735:
1736: x_operation_cost := x_pl_cost +
1737: x_tl_res_cost +
1745: end if;
1746:
1747: l_stmt_num := 50;
1748:
1749: UPDATE wip_operation_yields
1750: SET operation_cost = x_operation_cost,
1751: status = 1,
1752: last_update_date = sysdate,
1753: last_updated_by = i_user_id,
1854: l_stmt_num := 20;
1855:
1856: l_stmt_num := 30;
1857:
1858: update wip_operation_yields
1859: set last_update_date = sysdate,
1860: last_updated_by = i_user_id,
1861: last_update_login = i_login_id,
1862: request_id = i_req_id,