The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT STATUS, DB_STATUS
INTO l_status, l_db_status
FROM
FND_PRODUCT_INSTALLATIONS
WHERE
APPLICATION_ID = l_product_id;
| Procedure: ZX_UPDATE_LOOKUPS |
| Description: This Procedure updates the customization level |
| to system in pre-upgrade run mode and reverts back |
| in other mode. To lock lookups related to FC and Tax Def |
| so that user would not be able to create new codes and this |
| avoids need for synchronization. |
| |
| ARGUMENTS : |
| |
| MODIFICATION HISTORY |
| |
| 01-Mar-04 Ranjith Palani Created. |
+===========================================================================*/
PROCEDURE ZX_UPDATE_LOOKUPS(P_UPGRADE_MODE IN VARCHAR2) IS
BEGIN
arp_util_tax.debug('ZX_UPDATE_LOOKUPS (+) ' );
UPDATE fnd_lookup_types
SET customization_level = 'S'
WHERE lookup_type in
('JLCL_AP_DOCUMENT_TYPE',
'JGZZ_STATISTICAL_CODE',
'JEES_INVOICE_CATEGORY',
'JATW_DEDUCTIBLE_TYPE',
'JATW_GUI_TYPE',
-- Tax Def Lookups
'TAX TYPE' , 'JATW_GOVERNMENT_TAX_TYPE' , 'JLCL_TAX_CODE_CLASS'
);
UPDATE fnd_lookup_types
SET customization_level = 'U'
WHERE lookup_type in
('JLCL_AP_DOCUMENT_TYPE',
'JGZZ_STATISTICAL_CODE',
'JEES_INVOICE_CATEGORY',
-- Tax Def Lookups
'JLCL_TAX_CODE_CLASS'
);
UPDATE fnd_lookup_types
SET customization_level = 'E'
WHERE lookup_type in
('JATW_DEDUCTIBLE_TYPE',
'JATW_GUI_TYPE',
-- Tax Def Lookups
'TAX TYPE' , 'JATW_GOVERNMENT_TAX_TYPE'
);
arp_util_tax.debug(' ZX_UPDATE_LOOKUPS (-) ' );
END ZX_UPDATE_LOOKUPS;
SELECT substr(loc.country,1,2),
substr(loc.style,1,2)
INTO l_country,
l_style
FROM hr_all_organization_units ou,
hr_organization_information oi,
hr_locations_all loc
WHERE ou.organization_id = oi.organization_id
AND ou.location_id = loc.location_id
AND oi.org_information_context = 'Operating Unit Information'
AND oi.organization_id = p_org_id;
SELECT substr(loc.country,1,2),
substr(loc.style,1,2)
INTO l_country,
l_style
FROM hr_all_organization_units ou,
hr_organization_information oi,
hr_locations_all loc
WHERE oi.organization_id = l_org_id
AND ou.organization_id = oi.organization_id
AND ou.location_id = loc.location_id
AND oi.org_information_context = 'Operating Unit Information';
SELECT default_country
INTO l_country
FROM ar_system_parameters_all
WHERE decode(l_multi_org_flag,'N',l_org_id,org_id) = p_org_id
AND org_id <> -3113 ; --Bug Fix 5108463
SELECT vat_country_code
INTO l_vat_country_code
FROM financials_system_params_all
WHERE decode(l_multi_org_flag,'N',l_org_id,org_id) = p_org_id;
EXECUTE IMMEDIATE 'SELECT '||p_seq_name||'.nextval from dual ' INTO seq_id;
SELECT count(tax_rate_id) into l_rates_count from zx_rates_b where record_type_code = 'MIGRATED';
SELECT decode(sign(AP_TAX_CODES_S.nextval - AR_VAT_TAX_S.nextval),
'-1',AR_VAT_TAX_S.currval,
AP_TAX_CODES_S.currval)
INTO l_new_seq_id
FROM DUAL;
SELECT NVL(MULTI_ORG_FLAG,'N') INTO L_MULTI_ORG_FLAG FROM
FND_PRODUCT_GROUPS;