[Home] [Help]
1: PACKAGE BODY OKC_QA_DATA_INTEGRITY AS
2: /* $Header: OKCRQADB.pls 120.3 2006/08/09 22:31:42 abkumar noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: -- G_DESCRIPTIVE_FLEXFIELD_NAME CONSTANT VARCHAR2(200) := 'OKC Rule Developer DF'; -- /striping/
7: G_DF_COUNT CONSTANT NUMBER(2) := 15;
8: --
662: IF (l_debug = 'Y') THEN
663: okc_debug.Log('20: Pricing Rule Group '||p_rgd_code,2);
664: END IF;
665: -- check the Advanced Pricing Profile value
666: l_adv_pricing_profile := nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N');
667: IF (l_debug = 'Y') THEN
668: okc_debug.Log('30: Advance Pricing Profile : '||l_adv_pricing_profile,2);
669: END IF;
670: IF l_adv_pricing_profile = 'Y' THEN
794: IF (l_debug = 'Y') THEN
795: okc_debug.Log('100: Pricing Rule Group '||p_rgd_code,2);
796: END IF;
797: -- check the Advanced Pricing Profile value
798: l_adv_pricing_profile := nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N');
799: IF (l_debug = 'Y') THEN
800: okc_debug.Log('110: Advance Pricing Profile : '||l_adv_pricing_profile,2);
801: END IF;
802: IF l_adv_pricing_profile = 'Y' THEN
1165: IF (l_debug = 'Y') THEN
1166: okc_debug.Log('200: Pricing Rule Group '||l_rgp_rec.rgd_code,2);
1167: END IF;
1168: -- check the Advanced Pricing Profile value
1169: l_adv_pricing_profile := nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N');
1170: IF (l_debug = 'Y') THEN
1171: okc_debug.Log('210: Advance Pricing Profile : '||l_adv_pricing_profile,2);
1172: END IF;
1173: IF l_adv_pricing_profile = 'Y' THEN
1552: okc_debug.Log('20:Rowcount is 0 , rgd_code is : '||l_rrd_rec.rgd_code,2);
1553: END IF;
1554: IF NVL(l_rrd_rec.rgd_code,'XYZ') = 'PRICING' THEN
1555: -- check the Advanced Pricing Profile value
1556: l_adv_pricing_profile := nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N');
1557: IF (l_debug = 'Y') THEN
1558: okc_debug.Log('40: Advance Pricing Profile : '||l_adv_pricing_profile,2);
1559: END IF;
1560: