[Home] [Help]
79: l_exp_sub_flag := -1;
80: end;
81:
82: l_stmt_num := 20;
83: select cst_wip_layers_s.nextval
84: into l_wip_layer_id
85: from dual;
86:
87: l_stmt_num := 25;
117: IF ( i_layer_qty_table.EXISTS(i) AND
118: i_layer_qty_table(i).layer_id IS NOT NULL ) THEN
119:
120: l_stmt_num := 40;
121: insert into cst_wip_layers
122: (
123: wip_layer_id,
124: wip_entity_id,
125: operation_seq_num,
239: IF ( i_layer_qty_table.EXISTS(i) AND
240: i_layer_qty_table(i).layer_id IS NOT NULL ) THEN
241:
242: l_stmt_num := 60;
243: insert into cst_wip_layers
244: (
245: wip_layer_id,
246: wip_entity_id,
247: operation_seq_num,
432:
433:
434: RETURN
435: ' select * ' ||
436: ' from cst_wip_layers CWL ' ||
437: ' where ' ||
438: ' CWL.wip_entity_id = :wip_entity_id and ' ||
439: ' CWL.operation_seq_num = :op_seq_num and ' ||
440: ' CWL.inventory_item_id = :inv_item_id ' || l_optional_and ||
457: i_op_seq_num IN NUMBER,
458: i_inv_item_id IN NUMBER,
459: o_err_num OUT NOCOPY NUMBER,
460: o_err_msg OUT NOCOPY VARCHAR2
461: ) RETURN cst_wip_layers%ROWTYPE
462: IS
463: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
464: l_layer cst_wip_layers%ROWTYPE;
465: l_sql_stmt VARCHAR2(8000);
460: o_err_msg OUT NOCOPY VARCHAR2
461: ) RETURN cst_wip_layers%ROWTYPE
462: IS
463: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
464: l_layer cst_wip_layers%ROWTYPE;
465: l_sql_stmt VARCHAR2(8000);
466: l_stmt_num NUMBER(15);
467: BEGIN
468:
634:
635:
636: -- check for WIP layers
637: l_stmt_num := 30;
638: update cst_wip_layers CWL
639: set temp_relieved_qty = 0
640: where
641: CWL.wip_entity_id = i_wip_entity_id and
642: CWL.operation_seq_num = i_op_seq_num and
800: where WIP_ENTITY_ID = i_wip_entity_id;
801:
802: l_stmt_num := 40;
803:
804: update cst_wip_layers
805: set temp_relieved_qty = 0
806: where wip_entity_id = i_wip_entity_id;
807:
808: EXCEPTION