[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;
118: IF ( i_layer_qty_table.EXISTS(i) AND
119: i_layer_qty_table(i).layer_id IS NOT NULL ) THEN
120:
121: l_stmt_num := 40;
122: insert into cst_wip_layers
123: (
124: wip_layer_id,
125: wip_entity_id,
126: operation_seq_num,
240: IF ( i_layer_qty_table.EXISTS(i) AND
241: i_layer_qty_table(i).layer_id IS NOT NULL ) THEN
242:
243: l_stmt_num := 60;
244: insert into cst_wip_layers
245: (
246: wip_layer_id,
247: wip_entity_id,
248: operation_seq_num,
433:
434:
435: RETURN
436: ' select * ' ||
437: ' from cst_wip_layers CWL ' ||
438: ' where ' ||
439: ' CWL.wip_entity_id = :wip_entity_id and ' ||
440: ' CWL.operation_seq_num = :op_seq_num and ' ||
441: ' CWL.inventory_item_id = :inv_item_id ' || l_optional_and ||
458: i_op_seq_num IN NUMBER,
459: i_inv_item_id IN NUMBER,
460: o_err_num OUT NOCOPY NUMBER,
461: o_err_msg OUT NOCOPY VARCHAR2
462: ) RETURN cst_wip_layers%ROWTYPE
463: IS
464: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
465: l_layer cst_wip_layers%ROWTYPE;
466: l_sql_stmt VARCHAR2(8000);
461: o_err_msg OUT NOCOPY VARCHAR2
462: ) RETURN cst_wip_layers%ROWTYPE
463: IS
464: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
465: l_layer cst_wip_layers%ROWTYPE;
466: l_sql_stmt VARCHAR2(8000);
467: l_stmt_num NUMBER(15);
468: BEGIN
469:
635:
636:
637: -- check for WIP layers
638: l_stmt_num := 30;
639: update cst_wip_layers CWL
640: set temp_relieved_qty = 0
641: where
642: CWL.wip_entity_id = i_wip_entity_id and
643: CWL.operation_seq_num = i_op_seq_num and
801: where WIP_ENTITY_ID = i_wip_entity_id;
802:
803: l_stmt_num := 40;
804:
805: update cst_wip_layers
806: set temp_relieved_qty = 0
807: where wip_entity_id = i_wip_entity_id;
808:
809: EXCEPTION