[Home] [Help]
6:
7: x_return_status VARCHAR2(240);
8: udab_new_base_rec BOM_COMPONENTS_EXT_B%ROWTYPE;
9: udat_rec BOM_COMPONENTS_EXT_TL%ROWTYPE;
10: ctx_rec BOM_COMP_ATTR_CTX_ASSOCS_B%ROWTYPE;
11: new_ctx_rec BOM_COMP_ATTR_CTX_ASSOCS_B%ROWTYPE;
12: l_new_ovr_b_ext_rec BOM_COMPONENTS_EXT_B%ROWTYPE;
13: l_new_ovr_tl_ext_rec BOM_COMPONENTS_EXT_TL%ROWTYPE;
14: TYPE l_ext_b_tbl IS TABLE OF BOM_COMPONENTS_EXT_B%ROWTYPE INDEX BY BINARY_INTEGER;
7: x_return_status VARCHAR2(240);
8: udab_new_base_rec BOM_COMPONENTS_EXT_B%ROWTYPE;
9: udat_rec BOM_COMPONENTS_EXT_TL%ROWTYPE;
10: ctx_rec BOM_COMP_ATTR_CTX_ASSOCS_B%ROWTYPE;
11: new_ctx_rec BOM_COMP_ATTR_CTX_ASSOCS_B%ROWTYPE;
12: l_new_ovr_b_ext_rec BOM_COMPONENTS_EXT_B%ROWTYPE;
13: l_new_ovr_tl_ext_rec BOM_COMPONENTS_EXT_TL%ROWTYPE;
14: TYPE l_ext_b_tbl IS TABLE OF BOM_COMPONENTS_EXT_B%ROWTYPE INDEX BY BINARY_INTEGER;
15: TYPE l_ext_tl_tbl IS TABLE OF BOM_COMPONENTS_EXT_TL%ROWTYPE INDEX BY BINARY_INTEGER;
12: l_new_ovr_b_ext_rec BOM_COMPONENTS_EXT_B%ROWTYPE;
13: l_new_ovr_tl_ext_rec BOM_COMPONENTS_EXT_TL%ROWTYPE;
14: TYPE l_ext_b_tbl IS TABLE OF BOM_COMPONENTS_EXT_B%ROWTYPE INDEX BY BINARY_INTEGER;
15: TYPE l_ext_tl_tbl IS TABLE OF BOM_COMPONENTS_EXT_TL%ROWTYPE INDEX BY BINARY_INTEGER;
16: TYPE l_ct_tbl IS TABLE OF BOM_COMP_ATTR_CTX_ASSOCS_B%ROWTYPE INDEX BY BINARY_INTEGER;
17: l_new_ovr_b_ext_tbl l_ext_b_tbl;
18: l_new_ovr_tl_ext_tbl l_ext_tl_tbl;
19: l_new_ctx_tbl l_ct_tbl;
20: l_ag_metadata_obj EGO_ATTR_GROUP_METADATA_OBJ;
43: WHERE DATA_LEVEL_NAME = p_data_level_name;
44:
45: CURSOR C_FROM_CTX_ROWS (p_comp_seq NUMBER) IS
46: SELECT *
47: FROM BOM_COMP_ATTR_CTX_ASSOCS_B
48: WHERE COMPONENT_SEQUENCE_ID = p_comp_seq;
49:
50: CURSOR C_NEW_BASE_ROW (p_bill_seq_id NUMBER, p_comp_seq_id NUMBER, p_attr_grp_id NUMBER) IS
51: SELECT *
157: -- udab_new_base_rec := c_base_row; --new base row
158:
159: -- Fix for Bug: 8784328
160: -- commented following declaration and replaced it with following SELECT statement
161: -- l_new_ctx_id := BOM_COMP_ATTR_CTX_ASSOCS_B_S.NEXTVAL;
162:
163: SELECT BOM_COMP_ATTR_CTX_ASSOCS_B_S.NEXTVAL
164: INTO l_new_ctx_id
165: FROM dual;
159: -- Fix for Bug: 8784328
160: -- commented following declaration and replaced it with following SELECT statement
161: -- l_new_ctx_id := BOM_COMP_ATTR_CTX_ASSOCS_B_S.NEXTVAL;
162:
163: SELECT BOM_COMP_ATTR_CTX_ASSOCS_B_S.NEXTVAL
164: INTO l_new_ctx_id
165: FROM dual;
166:
167: FOR c_ovr_b_row IN C_OVR_B_ROWS(ctx_rec.EXTENSION_ID) LOOP --should be only one row
232: l_new_ctx_tbl(1) := new_ctx_rec;
233:
234: FORALL i in l_new_ctx_tbl.FIRST..l_new_ctx_tbl.LAST
235: INSERT
236: INTO BOM_COMP_ATTR_CTX_ASSOCS_B
237: VALUES l_new_ctx_tbl(i);
238:
239: --END LOOP; --FOR c_base_row IN C_NEW_BASE_ROW(ctx_rec.BILL_SEQUENCE_ID, p_new_comp_seq, ctx_rec.ATTR_GROUP_ID) LOOP
240:
274: WHERE COMPONENT_SEQUENCE_ID = p_del_comp_seq
275: AND DATA_LEVEL_ID = l_data_level_id_comp_ovr;
276:
277: DELETE
278: FROM BOM_COMP_ATTR_CTX_ASSOCS_B
279: WHERE COMPONENT_SEQUENCE_ID = p_del_comp_seq;
280:
281: EXCEPTION WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;