13:
14: PROCEDURE get_fc_country_def_cache_info (
15: p_country_code IN fnd_territories.territory_code%TYPE,
16: p_classification_type IN varchar2,
17: x_classification_rec OUT NOCOPY ZX_GLOBAL_STRUCTURES_PKG.fc_country_def_val_rec_type,
18: x_found_in_cache OUT NOCOPY BOOLEAN,
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_error_buffer OUT NOCOPY VARCHAR2);
21:
295: WHERE country_code = p_country_code;
296: */
297:
298: /* Bug 5102996 no need to issue query against zx_evnt_cls_mappings or
299: zx_event_cls_options. These are cached in zx_global_Structures_pkg.g_event_class_rec
300: -- get default Transaction Business Category
301: CURSOR c_trx_biz_cat IS
302: SELECT tax_event_class_code, intrcmp_tx_evnt_cls_code
303: FROM zx_evnt_cls_mappings
364: SELECT delimiter
365: FROM zx_fc_types_b
366: WHERE classification_type_code ='TRX_BUSINESS_CATEGORY';
367:
368: l_fc_country_def_val_rec ZX_GLOBAL_STRUCTURES_PKG.fc_country_def_val_rec_type;
369: l_found_in_cache boolean;
370: l_tbl_index binary_integer;
371: l_return_status VARCHAR2(80);
372: l_error_buffer VARCHAR2(200);
461: 1,
462: 8192);
463:
464: -- Bug#13806759 : Changed the caching table name for caching Intended Use --
465: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL.EXISTS(l_index) AND
466: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID = p_org_id THEN
467: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
468:
469: --Bug 11891533
462: 8192);
463:
464: -- Bug#13806759 : Changed the caching table name for caching Intended Use --
465: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL.EXISTS(l_index) AND
466: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID = p_org_id THEN
467: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
468:
469: --Bug 11891533
470: /* IF l_found_in_cache then
463:
464: -- Bug#13806759 : Changed the caching table name for caching Intended Use --
465: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL.EXISTS(l_index) AND
466: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID = p_org_id THEN
467: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
468:
469: --Bug 11891533
470: /* IF l_found_in_cache then
471: p_default_code := l_fc_country_def_val_rec.fc_default_value; */
471: p_default_code := l_fc_country_def_val_rec.fc_default_value; */
472:
473: ELSE
474:
475: IF ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code is not NULL then
476: -- model intended use found in cache
477: l_owner_table := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code;
478: l_owner_id_num := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_id_num;
479:
473: ELSE
474:
475: IF ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code is not NULL then
476: -- model intended use found in cache
477: l_owner_table := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code;
478: l_owner_id_num := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_id_num;
479:
480: ELSE
481: OPEN c_model_intended_use;
474:
475: IF ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code is not NULL then
476: -- model intended use found in cache
477: l_owner_table := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code;
478: l_owner_id_num := ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_id_num;
479:
480: ELSE
481: OPEN c_model_intended_use;
482: FETCH c_model_intended_use INTO l_owner_table, l_owner_id_num;
480: ELSE
481: OPEN c_model_intended_use;
482: FETCH c_model_intended_use INTO l_owner_table, l_owner_id_num;
483:
484: ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code := l_owner_table ;
485: ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_id_num := l_owner_id_num;
486:
487: -- Logging Infra: YK: 3/10: Break point
488: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
481: OPEN c_model_intended_use;
482: FETCH c_model_intended_use INTO l_owner_table, l_owner_id_num;
483:
484: ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_table_code := l_owner_table ;
485: ZX_GLOBAL_STRUCTURES_PKG.g_intended_use_owner_tbl_info.owner_id_num := l_owner_id_num;
486:
487: -- Logging Infra: YK: 3/10: Break point
488: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
489: l_log_msg := 'B: CUR: c_model_intended_use: fetched: l_owner_table=' || l_owner_table ||
533: p_country_code => l_country_code,
534: p_classification_type => 'INTENDED_USE',
535: p_classification_code => l_intended_use); */
536:
537: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
538: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
539: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
540: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_Intended_Use;
541:
534: p_classification_type => 'INTENDED_USE',
535: p_classification_code => l_intended_use); */
536:
537: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
538: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
539: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
540: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_Intended_Use;
541:
542: set_fc_country_def_cache_info(
535: p_classification_code => l_intended_use); */
536:
537: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
538: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
539: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
540: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_Intended_Use;
541:
542: set_fc_country_def_cache_info(
543: p_country_code => l_country_code,
536:
537: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
538: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
539: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
540: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_Intended_Use;
541:
542: set_fc_country_def_cache_info(
543: p_country_code => l_country_code,
544: p_classification_type => 'PRODUCT_CATEGORY',
640: p_country_code => l_country_code,
641: p_classification_type => 'INTENDED_USE',
642: p_classification_code => l_category_code); */
643:
644: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
645: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
646: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
647: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_category_code;
648:
641: p_classification_type => 'INTENDED_USE',
642: p_classification_code => l_category_code); */
643:
644: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
645: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
646: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
647: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_category_code;
648:
649: CLOSE c_category_code;
642: p_classification_code => l_category_code); */
643:
644: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
645: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
646: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
647: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_category_code;
648:
649: CLOSE c_category_code;
650:
643:
644: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).ORG_ID := p_org_id;
645: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
646: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
647: ZX_GLOBAL_STRUCTURES_PKG.ITEM_INTENDED_USE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_category_code;
648:
649: CLOSE c_category_code;
650:
651: -- YK: 3/11: What if l_category_code is NULL?
711: p_org_id||p_item_id||p_fiscal_type_code,
712: 1,
713: 8192);
714:
715: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL.EXISTS(l_index)
716: AND ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID = p_org_id then
717: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
718: ELSE
719: OPEN c_product_type;
712: 1,
713: 8192);
714:
715: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL.EXISTS(l_index)
716: AND ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID = p_org_id then
717: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
718: ELSE
719: OPEN c_product_type;
720: FETCH c_product_type into l_product_type;
713: 8192);
714:
715: IF ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL.EXISTS(l_index)
716: AND ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID = p_org_id then
717: p_default_code := ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE;
718: ELSE
719: OPEN c_product_type;
720: FETCH c_product_type into l_product_type;
721:
729:
730: p_default_code := l_product_type;
731:
732: -- set the value in cache
733: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID := p_org_id;
734: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
735: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
736: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_product_type;
737:
730: p_default_code := l_product_type;
731:
732: -- set the value in cache
733: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID := p_org_id;
734: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
735: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
736: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_product_type;
737:
738: CLOSE c_product_type;
731:
732: -- set the value in cache
733: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID := p_org_id;
734: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
735: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
736: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_product_type;
737:
738: CLOSE c_product_type;
739:
732: -- set the value in cache
733: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).ORG_ID := p_org_id;
734: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_ITEM_ID := p_item_id;
735: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_TYPE := p_fiscal_type_code;
736: ZX_GLOBAL_STRUCTURES_PKG.ITEM_PRODUCT_TYPE_VAL_TBL(l_index).FC_DEFAULT_VALUE := l_product_type;
737:
738: CLOSE c_product_type;
739:
740: END IF; -- found in cache
839: END IF; -- found in cache
840:
841: ELSIF p_fiscal_type_code ='TRX_BUSINESS_CATEGORY' then
842:
843: l_tax_event_class_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.tax_event_class_code;
844: l_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.intrcmp_tx_evnt_cls_code;
845:
846: -- Logging Infra: YK: 3/11: Break point
847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
840:
841: ELSIF p_fiscal_type_code ='TRX_BUSINESS_CATEGORY' then
842:
843: l_tax_event_class_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.tax_event_class_code;
844: l_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.intrcmp_tx_evnt_cls_code;
845:
846: -- Logging Infra: YK: 3/11: Break point
847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
848: l_log_msg := 'B: CUR: c_trx_biz_cat: fetched: l_tax_event_class_code=' || l_tax_event_class_code;
854:
855: IF substr(p_source_event_class_code,1,5) = 'TRADE' THEN
856: p_default_code := l_tax_event_class_code || g_delimiter || 'TRADE_MGT';
857: ELSIF p_source_event_class_code = 'INTERCOMPANY_TRX' THEN
858: IF ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY IS NOT NULL
859: AND l_intrcmp_code IS NOT NULL THEN
860: l_def_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY;
861: p_default_code := l_def_intrcmp_code;
862: ELSE
856: p_default_code := l_tax_event_class_code || g_delimiter || 'TRADE_MGT';
857: ELSIF p_source_event_class_code = 'INTERCOMPANY_TRX' THEN
858: IF ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY IS NOT NULL
859: AND l_intrcmp_code IS NOT NULL THEN
860: l_def_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY;
861: p_default_code := l_def_intrcmp_code;
862: ELSE
863: p_default_code := l_tax_event_class_code;
864: END IF;
868:
869: -- Modified to Populate TBC for R12 created COTO's as def_intrcmp_trx_biz_category is always NULL
870: -- and so TBC will default to NULL.
871: --IF l_intrcmp_code IS NOT NULL THEN
872: -- IF ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY IS NOT NULL THEN
873: -- l_def_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY;
874: -- p_default_code := l_def_intrcmp_code;
875: -- ELSE
876: -- p_default_code := l_tax_event_class_code;
869: -- Modified to Populate TBC for R12 created COTO's as def_intrcmp_trx_biz_category is always NULL
870: -- and so TBC will default to NULL.
871: --IF l_intrcmp_code IS NOT NULL THEN
872: -- IF ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY IS NOT NULL THEN
873: -- l_def_intrcmp_code := ZX_GLOBAL_STRUCTURES_PKG.g_event_class_Rec.DEF_INTRCMP_TRX_BIZ_CATEGORY;
874: -- p_default_code := l_def_intrcmp_code;
875: -- ELSE
876: -- p_default_code := l_tax_event_class_code;
877: -- END IF;
1568:
1569: PROCEDURE get_fc_country_def_cache_info (
1570: p_country_code IN fnd_territories.territory_code%TYPE,
1571: p_classification_type IN varchar2,
1572: x_classification_rec OUT NOCOPY ZX_GLOBAL_STRUCTURES_PKG.fc_country_def_val_rec_type,
1573: x_found_in_cache OUT NOCOPY BOOLEAN,
1574: x_return_status OUT NOCOPY VARCHAR2,
1575: x_error_buffer OUT NOCOPY VARCHAR2) is
1576:
1595: --
1596: -- first check if the status info is available from the cache
1597: --
1598:
1599: IF ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL.EXISTS(l_index)
1600: THEN
1601: IF (g_level_statement >= g_current_runtime_level ) THEN
1602: FND_LOG.STRING(g_level_statement,
1603: 'ZX.PLSQL.LSQL.ZX_TCM_EXT_SERVICES_PUB.get_fc_country_def_cache_info',
1604: 'Default Classification type '||p_classification_type||
1605: ' for country code '||p_country_code||' from cache, at index = ' || to_char(l_index));
1606: END IF;
1607: x_found_in_cache := TRUE;
1608: x_classification_rec := ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_index);
1609:
1610: ELSE
1611: IF (g_level_statement >= g_current_runtime_level ) THEN
1612: FND_LOG.STRING(g_level_statement,
1637: p_country_code||p_classification_type,
1638: 1,
1639: 8192);
1640:
1641: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).country_code := p_country_code;
1642: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_type := p_classification_type;
1643: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_default_value := p_classification_code;
1644:
1645: END set_fc_country_def_cache_info;
1638: 1,
1639: 8192);
1640:
1641: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).country_code := p_country_code;
1642: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_type := p_classification_type;
1643: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_default_value := p_classification_code;
1644:
1645: END set_fc_country_def_cache_info;
1646:
1639: 8192);
1640:
1641: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).country_code := p_country_code;
1642: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_type := p_classification_type;
1643: ZX_GLOBAL_STRUCTURES_PKG.FC_COUNTRY_DEF_VAL_TBL(l_tbl_index).fc_default_value := p_classification_code;
1644:
1645: END set_fc_country_def_cache_info;
1646:
1647: FUNCTION is_territory_code_valid(p_country_code IN VARCHAR2)
1649: l_country_index binary_integer;
1650: l_territory_code fnd_territories.territory_code%type;
1651: BEGIN
1652: l_country_index := dbms_utility.get_hash_value(P_COUNTRY_CODE, 1, 8192);
1653: IF ZX_GLOBAL_STRUCTURES_PKG.G_TERRITORY_TBL.exists(l_country_index) then
1654: RETURN TRUE;
1655: ELSE
1656: BEGIN
1657: select TERRITORY_CODE into l_territory_code
1657: select TERRITORY_CODE into l_territory_code
1658: FROM FND_TERRITORIES
1659: WHERE TERRITORY_CODE = p_country_code;
1660:
1661: ZX_GLOBAL_STRUCTURES_PKG.G_TERRITORY_TBL(l_country_index) := l_territory_code;
1662: return TRUE;
1663:
1664: EXCEPTION
1665: WHEN NO_DATA_FOUND then