1936: l_ptp_type_code VARCHAR2(30);
1937:
1938: l_ap_tax_rounding_rule VARCHAR2(10);
1939: l_tax_rounding_level VARCHAR2(10);
1940: l_auto_tax_calc_flag ap_supplier_sites_all.auto_tax_calc_flag%TYPE;
1941: l_vat_code ap_supplier_sites_all.vat_code%TYPE;
1942: l_vat_registration_num ap_supplier_sites_all.vat_registration_num%TYPE;
1943:
1944: -- Logging Infra
1937:
1938: l_ap_tax_rounding_rule VARCHAR2(10);
1939: l_tax_rounding_level VARCHAR2(10);
1940: l_auto_tax_calc_flag ap_supplier_sites_all.auto_tax_calc_flag%TYPE;
1941: l_vat_code ap_supplier_sites_all.vat_code%TYPE;
1942: l_vat_registration_num ap_supplier_sites_all.vat_registration_num%TYPE;
1943:
1944: -- Logging Infra
1945: l_procedure_name CONSTANT VARCHAR2(30) := 'Do_Get_Sup_Site';
1938: l_ap_tax_rounding_rule VARCHAR2(10);
1939: l_tax_rounding_level VARCHAR2(10);
1940: l_auto_tax_calc_flag ap_supplier_sites_all.auto_tax_calc_flag%TYPE;
1941: l_vat_code ap_supplier_sites_all.vat_code%TYPE;
1942: l_vat_registration_num ap_supplier_sites_all.vat_registration_num%TYPE;
1943:
1944: -- Logging Infra
1945: l_procedure_name CONSTANT VARCHAR2(30) := 'Do_Get_Sup_Site';
1946: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1960: 'L','LINE',
1961: 'H','HEADER',
1962: 'T','HEADER',
1963: NULL) tax_rounding_level
1964: FROM ap_supplier_sites_all povs
1965: WHERE povs.vendor_id = p_account_id
1966: AND povs.vendor_site_id = p_account_site_id;
1967:
1968: l_supp_site_info_rec ZX_GLOBAL_STRUCTURES_PKG.supp_site_info_rec_type;
2549: return;
2550: END IF; -- if5
2551: END IF; -- if4
2552: END IF; -- if3 p_site_ptp_id id not null
2553: -- Check if we can get the registration information from ap_supplier_sites_all
2554: -- or hz_cust_accounts or hz_cust_site_uses
2555: --
2556: IF (p_account_id is not NULL) and (p_account_site_id IS NOT NULL) THEN -- if6
2557: -- Check party type code