556: null
557: INTO
558: pg_batch_options
559: FROM
560: dual;
561: /*
562: l_Token_Tbl(1).token_name := 'BATCH_ID';
563: l_Token_Tbl(1).token_value := p_batch_id;
564: Error_Handler.Add_Error_Token
1950: END IF;
1951:
1952: SELECT userenv('LANG')
1953: INTO l_language
1954: FROM dual;
1955:
1956: l_user_id := FND_GLOBAL.USER_ID;
1957: l_resp_id := FND_GLOBAL.RESP_ID;
1958: l_app_id := FND_GLOBAL.RESP_APPL_ID;
2372: l_eff_sql := l_eff_sql || '''' || l_from_rev_pdh || '''';
2373: ELSE
2374: l_eff_sql := l_eff_sql || ' null ' ;
2375: END IF;
2376: l_eff_sql := l_eff_sql || ' FROM DUAL '
2377: || ' UNION ALL SELECT '
2378: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_REVISION_EFF'||'''), '
2379: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_TO_END_ITEM_REV_LABEL'||'''), '
2380: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_TO_END_ITEM_REV_LABEL'||'''), '
2389: l_eff_sql := l_eff_sql || '''' || l_to_item_rev_pdh || '''';
2390: ELSE
2391: l_eff_sql := l_eff_sql || ' null ' ;
2392: END IF;
2393: l_eff_sql := l_eff_sql || ' FROM DUAL ';
2394: ELSIF (l_new_from_num_intf IS NOT NULL OR l_from_num_intf IS NOT NULL) THEN
2395: l_eff_sql := l_eff_sql || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_UNIT_EFF'||'''), '
2396: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_FROM_NUMBER'||'''), '
2397: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_FROM_NUMBER'||'''), '
2407: l_eff_sql := l_eff_sql || '''' || l_from_num_pdh || '''';
2408: ELSE
2409: l_eff_sql := l_eff_sql || ' null ' ;
2410: END IF;
2411: l_eff_sql := l_eff_sql || ' FROM DUAL '
2412: || ' UNION ALL SELECT '
2413: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_UNIT_EFF'||'''), '
2414: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_TO_NUMBER'||'''), '
2415: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_TO_NUMBER'||'''), '
2423: l_eff_sql := l_eff_sql || '''' || l_to_unit_num_pdh || '''' ;
2424: ELSE
2425: l_eff_sql := l_eff_sql || ' NULL ';
2426: END IF;
2427: l_eff_sql := l_eff_sql || ' FROM DUAL ';
2428: ELSE
2429: l_eff_sql := l_eff_sql || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_DATE_CHOICE'||'''), '
2430: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFFECTIVITY_DATE'||'''), '
2431: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFFECTIVITY_DATE'||'''), '
2444: l_eff_sql := l_eff_sql || '''' || FND_DATE.DATE_TO_DISPLAYDT(l_eff_date_pdh, 2) || '''';
2445: ELSE
2446: l_eff_sql := l_eff_sql || ' NULL ' ;
2447: END IF;
2448: l_eff_sql := l_eff_sql || ' FROM DUAL '
2449: || ' UNION ALL SELECT '
2450: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_EFF_DATE_CHOICE'||'''), '
2451: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_DISABLE_DATE'||'''), '
2452: || ' Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_DISABLE_DATE'||'''), '
2460: l_eff_sql := l_eff_sql || '''' || FND_DATE.DATE_TO_DISPLAYDT(l_dis_date_pdh, 2) || '''';
2461: ELSE
2462: l_eff_sql := l_eff_sql || ' NULL ';
2463: END IF;
2464: l_eff_sql := l_eff_sql || ' FROM DUAL ';
2465:
2466: END IF;
2467:
2468: l_attr_sql := l_eff_sql || ' UNION ALL ';
2523: attr.attr_group_id || ' or attr_group_int_name = '|| ''''||attr.attr_group_name || ''' ) and attr_int_name = ' || '''' || attr.attr_name || ''' ),';*/
2524: END IF;
2525:
2526: EXCEPTION WHEN NO_DATA_FOUND THEN
2527: l_attr_sql := l_attr_sql || '''' || attr.attr_name || ''',(SELECT null from dual),';
2528: END;
2529:
2530: END IF;--l_dummy not null
2531:
2576: --|| ' AND attr_group_id = ' || attr.attr_group_id || '),';
2577: END IF;
2578:
2579: EXCEPTION WHEN NO_DATA_FOUND THEN
2580: l_attr_sql := l_attr_sql || '''' || attr.attr_name || ''' ,(SELECT null from dual),';
2581: END;
2582:
2583: END IF;--l_dummy
2584:
2611: END IF;
2612: END IF;
2613: END LOOP;
2614: l_pdh_query := SUBSTR(l_pdh_query, 1, LENGTH(l_pdh_query)-1);
2615: l_pdh_query := l_pdh_query|| ' from dual ';
2616: l_pdh_query := l_pdh_query || ' ) pdh_value ';
2617: END IF;
2618:
2619: IF p_ss_record_id IS NOT NULL
2634: END IF;
2635: END IF;
2636: END LOOP;
2637: l_src_query := SUBSTR(l_src_query, 1, LENGTH(l_src_query)-1);
2638: l_src_query := l_src_query || ' from dual ) src_val, ';
2639: END IF;
2640: IF p_comp_seq_id IS NOT NULL THEN
2641: l_where_clause := ' WHERE ((BCEB.component_sequence_id = :9 AND BCEB.structure_type_id = :4 AND attr.attr_group_id = BCEB.ATTR_GROUP_ID) AND (';
2642: ELSE
2670: --dinu_log_message(l_src_query );
2671: --dinu_log_message(l_pdh_query );
2672: --dinu_log_message( ' WHERE attr.attr_group_type = '|| '''' || 'BOM_COMPONENT_BASE'||'''' );
2673: l_attr_sql := l_attr_sql || ' UNION ALL SELECT Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_IMPORT_REF_DESGS'||'''),null,null, ' || p_batch_id || ' batch_identifier '
2674: ||',bom_import_pub.get_ref_desgs(:1,:2,:3,1,:5,:6,:7,:8),bom_import_pub.get_ref_desgs(:1,:2,:3,null,:5,:6,:7,:8) from dual' ;
2675:
2676: /*dinu_log_message(' UNION ALL SELECT Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_IMPORT_REF_DESGS'||'''),null,' || p_batch_id || ' batch_identifier ,';
2677: ||'bom_import_pub.get_ref_desgs(:1,:2,:3,1,:5,:6,:7,:8),');*/
2678: --dinu_log_message(' bom_import_pub.get_ref_desgs(:1,:2,:3,null,:5,:6,:7,:8) from dual' );
2674: ||',bom_import_pub.get_ref_desgs(:1,:2,:3,1,:5,:6,:7,:8),bom_import_pub.get_ref_desgs(:1,:2,:3,null,:5,:6,:7,:8) from dual' ;
2675:
2676: /*dinu_log_message(' UNION ALL SELECT Bom_Globals.Retrieve_Message('|| '''' || 'BOM' || ''','||''''|| 'BOM_IMPORT_REF_DESGS'||'''),null,' || p_batch_id || ' batch_identifier ,';
2677: ||'bom_import_pub.get_ref_desgs(:1,:2,:3,1,:5,:6,:7,:8),');*/
2678: --dinu_log_message(' bom_import_pub.get_ref_desgs(:1,:2,:3,null,:5,:6,:7,:8) from dual' );
2679:
2680:
2681: l_dummy := NULL;
2682:
3206: /* vggarg Bug 7640305 PIM4TELCO - Backward Compatibility Project - added default value of data level id and context id*/
3207: /* Bug 13729672, use bind variable instead of hardcode value */
3208: l_target_sql := 'SELECT :l_comp_seq_id component_sequence_id , :l_bill_seq_id' ||
3209: ' bill_sequence_id, :structure_type_id' ||
3210: ' structure_type_id , :data_level_column DATA_LEVEL_COLUMN, :data_level_id DATA_LEVEL_ID, :context_id CONTEXT_ID, :transaction_id transaction_id FROM dual ';
3211: /* vggarg Bug 7640305 start */
3212:
3213: l_add_class := 'SELECT bst.structure_type_id FROM BOM_STRUCTURE_TYPES_B bst START WITH bst.structure_type_id = ' || pG_batch_options.structure_type_id || ' CONNECT BY PRIOR bst.parent_structure_type_id = bst.structure_type_id ';
3214:
5099: SELECT
5100: MTL_SYSTEM_ITEMS_INTERFACE_S.NEXTVAL
5101: INTO
5102: L_NEXT_VALUE
5103: FROM DUAL;
5104: RETURN L_NEXT_VALUE;
5105: EXCEPTION
5106: WHEN OTHERS THEN
5107: RETURN 0;