[Home] [Help]
55: 04-JUN-2009 G. Muratore Bug 8490219
56: No need to timestamp batch header record when updating the parentline_id as it was just created.
57: =============================================================================================*/
58: PROCEDURE create_phantom (
59: p_material_detail_rec IN gme_material_details%ROWTYPE
60: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
61: ,p_batch_no IN VARCHAR2 DEFAULT NULL
62: ,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE
63: ,p_validity_rule_id IN NUMBER
58: PROCEDURE create_phantom (
59: p_material_detail_rec IN gme_material_details%ROWTYPE
60: ,p_batch_header_rec IN gme_batch_header%ROWTYPE
61: ,p_batch_no IN VARCHAR2 DEFAULT NULL
62: ,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE
63: ,p_validity_rule_id IN NUMBER
64: ,p_use_workday_cal IN VARCHAR2
65: ,p_contiguity_override IN VARCHAR2
66: ,p_use_least_cost_validity_rule IN VARCHAR2 := fnd_api.g_false
89: l_prod_mtl_dtl_id NUMBER;
90: l_batch_header gme_batch_header%ROWTYPE;
91: l_phant_batch gme_batch_header%ROWTYPE;
92: l_in_phant_batch gme_batch_header%ROWTYPE;
93: l_material_detail gme_material_details%ROWTYPE;
94: l_in_material_detail gme_material_details%ROWTYPE;
95: l_validity_tbl gmd_validity_rules.recipe_validity_tbl;
96:
97: CURSOR cur_step_matl_detail (v_material_detail_id NUMBER)
90: l_batch_header gme_batch_header%ROWTYPE;
91: l_phant_batch gme_batch_header%ROWTYPE;
92: l_in_phant_batch gme_batch_header%ROWTYPE;
93: l_material_detail gme_material_details%ROWTYPE;
94: l_in_material_detail gme_material_details%ROWTYPE;
95: l_validity_tbl gmd_validity_rules.recipe_validity_tbl;
96:
97: CURSOR cur_step_matl_detail (v_material_detail_id NUMBER)
98: IS
107: v_batch_id NUMBER
108: ,v_inventory_item_id NUMBER)
109: IS
110: SELECT material_detail_id
111: FROM gme_material_details
112: WHERE batch_id = v_batch_id
113: AND inventory_item_id = v_inventory_item_id
114: AND line_type = gme_common_pvt.g_line_type_prod
115: ORDER BY line_no;
121:
122: /* Set the return status to success initially */
123: x_return_status := fnd_api.g_ret_sts_success;
124:
125: IF NOT (gme_material_details_dbl.fetch_row (p_material_detail_rec
126: ,x_material_detail_rec) ) THEN
127: RAISE material_detail_fetch_error;
128: END IF;
129:
296: gme_debug.put_line ('Lets Update line ids now');
297: gme_debug.put_line ('Update phantom prod material_detail_id '|| l_prod_mtl_dtl_id||' with phantom_line_id '||p_material_detail_rec.material_detail_id);
298: END IF;
299:
300: UPDATE gme_material_details
301: SET phantom_line_id = p_material_detail_rec.material_detail_id
302: ,release_type = x_material_detail_rec.release_type
303: ,subinventory = x_material_detail_rec.subinventory
304: ,locator_id = x_material_detail_rec.locator_id
314: gme_debug.put_line (' ');
315: gme_debug.put_line ('Update material_detail_id '|| p_material_detail_rec.material_detail_id||' with phantom_line_id '||l_prod_mtl_dtl_id);
316: END IF;
317:
318: UPDATE gme_material_details
319: SET phantom_line_id = l_prod_mtl_dtl_id
320: ,phantom_id = l_phant_batch.batch_id
321: ,last_update_date = gme_common_pvt.g_timestamp
322: ,last_updated_by = gme_common_pvt.g_user_ident
434: v_batch_id NUMBER
435: ,v_batchstep_id NUMBER)
436: IS
437: SELECT d.phantom_id
438: FROM gme_batch_step_items i, gme_material_details d
439: WHERE d.batch_id = v_batch_id
440: AND i.material_detail_id = d.material_detail_id
441: AND batchstep_id = v_batchstep_id
442: AND ( d.release_type = gme_common_pvt.g_mtl_autobystep_release
514:
515: CURSOR cur_matl_phant_ids (v_batch_id NUMBER, v_release_type NUMBER)
516: IS
517: SELECT d.phantom_id
518: FROM gme_material_details d
519: WHERE d.batch_id = v_batch_id
520: AND d.release_type <= v_release_type
521: AND NVL (d.phantom_id, 0) > 0;
522: