321: -- Constant Values
322: G_DEL_GROUP_NAME VARCHAR2(10) := 'B_BLK_INTF';
323: G_DEL_GROUP_DESC VARCHAR2(240) := 'Delete Group for EGO BOM Bulkload Structures';
324:
325: l_bom_header_columns_tbl DBMS_SQL.VARCHAR2_TABLE;
326:
327:
328: --DEBUG FLAG
329: l_debug VARCHAR2(10);
569: IF l_debug = 'Y' THEN
570: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.1' || l_dyn_sql_cursor);
571: END IF;
572:
573: l_cursor_select := Dbms_Sql.Open_Cursor;
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
570: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.1' || l_dyn_sql_cursor);
571: END IF;
572:
573: l_cursor_select := Dbms_Sql.Open_Cursor;
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
571: END IF;
572:
573: l_cursor_select := Dbms_Sql.Open_Cursor;
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
579:
572:
573: l_cursor_select := Dbms_Sql.Open_Cursor;
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
579:
580: Dbms_Sql.Bind_Variable(l_cursor_select,':RESULTFMT_USAGE_ID', p_resultfmt_usage_id);
573: l_cursor_select := Dbms_Sql.Open_Cursor;
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
579:
580: Dbms_Sql.Bind_Variable(l_cursor_select,':RESULTFMT_USAGE_ID', p_resultfmt_usage_id);
581:
574: Dbms_Sql.Parse(l_cursor_select, l_dyn_sql_cursor, Dbms_Sql.NATIVE);
575: Dbms_Sql.Define_Column(l_cursor_select, 1, L_TRANSACTION_ID);
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
579:
580: Dbms_Sql.Bind_Variable(l_cursor_select,':RESULTFMT_USAGE_ID', p_resultfmt_usage_id);
581:
582: IF l_debug = 'Y' THEN
576: Dbms_Sql.Define_Column(l_cursor_select, 2, L_PARENT_NAME, 5000);
577: Dbms_Sql.Define_Column(l_cursor_select, 3, L_ORGANIZATION_CODE, 5000);
578: Dbms_Sql.Define_Column(l_cursor_select, 4, L_STRUCTURE_NAME, 5000);
579:
580: Dbms_Sql.Bind_Variable(l_cursor_select,':RESULTFMT_USAGE_ID', p_resultfmt_usage_id);
581:
582: IF l_debug = 'Y' THEN
583: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.2' || p_resultfmt_usage_id);
584: END IF;
583: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 2.2' || p_resultfmt_usage_id);
584: END IF;
585:
586:
587: l_cursor_execute := Dbms_Sql.EXECUTE(l_cursor_select);
588:
589: IF l_debug = 'Y' THEN
590: FND_FILE.PUT_LINE( FND_FILE.LOG,'SUCCESS');
591: END IF;
590: FND_FILE.PUT_LINE( FND_FILE.LOG,'SUCCESS');
591: END IF;
592: i := 1;
593: LOOP
594: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
595: Dbms_Sql.Column_Value(l_cursor_select,1,L_TRANSACTION_ID);
596: Dbms_Sql.Column_Value(l_cursor_select,2,L_PARENT_NAME);
597: Dbms_Sql.Column_Value(l_cursor_select,3,L_ORGANIZATION_CODE);
598: Dbms_Sql.Column_Value(l_cursor_select,4,L_STRUCTURE_NAME);
591: END IF;
592: i := 1;
593: LOOP
594: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
595: Dbms_Sql.Column_Value(l_cursor_select,1,L_TRANSACTION_ID);
596: Dbms_Sql.Column_Value(l_cursor_select,2,L_PARENT_NAME);
597: Dbms_Sql.Column_Value(l_cursor_select,3,L_ORGANIZATION_CODE);
598: Dbms_Sql.Column_Value(l_cursor_select,4,L_STRUCTURE_NAME);
599:
592: i := 1;
593: LOOP
594: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
595: Dbms_Sql.Column_Value(l_cursor_select,1,L_TRANSACTION_ID);
596: Dbms_Sql.Column_Value(l_cursor_select,2,L_PARENT_NAME);
597: Dbms_Sql.Column_Value(l_cursor_select,3,L_ORGANIZATION_CODE);
598: Dbms_Sql.Column_Value(l_cursor_select,4,L_STRUCTURE_NAME);
599:
600: l_Org_Id := ORGANIZATION(L_ORGANIZATION_CODE);
593: LOOP
594: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
595: Dbms_Sql.Column_Value(l_cursor_select,1,L_TRANSACTION_ID);
596: Dbms_Sql.Column_Value(l_cursor_select,2,L_PARENT_NAME);
597: Dbms_Sql.Column_Value(l_cursor_select,3,L_ORGANIZATION_CODE);
598: Dbms_Sql.Column_Value(l_cursor_select,4,L_STRUCTURE_NAME);
599:
600: l_Org_Id := ORGANIZATION(L_ORGANIZATION_CODE);
601: l_Inv_Item_Id := Component_Item(l_Org_Id,L_PARENT_NAME);
594: IF (Dbms_Sql.Fetch_Rows(l_cursor_select) > 0) THEN
595: Dbms_Sql.Column_Value(l_cursor_select,1,L_TRANSACTION_ID);
596: Dbms_Sql.Column_Value(l_cursor_select,2,L_PARENT_NAME);
597: Dbms_Sql.Column_Value(l_cursor_select,3,L_ORGANIZATION_CODE);
598: Dbms_Sql.Column_Value(l_cursor_select,4,L_STRUCTURE_NAME);
599:
600: l_Org_Id := ORGANIZATION(L_ORGANIZATION_CODE);
601: l_Inv_Item_Id := Component_Item(l_Org_Id,L_PARENT_NAME);
602: l_Bill_Seq_Id := Bill_Sequence(l_Inv_Item_Id,L_STRUCTURE_NAME,l_Org_Id);
628: FND_FILE.PUT_LINE( FND_FILE.LOG,'Entering SQL 3' || l_dyn_sql);
629: END IF;
630:
631:
632: Dbms_Sql.Close_Cursor(l_cursor_select);
633: -- End of Creating Structure Header record if that is not available.
634:
635: l_dyn_sql_insert := '';
636: l_dyn_sql_insert := l_dyn_sql_insert || 'INSERT INTO BOM_INVENTORY_COMPS_INTERFACE ( REQUEST_ID, Transaction_Type, Transaction_Id, Process_Flag, ';