[Home] [Help]
128: END IF;
129: UPDATE gme_batch_header
130: SET batch_no = SUBSTR(batch_no,1,30)||'-M'
131: WHERE batch_id = get_batches.batch_id;
132: UPDATE wip_entities
133: SET wip_entity_name = wip_entity_name||'-M'
134: WHERE entity_type = DECODE(get_batches.batch_type, 10, gme_common_pvt.g_wip_entity_type_fpo, gme_common_pvt.g_wip_entity_type_batch)
135: AND organization_id = get_batches.organization_id
136: AND wip_entity_name = l_prefix||get_batches.batch_no;
139: END IF;
140: /* Process batch header record */
141: build_batch_hdr(p_batch_header_mig => get_batches,
142: x_batch_header => l_batch_header);
143: SELECT wip_entities_s.NEXTVAL INTO l_wip_entity_id FROM DUAL;
144: l_batch_header.plant_code := NULL;
145: l_batch_header.batch_status := 1;
146: l_batch_header.enforce_step_dependency := 0;
147: l_batch_header.terminated_ind := 0;
148: l_batch_header.enhanced_pi_ind := 'N';
149: l_batch_header.batch_id := l_wip_entity_id;
150: l_batch_header.wip_whse_code := NULL;
151: IF (g_debug <= gme_debug.g_log_statement) THEN
152: gme_debug.put_line('Before wip entities');
153: END IF;
154: INSERT INTO wip_entities
155: (wip_entity_id, organization_id
156: ,last_update_date, last_updated_by
150: l_batch_header.wip_whse_code := NULL;
151: IF (g_debug <= gme_debug.g_log_statement) THEN
152: gme_debug.put_line('Before wip entities');
153: END IF;
154: INSERT INTO wip_entities
155: (wip_entity_id, organization_id
156: ,last_update_date, last_updated_by
157: ,creation_date, created_by
158: ,wip_entity_name
166: ,0, gme_common_pvt.g_wip_entity_type_batch
167: ,gme_common_pvt.g_wip_entity_type_fpo)
168: ,mtl_gen_object_id_s.NEXTVAL);
169: IF (g_debug <= gme_debug.g_log_statement) THEN
170: gme_debug.put_line('After wip entities');
171: END IF;
172: l_batch_tbl(1) := l_batch_header;
173: FORALL a IN 1..l_batch_tbl.count
174: INSERT INTO gme_batch_header VALUES l_batch_tbl(a);