24:
25: l_stmt_num NUMBER := 0;
26:
27: l_sql_stmt VARCHAR2(8000);
28: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
29: l_layer cst_wip_layers%ROWTYPE;
30:
31: l_txn_qty_remaining NUMBER;
32: l_consumed_qty NUMBER;
64: ----------------------------------------------------*/
65:
66: l_stmt_num := 10;
67:
68: CSTPLMWI.reset_temp_columns
69: (
70: i_wip_entity_id,
71: o_err_num,
72: o_err_msg
106: l_stmt_num := 60;
107: FOR wro_rec IN wro_cursor( i_wip_entity_id, i_op_seq_num ) LOOP
108:
109: l_stmt_num := 70;
110: CSTPLMWI.init_wip_layers
111: (
112: i_wip_entity_id,
113: wro_rec.operation_seq_num,
114: wro_rec.inventory_item_id,
131:
132: /* consume WIP layer(s)
133: scraps consume WIP in normal order */
134: l_stmt_num := 80;
135: l_sql_stmt := CSTPLMWI.wip_layer_consume_sql
136: (
137: ' sign( CWL.applied_matl_qty - ' ||
138: ' CWL.relieved_matl_comp_qty - ' ||
139: ' CWL.relieved_matl_scrap_qty - ' ||
139: ' CWL.relieved_matl_scrap_qty - ' ||
140: ' CWL.relieved_matl_final_comp_qty ) = ' ||
141: ' sign( :quantity_per_assembly ) ',
142: i_cost_method_id,
143: CSTPLMWI.NORMAL
144: );
145:
146: l_stmt_num := 90;
147: open l_layer_cursor
161:
162: l_stmt_num := 110;
163: IF l_layer_cursor%NOTFOUND THEN
164:
165: l_layer := CSTPLMWI.get_last_layer
166: (
167: i_wip_entity_id,
168: wro_rec.operation_seq_num,
169: wro_rec.inventory_item_id,
711:
712: l_stmt_num NUMBER := 0;
713:
714: l_sql_stmt VARCHAR2(8000);
715: l_layer_cursor CSTPLMWI.REF_CURSOR_TYPE;
716: l_layer cst_wip_layers%ROWTYPE;
717:
718: l_txn_qty_remaining NUMBER;
719: l_consumed_qty NUMBER;
759: --------------------------------------------------*/
760:
761: l_stmt_num := 10;
762:
763: CSTPLMWI.reset_temp_columns
764: (
765: i_wip_entity_id,
766: o_err_num,
767: o_err_msg
800:
801: l_stmt_num := 60;
802: FOR wro_rec IN wro_cursor LOOP
803:
804: CSTPLMWI.init_wip_layers
805: (
806: i_wip_entity_id,
807: wro_rec.operation_seq_num,
808: wro_rec.inventory_item_id,
825:
826: /* replenish WIP layer(s)
827: scrap return replenishes WIP in reverse order */
828: l_stmt_num := 70;
829: l_sql_stmt := CSTPLMWI.wip_layer_consume_sql
830: (
831: ' sign( CWL.relieved_matl_scrap_qty ) = ' ||
832: ' sign( :quantity_per_assembly ) ',
833: i_cost_method_id,
830: (
831: ' sign( CWL.relieved_matl_scrap_qty ) = ' ||
832: ' sign( :quantity_per_assembly ) ',
833: i_cost_method_id,
834: CSTPLMWI.REVERSE
835: );
836:
837: l_stmt_num := 80;
838: open l_layer_cursor
857:
858: l_stmt_num := 100;
859: IF l_layer_cursor%NOTFOUND THEN
860:
861: l_layer := CSTPLMWI.get_last_layer
862: (
863: i_wip_entity_id,
864: wro_rec.operation_seq_num,
865: wro_rec.inventory_item_id,