[Home] [Help]
2180: retcode := 2;
2181: END recategorize_referrals;
2182:
2183: --------------------------------------------------------------------------------------------------
2184: -- This procedure populates all the data required for IBW_CONTEXT_INTERFACE_B/TL table
2185: --
2186: -- PROCEDURE CONTEXT_LOAD
2187: --------------------------------------------------------------------------------------------------
2188:
2217: -- Checking whether No Context record exists.
2218:
2219: IF (l_business_context IS NULL) THEN
2220: -- Inserting record with 'NONE' AS the business context
2221: INSERT INTO ibw_context_interface_b cont
2222: (
2223: cont.context_interface_id
2224: ,cont.context_instance_value
2225: ,cont.context_instance_code
2230: ,cont.last_updated_by
2231: ,cont.last_update_date
2232: ,cont.last_update_login,cont.program_id,cont.program_login_id,cont.program_application_id,cont.request_id )
2233: VALUES
2234: (ibw_context_interface_b_s1.nextval
2235: ,-999
2236: ,NULL
2237: ,'NONE',1,l_user_id,SYSDATE,l_user_id,SYSDATE,l_last_update_login,l_program_id,l_program_login_id,l_program_app_id,l_request_id);
2238:
2266: ,l_program_id program_id
2267: ,l_program_login_id program_login_id
2268: ,l_program_app_id program_application_id
2269: ,l_request_id request_id
2270: FROM ibw_context_interface_b cont
2271: ,fnd_languages lang
2272: ,fnd_lookup_values lookup
2273: WHERE cont.context_instance_value = -999
2274: and lookup.lookup_type = 'IBW_BUSINESS_CONTEXT'
2288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Context Load Program Return Status: - NONE Context' || x_return_status );
2289: END;
2290:
2291:
2292: -- For populating the IBW_CONTEXT_INTERFACE_B table with the Section related data
2293:
2294: begin
2295: MERGE INTO ibw_context_interface_b cont
2296: USING (SELECT page.business_context
2291:
2292: -- For populating the IBW_CONTEXT_INTERFACE_B table with the Section related data
2293:
2294: begin
2295: MERGE INTO ibw_context_interface_b cont
2296: USING (SELECT page.business_context
2297: ,sect.section_id
2298: ,sect.access_name
2299: FROM ibw_page_instances page
2339: ,cont.program_login_id
2340: ,cont.program_application_id
2341: ,cont.request_id)
2342: VALUES(
2343: IBW_CONTEXT_INTERFACE_B_S1.nextval
2344: ,pagesect.section_id
2345: ,pagesect.access_name
2346: ,pagesect.business_context
2347: ,1
2359: WHEN OTHERS THEN
2360: ROLLBACK;
2361: --dbms_output.put_line('CONTEXT_LOAD:' || sqlerrm);
2362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in Context Load Program-Merge of ibw_context_interface_b :' || sqlerrm);
2364: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Context Load Program Return Status 1:' || x_return_status );
2365:
2366: end;
2367:
2366: end;
2367:
2368: -- For populating the IBW_CONTEXT_INTERFACE_TL table
2369:
2370: -- Here the Primary Key is combination of context_interface_id (FROM ibw_context_interface_b) AND language column
2371:
2372: begin
2373: MERGE INTO ibw_context_interface_tl cont_tl
2374: USING (SELECT
2377: ,sect.language language /* query thereby avoiding MERGE CARTESIAN JOIN */
2378: ,USERENV('LANG') source_lang /* Chamge by gjothiku */
2379: FROM
2380: ibe_dsp_sections_tl sect
2381: ,ibw_context_interface_b cont
2382: WHERE
2383: cont.context_instance_value = sect.section_id
2384: ) conttl
2385: ON(