1979: l_acctg_date := FND_DATE.CANONICAL_TO_DATE(P_acctg_date);
1980: --
1981: l_debug_info := 'Get Profiles';
1982:
1983: l_user_id := FND_GLOBAL.user_id;
1984: l_request_id := FND_GLOBAL.conc_request_id;
1985: l_login_id := FND_GLOBAL.login_id;
1986: --
1987: l_debug_info := 'Get FA Book ledger id based on FA API';
1980: --
1981: l_debug_info := 'Get Profiles';
1982:
1983: l_user_id := FND_GLOBAL.user_id;
1984: l_request_id := FND_GLOBAL.conc_request_id;
1985: l_login_id := FND_GLOBAL.login_id;
1986: --
1987: l_debug_info := 'Get FA Book ledger id based on FA API';
1988: --
1981: l_debug_info := 'Get Profiles';
1982:
1983: l_user_id := FND_GLOBAL.user_id;
1984: l_request_id := FND_GLOBAL.conc_request_id;
1985: l_login_id := FND_GLOBAL.login_id;
1986: --
1987: l_debug_info := 'Get FA Book ledger id based on FA API';
1988: --
1989: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2052: UPDATE /*+ INDEX(apid ap_invoice_distributions_n6) */ -- Bug 8305129
2053: ap_invoice_distributions_all APID
2054: SET APID.assets_addition_flag = 'N',
2055: APID.program_update_date = SYSDATE,
2056: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2057: APID.program_id = FND_GLOBAL.conc_program_id,
2058: APID.request_id = l_request_id
2059: WHERE APID.assets_addition_flag = 'U'
2060: AND APID.org_id IN (SELECT org_id
2053: ap_invoice_distributions_all APID
2054: SET APID.assets_addition_flag = 'N',
2055: APID.program_update_date = SYSDATE,
2056: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2057: APID.program_id = FND_GLOBAL.conc_program_id,
2058: APID.request_id = l_request_id
2059: WHERE APID.assets_addition_flag = 'U'
2060: AND APID.org_id IN (SELECT org_id
2061: FROM ap_system_parameters)
2085: -- bug 7215835: add start : update self assessed table also
2086: UPDATE ap_self_assessed_tax_dist_all APID
2087: SET APID.assets_addition_flag = 'N',
2088: APID.program_update_date = SYSDATE,
2089: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2090: APID.program_id = FND_GLOBAL.conc_program_id,
2091: APID.request_id = l_request_id
2092: WHERE APID.assets_addition_flag = 'U'
2093: AND APID.org_id IN (SELECT org_id
2086: UPDATE ap_self_assessed_tax_dist_all APID
2087: SET APID.assets_addition_flag = 'N',
2088: APID.program_update_date = SYSDATE,
2089: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2090: APID.program_id = FND_GLOBAL.conc_program_id,
2091: APID.request_id = l_request_id
2092: WHERE APID.assets_addition_flag = 'U'
2093: AND APID.org_id IN (SELECT org_id
2094: FROM ap_system_parameters)
2349: AND fmag.line_type_lookup_code <> 'DISCOUNT'
2350: AND fmag.expenditure_item_id is null /*10368924*/)
2351: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2352: apid.program_update_date = sysdate,
2353: apid.program_application_id = fnd_global.prog_appl_id,
2354: apid.program_id = fnd_global.conc_program_id,
2355: apid.request_id = fnd_global.conc_request_id,
2356: apid.asset_book_type_code = fmag.book_type_code
2357: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2350: AND fmag.expenditure_item_id is null /*10368924*/)
2351: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2352: apid.program_update_date = sysdate,
2353: apid.program_application_id = fnd_global.prog_appl_id,
2354: apid.program_id = fnd_global.conc_program_id,
2355: apid.request_id = fnd_global.conc_request_id,
2356: apid.asset_book_type_code = fmag.book_type_code
2357: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2358:
2351: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2352: apid.program_update_date = sysdate,
2353: apid.program_application_id = fnd_global.prog_appl_id,
2354: apid.program_id = fnd_global.conc_program_id,
2355: apid.request_id = fnd_global.conc_request_id,
2356: apid.asset_book_type_code = fmag.book_type_code
2357: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2358:
2359: --
2368: AND fmag.line_type_lookup_code <> 'DISCOUNT'
2369: AND fmag.expenditure_item_id is null /*10368924*/)
2370: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2371: apid.program_update_date = sysdate,
2372: apid.program_application_id = fnd_global.prog_appl_id,
2373: apid.program_id = fnd_global.conc_program_id,
2374: apid.request_id = fnd_global.conc_request_id,
2375: apid.asset_book_type_code = fmag.book_type_code
2376: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2369: AND fmag.expenditure_item_id is null /*10368924*/)
2370: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2371: apid.program_update_date = sysdate,
2372: apid.program_application_id = fnd_global.prog_appl_id,
2373: apid.program_id = fnd_global.conc_program_id,
2374: apid.request_id = fnd_global.conc_request_id,
2375: apid.asset_book_type_code = fmag.book_type_code
2376: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2377:
2370: WHEN MATCHED THEN UPDATE SET apid.assets_addition_flag = 'Y',
2371: apid.program_update_date = sysdate,
2372: apid.program_application_id = fnd_global.prog_appl_id,
2373: apid.program_id = fnd_global.conc_program_id,
2374: apid.request_id = fnd_global.conc_request_id,
2375: apid.asset_book_type_code = fmag.book_type_code
2376: Where apid.assets_addition_flag <> 'Y' /*10368924*/;
2377:
2378: l_debug_info := 'Update Invoice Distributions which are not transferred to Asset ';
2383: --
2384: UPDATE ap_invoice_distributions_all APID
2385: SET APID.assets_addition_flag = 'N',
2386: APID.program_update_date = SYSDATE,
2387: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2388: APID.program_id = FND_GLOBAL.conc_program_id,
2389: APID.request_id = FND_GLOBAL.conc_request_id,
2390: APID.asset_book_type_code = P_bt_code
2391: WHERE APID.invoice_distribution_id IN
2384: UPDATE ap_invoice_distributions_all APID
2385: SET APID.assets_addition_flag = 'N',
2386: APID.program_update_date = SYSDATE,
2387: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2388: APID.program_id = FND_GLOBAL.conc_program_id,
2389: APID.request_id = FND_GLOBAL.conc_request_id,
2390: APID.asset_book_type_code = P_bt_code
2391: WHERE APID.invoice_distribution_id IN
2392: (SELECT FMAG.invoice_distribution_id
2385: SET APID.assets_addition_flag = 'N',
2386: APID.program_update_date = SYSDATE,
2387: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2388: APID.program_id = FND_GLOBAL.conc_program_id,
2389: APID.request_id = FND_GLOBAL.conc_request_id,
2390: APID.asset_book_type_code = P_bt_code
2391: WHERE APID.invoice_distribution_id IN
2392: (SELECT FMAG.invoice_distribution_id
2393: FROM fa_mass_additions_gt FMAG
2400: --
2401: UPDATE ap_self_assessed_tax_dist_all APID
2402: SET APID.assets_addition_flag = 'N',
2403: APID.program_update_date = SYSDATE,
2404: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2405: APID.program_id = FND_GLOBAL.conc_program_id,
2406: APID.request_id = FND_GLOBAL.conc_request_id,
2407: APID.asset_book_type_code = P_bt_code
2408: WHERE APID.invoice_distribution_id IN
2401: UPDATE ap_self_assessed_tax_dist_all APID
2402: SET APID.assets_addition_flag = 'N',
2403: APID.program_update_date = SYSDATE,
2404: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2405: APID.program_id = FND_GLOBAL.conc_program_id,
2406: APID.request_id = FND_GLOBAL.conc_request_id,
2407: APID.asset_book_type_code = P_bt_code
2408: WHERE APID.invoice_distribution_id IN
2409: (SELECT FMAG.invoice_distribution_id
2402: SET APID.assets_addition_flag = 'N',
2403: APID.program_update_date = SYSDATE,
2404: APID.program_application_id = FND_GLOBAL.prog_appl_id,
2405: APID.program_id = FND_GLOBAL.conc_program_id,
2406: APID.request_id = FND_GLOBAL.conc_request_id,
2407: APID.asset_book_type_code = P_bt_code
2408: WHERE APID.invoice_distribution_id IN
2409: (SELECT FMAG.invoice_distribution_id
2410: FROM fa_mass_additions_gt FMAG