38: ec_debug.pl (3, 'p_msg_text', p_msg_text);
39: end if;
40:
41: xProgress := 'ECERULEB-10-1000';
42: l_cur_status := ec_utils.g_ext_levels(p_level).status;
43: if ec_debug.G_debug_level =3 then
44: ec_debug.pl (3, 'Current Status', l_cur_status);
45: end if;
46:
49: -- If the current status is NEW or RE_PROCESS, then we have
50: -- to update it to 'INSERT'.
51: -- Otherwise, we should keep the current status.
52: if (l_cur_status = g_new or l_cur_status = g_reprocess) then
53: ec_utils.g_ext_levels(p_level).status := g_insert;
54: end if;
55:
56: elsif (p_action <> g_log_only) then
57:
71: else
72: l_new_status := g_insert;
73: end if;
74:
75: ec_utils.g_ext_levels(p_level).status := l_new_status;
76:
77: xProgress := 'ECERULEB-10-1020';
78: -- insert new violation information into ece_rule_violations table.
79:
110: -- Otherwise, we should keep the same status.
111:
112: xProgress := 'ECERULEB-10-1030';
113: if (l_cur_status = g_new or l_cur_status = g_reprocess) then
114: ec_utils.g_ext_levels(p_level).status := g_insert;
115: end if;
116:
117: end if;
118:
117: end if;
118:
119: if ec_debug.G_debug_level >= 2 then
120: ec_debug.pl (3, 'Updated status',
121: ec_utils.g_ext_levels(p_level).status);
122: ec_debug.pop ('ECE_RULES_PKG.UPDATE_STATUS');
123: end if;
124:
125: EXCEPTION
147: p_document_id IN NUMBER,
148: p_document_number IN VARCHAR2,
149: p_level IN NUMBER,
150: p_map_id IN NUMBER,
151: p_staging_tbl IN OUT NOCOPY ec_utils.mapping_tbl) IS
152:
153: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Process_Rules';
154: l_api_version_number CONSTANT NUMBER := 1.0;
155:
353: p_transaction_type IN VARCHAR2,
354: p_address_type IN VARCHAR2,
355: p_level IN NUMBER,
356: p_map_id IN NUMBER,
357: p_staging_tbl IN ec_utils.mapping_tbl,
358: x_tp_detail_id OUT NOCOPY NUMBER,
359: x_msg_text OUT NOCOPY VARCHAR2,
360: x_valid_rule OUT NOCOPY VARCHAR2) IS
361:
439: xProgress := 'ECERULEB-30-1000';
440: x_msg_text := NULL;
441: x_valid_rule := 'Y';
442:
443: ec_utils.find_pos (
444: 1,
445: 'TP_LOCATION_CODE',
446: n_location_code_pos);
447:
445: 'TP_LOCATION_CODE',
446: n_location_code_pos);
447:
448: xProgress := 'ECERULEB-30-1010';
449: ec_utils.find_pos (
450: 1,
451: 'TP_TRANSLATOR_CODE',
452: n_translator_code_pos);
453:
451: 'TP_TRANSLATOR_CODE',
452: n_translator_code_pos);
453:
454: xProgress := 'ECERULEB-30-1010';
455: ec_utils.find_pos (
456: 1,
457: 'ORG_ID',
458: n_org_id);
459:
608:
609: PROCEDURE Validate_Test_Prod(
610: p_tp_detail_id IN NUMBER,
611: p_level IN NUMBER,
612: p_staging_tbl IN ec_utils.mapping_tbl,
613: x_msg_text OUT NOCOPY VARCHAR2,
614: x_valid_rule OUT NOCOPY VARCHAR2) IS
615:
616: xProgress VARCHAR2(80);
635: xProgress := 'ECERULEB-40-1000';
636: x_msg_text := NULL;
637: x_valid_rule := 'Y';
638:
639: ec_utils.find_pos (
640: 1,
641: 'TEST_INDICATOR',
642: n_test_flag_pos);
643:
709: p_stage_id IN NUMBER,
710: p_document_id IN NUMBER,
711: p_document_number IN VARCHAR2,
712: p_level IN NUMBER,
713: p_staging_tbl IN OUT NOCOPY ec_utils.mapping_tbl) IS
714:
715: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Column_Rules';
716: l_api_version_number CONSTANT NUMBER := 1.0;
717:
781: xProgress := 'ECERULEB-50-1000';
782:
783: /* bug 2500898
784: for i in 1..p_staging_tbl.count loop
785: for i in ec_utils.g_ext_levels(p_level).file_start_pos..ec_utils.g_ext_levels(p_level).file_end_pos
786: */
787:
788: -- Bug 2708573
789: -- Replaced the above for loop with while loop.
786: */
787:
788: -- Bug 2708573
789: -- Replaced the above for loop with while loop.
790: i:= ec_utils.g_column_rule_tbl.FIRST;
791: while i <> ec_utils.g_column_rule_tbl.LAST
792: loop
793:
794: -- Bug 1853627 Added a check on the column_rule_flag in the following condition
787:
788: -- Bug 2708573
789: -- Replaced the above for loop with while loop.
790: i:= ec_utils.g_column_rule_tbl.FIRST;
791: while i <> ec_utils.g_column_rule_tbl.LAST
792: loop
793:
794: -- Bug 1853627 Added a check on the column_rule_flag in the following condition
795:
795:
796: -- Bug 2708573
797: -- if (p_staging_tbl(i).external_level = p_level AND p_staging_tbl(i).column_rule_flag ='Y') then
798:
799: if (ec_utils.g_column_rule_tbl(i).level = p_level) then
800:
801: xProgress := 'ECERULEB-50-1010';
802: l_interface_column_id := p_staging_tbl(i).interface_column_id;
803: l_interface_column_name := p_staging_tbl(i).interface_column_name;
818: exit when c_col_rule_info%NOTFOUND;
819: */
820:
821: xProgress := 'ECERULEB-50-1020';
822: l_rule_id :=ec_utils.g_column_rule_tbl(i).column_rule_id;
823: l_rule_type :=ec_utils.g_column_rule_tbl(i).rule_type;
824: l_action_code:=ec_utils.g_column_rule_tbl(i).action_code;
825:
826: if ec_debug.G_debug_level = 3 then
819: */
820:
821: xProgress := 'ECERULEB-50-1020';
822: l_rule_id :=ec_utils.g_column_rule_tbl(i).column_rule_id;
823: l_rule_type :=ec_utils.g_column_rule_tbl(i).rule_type;
824: l_action_code:=ec_utils.g_column_rule_tbl(i).action_code;
825:
826: if ec_debug.G_debug_level = 3 then
827: ec_debug.pl (3, 'rule_id', l_rule_id);
820:
821: xProgress := 'ECERULEB-50-1020';
822: l_rule_id :=ec_utils.g_column_rule_tbl(i).column_rule_id;
823: l_rule_type :=ec_utils.g_column_rule_tbl(i).rule_type;
824: l_action_code:=ec_utils.g_column_rule_tbl(i).action_code;
825:
826: if ec_debug.G_debug_level = 3 then
827: ec_debug.pl (3, 'rule_id', l_rule_id);
828: ec_debug.pl (3, 'rule_type', l_rule_type);
944:
945: end if;
946:
947: xProgress := 'ECERULEB-50-1160';
948: i := ec_utils.g_column_rule_tbl.NEXT(i); -- Bug 2708573
949:
950: end loop;
951:
952: if (fnd_api.to_boolean(p_simulate)) then
1344: PROCEDURE Null_Dependency_Rule (
1345: p_column_name IN VARCHAR2,
1346: p_column_value IN VARCHAR2,
1347: p_rule_id IN NUMBER,
1348: p_staging_tbl IN ec_utils.mapping_tbl,
1349: p_level IN NUMBER,
1350: x_valid_rule OUT NOCOPY VARCHAR2,
1351: x_msg_text OUT NOCOPY VARCHAR2) IS
1352:
1409: ec_debug.pl (3, 'rule_value', l_rule_value);
1410: end if;
1411:
1412: xProgress := 'ECERULEB-90-1030';
1413: ec_utils.find_pos (
1414: 1,
1415: p_level,
1416: l_rule_column,
1417: l_column_pos);
1603: p_column_name IN VARCHAR2,
1604: p_column_value IN VARCHAR2,
1605: p_rule_id IN NUMBER,
1606: p_level IN NUMBER,
1607: p_staging_tbl IN OUT NOCOPY ec_utils.mapping_tbl,
1608: x_valid_rule OUT NOCOPY VARCHAR2,
1609: x_msg_text OUT NOCOPY VARCHAR2) IS
1610:
1611: xProgress VARCHAR2(80);
1654: end if;
1655:
1656: elsif (l_type_code = 'COLUMN') then
1657: xProgress := 'ECERULEB-110-1030';
1658: ec_utils.find_pos (
1659: 1,
1660: p_level,
1661: l_value_column_name,
1662: n_rule_column_pos);
1666: ec_debug.pl (3, 'column_value', l_column_value);
1667: end if;
1668:
1669: xProgress := 'ECERULEB-110-1040';
1670: ec_utils.find_pos (
1671: p_level,
1672: p_column_name,
1673: n_column_pos);
1674:
1909: ECE_RULES_PKG.G_PARTY_NUMBER := null;
1910: -- get address information if it exists in the pl/sql table.
1911: if (p_org_id_pos is not null) then
1912: xProgress := 'ECERULEB-130-1010';
1913: l_org_id := ec_utils.g_file_tbl (p_org_id_pos).value;
1914: end if;
1915:
1916: if (p_addr_id_pos is not null) then
1917: xProgress := 'ECERULEB-130-1020';
1914: end if;
1915:
1916: if (p_addr_id_pos is not null) then
1917: xProgress := 'ECERULEB-130-1020';
1918: l_addr_id := ec_utils.g_file_tbl (p_addr_id_pos).value;
1919: end if;
1920:
1921: if (p_tp_location_code_pos is not null) then
1922: xProgress := 'ECERULEB-130-1030';
1919: end if;
1920:
1921: if (p_tp_location_code_pos is not null) then
1922: xProgress := 'ECERULEB-130-1030';
1923: l_tp_location_code := ec_utils.g_file_tbl (p_tp_location_code_pos).value;
1924: end if;
1925:
1926: /*if (p_tp_translator_code_pos is not null) then
1927: xProgress := 'ECERULEB-130-1040';
1924: end if;
1925:
1926: /*if (p_tp_translator_code_pos is not null) then
1927: xProgress := 'ECERULEB-130-1040';
1928: l_tp_translator_code := ec_utils.g_file_tbl (p_tp_translator_code_pos).value;
1929: end if;
1930:
1931: IF (p_tp_location_name_pos IS NOT NULL) THEN
1932: xProgress := 'ECERULEB-130-1045';
1929: end if;
1930:
1931: IF (p_tp_location_name_pos IS NOT NULL) THEN
1932: xProgress := 'ECERULEB-130-1045';
1933: l_tp_location_name := ec_utils.g_file_tbl(p_tp_location_name_pos).value;
1934: END IF;
1935: bug2151462*/
1936:
1937: if (p_tp_translator_code_pos is not null) then
1935: bug2151462*/
1936:
1937: if (p_tp_translator_code_pos is not null) then
1938: xProgress := 'ECERULEB-130-1040';
1939: ECE_RULES_PKG.G_PARTY_NUMBER := ec_utils.g_file_tbl (p_tp_translator_code_pos).value;
1940: end if;
1941:
1942: IF (p_tp_location_name_pos IS NOT NULL) THEN
1943: xProgress := 'ECERULEB-130-1045';
1940: end if;
1941:
1942: IF (p_tp_location_name_pos IS NOT NULL) THEN
1943: xProgress := 'ECERULEB-130-1045';
1944: ECE_RULES_PKG.G_PARTY_NAME := ec_utils.g_file_tbl(p_tp_location_name_pos).value;
1945: END IF;
1946:
1947: if (p_addr1_pos is not null) then
1948: xProgress := 'ECERULEB-130-1050';
1945: END IF;
1946:
1947: if (p_addr1_pos is not null) then
1948: xProgress := 'ECERULEB-130-1050';
1949: l_addr1 := ec_utils.g_file_tbl (p_addr1_pos).value;
1950: end if;
1951:
1952: if (p_addr2_pos is not null) then
1953: xProgress := 'ECERULEB-130-1060';
1950: end if;
1951:
1952: if (p_addr2_pos is not null) then
1953: xProgress := 'ECERULEB-130-1060';
1954: l_addr2 := ec_utils.g_file_tbl (p_addr2_pos).value;
1955: end if;
1956:
1957: if (p_addr3_pos is not null) then
1958: xProgress := 'ECERULEB-130-1070';
1955: end if;
1956:
1957: if (p_addr3_pos is not null) then
1958: xProgress := 'ECERULEB-130-1070';
1959: l_addr3 := ec_utils.g_file_tbl (p_addr3_pos).value;
1960: end if;
1961:
1962: if (p_addr4_pos is not null) then
1963: xProgress := 'ECERULEB-130-1080';
1960: end if;
1961:
1962: if (p_addr4_pos is not null) then
1963: xProgress := 'ECERULEB-130-1080';
1964: l_addr4 := ec_utils.g_file_tbl (p_addr4_pos).value;
1965: end if;
1966:
1967: if (p_city_pos is not null) then
1968: xProgress := 'ECERULEB-130-1090';
1965: end if;
1966:
1967: if (p_city_pos is not null) then
1968: xProgress := 'ECERULEB-130-1090';
1969: l_city := ec_utils.g_file_tbl (p_city_pos).value;
1970: end if;
1971:
1972: /* if (p_county_pos is not null) then
1973: xProgress := 'ECERULEB-130-1100';
1970: end if;
1971:
1972: /* if (p_county_pos is not null) then
1973: xProgress := 'ECERULEB-130-1100';
1974: l_county := ec_utils.g_file_tbl (p_county_pos).value;
1975: end if;
1976:
1977: if (p_state_pos is not null) then
1978: xProgress := 'ECERULEB-130-1110';
1975: end if;
1976:
1977: if (p_state_pos is not null) then
1978: xProgress := 'ECERULEB-130-1110';
1979: l_state := ec_utils.g_file_tbl (p_state_pos).value;
1980: end if;
1981: bug2151462 */
1982:
1983: if (p_zip_pos is not null) then
1981: bug2151462 */
1982:
1983: if (p_zip_pos is not null) then
1984: xProgress := 'ECERULEB-130-1120';
1985: l_zip := ec_utils.g_file_tbl (p_zip_pos).value;
1986: end if;
1987:
1988: /* if (p_country_pos is not null) then
1989: xProgress := 'ECERULEB-130-1130';
1986: end if;
1987:
1988: /* if (p_country_pos is not null) then
1989: xProgress := 'ECERULEB-130-1130';
1990: l_country := ec_utils.g_file_tbl (p_country_pos).value;
1991: end if;
1992:
1993: if (p_region1_pos is not null) then
1994: xProgress := 'ECERULEB-130-1140';
1991: end if;
1992:
1993: if (p_region1_pos is not null) then
1994: xProgress := 'ECERULEB-130-1140';
1995: l_region1 := ec_utils.g_file_tbl (p_region1_pos).value;
1996: end if;
1997:
1998: if (p_region2_pos is not null) then
1999: xProgress := 'ECERULEB-130-1150';
1996: end if;
1997:
1998: if (p_region2_pos is not null) then
1999: xProgress := 'ECERULEB-130-1150';
2000: l_region2 := ec_utils.g_file_tbl (p_region2_pos).value;
2001: end if;
2002:
2003: if (p_region3_pos is not null) then
2004: xProgress := 'ECERULEB-130-1160';
2001: end if;
2002:
2003: if (p_region3_pos is not null) then
2004: xProgress := 'ECERULEB-130-1160';
2005: l_region3 := ec_utils.g_file_tbl (p_region3_pos).value;
2006: end if;
2007: bug2151462 */
2008:
2009: xProgress := 'ECERULEB-130-1170';
2006: end if;
2007: bug2151462 */
2008:
2009: xProgress := 'ECERULEB-130-1170';
2010: var_exists := ec_utils.find_variable(0, 'I_ADDRESS_TYPE',
2011: l_stack_pos, l_plsql_pos);
2012:
2013: -- get the address type and transaction type information.
2014: if NOT (var_exists) then
2015: xProgress := 'ECERULEB-130-1180';
2016: raise stack_variable_not_found;
2017: else
2018: xProgress := 'ECERULEB-130-1190';
2019: ec_debug.pl(3,'Address Type',ec_utils.g_stack(l_stack_pos).variable_value);
2020: select DECODE (ec_utils.g_stack(l_stack_pos).variable_value,
2021: g_bank, ece_trading_partners_pub.g_bank,
2022: g_customer, ece_trading_partners_pub.g_customer,
2023: g_supplier, ece_trading_partners_pub.g_supplier,
2016: raise stack_variable_not_found;
2017: else
2018: xProgress := 'ECERULEB-130-1190';
2019: ec_debug.pl(3,'Address Type',ec_utils.g_stack(l_stack_pos).variable_value);
2020: select DECODE (ec_utils.g_stack(l_stack_pos).variable_value,
2021: g_bank, ece_trading_partners_pub.g_bank,
2022: g_customer, ece_trading_partners_pub.g_customer,
2023: g_supplier, ece_trading_partners_pub.g_supplier,
2024: g_hr_location, ece_trading_partners_pub.g_hr_location,
2025: NULL) into l_address_type from dual;
2026: end if;
2027:
2028: xProgress := 'ECERULEB-130-1200';
2029: l_transaction_type := ec_utils.g_transaction_type;
2030: l_map_id := ec_utils.g_map_id;
2031:
2032: -- print out the address value before address derivation.
2033: xProgress := 'ECERULEB-130-1210';
2026: end if;
2027:
2028: xProgress := 'ECERULEB-130-1200';
2029: l_transaction_type := ec_utils.g_transaction_type;
2030: l_map_id := ec_utils.g_map_id;
2031:
2032: -- print out the address value before address derivation.
2033: xProgress := 'ECERULEB-130-1210';
2034: if ec_debug.G_debug_level = 3 then
2291: l_valid_rule := 'Y';
2292:
2293: if (p_entity_id_pos is not null) and (x_entity_id is not null) then
2294: xProgress := 'ECERULEB-130-1254';
2295: ec_utils.g_file_tbl (p_entity_id_pos).value := x_entity_id;
2296: end if;
2297:
2298: if (p_org_id_pos is not null) and (x_org_id is not null) then
2299: xProgress := 'ECERULEB-130-1260';
2296: end if;
2297:
2298: if (p_org_id_pos is not null) and (x_org_id is not null) then
2299: xProgress := 'ECERULEB-130-1260';
2300: ec_utils.g_file_tbl (p_org_id_pos).value := x_org_id;
2301: end if;
2302:
2303: if (p_addr_id_pos is not null) and (x_addr_id is not null) then
2304: xProgress := 'ECERULEB-130-1270';
2301: end if;
2302:
2303: if (p_addr_id_pos is not null) and (x_addr_id is not null) then
2304: xProgress := 'ECERULEB-130-1270';
2305: ec_utils.g_file_tbl (p_addr_id_pos).value := x_addr_id;
2306: end if;
2307:
2308: if (p_tp_location_code_pos is not null) and (x_tp_location_code is not null) then
2309: xProgress := 'ECERULEB-130-1280';
2306: end if;
2307:
2308: if (p_tp_location_code_pos is not null) and (x_tp_location_code is not null) then
2309: xProgress := 'ECERULEB-130-1280';
2310: ec_utils.g_file_tbl (p_tp_location_code_pos).value := x_tp_location_code;
2311: end if;
2312:
2313: -- Bug 2570369: Uncommented the following if condition because the x_tp_translator_code
2314: -- is used as a placeholder to store new values from the AD code such as
2315: -- inventory_organization_id from hr_locations.
2316:
2317: if (p_tp_translator_code_pos is not null) and (x_tp_translator_code is not null) then
2318: xProgress := 'ECERULEB-130-1290';
2319: ec_utils.g_file_tbl (p_tp_translator_code_pos).value := x_tp_translator_code;
2320: end if;
2321:
2322: if (p_tp_location_name_pos is not null) and (x_tp_location_name is not null) then
2323: xProgress := 'ECERULEB-130-1300';
2320: end if;
2321:
2322: if (p_tp_location_name_pos is not null) and (x_tp_location_name is not null) then
2323: xProgress := 'ECERULEB-130-1300';
2324: ec_utils.g_file_tbl (p_tp_location_name_pos).value := x_tp_location_name;
2325: end if;
2326:
2327: if (p_addr1_pos is not null) and (x_addr1 is not null) then
2328: xProgress := 'ECERULEB-130-1310';
2325: end if;
2326:
2327: if (p_addr1_pos is not null) and (x_addr1 is not null) then
2328: xProgress := 'ECERULEB-130-1310';
2329: ec_utils.g_file_tbl (p_addr1_pos).value := x_addr1;
2330: end if;
2331:
2332: if (p_addr2_pos is not null) and (x_addr2 is not null) then
2333: xProgress := 'ECERULEB-130-1320';
2330: end if;
2331:
2332: if (p_addr2_pos is not null) and (x_addr2 is not null) then
2333: xProgress := 'ECERULEB-130-1320';
2334: ec_utils.g_file_tbl (p_addr2_pos).value := x_addr2;
2335: end if;
2336:
2337: if (p_addr3_pos is not null) and (x_addr3 is not null) then
2338: xProgress := 'ECERULEB-130-1330';
2335: end if;
2336:
2337: if (p_addr3_pos is not null) and (x_addr3 is not null) then
2338: xProgress := 'ECERULEB-130-1330';
2339: ec_utils.g_file_tbl (p_addr3_pos).value := x_addr3;
2340: end if;
2341:
2342: if (p_addr4_pos is not null) and (x_addr4 is not null) then
2343: xProgress := 'ECERULEB-130-1340';
2340: end if;
2341:
2342: if (p_addr4_pos is not null) and (x_addr4 is not null) then
2343: xProgress := 'ECERULEB-130-1340';
2344: ec_utils.g_file_tbl (p_addr4_pos).value := x_addr4;
2345: end if;
2346:
2347: if (p_addr_alt_pos is not null) and (x_addr_alt is not null) then
2348: xProgress := 'ECERULEB-130-1350';
2345: end if;
2346:
2347: if (p_addr_alt_pos is not null) and (x_addr_alt is not null) then
2348: xProgress := 'ECERULEB-130-1350';
2349: ec_utils.g_file_tbl (p_addr_alt_pos).value := x_addr_alt;
2350: end if;
2351:
2352: if (p_city_pos is not null) and (x_city is not null) then
2353: xProgress := 'ECERULEB-130-1360';
2350: end if;
2351:
2352: if (p_city_pos is not null) and (x_city is not null) then
2353: xProgress := 'ECERULEB-130-1360';
2354: ec_utils.g_file_tbl (p_city_pos).value := x_city;
2355: end if;
2356:
2357: if (p_county_pos is not null) and (x_county is not null) then
2358: xProgress := 'ECERULEB-130-1370';
2355: end if;
2356:
2357: if (p_county_pos is not null) and (x_county is not null) then
2358: xProgress := 'ECERULEB-130-1370';
2359: ec_utils.g_file_tbl (p_county_pos).value := x_county;
2360: end if;
2361:
2362: if (p_state_pos is not null) and (x_state is not null) then
2363: xProgress := 'ECERULEB-130-1380';
2360: end if;
2361:
2362: if (p_state_pos is not null) and (x_state is not null) then
2363: xProgress := 'ECERULEB-130-1380';
2364: ec_utils.g_file_tbl (p_state_pos).value := x_state;
2365: end if;
2366:
2367: if (p_zip_pos is not null) and (x_zip is not null) then
2368: xProgress := 'ECERULEB-130-1390';
2365: end if;
2366:
2367: if (p_zip_pos is not null) and (x_zip is not null) then
2368: xProgress := 'ECERULEB-130-1390';
2369: ec_utils.g_file_tbl (p_zip_pos).value := x_zip;
2370: end if;
2371:
2372: if (p_province_pos is not null) and (x_province is not null) then
2373: xProgress := 'ECERULEB-130-1400';
2370: end if;
2371:
2372: if (p_province_pos is not null) and (x_province is not null) then
2373: xProgress := 'ECERULEB-130-1400';
2374: ec_utils.g_file_tbl (p_province_pos).value := x_province;
2375: end if;
2376:
2377: if (p_country_pos is not null) and (x_country is not null) then
2378: xProgress := 'ECERULEB-130-1410';
2375: end if;
2376:
2377: if (p_country_pos is not null) and (x_country is not null) then
2378: xProgress := 'ECERULEB-130-1410';
2379: ec_utils.g_file_tbl (p_country_pos).value := x_country;
2380: end if;
2381:
2382: if (p_region1_pos is not null) and (x_region1 is not null) then
2383: xProgress := 'ECERULEB-130-1420';
2380: end if;
2381:
2382: if (p_region1_pos is not null) and (x_region1 is not null) then
2383: xProgress := 'ECERULEB-130-1420';
2384: ec_utils.g_file_tbl (p_region1_pos).value := x_region1;
2385: end if;
2386:
2387: if (p_region2_pos is not null) and (x_region2 is not null) then
2388: xProgress := 'ECERULEB-130-1430';
2385: end if;
2386:
2387: if (p_region2_pos is not null) and (x_region2 is not null) then
2388: xProgress := 'ECERULEB-130-1430';
2389: ec_utils.g_file_tbl (p_region2_pos).value := x_region2;
2390: end if;
2391:
2392: if (p_region3_pos is not null) and (x_region3 is not null) then
2393: xProgress := 'ECERULEB-130-1440';
2390: end if;
2391:
2392: if (p_region3_pos is not null) and (x_region3 is not null) then
2393: xProgress := 'ECERULEB-130-1440';
2394: ec_utils.g_file_tbl (p_region3_pos).value := x_region3;
2395: end if;
2396:
2397: /* bug 2151462 Added new messages and modified the existing ones */
2398:
2522: ec_debug.pl (3, 'x_region3', x_region3);
2523: ec_debug.pl (3, 'l_valid_rule', l_valid_rule);
2524: end if;
2525: xProgress := 'ECERULEB-130-1550';
2526: l_stage_id := ec_utils.g_ext_levels(ec_utils.g_current_level).stage_id;
2527: l_document_id := ec_utils.g_ext_levels(ec_utils.g_current_level).document_id;
2528: l_document_number := ec_utils.g_ext_levels(ec_utils.g_current_level).document_number;
2529:
2530: xProgress := 'ECERULEB-130-1560';
2523: ec_debug.pl (3, 'l_valid_rule', l_valid_rule);
2524: end if;
2525: xProgress := 'ECERULEB-130-1550';
2526: l_stage_id := ec_utils.g_ext_levels(ec_utils.g_current_level).stage_id;
2527: l_document_id := ec_utils.g_ext_levels(ec_utils.g_current_level).document_id;
2528: l_document_number := ec_utils.g_ext_levels(ec_utils.g_current_level).document_number;
2529:
2530: xProgress := 'ECERULEB-130-1560';
2531: if ec_debug.G_debug_level = 3 then
2524: end if;
2525: xProgress := 'ECERULEB-130-1550';
2526: l_stage_id := ec_utils.g_ext_levels(ec_utils.g_current_level).stage_id;
2527: l_document_id := ec_utils.g_ext_levels(ec_utils.g_current_level).document_id;
2528: l_document_number := ec_utils.g_ext_levels(ec_utils.g_current_level).document_number;
2529:
2530: xProgress := 'ECERULEB-130-1560';
2531: if ec_debug.G_debug_level = 3 then
2532: ec_debug.pl (3, 'l_stage_id', l_stage_id);
2542: raise no_addr_rule_info;
2543: end if;
2544:
2545: xProgress := 'ECERULEB-130-1580';
2546: Update_Status (l_transaction_type, ec_utils.g_current_level, l_valid_rule,
2547: l_action_code, NULL, l_rule_id, l_stage_id, l_document_id,
2548: g_process_rule, l_document_number, l_msg_text);
2549:
2550: xProgress := 'ECERULEB-130-1590';
2556: WHEN addr_unexp_error then
2557: ec_debug.pl (0, 'EC', 'ECE_ADDR_UNEXP_ERROR',
2558: 'ADDRESS', p_address);
2559: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_GET_ADDRESS_INFO');
2560: raise ec_utils.program_exit;
2561:
2562: WHEN stack_variable_not_found then
2563: ec_debug.pl (0, 'EC', 'ECE_VARIABLE_NOT_ON_STACK',
2564: 'VARIABLE_NAME', 'I_ADDRESS_TYPE');
2562: WHEN stack_variable_not_found then
2563: ec_debug.pl (0, 'EC', 'ECE_VARIABLE_NOT_ON_STACK',
2564: 'VARIABLE_NAME', 'I_ADDRESS_TYPE');
2565: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_GET_ADDRESS_INFO');
2566: raise ec_utils.program_exit;
2567:
2568: WHEN no_addr_rule_info then
2569: if (c_addr_rule%ISOPEN) then
2570: close c_addr_rule;
2572: ec_debug.pl (0, 'EC', 'ECE_NO_PROCESS_RULE',
2573: 'TRANSACTION_TYPE', l_transaction_type,
2574: 'RULE_TYPE', l_rule_type);
2575: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_GET_ADDRESS_INFO');
2576: raise ec_utils.program_exit;
2577:
2578: WHEN OTHERS THEN
2579: if (c_addr_rule%ISOPEN) then
2580: close c_addr_rule;
2581: end if;
2582: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
2583: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
2584: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_GET_ADDRESS_INFO');
2585: raise ec_utils.program_exit;
2586:
2587: END Validate_Get_Address_Info;
2588:
2589:
2625: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
2626:
2627: -- get the pl/sql position for address columns.
2628: xProgress := 'ECERULEB-140-1002';
2629: ec_utils.find_pos (
2630: ec_utils.g_current_level,
2631: 'SHIP_TO_CUSTOMER_ID',
2632: n_entity_id_pos);
2633:
2626:
2627: -- get the pl/sql position for address columns.
2628: xProgress := 'ECERULEB-140-1002';
2629: ec_utils.find_pos (
2630: ec_utils.g_current_level,
2631: 'SHIP_TO_CUSTOMER_ID',
2632: n_entity_id_pos);
2633:
2634: xProgress := 'ECERULEB-140-1004';
2631: 'SHIP_TO_CUSTOMER_ID',
2632: n_entity_id_pos);
2633:
2634: xProgress := 'ECERULEB-140-1004';
2635: ec_utils.find_pos (
2636: 1,
2637: 'ORG_ID',
2638: n_org_id_pos);
2639:
2637: 'ORG_ID',
2638: n_org_id_pos);
2639:
2640: xProgress := 'ECERULEB-140-1010';
2641: ec_utils.find_pos (
2642: ec_utils.g_current_level,
2643: 'SHIP_TO_ADDRESS_ID',
2644: n_addr_id_pos);
2645:
2638: n_org_id_pos);
2639:
2640: xProgress := 'ECERULEB-140-1010';
2641: ec_utils.find_pos (
2642: ec_utils.g_current_level,
2643: 'SHIP_TO_ADDRESS_ID',
2644: n_addr_id_pos);
2645:
2646: xProgress := 'ECERULEB-140-1020';
2643: 'SHIP_TO_ADDRESS_ID',
2644: n_addr_id_pos);
2645:
2646: xProgress := 'ECERULEB-140-1020';
2647: ec_utils.find_pos (
2648: ec_utils.g_current_level,
2649: 'SHIP_TO_EDI_LOCATION_CODE',
2650: n_edi_location_code_pos);
2651:
2644: n_addr_id_pos);
2645:
2646: xProgress := 'ECERULEB-140-1020';
2647: ec_utils.find_pos (
2648: ec_utils.g_current_level,
2649: 'SHIP_TO_EDI_LOCATION_CODE',
2650: n_edi_location_code_pos);
2651:
2652: /* ec_utils.find_pos (
2648: ec_utils.g_current_level,
2649: 'SHIP_TO_EDI_LOCATION_CODE',
2650: n_edi_location_code_pos);
2651:
2652: /* ec_utils.find_pos (
2653: 1,
2654: 'TP_TRANSLATOR_CODE',
2655: n_tp_translator_code_pos);
2656: bug2151462 */
2663: /* Bug 2663632 : Swapped the column names ship_to_address_code and
2664: ship_to_address_name
2665: */
2666: xProgress := 'ECERULEB-140-1030';
2667: ec_utils.find_pos (
2668: ec_utils.g_current_level,
2669: 'SHIP_TO_ADDRESS_CODE',
2670: n_tp_translator_code_pos);
2671:
2664: ship_to_address_name
2665: */
2666: xProgress := 'ECERULEB-140-1030';
2667: ec_utils.find_pos (
2668: ec_utils.g_current_level,
2669: 'SHIP_TO_ADDRESS_CODE',
2670: n_tp_translator_code_pos);
2671:
2672: xProgress := 'ECERULEB-140-1040';
2669: 'SHIP_TO_ADDRESS_CODE',
2670: n_tp_translator_code_pos);
2671:
2672: xProgress := 'ECERULEB-140-1040';
2673: ec_utils.find_pos (
2674: ec_utils.g_current_level,
2675: 'SHIP_TO_ADDRESS_NAME',
2676: n_tp_location_name_pos);
2677:
2670: n_tp_translator_code_pos);
2671:
2672: xProgress := 'ECERULEB-140-1040';
2673: ec_utils.find_pos (
2674: ec_utils.g_current_level,
2675: 'SHIP_TO_ADDRESS_NAME',
2676: n_tp_location_name_pos);
2677:
2678: xProgress := 'ECERULEB-140-1050';
2675: 'SHIP_TO_ADDRESS_NAME',
2676: n_tp_location_name_pos);
2677:
2678: xProgress := 'ECERULEB-140-1050';
2679: ec_utils.find_pos (
2680: ec_utils.g_current_level,
2681: 'SHIP_TO_ADDRESS1',
2682: n_addr1_pos);
2683:
2676: n_tp_location_name_pos);
2677:
2678: xProgress := 'ECERULEB-140-1050';
2679: ec_utils.find_pos (
2680: ec_utils.g_current_level,
2681: 'SHIP_TO_ADDRESS1',
2682: n_addr1_pos);
2683:
2684: xProgress := 'ECERULEB-140-1060';
2681: 'SHIP_TO_ADDRESS1',
2682: n_addr1_pos);
2683:
2684: xProgress := 'ECERULEB-140-1060';
2685: ec_utils.find_pos (
2686: ec_utils.g_current_level,
2687: 'SHIP_TO_ADDRESS2',
2688: n_addr2_pos);
2689:
2682: n_addr1_pos);
2683:
2684: xProgress := 'ECERULEB-140-1060';
2685: ec_utils.find_pos (
2686: ec_utils.g_current_level,
2687: 'SHIP_TO_ADDRESS2',
2688: n_addr2_pos);
2689:
2690: xProgress := 'ECERULEB-140-1070';
2687: 'SHIP_TO_ADDRESS2',
2688: n_addr2_pos);
2689:
2690: xProgress := 'ECERULEB-140-1070';
2691: ec_utils.find_pos (
2692: ec_utils.g_current_level,
2693: 'SHIP_TO_ADDRESS3',
2694: n_addr3_pos);
2695:
2688: n_addr2_pos);
2689:
2690: xProgress := 'ECERULEB-140-1070';
2691: ec_utils.find_pos (
2692: ec_utils.g_current_level,
2693: 'SHIP_TO_ADDRESS3',
2694: n_addr3_pos);
2695:
2696: xProgress := 'ECERULEB-140-1080';
2693: 'SHIP_TO_ADDRESS3',
2694: n_addr3_pos);
2695:
2696: xProgress := 'ECERULEB-140-1080';
2697: ec_utils.find_pos (
2698: ec_utils.g_current_level,
2699: 'SHIP_TO_ADDRESS4',
2700: n_addr4_pos);
2701:
2694: n_addr3_pos);
2695:
2696: xProgress := 'ECERULEB-140-1080';
2697: ec_utils.find_pos (
2698: ec_utils.g_current_level,
2699: 'SHIP_TO_ADDRESS4',
2700: n_addr4_pos);
2701:
2702: xProgress := 'ECERULEB-140-1090';
2699: 'SHIP_TO_ADDRESS4',
2700: n_addr4_pos);
2701:
2702: xProgress := 'ECERULEB-140-1090';
2703: ec_utils.find_pos (
2704: ec_utils.g_current_level,
2705: 'SHIP_TO_CITY',
2706: n_city_pos);
2707:
2700: n_addr4_pos);
2701:
2702: xProgress := 'ECERULEB-140-1090';
2703: ec_utils.find_pos (
2704: ec_utils.g_current_level,
2705: 'SHIP_TO_CITY',
2706: n_city_pos);
2707:
2708: xProgress := 'ECERULEB-140-1100';
2705: 'SHIP_TO_CITY',
2706: n_city_pos);
2707:
2708: xProgress := 'ECERULEB-140-1100';
2709: ec_utils.find_pos (
2710: ec_utils.g_current_level,
2711: 'SHIP_TO_POSTAL_CODE',
2712: n_zip_pos);
2713:
2706: n_city_pos);
2707:
2708: xProgress := 'ECERULEB-140-1100';
2709: ec_utils.find_pos (
2710: ec_utils.g_current_level,
2711: 'SHIP_TO_POSTAL_CODE',
2712: n_zip_pos);
2713:
2714: xProgress := 'ECERULEB-140-1110';
2711: 'SHIP_TO_POSTAL_CODE',
2712: n_zip_pos);
2713:
2714: xProgress := 'ECERULEB-140-1110';
2715: ec_utils.find_pos (
2716: ec_utils.g_current_level,
2717: 'SHIP_TO_COUNTRY_INT',
2718: n_country_pos);
2719:
2712: n_zip_pos);
2713:
2714: xProgress := 'ECERULEB-140-1110';
2715: ec_utils.find_pos (
2716: ec_utils.g_current_level,
2717: 'SHIP_TO_COUNTRY_INT',
2718: n_country_pos);
2719:
2720: xProgress := 'ECERULEB-140-1120';
2717: 'SHIP_TO_COUNTRY_INT',
2718: n_country_pos);
2719:
2720: xProgress := 'ECERULEB-140-1120';
2721: ec_utils.find_pos (
2722: ec_utils.g_current_level,
2723: 'SHIP_TO_STATE_INT',
2724: n_state_pos);
2725:
2718: n_country_pos);
2719:
2720: xProgress := 'ECERULEB-140-1120';
2721: ec_utils.find_pos (
2722: ec_utils.g_current_level,
2723: 'SHIP_TO_STATE_INT',
2724: n_state_pos);
2725:
2726: xProgress := 'ECERULEB-140-1130';
2723: 'SHIP_TO_STATE_INT',
2724: n_state_pos);
2725:
2726: xProgress := 'ECERULEB-140-1130';
2727: ec_utils.find_pos (
2728: ec_utils.g_current_level,
2729: 'SHIP_TO_PROVINCE_INT',
2730: n_province_pos);
2731:
2724: n_state_pos);
2725:
2726: xProgress := 'ECERULEB-140-1130';
2727: ec_utils.find_pos (
2728: ec_utils.g_current_level,
2729: 'SHIP_TO_PROVINCE_INT',
2730: n_province_pos);
2731:
2732: xProgress := 'ECERULEB-140-1140';
2729: 'SHIP_TO_PROVINCE_INT',
2730: n_province_pos);
2731:
2732: xProgress := 'ECERULEB-140-1140';
2733: ec_utils.find_pos (
2734: ec_utils.g_current_level,
2735: 'SHIP_TO_COUNTY',
2736: n_county_pos);
2737:
2730: n_province_pos);
2731:
2732: xProgress := 'ECERULEB-140-1140';
2733: ec_utils.find_pos (
2734: ec_utils.g_current_level,
2735: 'SHIP_TO_COUNTY',
2736: n_county_pos);
2737:
2738: xProgress := 'ECERULEB-140-1150';
2751: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_ADDRESS');
2752: end if;
2753:
2754: EXCEPTION
2755: WHEN ec_utils.program_exit then
2756: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_ADDRESS');
2757: raise;
2758:
2759: WHEN OTHERS THEN
2759: WHEN OTHERS THEN
2760: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
2761: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
2762: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_ADDRESS');
2763: raise ec_utils.program_exit;
2764:
2765: END Validate_Ship_To_Address;
2766:
2767:
2804: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
2805:
2806: -- get the pl/sql position for address columns.
2807: xProgress := 'ECERULEB-150-1002';
2808: ec_utils.find_pos (
2809: ec_utils.g_current_level,
2810: 'BILL_TO_CUSTOMER_ID',
2811: n_entity_id_pos);
2812:
2805:
2806: -- get the pl/sql position for address columns.
2807: xProgress := 'ECERULEB-150-1002';
2808: ec_utils.find_pos (
2809: ec_utils.g_current_level,
2810: 'BILL_TO_CUSTOMER_ID',
2811: n_entity_id_pos);
2812:
2813: xProgress := 'ECERULEB-150-1004';
2810: 'BILL_TO_CUSTOMER_ID',
2811: n_entity_id_pos);
2812:
2813: xProgress := 'ECERULEB-150-1004';
2814: ec_utils.find_pos (
2815: 1,
2816: 'ORG_ID',
2817: n_org_id_pos);
2818:
2816: 'ORG_ID',
2817: n_org_id_pos);
2818:
2819: xProgress := 'ECERULEB-150-1010';
2820: ec_utils.find_pos (
2821: ec_utils.g_current_level,
2822: 'BILL_TO_ADDRESS_ID',
2823: n_addr_id_pos);
2824:
2817: n_org_id_pos);
2818:
2819: xProgress := 'ECERULEB-150-1010';
2820: ec_utils.find_pos (
2821: ec_utils.g_current_level,
2822: 'BILL_TO_ADDRESS_ID',
2823: n_addr_id_pos);
2824:
2825: xProgress := 'ECERULEB-150-1020';
2822: 'BILL_TO_ADDRESS_ID',
2823: n_addr_id_pos);
2824:
2825: xProgress := 'ECERULEB-150-1020';
2826: ec_utils.find_pos (
2827: ec_utils.g_current_level,
2828: 'BILL_TO_EDI_LOCATION_CODE',
2829: n_edi_location_code_pos);
2830:
2823: n_addr_id_pos);
2824:
2825: xProgress := 'ECERULEB-150-1020';
2826: ec_utils.find_pos (
2827: ec_utils.g_current_level,
2828: 'BILL_TO_EDI_LOCATION_CODE',
2829: n_edi_location_code_pos);
2830:
2831: /* ec_utils.find_pos (
2827: ec_utils.g_current_level,
2828: 'BILL_TO_EDI_LOCATION_CODE',
2829: n_edi_location_code_pos);
2830:
2831: /* ec_utils.find_pos (
2832: 1,
2833: 'TP_TRANSLATOR_CODE',
2834: n_tp_translator_code_pos);
2835: bug2151462 */
2838: Also added code to retreive bill to customer number in
2839: bill_to_address_code.
2840: */
2841: xProgress := 'ECERULEB-150-1030';
2842: ec_utils.find_pos (
2843: ec_utils.g_current_level,
2844: 'BILL_TO_ADDRESS_CODE',
2845: n_tp_translator_code_pos);
2846:
2839: bill_to_address_code.
2840: */
2841: xProgress := 'ECERULEB-150-1030';
2842: ec_utils.find_pos (
2843: ec_utils.g_current_level,
2844: 'BILL_TO_ADDRESS_CODE',
2845: n_tp_translator_code_pos);
2846:
2847: xProgress := 'ECERULEB-150-1040';
2844: 'BILL_TO_ADDRESS_CODE',
2845: n_tp_translator_code_pos);
2846:
2847: xProgress := 'ECERULEB-150-1040';
2848: ec_utils.find_pos (
2849: ec_utils.g_current_level,
2850: 'BILL_TO_ADDRESS_NAME',
2851: n_tp_location_name_pos);
2852:
2845: n_tp_translator_code_pos);
2846:
2847: xProgress := 'ECERULEB-150-1040';
2848: ec_utils.find_pos (
2849: ec_utils.g_current_level,
2850: 'BILL_TO_ADDRESS_NAME',
2851: n_tp_location_name_pos);
2852:
2853: xProgress := 'ECERULEB-150-1050';
2850: 'BILL_TO_ADDRESS_NAME',
2851: n_tp_location_name_pos);
2852:
2853: xProgress := 'ECERULEB-150-1050';
2854: ec_utils.find_pos (
2855: ec_utils.g_current_level,
2856: 'BILL_TO_ADDRESS1',
2857: n_addr1_pos);
2858:
2851: n_tp_location_name_pos);
2852:
2853: xProgress := 'ECERULEB-150-1050';
2854: ec_utils.find_pos (
2855: ec_utils.g_current_level,
2856: 'BILL_TO_ADDRESS1',
2857: n_addr1_pos);
2858:
2859: xProgress := 'ECERULEB-150-1060';
2856: 'BILL_TO_ADDRESS1',
2857: n_addr1_pos);
2858:
2859: xProgress := 'ECERULEB-150-1060';
2860: ec_utils.find_pos (
2861: ec_utils.g_current_level,
2862: 'BILL_TO_ADDRESS2',
2863: n_addr2_pos);
2864:
2857: n_addr1_pos);
2858:
2859: xProgress := 'ECERULEB-150-1060';
2860: ec_utils.find_pos (
2861: ec_utils.g_current_level,
2862: 'BILL_TO_ADDRESS2',
2863: n_addr2_pos);
2864:
2865: xProgress := 'ECERULEB-150-1070';
2862: 'BILL_TO_ADDRESS2',
2863: n_addr2_pos);
2864:
2865: xProgress := 'ECERULEB-150-1070';
2866: ec_utils.find_pos (
2867: ec_utils.g_current_level,
2868: 'BILL_TO_ADDRESS3',
2869: n_addr3_pos);
2870:
2863: n_addr2_pos);
2864:
2865: xProgress := 'ECERULEB-150-1070';
2866: ec_utils.find_pos (
2867: ec_utils.g_current_level,
2868: 'BILL_TO_ADDRESS3',
2869: n_addr3_pos);
2870:
2871: xProgress := 'ECERULEB-150-1080';
2868: 'BILL_TO_ADDRESS3',
2869: n_addr3_pos);
2870:
2871: xProgress := 'ECERULEB-150-1080';
2872: ec_utils.find_pos (
2873: ec_utils.g_current_level,
2874: 'BILL_TO_ADDRESS4',
2875: n_addr4_pos);
2876:
2869: n_addr3_pos);
2870:
2871: xProgress := 'ECERULEB-150-1080';
2872: ec_utils.find_pos (
2873: ec_utils.g_current_level,
2874: 'BILL_TO_ADDRESS4',
2875: n_addr4_pos);
2876:
2877: xProgress := 'ECERULEB-150-1090';
2874: 'BILL_TO_ADDRESS4',
2875: n_addr4_pos);
2876:
2877: xProgress := 'ECERULEB-150-1090';
2878: ec_utils.find_pos (
2879: ec_utils.g_current_level,
2880: 'BILL_TO_CITY',
2881: n_city_pos);
2882:
2875: n_addr4_pos);
2876:
2877: xProgress := 'ECERULEB-150-1090';
2878: ec_utils.find_pos (
2879: ec_utils.g_current_level,
2880: 'BILL_TO_CITY',
2881: n_city_pos);
2882:
2883: xProgress := 'ECERULEB-150-1100';
2880: 'BILL_TO_CITY',
2881: n_city_pos);
2882:
2883: xProgress := 'ECERULEB-150-1100';
2884: ec_utils.find_pos (
2885: ec_utils.g_current_level,
2886: 'BILL_TO_POSTAL_CODE',
2887: n_zip_pos);
2888:
2881: n_city_pos);
2882:
2883: xProgress := 'ECERULEB-150-1100';
2884: ec_utils.find_pos (
2885: ec_utils.g_current_level,
2886: 'BILL_TO_POSTAL_CODE',
2887: n_zip_pos);
2888:
2889: xProgress := 'ECERULEB-150-1110';
2886: 'BILL_TO_POSTAL_CODE',
2887: n_zip_pos);
2888:
2889: xProgress := 'ECERULEB-150-1110';
2890: ec_utils.find_pos (
2891: ec_utils.g_current_level,
2892: 'BILL_TO_COUNTRY_INT',
2893: n_country_pos);
2894:
2887: n_zip_pos);
2888:
2889: xProgress := 'ECERULEB-150-1110';
2890: ec_utils.find_pos (
2891: ec_utils.g_current_level,
2892: 'BILL_TO_COUNTRY_INT',
2893: n_country_pos);
2894:
2895: xProgress := 'ECERULEB-150-1120';
2892: 'BILL_TO_COUNTRY_INT',
2893: n_country_pos);
2894:
2895: xProgress := 'ECERULEB-150-1120';
2896: ec_utils.find_pos (
2897: ec_utils.g_current_level,
2898: 'BILL_TO_STATE_INT',
2899: n_state_pos);
2900:
2893: n_country_pos);
2894:
2895: xProgress := 'ECERULEB-150-1120';
2896: ec_utils.find_pos (
2897: ec_utils.g_current_level,
2898: 'BILL_TO_STATE_INT',
2899: n_state_pos);
2900:
2901: xProgress := 'ECERULEB-150-1130';
2898: 'BILL_TO_STATE_INT',
2899: n_state_pos);
2900:
2901: xProgress := 'ECERULEB-150-1130';
2902: ec_utils.find_pos (
2903: ec_utils.g_current_level,
2904: 'BILL_TO_PROVINCE_INT',
2905: n_province_pos);
2906:
2899: n_state_pos);
2900:
2901: xProgress := 'ECERULEB-150-1130';
2902: ec_utils.find_pos (
2903: ec_utils.g_current_level,
2904: 'BILL_TO_PROVINCE_INT',
2905: n_province_pos);
2906:
2907: xProgress := 'ECERULEB-150-1140';
2904: 'BILL_TO_PROVINCE_INT',
2905: n_province_pos);
2906:
2907: xProgress := 'ECERULEB-150-1140';
2908: ec_utils.find_pos (
2909: ec_utils.g_current_level,
2910: 'BILL_TO_COUNTY',
2911: n_county_pos);
2912:
2905: n_province_pos);
2906:
2907: xProgress := 'ECERULEB-150-1140';
2908: ec_utils.find_pos (
2909: ec_utils.g_current_level,
2910: 'BILL_TO_COUNTY',
2911: n_county_pos);
2912:
2913: xProgress := 'ECERULEB-150-1150';
2925: if ec_debug.G_debug_level >= 2 then
2926: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_ADDRESS');
2927: end if;
2928: EXCEPTION
2929: WHEN ec_utils.program_exit then
2930: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_ADDRESS');
2931: raise;
2932:
2933: WHEN OTHERS THEN
2933: WHEN OTHERS THEN
2934: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
2935: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
2936: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_ADDRESS');
2937: raise ec_utils.program_exit;
2938:
2939: END Validate_Bill_To_Address;
2940:
2941:
2978: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
2979:
2980: -- get the pl/sql position for address columns.
2981: xProgress := 'ECERULEB-230-1002';
2982: ec_utils.find_pos (
2983: ec_utils.g_current_level,
2984: 'SOLD_TO_CUSTOMER_ID',
2985: n_entity_id_pos);
2986:
2979:
2980: -- get the pl/sql position for address columns.
2981: xProgress := 'ECERULEB-230-1002';
2982: ec_utils.find_pos (
2983: ec_utils.g_current_level,
2984: 'SOLD_TO_CUSTOMER_ID',
2985: n_entity_id_pos);
2986:
2987: xProgress := 'ECERULEB-230-1004';
2984: 'SOLD_TO_CUSTOMER_ID',
2985: n_entity_id_pos);
2986:
2987: xProgress := 'ECERULEB-230-1004';
2988: ec_utils.find_pos (
2989: 1,
2990: 'ORG_ID',
2991: n_org_id_pos);
2992:
2990: 'ORG_ID',
2991: n_org_id_pos);
2992:
2993: xProgress := 'ECERULEB-230-1010';
2994: ec_utils.find_pos (
2995: ec_utils.g_current_level,
2996: 'SOLD_TO_ADDRESS_ID',
2997: n_addr_id_pos);
2998:
2991: n_org_id_pos);
2992:
2993: xProgress := 'ECERULEB-230-1010';
2994: ec_utils.find_pos (
2995: ec_utils.g_current_level,
2996: 'SOLD_TO_ADDRESS_ID',
2997: n_addr_id_pos);
2998:
2999: xProgress := 'ECERULEB-230-1020';
2996: 'SOLD_TO_ADDRESS_ID',
2997: n_addr_id_pos);
2998:
2999: xProgress := 'ECERULEB-230-1020';
3000: ec_utils.find_pos (
3001: ec_utils.g_current_level,
3002: 'SOLD_TO_EDI_LOCATION_CODE',
3003: n_edi_location_code_pos);
3004:
2997: n_addr_id_pos);
2998:
2999: xProgress := 'ECERULEB-230-1020';
3000: ec_utils.find_pos (
3001: ec_utils.g_current_level,
3002: 'SOLD_TO_EDI_LOCATION_CODE',
3003: n_edi_location_code_pos);
3004:
3005: /* ec_utils.find_pos (
3001: ec_utils.g_current_level,
3002: 'SOLD_TO_EDI_LOCATION_CODE',
3003: n_edi_location_code_pos);
3004:
3005: /* ec_utils.find_pos (
3006: 1,
3007: 'TP_TRANSLATOR_CODE',
3008: n_tp_translator_code_pos);
3009: bug2151462 */
3013: customer number since a new variable would require a change in the
3014: validate_get_address_info.
3015: */
3016: xProgress := 'ECERULEB-230-1030';
3017: ec_utils.find_pos (
3018: ec_utils.g_current_level,
3019: 'SOLD_TO_ADDRESS_CODE',
3020: n_tp_translator_code_pos);
3021:
3014: validate_get_address_info.
3015: */
3016: xProgress := 'ECERULEB-230-1030';
3017: ec_utils.find_pos (
3018: ec_utils.g_current_level,
3019: 'SOLD_TO_ADDRESS_CODE',
3020: n_tp_translator_code_pos);
3021:
3022: /* Bug 2432974 Changed the column name SOLD_TO_ADDRESS_CODE to
3022: /* Bug 2432974 Changed the column name SOLD_TO_ADDRESS_CODE to
3023: SOLD_TO_ADDRESS_NAME
3024: */
3025: xProgress := 'ECERULEB-230-1040';
3026: ec_utils.find_pos (
3027: ec_utils.g_current_level,
3028: 'SOLD_TO_ADDRESS_NAME',
3029: n_tp_location_name_pos);
3030:
3023: SOLD_TO_ADDRESS_NAME
3024: */
3025: xProgress := 'ECERULEB-230-1040';
3026: ec_utils.find_pos (
3027: ec_utils.g_current_level,
3028: 'SOLD_TO_ADDRESS_NAME',
3029: n_tp_location_name_pos);
3030:
3031: xProgress := 'ECERULEB-230-1050';
3028: 'SOLD_TO_ADDRESS_NAME',
3029: n_tp_location_name_pos);
3030:
3031: xProgress := 'ECERULEB-230-1050';
3032: ec_utils.find_pos (
3033: ec_utils.g_current_level,
3034: 'SOLD_TO_ADDRESS1',
3035: n_addr1_pos);
3036:
3029: n_tp_location_name_pos);
3030:
3031: xProgress := 'ECERULEB-230-1050';
3032: ec_utils.find_pos (
3033: ec_utils.g_current_level,
3034: 'SOLD_TO_ADDRESS1',
3035: n_addr1_pos);
3036:
3037: xProgress := 'ECERULEB-230-1060';
3034: 'SOLD_TO_ADDRESS1',
3035: n_addr1_pos);
3036:
3037: xProgress := 'ECERULEB-230-1060';
3038: ec_utils.find_pos (
3039: ec_utils.g_current_level,
3040: 'SOLD_TO_ADDRESS2',
3041: n_addr2_pos);
3042:
3035: n_addr1_pos);
3036:
3037: xProgress := 'ECERULEB-230-1060';
3038: ec_utils.find_pos (
3039: ec_utils.g_current_level,
3040: 'SOLD_TO_ADDRESS2',
3041: n_addr2_pos);
3042:
3043: xProgress := 'ECERULEB-230-1070';
3040: 'SOLD_TO_ADDRESS2',
3041: n_addr2_pos);
3042:
3043: xProgress := 'ECERULEB-230-1070';
3044: ec_utils.find_pos (
3045: ec_utils.g_current_level,
3046: 'SOLD_TO_ADDRESS3',
3047: n_addr3_pos);
3048:
3041: n_addr2_pos);
3042:
3043: xProgress := 'ECERULEB-230-1070';
3044: ec_utils.find_pos (
3045: ec_utils.g_current_level,
3046: 'SOLD_TO_ADDRESS3',
3047: n_addr3_pos);
3048:
3049: xProgress := 'ECERULEB-230-1080';
3046: 'SOLD_TO_ADDRESS3',
3047: n_addr3_pos);
3048:
3049: xProgress := 'ECERULEB-230-1080';
3050: ec_utils.find_pos (
3051: ec_utils.g_current_level,
3052: 'SOLD_TO_ADDRESS4',
3053: n_addr4_pos);
3054:
3047: n_addr3_pos);
3048:
3049: xProgress := 'ECERULEB-230-1080';
3050: ec_utils.find_pos (
3051: ec_utils.g_current_level,
3052: 'SOLD_TO_ADDRESS4',
3053: n_addr4_pos);
3054:
3055: xProgress := 'ECERULEB-230-1090';
3052: 'SOLD_TO_ADDRESS4',
3053: n_addr4_pos);
3054:
3055: xProgress := 'ECERULEB-230-1090';
3056: ec_utils.find_pos (
3057: ec_utils.g_current_level,
3058: 'SOLD_TO_CITY',
3059: n_city_pos);
3060:
3053: n_addr4_pos);
3054:
3055: xProgress := 'ECERULEB-230-1090';
3056: ec_utils.find_pos (
3057: ec_utils.g_current_level,
3058: 'SOLD_TO_CITY',
3059: n_city_pos);
3060:
3061: xProgress := 'ECERULEB-230-1100';
3058: 'SOLD_TO_CITY',
3059: n_city_pos);
3060:
3061: xProgress := 'ECERULEB-230-1100';
3062: ec_utils.find_pos (
3063: ec_utils.g_current_level,
3064: 'SOLD_TO_POSTAL_CODE',
3065: n_zip_pos);
3066:
3059: n_city_pos);
3060:
3061: xProgress := 'ECERULEB-230-1100';
3062: ec_utils.find_pos (
3063: ec_utils.g_current_level,
3064: 'SOLD_TO_POSTAL_CODE',
3065: n_zip_pos);
3066:
3067: xProgress := 'ECERULEB-230-1110';
3064: 'SOLD_TO_POSTAL_CODE',
3065: n_zip_pos);
3066:
3067: xProgress := 'ECERULEB-230-1110';
3068: ec_utils.find_pos (
3069: ec_utils.g_current_level,
3070: 'SOLD_TO_COUNTRY_INT',
3071: n_country_pos);
3072:
3065: n_zip_pos);
3066:
3067: xProgress := 'ECERULEB-230-1110';
3068: ec_utils.find_pos (
3069: ec_utils.g_current_level,
3070: 'SOLD_TO_COUNTRY_INT',
3071: n_country_pos);
3072:
3073: xProgress := 'ECERULEB-230-1120';
3070: 'SOLD_TO_COUNTRY_INT',
3071: n_country_pos);
3072:
3073: xProgress := 'ECERULEB-230-1120';
3074: ec_utils.find_pos (
3075: ec_utils.g_current_level,
3076: 'SOLD_TO_STATE_INT',
3077: n_state_pos);
3078:
3071: n_country_pos);
3072:
3073: xProgress := 'ECERULEB-230-1120';
3074: ec_utils.find_pos (
3075: ec_utils.g_current_level,
3076: 'SOLD_TO_STATE_INT',
3077: n_state_pos);
3078:
3079: xProgress := 'ECERULEB-230-1130';
3076: 'SOLD_TO_STATE_INT',
3077: n_state_pos);
3078:
3079: xProgress := 'ECERULEB-230-1130';
3080: ec_utils.find_pos (
3081: ec_utils.g_current_level,
3082: 'SOLD_TO_PROVINCE_INT',
3083: n_province_pos);
3084:
3077: n_state_pos);
3078:
3079: xProgress := 'ECERULEB-230-1130';
3080: ec_utils.find_pos (
3081: ec_utils.g_current_level,
3082: 'SOLD_TO_PROVINCE_INT',
3083: n_province_pos);
3084:
3085: xProgress := 'ECERULEB-230-1140';
3082: 'SOLD_TO_PROVINCE_INT',
3083: n_province_pos);
3084:
3085: xProgress := 'ECERULEB-230-1140';
3086: ec_utils.find_pos (
3087: ec_utils.g_current_level,
3088: 'SOLD_TO_COUNTY',
3089: n_county_pos);
3090:
3083: n_province_pos);
3084:
3085: xProgress := 'ECERULEB-230-1140';
3086: ec_utils.find_pos (
3087: ec_utils.g_current_level,
3088: 'SOLD_TO_COUNTY',
3089: n_county_pos);
3090:
3091: xProgress := 'ECERULEB-230-1150';
3104: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SOLD_TO_ADDRESS');
3105: end if;
3106:
3107: EXCEPTION
3108: WHEN ec_utils.program_exit then
3109: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SOLD_TO_ADDRESS');
3110: raise;
3111:
3112: WHEN OTHERS THEN
3112: WHEN OTHERS THEN
3113: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3114: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3115: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SOLD_TO_ADDRESS');
3116: raise ec_utils.program_exit;
3117:
3118: END Validate_Sold_To_Address;
3119:
3120: PROCEDURE Validate_Ship_From_Address IS
3156: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3157:
3158: -- get the pl/sql position for address columns.
3159: xProgress := 'ECERULEB-160-1002';
3160: ec_utils.find_pos (
3161: ec_utils.g_current_level,
3162: 'SHIP_FROM_CUSTOMER_ID',
3163: n_entity_id_pos);
3164:
3157:
3158: -- get the pl/sql position for address columns.
3159: xProgress := 'ECERULEB-160-1002';
3160: ec_utils.find_pos (
3161: ec_utils.g_current_level,
3162: 'SHIP_FROM_CUSTOMER_ID',
3163: n_entity_id_pos);
3164:
3165: xProgress := 'ECERULEB-160-1004';
3162: 'SHIP_FROM_CUSTOMER_ID',
3163: n_entity_id_pos);
3164:
3165: xProgress := 'ECERULEB-160-1004';
3166: ec_utils.find_pos (
3167: 1,
3168: 'ORG_ID',
3169: n_org_id_pos);
3170:
3168: 'ORG_ID',
3169: n_org_id_pos);
3170:
3171: xProgress := 'ECERULEB-160-1010';
3172: ec_utils.find_pos (
3173: ec_utils.g_current_level,
3174: 'SHIP_FROM_ADDRESS_ID',
3175: n_addr_id_pos);
3176:
3169: n_org_id_pos);
3170:
3171: xProgress := 'ECERULEB-160-1010';
3172: ec_utils.find_pos (
3173: ec_utils.g_current_level,
3174: 'SHIP_FROM_ADDRESS_ID',
3175: n_addr_id_pos);
3176:
3177: xProgress := 'ECERULEB-160-1020';
3174: 'SHIP_FROM_ADDRESS_ID',
3175: n_addr_id_pos);
3176:
3177: xProgress := 'ECERULEB-160-1020';
3178: ec_utils.find_pos (
3179: ec_utils.g_current_level,
3180: 'SHIP_FROM_EDI_LOCATION_CODE',
3181: n_edi_location_code_pos);
3182:
3175: n_addr_id_pos);
3176:
3177: xProgress := 'ECERULEB-160-1020';
3178: ec_utils.find_pos (
3179: ec_utils.g_current_level,
3180: 'SHIP_FROM_EDI_LOCATION_CODE',
3181: n_edi_location_code_pos);
3182:
3183: xProgress := 'ECERULEB-160-1030';
3180: 'SHIP_FROM_EDI_LOCATION_CODE',
3181: n_edi_location_code_pos);
3182:
3183: xProgress := 'ECERULEB-160-1030';
3184: /* ec_utils.find_pos (
3185: 1,
3186: 'TP_TRANSLATOR_CODE',
3187: n_tp_translator_code_pos);
3188:
3186: 'TP_TRANSLATOR_CODE',
3187: n_tp_translator_code_pos);
3188:
3189: xProgress := 'ECERULEB-160-1040';
3190: ec_utils.find_pos (
3191: ec_utils.g_current_level,
3192: 'SHIP_FROM_ADDRESS_CODE',
3193: n_tp_location_name_pos);
3194: bug2151462 */
3187: n_tp_translator_code_pos);
3188:
3189: xProgress := 'ECERULEB-160-1040';
3190: ec_utils.find_pos (
3191: ec_utils.g_current_level,
3192: 'SHIP_FROM_ADDRESS_CODE',
3193: n_tp_location_name_pos);
3194: bug2151462 */
3195:
3193: n_tp_location_name_pos);
3194: bug2151462 */
3195:
3196: xProgress := 'ECERULEB-160-1050';
3197: ec_utils.find_pos (
3198: ec_utils.g_current_level,
3199: 'SHIP_FROM_ADDRESS1',
3200: n_addr1_pos);
3201:
3194: bug2151462 */
3195:
3196: xProgress := 'ECERULEB-160-1050';
3197: ec_utils.find_pos (
3198: ec_utils.g_current_level,
3199: 'SHIP_FROM_ADDRESS1',
3200: n_addr1_pos);
3201:
3202: xProgress := 'ECERULEB-160-1060';
3199: 'SHIP_FROM_ADDRESS1',
3200: n_addr1_pos);
3201:
3202: xProgress := 'ECERULEB-160-1060';
3203: ec_utils.find_pos (
3204: ec_utils.g_current_level,
3205: 'SHIP_FROM_ADDRESS2',
3206: n_addr2_pos);
3207:
3200: n_addr1_pos);
3201:
3202: xProgress := 'ECERULEB-160-1060';
3203: ec_utils.find_pos (
3204: ec_utils.g_current_level,
3205: 'SHIP_FROM_ADDRESS2',
3206: n_addr2_pos);
3207:
3208: xProgress := 'ECERULEB-160-1070';
3205: 'SHIP_FROM_ADDRESS2',
3206: n_addr2_pos);
3207:
3208: xProgress := 'ECERULEB-160-1070';
3209: ec_utils.find_pos (
3210: ec_utils.g_current_level,
3211: 'SHIP_FROM_ADDRESS3',
3212: n_addr3_pos);
3213:
3206: n_addr2_pos);
3207:
3208: xProgress := 'ECERULEB-160-1070';
3209: ec_utils.find_pos (
3210: ec_utils.g_current_level,
3211: 'SHIP_FROM_ADDRESS3',
3212: n_addr3_pos);
3213:
3214: xProgress := 'ECERULEB-160-1080';
3211: 'SHIP_FROM_ADDRESS3',
3212: n_addr3_pos);
3213:
3214: xProgress := 'ECERULEB-160-1080';
3215: ec_utils.find_pos (
3216: ec_utils.g_current_level,
3217: 'SHIP_FROM_ADDRESS4',
3218: n_addr4_pos);
3219:
3212: n_addr3_pos);
3213:
3214: xProgress := 'ECERULEB-160-1080';
3215: ec_utils.find_pos (
3216: ec_utils.g_current_level,
3217: 'SHIP_FROM_ADDRESS4',
3218: n_addr4_pos);
3219:
3220: xProgress := 'ECERULEB-160-1090';
3217: 'SHIP_FROM_ADDRESS4',
3218: n_addr4_pos);
3219:
3220: xProgress := 'ECERULEB-160-1090';
3221: ec_utils.find_pos (
3222: ec_utils.g_current_level,
3223: 'SHIP_FROM_CITY',
3224: n_city_pos);
3225:
3218: n_addr4_pos);
3219:
3220: xProgress := 'ECERULEB-160-1090';
3221: ec_utils.find_pos (
3222: ec_utils.g_current_level,
3223: 'SHIP_FROM_CITY',
3224: n_city_pos);
3225:
3226: xProgress := 'ECERULEB-160-1100';
3223: 'SHIP_FROM_CITY',
3224: n_city_pos);
3225:
3226: xProgress := 'ECERULEB-160-1100';
3227: ec_utils.find_pos (
3228: ec_utils.g_current_level,
3229: 'SHIP_FROM_POSTAL_CODE',
3230: n_zip_pos);
3231:
3224: n_city_pos);
3225:
3226: xProgress := 'ECERULEB-160-1100';
3227: ec_utils.find_pos (
3228: ec_utils.g_current_level,
3229: 'SHIP_FROM_POSTAL_CODE',
3230: n_zip_pos);
3231:
3232: xProgress := 'ECERULEB-160-1110';
3229: 'SHIP_FROM_POSTAL_CODE',
3230: n_zip_pos);
3231:
3232: xProgress := 'ECERULEB-160-1110';
3233: ec_utils.find_pos (
3234: ec_utils.g_current_level,
3235: 'SHIP_FROM_COUNTRY_INT',
3236: n_country_pos);
3237:
3230: n_zip_pos);
3231:
3232: xProgress := 'ECERULEB-160-1110';
3233: ec_utils.find_pos (
3234: ec_utils.g_current_level,
3235: 'SHIP_FROM_COUNTRY_INT',
3236: n_country_pos);
3237:
3238: xProgress := 'ECERULEB-160-1120';
3235: 'SHIP_FROM_COUNTRY_INT',
3236: n_country_pos);
3237:
3238: xProgress := 'ECERULEB-160-1120';
3239: ec_utils.find_pos (
3240: ec_utils.g_current_level,
3241: 'SHIP_FROM_STATE_INT',
3242: n_state_pos);
3243:
3236: n_country_pos);
3237:
3238: xProgress := 'ECERULEB-160-1120';
3239: ec_utils.find_pos (
3240: ec_utils.g_current_level,
3241: 'SHIP_FROM_STATE_INT',
3242: n_state_pos);
3243:
3244: xProgress := 'ECERULEB-160-1130';
3241: 'SHIP_FROM_STATE_INT',
3242: n_state_pos);
3243:
3244: xProgress := 'ECERULEB-160-1130';
3245: ec_utils.find_pos (
3246: ec_utils.g_current_level,
3247: 'SHIP_FROM_PROVINCE_INT',
3248: n_province_pos);
3249:
3242: n_state_pos);
3243:
3244: xProgress := 'ECERULEB-160-1130';
3245: ec_utils.find_pos (
3246: ec_utils.g_current_level,
3247: 'SHIP_FROM_PROVINCE_INT',
3248: n_province_pos);
3249:
3250: xProgress := 'ECERULEB-160-1140';
3247: 'SHIP_FROM_PROVINCE_INT',
3248: n_province_pos);
3249:
3250: xProgress := 'ECERULEB-160-1140';
3251: ec_utils.find_pos (
3252: ec_utils.g_current_level,
3253: 'SHIP_FROM_COUNTY',
3254: n_county_pos);
3255:
3248: n_province_pos);
3249:
3250: xProgress := 'ECERULEB-160-1140';
3251: ec_utils.find_pos (
3252: ec_utils.g_current_level,
3253: 'SHIP_FROM_COUNTY',
3254: n_county_pos);
3255:
3256: xProgress := 'ECERULEB-160-1150';
3269: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_ADDRESS');
3270: end if;
3271:
3272: EXCEPTION
3273: WHEN ec_utils.program_exit then
3274: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_ADDRESS');
3275: raise;
3276:
3277: WHEN OTHERS THEN
3277: WHEN OTHERS THEN
3278: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3279: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3280: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_ADDRESS');
3281: raise ec_utils.program_exit;
3282:
3283: END Validate_Ship_From_Address;
3284:
3285:
3322: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3323:
3324: -- get the pl/sql position for address columns.
3325: xProgress := 'ECERULEB-170-1002';
3326: ec_utils.find_pos (
3327: ec_utils.g_current_level,
3328: 'BILL_FROM_CUSTOMER_ID',
3329: n_entity_id_pos);
3330:
3323:
3324: -- get the pl/sql position for address columns.
3325: xProgress := 'ECERULEB-170-1002';
3326: ec_utils.find_pos (
3327: ec_utils.g_current_level,
3328: 'BILL_FROM_CUSTOMER_ID',
3329: n_entity_id_pos);
3330:
3331: xProgress := 'ECERULEB-170-1004';
3328: 'BILL_FROM_CUSTOMER_ID',
3329: n_entity_id_pos);
3330:
3331: xProgress := 'ECERULEB-170-1004';
3332: ec_utils.find_pos (
3333: 1,
3334: 'ORG_ID',
3335: n_org_id_pos);
3336:
3334: 'ORG_ID',
3335: n_org_id_pos);
3336:
3337: xProgress := 'ECERULEB-170-1010';
3338: ec_utils.find_pos (
3339: ec_utils.g_current_level,
3340: 'BILL_FROM_ADDRESS_ID',
3341: n_addr_id_pos);
3342:
3335: n_org_id_pos);
3336:
3337: xProgress := 'ECERULEB-170-1010';
3338: ec_utils.find_pos (
3339: ec_utils.g_current_level,
3340: 'BILL_FROM_ADDRESS_ID',
3341: n_addr_id_pos);
3342:
3343: xProgress := 'ECERULEB-170-1020';
3340: 'BILL_FROM_ADDRESS_ID',
3341: n_addr_id_pos);
3342:
3343: xProgress := 'ECERULEB-170-1020';
3344: ec_utils.find_pos (
3345: ec_utils.g_current_level,
3346: 'BILL_FROM_EDI_LOCATION_CODE',
3347: n_edi_location_code_pos);
3348:
3341: n_addr_id_pos);
3342:
3343: xProgress := 'ECERULEB-170-1020';
3344: ec_utils.find_pos (
3345: ec_utils.g_current_level,
3346: 'BILL_FROM_EDI_LOCATION_CODE',
3347: n_edi_location_code_pos);
3348:
3349: xProgress := 'ECERULEB-170-1030';
3346: 'BILL_FROM_EDI_LOCATION_CODE',
3347: n_edi_location_code_pos);
3348:
3349: xProgress := 'ECERULEB-170-1030';
3350: /* ec_utils.find_pos (
3351: 1,
3352: 'TP_TRANSLATOR_CODE',
3353: n_tp_translator_code_pos);
3354:
3352: 'TP_TRANSLATOR_CODE',
3353: n_tp_translator_code_pos);
3354:
3355: xProgress := 'ECERULEB-170-1040';
3356: ec_utils.find_pos (
3357: ec_utils.g_current_level,
3358: 'BILL_FROM_ADDRESS_CODE',
3359: n_tp_location_name_pos);
3360: bug2151462 */
3353: n_tp_translator_code_pos);
3354:
3355: xProgress := 'ECERULEB-170-1040';
3356: ec_utils.find_pos (
3357: ec_utils.g_current_level,
3358: 'BILL_FROM_ADDRESS_CODE',
3359: n_tp_location_name_pos);
3360: bug2151462 */
3361:
3359: n_tp_location_name_pos);
3360: bug2151462 */
3361:
3362: xProgress := 'ECERULEB-170-1050';
3363: ec_utils.find_pos (
3364: ec_utils.g_current_level,
3365: 'BILL_FROM_ADDRESS1',
3366: n_addr1_pos);
3367:
3360: bug2151462 */
3361:
3362: xProgress := 'ECERULEB-170-1050';
3363: ec_utils.find_pos (
3364: ec_utils.g_current_level,
3365: 'BILL_FROM_ADDRESS1',
3366: n_addr1_pos);
3367:
3368: xProgress := 'ECERULEB-170-1060';
3365: 'BILL_FROM_ADDRESS1',
3366: n_addr1_pos);
3367:
3368: xProgress := 'ECERULEB-170-1060';
3369: ec_utils.find_pos (
3370: ec_utils.g_current_level,
3371: 'BILL_FROM_ADDRESS2',
3372: n_addr2_pos);
3373:
3366: n_addr1_pos);
3367:
3368: xProgress := 'ECERULEB-170-1060';
3369: ec_utils.find_pos (
3370: ec_utils.g_current_level,
3371: 'BILL_FROM_ADDRESS2',
3372: n_addr2_pos);
3373:
3374: xProgress := 'ECERULEB-170-1070';
3371: 'BILL_FROM_ADDRESS2',
3372: n_addr2_pos);
3373:
3374: xProgress := 'ECERULEB-170-1070';
3375: ec_utils.find_pos (
3376: ec_utils.g_current_level,
3377: 'BILL_FROM_ADDRESS3',
3378: n_addr3_pos);
3379:
3372: n_addr2_pos);
3373:
3374: xProgress := 'ECERULEB-170-1070';
3375: ec_utils.find_pos (
3376: ec_utils.g_current_level,
3377: 'BILL_FROM_ADDRESS3',
3378: n_addr3_pos);
3379:
3380: xProgress := 'ECERULEB-170-1080';
3377: 'BILL_FROM_ADDRESS3',
3378: n_addr3_pos);
3379:
3380: xProgress := 'ECERULEB-170-1080';
3381: ec_utils.find_pos (
3382: ec_utils.g_current_level,
3383: 'BILL_FROM_ADDRESS4',
3384: n_addr4_pos);
3385:
3378: n_addr3_pos);
3379:
3380: xProgress := 'ECERULEB-170-1080';
3381: ec_utils.find_pos (
3382: ec_utils.g_current_level,
3383: 'BILL_FROM_ADDRESS4',
3384: n_addr4_pos);
3385:
3386: xProgress := 'ECERULEB-170-1090';
3383: 'BILL_FROM_ADDRESS4',
3384: n_addr4_pos);
3385:
3386: xProgress := 'ECERULEB-170-1090';
3387: ec_utils.find_pos (
3388: ec_utils.g_current_level,
3389: 'BILL_FROM_CITY',
3390: n_city_pos);
3391:
3384: n_addr4_pos);
3385:
3386: xProgress := 'ECERULEB-170-1090';
3387: ec_utils.find_pos (
3388: ec_utils.g_current_level,
3389: 'BILL_FROM_CITY',
3390: n_city_pos);
3391:
3392: xProgress := 'ECERULEB-170-1100';
3389: 'BILL_FROM_CITY',
3390: n_city_pos);
3391:
3392: xProgress := 'ECERULEB-170-1100';
3393: ec_utils.find_pos (
3394: ec_utils.g_current_level,
3395: 'BILL_FROM_POSTAL_CODE',
3396: n_zip_pos);
3397:
3390: n_city_pos);
3391:
3392: xProgress := 'ECERULEB-170-1100';
3393: ec_utils.find_pos (
3394: ec_utils.g_current_level,
3395: 'BILL_FROM_POSTAL_CODE',
3396: n_zip_pos);
3397:
3398: xProgress := 'ECERULEB-170-1110';
3395: 'BILL_FROM_POSTAL_CODE',
3396: n_zip_pos);
3397:
3398: xProgress := 'ECERULEB-170-1110';
3399: ec_utils.find_pos (
3400: ec_utils.g_current_level,
3401: 'BILL_FROM_COUNTRY_INT',
3402: n_country_pos);
3403:
3396: n_zip_pos);
3397:
3398: xProgress := 'ECERULEB-170-1110';
3399: ec_utils.find_pos (
3400: ec_utils.g_current_level,
3401: 'BILL_FROM_COUNTRY_INT',
3402: n_country_pos);
3403:
3404: xProgress := 'ECERULEB-170-1120';
3401: 'BILL_FROM_COUNTRY_INT',
3402: n_country_pos);
3403:
3404: xProgress := 'ECERULEB-170-1120';
3405: ec_utils.find_pos (
3406: ec_utils.g_current_level,
3407: 'BILL_FROM_STATE_INT',
3408: n_state_pos);
3409:
3402: n_country_pos);
3403:
3404: xProgress := 'ECERULEB-170-1120';
3405: ec_utils.find_pos (
3406: ec_utils.g_current_level,
3407: 'BILL_FROM_STATE_INT',
3408: n_state_pos);
3409:
3410: xProgress := 'ECERULEB-170-1130';
3407: 'BILL_FROM_STATE_INT',
3408: n_state_pos);
3409:
3410: xProgress := 'ECERULEB-170-1130';
3411: ec_utils.find_pos (
3412: ec_utils.g_current_level,
3413: 'BILL_FROM_PROVINCE_INT',
3414: n_province_pos);
3415:
3408: n_state_pos);
3409:
3410: xProgress := 'ECERULEB-170-1130';
3411: ec_utils.find_pos (
3412: ec_utils.g_current_level,
3413: 'BILL_FROM_PROVINCE_INT',
3414: n_province_pos);
3415:
3416: xProgress := 'ECERULEB-170-1140';
3413: 'BILL_FROM_PROVINCE_INT',
3414: n_province_pos);
3415:
3416: xProgress := 'ECERULEB-170-1140';
3417: ec_utils.find_pos (
3418: ec_utils.g_current_level,
3419: 'BILL_FROM_COUNTY',
3420: n_county_pos);
3421:
3414: n_province_pos);
3415:
3416: xProgress := 'ECERULEB-170-1140';
3417: ec_utils.find_pos (
3418: ec_utils.g_current_level,
3419: 'BILL_FROM_COUNTY',
3420: n_county_pos);
3421:
3422: xProgress := 'ECERULEB-170-1150';
3435: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_ADDRESS');
3436: end if;
3437:
3438: EXCEPTION
3439: WHEN ec_utils.program_exit then
3440: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_ADDRESS');
3441: raise;
3442:
3443: WHEN OTHERS THEN
3443: WHEN OTHERS THEN
3444: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3445: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3446: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_ADDRESS');
3447: raise ec_utils.program_exit;
3448:
3449: END Validate_Bill_From_Address;
3450:
3451:
3488: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3489:
3490: -- get the pl/sql position for address columns.
3491: xProgress := 'ECERULEB-240-1002';
3492: ec_utils.find_pos (
3493: ec_utils.g_current_level,
3494: 'SHIP_TO_INTRMD_CUSTOMER_ID',
3495: n_entity_id_pos);
3496:
3489:
3490: -- get the pl/sql position for address columns.
3491: xProgress := 'ECERULEB-240-1002';
3492: ec_utils.find_pos (
3493: ec_utils.g_current_level,
3494: 'SHIP_TO_INTRMD_CUSTOMER_ID',
3495: n_entity_id_pos);
3496:
3497: xProgress := 'ECERULEB-240-1004';
3494: 'SHIP_TO_INTRMD_CUSTOMER_ID',
3495: n_entity_id_pos);
3496:
3497: xProgress := 'ECERULEB-240-1004';
3498: ec_utils.find_pos (
3499: 1,
3500: 'ORG_ID',
3501: n_org_id_pos);
3502:
3500: 'ORG_ID',
3501: n_org_id_pos);
3502:
3503: xProgress := 'ECERULEB-240-1010';
3504: ec_utils.find_pos (
3505: ec_utils.g_current_level,
3506: 'SHIP_TO_INTRMD_ADDRESS_ID',
3507: n_addr_id_pos);
3508:
3501: n_org_id_pos);
3502:
3503: xProgress := 'ECERULEB-240-1010';
3504: ec_utils.find_pos (
3505: ec_utils.g_current_level,
3506: 'SHIP_TO_INTRMD_ADDRESS_ID',
3507: n_addr_id_pos);
3508:
3509: xProgress := 'ECERULEB-240-1020';
3506: 'SHIP_TO_INTRMD_ADDRESS_ID',
3507: n_addr_id_pos);
3508:
3509: xProgress := 'ECERULEB-240-1020';
3510: ec_utils.find_pos (
3511: ec_utils.g_current_level,
3512: 'SHIP_TO_INTRMD_EDI_LOCATION_CODE',
3513: n_edi_location_code_pos);
3514:
3507: n_addr_id_pos);
3508:
3509: xProgress := 'ECERULEB-240-1020';
3510: ec_utils.find_pos (
3511: ec_utils.g_current_level,
3512: 'SHIP_TO_INTRMD_EDI_LOCATION_CODE',
3513: n_edi_location_code_pos);
3514:
3515: xProgress := 'ECERULEB-240-1030';
3512: 'SHIP_TO_INTRMD_EDI_LOCATION_CODE',
3513: n_edi_location_code_pos);
3514:
3515: xProgress := 'ECERULEB-240-1030';
3516: /* ec_utils.find_pos (
3517: 1,
3518: 'TP_TRANSLATOR_CODE',
3519: n_tp_translator_code_pos);
3520: bug2151462 */
3518: 'TP_TRANSLATOR_CODE',
3519: n_tp_translator_code_pos);
3520: bug2151462 */
3521: xProgress := 'ECERULEB-240-1040';
3522: ec_utils.find_pos (
3523: ec_utils.g_current_level,
3524: 'SHIP_TO_INTRMD_ADDRESS_CODE',
3525: n_tp_location_name_pos);
3526:
3519: n_tp_translator_code_pos);
3520: bug2151462 */
3521: xProgress := 'ECERULEB-240-1040';
3522: ec_utils.find_pos (
3523: ec_utils.g_current_level,
3524: 'SHIP_TO_INTRMD_ADDRESS_CODE',
3525: n_tp_location_name_pos);
3526:
3527: xProgress := 'ECERULEB-240-1050';
3524: 'SHIP_TO_INTRMD_ADDRESS_CODE',
3525: n_tp_location_name_pos);
3526:
3527: xProgress := 'ECERULEB-240-1050';
3528: ec_utils.find_pos (
3529: ec_utils.g_current_level,
3530: 'SHIP_TO_INTRMD_ADDRESS1',
3531: n_addr1_pos);
3532:
3525: n_tp_location_name_pos);
3526:
3527: xProgress := 'ECERULEB-240-1050';
3528: ec_utils.find_pos (
3529: ec_utils.g_current_level,
3530: 'SHIP_TO_INTRMD_ADDRESS1',
3531: n_addr1_pos);
3532:
3533: xProgress := 'ECERULEB-240-1060';
3530: 'SHIP_TO_INTRMD_ADDRESS1',
3531: n_addr1_pos);
3532:
3533: xProgress := 'ECERULEB-240-1060';
3534: ec_utils.find_pos (
3535: ec_utils.g_current_level,
3536: 'SHIP_TO_INTRMD_ADDRESS2',
3537: n_addr2_pos);
3538:
3531: n_addr1_pos);
3532:
3533: xProgress := 'ECERULEB-240-1060';
3534: ec_utils.find_pos (
3535: ec_utils.g_current_level,
3536: 'SHIP_TO_INTRMD_ADDRESS2',
3537: n_addr2_pos);
3538:
3539: xProgress := 'ECERULEB-240-1070';
3536: 'SHIP_TO_INTRMD_ADDRESS2',
3537: n_addr2_pos);
3538:
3539: xProgress := 'ECERULEB-240-1070';
3540: ec_utils.find_pos (
3541: ec_utils.g_current_level,
3542: 'SHIP_TO_INTRMD_ADDRESS3',
3543: n_addr3_pos);
3544:
3537: n_addr2_pos);
3538:
3539: xProgress := 'ECERULEB-240-1070';
3540: ec_utils.find_pos (
3541: ec_utils.g_current_level,
3542: 'SHIP_TO_INTRMD_ADDRESS3',
3543: n_addr3_pos);
3544:
3545: xProgress := 'ECERULEB-240-1080';
3542: 'SHIP_TO_INTRMD_ADDRESS3',
3543: n_addr3_pos);
3544:
3545: xProgress := 'ECERULEB-240-1080';
3546: ec_utils.find_pos (
3547: ec_utils.g_current_level,
3548: 'SHIP_TO_INTRMD_ADDRESS4',
3549: n_addr4_pos);
3550:
3543: n_addr3_pos);
3544:
3545: xProgress := 'ECERULEB-240-1080';
3546: ec_utils.find_pos (
3547: ec_utils.g_current_level,
3548: 'SHIP_TO_INTRMD_ADDRESS4',
3549: n_addr4_pos);
3550:
3551: xProgress := 'ECERULEB-240-1090';
3548: 'SHIP_TO_INTRMD_ADDRESS4',
3549: n_addr4_pos);
3550:
3551: xProgress := 'ECERULEB-240-1090';
3552: ec_utils.find_pos (
3553: ec_utils.g_current_level,
3554: 'SHIP_TO_INTRMD_CITY',
3555: n_city_pos);
3556:
3549: n_addr4_pos);
3550:
3551: xProgress := 'ECERULEB-240-1090';
3552: ec_utils.find_pos (
3553: ec_utils.g_current_level,
3554: 'SHIP_TO_INTRMD_CITY',
3555: n_city_pos);
3556:
3557: xProgress := 'ECERULEB-240-1100';
3554: 'SHIP_TO_INTRMD_CITY',
3555: n_city_pos);
3556:
3557: xProgress := 'ECERULEB-240-1100';
3558: ec_utils.find_pos (
3559: ec_utils.g_current_level,
3560: 'SHIP_TO_INTRMD_POSTAL_CODE',
3561: n_zip_pos);
3562:
3555: n_city_pos);
3556:
3557: xProgress := 'ECERULEB-240-1100';
3558: ec_utils.find_pos (
3559: ec_utils.g_current_level,
3560: 'SHIP_TO_INTRMD_POSTAL_CODE',
3561: n_zip_pos);
3562:
3563: xProgress := 'ECERULEB-240-1110';
3560: 'SHIP_TO_INTRMD_POSTAL_CODE',
3561: n_zip_pos);
3562:
3563: xProgress := 'ECERULEB-240-1110';
3564: ec_utils.find_pos (
3565: ec_utils.g_current_level,
3566: 'SHIP_TO_INTRMD_COUNTRY_INT',
3567: n_country_pos);
3568:
3561: n_zip_pos);
3562:
3563: xProgress := 'ECERULEB-240-1110';
3564: ec_utils.find_pos (
3565: ec_utils.g_current_level,
3566: 'SHIP_TO_INTRMD_COUNTRY_INT',
3567: n_country_pos);
3568:
3569: xProgress := 'ECERULEB-240-1120';
3566: 'SHIP_TO_INTRMD_COUNTRY_INT',
3567: n_country_pos);
3568:
3569: xProgress := 'ECERULEB-240-1120';
3570: ec_utils.find_pos (
3571: ec_utils.g_current_level,
3572: 'SHIP_TO_INTRMD_STATE_INT',
3573: n_state_pos);
3574:
3567: n_country_pos);
3568:
3569: xProgress := 'ECERULEB-240-1120';
3570: ec_utils.find_pos (
3571: ec_utils.g_current_level,
3572: 'SHIP_TO_INTRMD_STATE_INT',
3573: n_state_pos);
3574:
3575: xProgress := 'ECERULEB-240-1130';
3572: 'SHIP_TO_INTRMD_STATE_INT',
3573: n_state_pos);
3574:
3575: xProgress := 'ECERULEB-240-1130';
3576: ec_utils.find_pos (
3577: ec_utils.g_current_level,
3578: 'SHIP_TO_INTRMD_PROVINCE_INT',
3579: n_province_pos);
3580:
3573: n_state_pos);
3574:
3575: xProgress := 'ECERULEB-240-1130';
3576: ec_utils.find_pos (
3577: ec_utils.g_current_level,
3578: 'SHIP_TO_INTRMD_PROVINCE_INT',
3579: n_province_pos);
3580:
3581: xProgress := 'ECERULEB-240-1140';
3578: 'SHIP_TO_INTRMD_PROVINCE_INT',
3579: n_province_pos);
3580:
3581: xProgress := 'ECERULEB-240-1140';
3582: ec_utils.find_pos (
3583: ec_utils.g_current_level,
3584: 'SHIP_TO_INTRMD_COUNTY',
3585: n_county_pos);
3586:
3579: n_province_pos);
3580:
3581: xProgress := 'ECERULEB-240-1140';
3582: ec_utils.find_pos (
3583: ec_utils.g_current_level,
3584: 'SHIP_TO_INTRMD_COUNTY',
3585: n_county_pos);
3586:
3587: xProgress := 'ECERULEB-240-1150';
3600: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INTRMD_ADD');
3601: end if;
3602:
3603: EXCEPTION
3604: WHEN ec_utils.program_exit then
3605: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INTRMD_ADD');
3606: raise;
3607:
3608: WHEN OTHERS THEN
3608: WHEN OTHERS THEN
3609: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3610: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3611: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INTRMD_ADD');
3612: raise ec_utils.program_exit;
3613:
3614: END Validate_Ship_To_Intrmd_Add;
3615:
3616: PROCEDURE Validate_Ship_To_Int_Address IS
3652: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3653:
3654: -- get the pl/sql position for address columns.
3655: xProgress := 'ECERULEB-180-1004';
3656: ec_utils.find_pos (
3657: 1,
3658: 'ORG_ID',
3659: n_org_id_pos,
3660: FALSE);
3659: n_org_id_pos,
3660: FALSE);
3661:
3662: xProgress := 'ECERULEB-180-1010';
3663: ec_utils.find_pos (
3664: ec_utils.g_current_level,
3665: 'SHIP_TO_INT_LOCATION_ID',
3666: n_addr_id_pos);
3667:
3660: FALSE);
3661:
3662: xProgress := 'ECERULEB-180-1010';
3663: ec_utils.find_pos (
3664: ec_utils.g_current_level,
3665: 'SHIP_TO_INT_LOCATION_ID',
3666: n_addr_id_pos);
3667:
3668: xProgress := 'ECERULEB-180-1020';
3665: 'SHIP_TO_INT_LOCATION_ID',
3666: n_addr_id_pos);
3667:
3668: xProgress := 'ECERULEB-180-1020';
3669: ec_utils.find_pos (
3670: ec_utils.g_current_level,
3671: 'SHIP_TO_INT_EDI_LOCATION_CODE',
3672: n_edi_location_code_pos);
3673:
3666: n_addr_id_pos);
3667:
3668: xProgress := 'ECERULEB-180-1020';
3669: ec_utils.find_pos (
3670: ec_utils.g_current_level,
3671: 'SHIP_TO_INT_EDI_LOCATION_CODE',
3672: n_edi_location_code_pos);
3673:
3674: xProgress := 'ECERULEB-180-1030';
3671: 'SHIP_TO_INT_EDI_LOCATION_CODE',
3672: n_edi_location_code_pos);
3673:
3674: xProgress := 'ECERULEB-180-1030';
3675: /* ec_utils.find_pos (
3676: 1,
3677: 'TP_TRANSLATOR_CODE',
3678: n_tp_translator_code_pos);
3679: bug2151462 */
3677: 'TP_TRANSLATOR_CODE',
3678: n_tp_translator_code_pos);
3679: bug2151462 */
3680: xProgress := 'ECERULEB-180-1040';
3681: ec_utils.find_pos (
3682: ec_utils.g_current_level,
3683: 'SHIP_TO_INT_LOCATION_NAME',
3684: n_tp_location_name_pos);
3685:
3678: n_tp_translator_code_pos);
3679: bug2151462 */
3680: xProgress := 'ECERULEB-180-1040';
3681: ec_utils.find_pos (
3682: ec_utils.g_current_level,
3683: 'SHIP_TO_INT_LOCATION_NAME',
3684: n_tp_location_name_pos);
3685:
3686: xProgress := 'ECERULEB-180-1050';
3683: 'SHIP_TO_INT_LOCATION_NAME',
3684: n_tp_location_name_pos);
3685:
3686: xProgress := 'ECERULEB-180-1050';
3687: ec_utils.find_pos (
3688: ec_utils.g_current_level,
3689: 'SHIP_TO_INT_ADDRESS1',
3690: n_addr1_pos);
3691:
3684: n_tp_location_name_pos);
3685:
3686: xProgress := 'ECERULEB-180-1050';
3687: ec_utils.find_pos (
3688: ec_utils.g_current_level,
3689: 'SHIP_TO_INT_ADDRESS1',
3690: n_addr1_pos);
3691:
3692: xProgress := 'ECERULEB-180-1060';
3689: 'SHIP_TO_INT_ADDRESS1',
3690: n_addr1_pos);
3691:
3692: xProgress := 'ECERULEB-180-1060';
3693: ec_utils.find_pos (
3694: ec_utils.g_current_level,
3695: 'SHIP_TO_INT_ADDRESS2',
3696: n_addr2_pos);
3697:
3690: n_addr1_pos);
3691:
3692: xProgress := 'ECERULEB-180-1060';
3693: ec_utils.find_pos (
3694: ec_utils.g_current_level,
3695: 'SHIP_TO_INT_ADDRESS2',
3696: n_addr2_pos);
3697:
3698: xProgress := 'ECERULEB-180-1070';
3695: 'SHIP_TO_INT_ADDRESS2',
3696: n_addr2_pos);
3697:
3698: xProgress := 'ECERULEB-180-1070';
3699: ec_utils.find_pos (
3700: ec_utils.g_current_level,
3701: 'SHIP_TO_INT_ADDRESS3',
3702: n_addr3_pos);
3703:
3696: n_addr2_pos);
3697:
3698: xProgress := 'ECERULEB-180-1070';
3699: ec_utils.find_pos (
3700: ec_utils.g_current_level,
3701: 'SHIP_TO_INT_ADDRESS3',
3702: n_addr3_pos);
3703:
3704: xProgress := 'ECERULEB-180-1090';
3701: 'SHIP_TO_INT_ADDRESS3',
3702: n_addr3_pos);
3703:
3704: xProgress := 'ECERULEB-180-1090';
3705: ec_utils.find_pos (
3706: ec_utils.g_current_level,
3707: 'SHIP_TO_INT_CITY',
3708: n_city_pos);
3709:
3702: n_addr3_pos);
3703:
3704: xProgress := 'ECERULEB-180-1090';
3705: ec_utils.find_pos (
3706: ec_utils.g_current_level,
3707: 'SHIP_TO_INT_CITY',
3708: n_city_pos);
3709:
3710: xProgress := 'ECERULEB-180-1100';
3707: 'SHIP_TO_INT_CITY',
3708: n_city_pos);
3709:
3710: xProgress := 'ECERULEB-180-1100';
3711: ec_utils.find_pos (
3712: ec_utils.g_current_level,
3713: 'SHIP_TO_INT_POSTAL_CODE',
3714: n_zip_pos);
3715:
3708: n_city_pos);
3709:
3710: xProgress := 'ECERULEB-180-1100';
3711: ec_utils.find_pos (
3712: ec_utils.g_current_level,
3713: 'SHIP_TO_INT_POSTAL_CODE',
3714: n_zip_pos);
3715:
3716: xProgress := 'ECERULEB-180-1110';
3713: 'SHIP_TO_INT_POSTAL_CODE',
3714: n_zip_pos);
3715:
3716: xProgress := 'ECERULEB-180-1110';
3717: ec_utils.find_pos (
3718: ec_utils.g_current_level,
3719: 'SHIP_TO_INT_COUNTRY',
3720: n_country_pos);
3721:
3714: n_zip_pos);
3715:
3716: xProgress := 'ECERULEB-180-1110';
3717: ec_utils.find_pos (
3718: ec_utils.g_current_level,
3719: 'SHIP_TO_INT_COUNTRY',
3720: n_country_pos);
3721:
3722: xProgress := 'ECERULEB-180-1120';
3719: 'SHIP_TO_INT_COUNTRY',
3720: n_country_pos);
3721:
3722: xProgress := 'ECERULEB-180-1120';
3723: ec_utils.find_pos (
3724: ec_utils.g_current_level,
3725: 'SHIP_TO_INT_REGION1',
3726: n_region1_pos);
3727:
3720: n_country_pos);
3721:
3722: xProgress := 'ECERULEB-180-1120';
3723: ec_utils.find_pos (
3724: ec_utils.g_current_level,
3725: 'SHIP_TO_INT_REGION1',
3726: n_region1_pos);
3727:
3728: xProgress := 'ECERULEB-180-1130';
3725: 'SHIP_TO_INT_REGION1',
3726: n_region1_pos);
3727:
3728: xProgress := 'ECERULEB-180-1130';
3729: ec_utils.find_pos (
3730: ec_utils.g_current_level,
3731: 'SHIP_TO_INT_REGION2',
3732: n_region2_pos);
3733:
3726: n_region1_pos);
3727:
3728: xProgress := 'ECERULEB-180-1130';
3729: ec_utils.find_pos (
3730: ec_utils.g_current_level,
3731: 'SHIP_TO_INT_REGION2',
3732: n_region2_pos);
3733:
3734: xProgress := 'ECERULEB-180-1140';
3731: 'SHIP_TO_INT_REGION2',
3732: n_region2_pos);
3733:
3734: xProgress := 'ECERULEB-180-1140';
3735: ec_utils.find_pos (
3736: ec_utils.g_current_level,
3737: 'SHIP_TO_INT_REGION3',
3738: n_region3_pos);
3739:
3732: n_region2_pos);
3733:
3734: xProgress := 'ECERULEB-180-1140';
3735: ec_utils.find_pos (
3736: ec_utils.g_current_level,
3737: 'SHIP_TO_INT_REGION3',
3738: n_region3_pos);
3739:
3740: xProgress := 'ECERULEB-180-1150';
3753: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INT_ADDRESS');
3754: end if;
3755:
3756: EXCEPTION
3757: WHEN ec_utils.program_exit then
3758: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INT_ADDRESS');
3759: raise;
3760:
3761: WHEN OTHERS THEN
3761: WHEN OTHERS THEN
3762: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3763: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3764: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_TO_INT_ADDRESS');
3765: raise ec_utils.program_exit;
3766:
3767: END Validate_Ship_To_Int_Address;
3768:
3769:
3806: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3807:
3808: -- get the pl/sql position for address columns.
3809: xProgress := 'ECERULEB-190-1004';
3810: ec_utils.find_pos (
3811: 1,
3812: 'ORG_ID',
3813: n_org_id_pos,
3814: FALSE);
3813: n_org_id_pos,
3814: FALSE);
3815:
3816: xProgress := 'ECERULEB-190-1010';
3817: ec_utils.find_pos (
3818: ec_utils.g_current_level,
3819: 'BILL_TO_INT_LOCATION_ID',
3820: n_addr_id_pos);
3821:
3814: FALSE);
3815:
3816: xProgress := 'ECERULEB-190-1010';
3817: ec_utils.find_pos (
3818: ec_utils.g_current_level,
3819: 'BILL_TO_INT_LOCATION_ID',
3820: n_addr_id_pos);
3821:
3822: xProgress := 'ECERULEB-190-1020';
3819: 'BILL_TO_INT_LOCATION_ID',
3820: n_addr_id_pos);
3821:
3822: xProgress := 'ECERULEB-190-1020';
3823: ec_utils.find_pos (
3824: ec_utils.g_current_level,
3825: 'BILL_TO_INT_EDI_LOCATION_CODE',
3826: n_edi_location_code_pos);
3827:
3820: n_addr_id_pos);
3821:
3822: xProgress := 'ECERULEB-190-1020';
3823: ec_utils.find_pos (
3824: ec_utils.g_current_level,
3825: 'BILL_TO_INT_EDI_LOCATION_CODE',
3826: n_edi_location_code_pos);
3827:
3828: xProgress := 'ECERULEB-190-1030';
3825: 'BILL_TO_INT_EDI_LOCATION_CODE',
3826: n_edi_location_code_pos);
3827:
3828: xProgress := 'ECERULEB-190-1030';
3829: /* ec_utils.find_pos (
3830: 1,
3831: 'TP_TRANSLATOR_CODE',
3832: n_tp_translator_code_pos);
3833: bug2151462 */
3831: 'TP_TRANSLATOR_CODE',
3832: n_tp_translator_code_pos);
3833: bug2151462 */
3834: xProgress := 'ECERULEB-190-1040';
3835: ec_utils.find_pos (
3836: ec_utils.g_current_level,
3837: 'BILL_TO_INT_LOCATION_NAME',
3838: n_tp_location_name_pos);
3839:
3832: n_tp_translator_code_pos);
3833: bug2151462 */
3834: xProgress := 'ECERULEB-190-1040';
3835: ec_utils.find_pos (
3836: ec_utils.g_current_level,
3837: 'BILL_TO_INT_LOCATION_NAME',
3838: n_tp_location_name_pos);
3839:
3840: xProgress := 'ECERULEB-190-1050';
3837: 'BILL_TO_INT_LOCATION_NAME',
3838: n_tp_location_name_pos);
3839:
3840: xProgress := 'ECERULEB-190-1050';
3841: ec_utils.find_pos (
3842: ec_utils.g_current_level,
3843: 'BILL_TO_INT_ADDRESS1',
3844: n_addr1_pos);
3845:
3838: n_tp_location_name_pos);
3839:
3840: xProgress := 'ECERULEB-190-1050';
3841: ec_utils.find_pos (
3842: ec_utils.g_current_level,
3843: 'BILL_TO_INT_ADDRESS1',
3844: n_addr1_pos);
3845:
3846: xProgress := 'ECERULEB-190-1060';
3843: 'BILL_TO_INT_ADDRESS1',
3844: n_addr1_pos);
3845:
3846: xProgress := 'ECERULEB-190-1060';
3847: ec_utils.find_pos (
3848: ec_utils.g_current_level,
3849: 'BILL_TO_INT_ADDRESS2',
3850: n_addr2_pos);
3851:
3844: n_addr1_pos);
3845:
3846: xProgress := 'ECERULEB-190-1060';
3847: ec_utils.find_pos (
3848: ec_utils.g_current_level,
3849: 'BILL_TO_INT_ADDRESS2',
3850: n_addr2_pos);
3851:
3852: xProgress := 'ECERULEB-190-1070';
3849: 'BILL_TO_INT_ADDRESS2',
3850: n_addr2_pos);
3851:
3852: xProgress := 'ECERULEB-190-1070';
3853: ec_utils.find_pos (
3854: ec_utils.g_current_level,
3855: 'BILL_TO_INT_ADDRESS3',
3856: n_addr3_pos);
3857:
3850: n_addr2_pos);
3851:
3852: xProgress := 'ECERULEB-190-1070';
3853: ec_utils.find_pos (
3854: ec_utils.g_current_level,
3855: 'BILL_TO_INT_ADDRESS3',
3856: n_addr3_pos);
3857:
3858: xProgress := 'ECERULEB-190-1090';
3855: 'BILL_TO_INT_ADDRESS3',
3856: n_addr3_pos);
3857:
3858: xProgress := 'ECERULEB-190-1090';
3859: ec_utils.find_pos (
3860: ec_utils.g_current_level,
3861: 'BILL_TO_INT_CITY',
3862: n_city_pos);
3863:
3856: n_addr3_pos);
3857:
3858: xProgress := 'ECERULEB-190-1090';
3859: ec_utils.find_pos (
3860: ec_utils.g_current_level,
3861: 'BILL_TO_INT_CITY',
3862: n_city_pos);
3863:
3864: xProgress := 'ECERULEB-190-1100';
3861: 'BILL_TO_INT_CITY',
3862: n_city_pos);
3863:
3864: xProgress := 'ECERULEB-190-1100';
3865: ec_utils.find_pos (
3866: ec_utils.g_current_level,
3867: 'BILL_TO_INT_POSTAL_CODE',
3868: n_zip_pos);
3869:
3862: n_city_pos);
3863:
3864: xProgress := 'ECERULEB-190-1100';
3865: ec_utils.find_pos (
3866: ec_utils.g_current_level,
3867: 'BILL_TO_INT_POSTAL_CODE',
3868: n_zip_pos);
3869:
3870: xProgress := 'ECERULEB-190-1110';
3867: 'BILL_TO_INT_POSTAL_CODE',
3868: n_zip_pos);
3869:
3870: xProgress := 'ECERULEB-190-1110';
3871: ec_utils.find_pos (
3872: ec_utils.g_current_level,
3873: 'BILL_TO_INT_COUNTRY',
3874: n_country_pos);
3875:
3868: n_zip_pos);
3869:
3870: xProgress := 'ECERULEB-190-1110';
3871: ec_utils.find_pos (
3872: ec_utils.g_current_level,
3873: 'BILL_TO_INT_COUNTRY',
3874: n_country_pos);
3875:
3876: xProgress := 'ECERULEB-190-1120';
3873: 'BILL_TO_INT_COUNTRY',
3874: n_country_pos);
3875:
3876: xProgress := 'ECERULEB-190-1120';
3877: ec_utils.find_pos (
3878: ec_utils.g_current_level,
3879: 'BILL_TO_INT_REGION1',
3880: n_region1_pos);
3881:
3874: n_country_pos);
3875:
3876: xProgress := 'ECERULEB-190-1120';
3877: ec_utils.find_pos (
3878: ec_utils.g_current_level,
3879: 'BILL_TO_INT_REGION1',
3880: n_region1_pos);
3881:
3882: xProgress := 'ECERULEB-190-1130';
3879: 'BILL_TO_INT_REGION1',
3880: n_region1_pos);
3881:
3882: xProgress := 'ECERULEB-190-1130';
3883: ec_utils.find_pos (
3884: ec_utils.g_current_level,
3885: 'BILL_TO_INT_REGION2',
3886: n_region2_pos);
3887:
3880: n_region1_pos);
3881:
3882: xProgress := 'ECERULEB-190-1130';
3883: ec_utils.find_pos (
3884: ec_utils.g_current_level,
3885: 'BILL_TO_INT_REGION2',
3886: n_region2_pos);
3887:
3888: xProgress := 'ECERULEB-190-1140';
3885: 'BILL_TO_INT_REGION2',
3886: n_region2_pos);
3887:
3888: xProgress := 'ECERULEB-190-1140';
3889: ec_utils.find_pos (
3890: ec_utils.g_current_level,
3891: 'BILL_TO_INT_REGION3',
3892: n_region3_pos);
3893:
3886: n_region2_pos);
3887:
3888: xProgress := 'ECERULEB-190-1140';
3889: ec_utils.find_pos (
3890: ec_utils.g_current_level,
3891: 'BILL_TO_INT_REGION3',
3892: n_region3_pos);
3893:
3894: xProgress := 'ECERULEB-190-1150';
3907: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_INT_ADDRESS');
3908: end if;
3909:
3910: EXCEPTION
3911: WHEN ec_utils.program_exit then
3912: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_INT_ADDRESS');
3913: raise;
3914:
3915: WHEN OTHERS THEN
3915: WHEN OTHERS THEN
3916: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
3917: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
3918: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_TO_INT_ADDRESS');
3919: raise ec_utils.program_exit;
3920:
3921: END Validate_Bill_To_Int_Address;
3922:
3923:
3961: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
3962:
3963: -- get the pl/sql position for address columns.
3964: xProgress := 'ECERULEB-200-1004';
3965: ec_utils.find_pos (
3966: 1,
3967: 'ORG_ID',
3968: n_org_id_pos,
3969: FALSE);
3968: n_org_id_pos,
3969: FALSE);
3970:
3971: xProgress := 'ECERULEB-200-1010';
3972: ec_utils.find_pos (
3973: ec_utils.g_current_level,
3974: 'SHIP_FROM_INT_LOCATION_ID',
3975: n_addr_id_pos);
3976:
3969: FALSE);
3970:
3971: xProgress := 'ECERULEB-200-1010';
3972: ec_utils.find_pos (
3973: ec_utils.g_current_level,
3974: 'SHIP_FROM_INT_LOCATION_ID',
3975: n_addr_id_pos);
3976:
3977: xProgress := 'ECERULEB-200-1020';
3974: 'SHIP_FROM_INT_LOCATION_ID',
3975: n_addr_id_pos);
3976:
3977: xProgress := 'ECERULEB-200-1020';
3978: ec_utils.find_pos (
3979: ec_utils.g_current_level,
3980: 'SHIP_FROM_INT_EDI_LOCATION_CODE',
3981: n_edi_location_code_pos);
3982:
3975: n_addr_id_pos);
3976:
3977: xProgress := 'ECERULEB-200-1020';
3978: ec_utils.find_pos (
3979: ec_utils.g_current_level,
3980: 'SHIP_FROM_INT_EDI_LOCATION_CODE',
3981: n_edi_location_code_pos);
3982:
3983: xProgress := 'ECERULEB-200-1030';
3980: 'SHIP_FROM_INT_EDI_LOCATION_CODE',
3981: n_edi_location_code_pos);
3982:
3983: xProgress := 'ECERULEB-200-1030';
3984: /* ec_utils.find_pos (
3985: 1,
3986: 'TP_TRANSLATOR_CODE',
3987: n_tp_translator_code_pos);
3988: bug 2151462*/
3991: column SHIP_FROM_INT_ORGANIZATION_ID
3992: Creating a new variable to store the position will require a change in
3993: in the validate_get_address_info procedure also
3994: */
3995: ec_utils.find_pos (
3996: ec_utils.g_current_level,
3997: 'SHIP_FROM_INT_ORGANIZATION_ID',
3998: n_tp_translator_code_pos);
3999:
3992: Creating a new variable to store the position will require a change in
3993: in the validate_get_address_info procedure also
3994: */
3995: ec_utils.find_pos (
3996: ec_utils.g_current_level,
3997: 'SHIP_FROM_INT_ORGANIZATION_ID',
3998: n_tp_translator_code_pos);
3999:
4000: xProgress := 'ECERULEB-200-1040';
3997: 'SHIP_FROM_INT_ORGANIZATION_ID',
3998: n_tp_translator_code_pos);
3999:
4000: xProgress := 'ECERULEB-200-1040';
4001: ec_utils.find_pos (
4002: ec_utils.g_current_level,
4003: 'SHIP_FROM_INT_LOCATION_NAME',
4004: n_tp_location_name_pos);
4005:
3998: n_tp_translator_code_pos);
3999:
4000: xProgress := 'ECERULEB-200-1040';
4001: ec_utils.find_pos (
4002: ec_utils.g_current_level,
4003: 'SHIP_FROM_INT_LOCATION_NAME',
4004: n_tp_location_name_pos);
4005:
4006: xProgress := 'ECERULEB-200-1050';
4003: 'SHIP_FROM_INT_LOCATION_NAME',
4004: n_tp_location_name_pos);
4005:
4006: xProgress := 'ECERULEB-200-1050';
4007: ec_utils.find_pos (
4008: ec_utils.g_current_level,
4009: 'SHIP_FROM_INT_ADDRESS1',
4010: n_addr1_pos);
4011:
4004: n_tp_location_name_pos);
4005:
4006: xProgress := 'ECERULEB-200-1050';
4007: ec_utils.find_pos (
4008: ec_utils.g_current_level,
4009: 'SHIP_FROM_INT_ADDRESS1',
4010: n_addr1_pos);
4011:
4012: xProgress := 'ECERULEB-200-1060';
4009: 'SHIP_FROM_INT_ADDRESS1',
4010: n_addr1_pos);
4011:
4012: xProgress := 'ECERULEB-200-1060';
4013: ec_utils.find_pos (
4014: ec_utils.g_current_level,
4015: 'SHIP_FROM_INT_ADDRESS2',
4016: n_addr2_pos);
4017:
4010: n_addr1_pos);
4011:
4012: xProgress := 'ECERULEB-200-1060';
4013: ec_utils.find_pos (
4014: ec_utils.g_current_level,
4015: 'SHIP_FROM_INT_ADDRESS2',
4016: n_addr2_pos);
4017:
4018: xProgress := 'ECERULEB-200-1070';
4015: 'SHIP_FROM_INT_ADDRESS2',
4016: n_addr2_pos);
4017:
4018: xProgress := 'ECERULEB-200-1070';
4019: ec_utils.find_pos (
4020: ec_utils.g_current_level,
4021: 'SHIP_FROM_INT_ADDRESS3',
4022: n_addr3_pos);
4023:
4016: n_addr2_pos);
4017:
4018: xProgress := 'ECERULEB-200-1070';
4019: ec_utils.find_pos (
4020: ec_utils.g_current_level,
4021: 'SHIP_FROM_INT_ADDRESS3',
4022: n_addr3_pos);
4023:
4024: xProgress := 'ECERULEB-200-1090';
4021: 'SHIP_FROM_INT_ADDRESS3',
4022: n_addr3_pos);
4023:
4024: xProgress := 'ECERULEB-200-1090';
4025: ec_utils.find_pos (
4026: ec_utils.g_current_level,
4027: 'SHIP_FROM_INT_CITY',
4028: n_city_pos);
4029:
4022: n_addr3_pos);
4023:
4024: xProgress := 'ECERULEB-200-1090';
4025: ec_utils.find_pos (
4026: ec_utils.g_current_level,
4027: 'SHIP_FROM_INT_CITY',
4028: n_city_pos);
4029:
4030: xProgress := 'ECERULEB-200-1100';
4027: 'SHIP_FROM_INT_CITY',
4028: n_city_pos);
4029:
4030: xProgress := 'ECERULEB-200-1100';
4031: ec_utils.find_pos (
4032: ec_utils.g_current_level,
4033: 'SHIP_FROM_INT_POSTAL_CODE',
4034: n_zip_pos);
4035:
4028: n_city_pos);
4029:
4030: xProgress := 'ECERULEB-200-1100';
4031: ec_utils.find_pos (
4032: ec_utils.g_current_level,
4033: 'SHIP_FROM_INT_POSTAL_CODE',
4034: n_zip_pos);
4035:
4036: xProgress := 'ECERULEB-200-1110';
4033: 'SHIP_FROM_INT_POSTAL_CODE',
4034: n_zip_pos);
4035:
4036: xProgress := 'ECERULEB-200-1110';
4037: ec_utils.find_pos (
4038: ec_utils.g_current_level,
4039: 'SHIP_FROM_INT_COUNTRY',
4040: n_country_pos);
4041:
4034: n_zip_pos);
4035:
4036: xProgress := 'ECERULEB-200-1110';
4037: ec_utils.find_pos (
4038: ec_utils.g_current_level,
4039: 'SHIP_FROM_INT_COUNTRY',
4040: n_country_pos);
4041:
4042: xProgress := 'ECERULEB-200-1120';
4039: 'SHIP_FROM_INT_COUNTRY',
4040: n_country_pos);
4041:
4042: xProgress := 'ECERULEB-200-1120';
4043: ec_utils.find_pos (
4044: ec_utils.g_current_level,
4045: 'SHIP_FROM_INT_REGION1',
4046: n_region1_pos);
4047:
4040: n_country_pos);
4041:
4042: xProgress := 'ECERULEB-200-1120';
4043: ec_utils.find_pos (
4044: ec_utils.g_current_level,
4045: 'SHIP_FROM_INT_REGION1',
4046: n_region1_pos);
4047:
4048: xProgress := 'ECERULEB-200-1130';
4045: 'SHIP_FROM_INT_REGION1',
4046: n_region1_pos);
4047:
4048: xProgress := 'ECERULEB-200-1130';
4049: ec_utils.find_pos (
4050: ec_utils.g_current_level,
4051: 'SHIP_FROM_INT_REGION2',
4052: n_region2_pos);
4053:
4046: n_region1_pos);
4047:
4048: xProgress := 'ECERULEB-200-1130';
4049: ec_utils.find_pos (
4050: ec_utils.g_current_level,
4051: 'SHIP_FROM_INT_REGION2',
4052: n_region2_pos);
4053:
4054: xProgress := 'ECERULEB-200-1140';
4051: 'SHIP_FROM_INT_REGION2',
4052: n_region2_pos);
4053:
4054: xProgress := 'ECERULEB-200-1140';
4055: ec_utils.find_pos (
4056: ec_utils.g_current_level,
4057: 'SHIP_FROM_INT_REGION3',
4058: n_region3_pos);
4059:
4052: n_region2_pos);
4053:
4054: xProgress := 'ECERULEB-200-1140';
4055: ec_utils.find_pos (
4056: ec_utils.g_current_level,
4057: 'SHIP_FROM_INT_REGION3',
4058: n_region3_pos);
4059:
4060: xProgress := 'ECERULEB-200-1150';
4072: if ec_debug.G_debug_level >= 2 then
4073: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_INT_ADDRESS');
4074: end if;
4075: EXCEPTION
4076: WHEN ec_utils.program_exit then
4077: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_INT_ADDRESS');
4078: raise;
4079:
4080: WHEN OTHERS THEN
4080: WHEN OTHERS THEN
4081: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
4082: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
4083: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_SHIP_FROM_INT_ADDRESS');
4084: raise ec_utils.program_exit;
4085:
4086: END Validate_Ship_From_Int_Address;
4087:
4088:
4125: if (l_action_code <> g_disabled and l_ignore_flag = 'N') then
4126:
4127: -- get the pl/sql position for address columns.
4128: xProgress := 'ECERULEB-210-1004';
4129: ec_utils.find_pos (
4130: 1,
4131: 'ORG_ID',
4132: n_org_id_pos,
4133: FALSE);
4132: n_org_id_pos,
4133: FALSE);
4134:
4135: xProgress := 'ECERULEB-210-1010';
4136: ec_utils.find_pos (
4137: ec_utils.g_current_level,
4138: 'BILL_FROM_INT_LOCATION_ID',
4139: n_addr_id_pos);
4140:
4133: FALSE);
4134:
4135: xProgress := 'ECERULEB-210-1010';
4136: ec_utils.find_pos (
4137: ec_utils.g_current_level,
4138: 'BILL_FROM_INT_LOCATION_ID',
4139: n_addr_id_pos);
4140:
4141: xProgress := 'ECERULEB-210-1020';
4138: 'BILL_FROM_INT_LOCATION_ID',
4139: n_addr_id_pos);
4140:
4141: xProgress := 'ECERULEB-210-1020';
4142: ec_utils.find_pos (
4143: ec_utils.g_current_level,
4144: 'BILL_FROM_INT_EDI_LOCATION_CODE',
4145: n_edi_location_code_pos);
4146:
4139: n_addr_id_pos);
4140:
4141: xProgress := 'ECERULEB-210-1020';
4142: ec_utils.find_pos (
4143: ec_utils.g_current_level,
4144: 'BILL_FROM_INT_EDI_LOCATION_CODE',
4145: n_edi_location_code_pos);
4146:
4147: xProgress := 'ECERULEB-210-1030';
4144: 'BILL_FROM_INT_EDI_LOCATION_CODE',
4145: n_edi_location_code_pos);
4146:
4147: xProgress := 'ECERULEB-210-1030';
4148: /* ec_utils.find_pos (
4149: 1,
4150: 'TP_TRANSLATOR_CODE',
4151: n_tp_translator_code_pos);
4152: bug2151462 */
4151: n_tp_translator_code_pos);
4152: bug2151462 */
4153:
4154: xProgress := 'ECERULEB-210-1040';
4155: ec_utils.find_pos (
4156: ec_utils.g_current_level,
4157: 'BILL_FROM_INT_LOCATION_NAME',
4158: n_tp_location_name_pos);
4159:
4152: bug2151462 */
4153:
4154: xProgress := 'ECERULEB-210-1040';
4155: ec_utils.find_pos (
4156: ec_utils.g_current_level,
4157: 'BILL_FROM_INT_LOCATION_NAME',
4158: n_tp_location_name_pos);
4159:
4160: xProgress := 'ECERULEB-210-1050';
4157: 'BILL_FROM_INT_LOCATION_NAME',
4158: n_tp_location_name_pos);
4159:
4160: xProgress := 'ECERULEB-210-1050';
4161: ec_utils.find_pos (
4162: ec_utils.g_current_level,
4163: 'BILL_FROM_INT_ADDRESS1',
4164: n_addr1_pos);
4165:
4158: n_tp_location_name_pos);
4159:
4160: xProgress := 'ECERULEB-210-1050';
4161: ec_utils.find_pos (
4162: ec_utils.g_current_level,
4163: 'BILL_FROM_INT_ADDRESS1',
4164: n_addr1_pos);
4165:
4166: xProgress := 'ECERULEB-210-1060';
4163: 'BILL_FROM_INT_ADDRESS1',
4164: n_addr1_pos);
4165:
4166: xProgress := 'ECERULEB-210-1060';
4167: ec_utils.find_pos (
4168: ec_utils.g_current_level,
4169: 'BILL_FROM_INT_ADDRESS2',
4170: n_addr2_pos);
4171:
4164: n_addr1_pos);
4165:
4166: xProgress := 'ECERULEB-210-1060';
4167: ec_utils.find_pos (
4168: ec_utils.g_current_level,
4169: 'BILL_FROM_INT_ADDRESS2',
4170: n_addr2_pos);
4171:
4172: xProgress := 'ECERULEB-210-1070';
4169: 'BILL_FROM_INT_ADDRESS2',
4170: n_addr2_pos);
4171:
4172: xProgress := 'ECERULEB-210-1070';
4173: ec_utils.find_pos (
4174: ec_utils.g_current_level,
4175: 'BILL_FROM_INT_ADDRESS3',
4176: n_addr3_pos);
4177:
4170: n_addr2_pos);
4171:
4172: xProgress := 'ECERULEB-210-1070';
4173: ec_utils.find_pos (
4174: ec_utils.g_current_level,
4175: 'BILL_FROM_INT_ADDRESS3',
4176: n_addr3_pos);
4177:
4178: xProgress := 'ECERULEB-210-1090';
4175: 'BILL_FROM_INT_ADDRESS3',
4176: n_addr3_pos);
4177:
4178: xProgress := 'ECERULEB-210-1090';
4179: ec_utils.find_pos (
4180: ec_utils.g_current_level,
4181: 'BILL_FROM_INT_CITY',
4182: n_city_pos);
4183:
4176: n_addr3_pos);
4177:
4178: xProgress := 'ECERULEB-210-1090';
4179: ec_utils.find_pos (
4180: ec_utils.g_current_level,
4181: 'BILL_FROM_INT_CITY',
4182: n_city_pos);
4183:
4184: xProgress := 'ECERULEB-210-1100';
4181: 'BILL_FROM_INT_CITY',
4182: n_city_pos);
4183:
4184: xProgress := 'ECERULEB-210-1100';
4185: ec_utils.find_pos (
4186: ec_utils.g_current_level,
4187: 'BILL_FROM_INT_POSTAL_CODE',
4188: n_zip_pos);
4189:
4182: n_city_pos);
4183:
4184: xProgress := 'ECERULEB-210-1100';
4185: ec_utils.find_pos (
4186: ec_utils.g_current_level,
4187: 'BILL_FROM_INT_POSTAL_CODE',
4188: n_zip_pos);
4189:
4190: xProgress := 'ECERULEB-210-1110';
4187: 'BILL_FROM_INT_POSTAL_CODE',
4188: n_zip_pos);
4189:
4190: xProgress := 'ECERULEB-210-1110';
4191: ec_utils.find_pos (
4192: ec_utils.g_current_level,
4193: 'BILL_FROM_INT_COUNTRY',
4194: n_country_pos);
4195:
4188: n_zip_pos);
4189:
4190: xProgress := 'ECERULEB-210-1110';
4191: ec_utils.find_pos (
4192: ec_utils.g_current_level,
4193: 'BILL_FROM_INT_COUNTRY',
4194: n_country_pos);
4195:
4196: xProgress := 'ECERULEB-210-1120';
4193: 'BILL_FROM_INT_COUNTRY',
4194: n_country_pos);
4195:
4196: xProgress := 'ECERULEB-210-1120';
4197: ec_utils.find_pos (
4198: ec_utils.g_current_level,
4199: 'BILL_FROM_INT_REGION1',
4200: n_region1_pos);
4201:
4194: n_country_pos);
4195:
4196: xProgress := 'ECERULEB-210-1120';
4197: ec_utils.find_pos (
4198: ec_utils.g_current_level,
4199: 'BILL_FROM_INT_REGION1',
4200: n_region1_pos);
4201:
4202: xProgress := 'ECERULEB-210-1130';
4199: 'BILL_FROM_INT_REGION1',
4200: n_region1_pos);
4201:
4202: xProgress := 'ECERULEB-210-1130';
4203: ec_utils.find_pos (
4204: ec_utils.g_current_level,
4205: 'BILL_FROM_INT_REGION2',
4206: n_region2_pos);
4207:
4200: n_region1_pos);
4201:
4202: xProgress := 'ECERULEB-210-1130';
4203: ec_utils.find_pos (
4204: ec_utils.g_current_level,
4205: 'BILL_FROM_INT_REGION2',
4206: n_region2_pos);
4207:
4208: xProgress := 'ECERULEB-210-1140';
4205: 'BILL_FROM_INT_REGION2',
4206: n_region2_pos);
4207:
4208: xProgress := 'ECERULEB-210-1140';
4209: ec_utils.find_pos (
4210: ec_utils.g_current_level,
4211: 'BILL_FROM_INT_REGION3',
4212: n_region3_pos);
4213:
4206: n_region2_pos);
4207:
4208: xProgress := 'ECERULEB-210-1140';
4209: ec_utils.find_pos (
4210: ec_utils.g_current_level,
4211: 'BILL_FROM_INT_REGION3',
4212: n_region3_pos);
4213:
4214: xProgress := 'ECERULEB-210-1150';
4227: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_INT_ADDRESS');
4228: end if;
4229:
4230: EXCEPTION
4231: WHEN ec_utils.program_exit then
4232: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_INT_ADDRESS');
4233: raise;
4234:
4235: WHEN OTHERS THEN
4235: WHEN OTHERS THEN
4236: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
4237: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
4238: ec_debug.pop ('ECE_RULES_PKG.VALIDATE_BILL_FROM_INT_ADDRESS');
4239: raise ec_utils.program_exit;
4240:
4241: END Validate_Bill_From_Int_Address;
4242:
4243:
4318:
4319: BEGIN
4320: if ec_debug.G_debug_level >= 2 then
4321: ec_debug.push ('ECE_RULES_PKG.GET_ACTION_IGNORE_FLAG');
4322: ec_debug.pl (3, 'g_transaction_type', ec_utils.g_transaction_type);
4323: ec_debug.pl (3, 'g_document_id', ec_utils.g_document_id);
4324: end if;
4325:
4326: xProgress := 'ECERULEB-220-1000';
4319: BEGIN
4320: if ec_debug.G_debug_level >= 2 then
4321: ec_debug.push ('ECE_RULES_PKG.GET_ACTION_IGNORE_FLAG');
4322: ec_debug.pl (3, 'g_transaction_type', ec_utils.g_transaction_type);
4323: ec_debug.pl (3, 'g_document_id', ec_utils.g_document_id);
4324: end if;
4325:
4326: xProgress := 'ECERULEB-220-1000';
4327: x_action_code := g_skip_doc;
4326: xProgress := 'ECERULEB-220-1000';
4327: x_action_code := g_skip_doc;
4328:
4329: xProgress := 'ECERULEB-220-1010';
4330: open c_rule_info (l_rule_type, ec_utils.g_transaction_type, ec_utils.g_map_id);
4331: fetch c_rule_info into l_rule_id, x_action_code;
4332:
4333: if c_rule_info%NOTFOUND then
4334: raise no_process_rule_info;
4340: ec_debug.pl (3, 'action_code', x_action_code);
4341: end if;
4342:
4343: xProgress := 'ECERULEB-220-1020';
4344: open c_ignore_flag (ec_utils.g_document_id, l_rule_id);
4345: fetch c_ignore_flag into x_ignore_flag;
4346:
4347: if c_ignore_flag%NOTFOUND then
4348: x_ignore_flag := 'N';
4360: if (c_rule_info%ISOPEN) then
4361: close c_rule_info;
4362: end if;
4363: ec_debug.pl (0, 'EC', 'ECE_NO_PROCESS_RULE',
4364: 'TRANSACTION_TYPE', ec_utils.g_transaction_type,
4365: 'RULE_TYPE', l_rule_type);
4366: ec_debug.pop ('ECE_RULES_PKG.GET_ACTION_IGNORE_FLAG');
4367: raise ec_utils.program_exit;
4368:
4363: ec_debug.pl (0, 'EC', 'ECE_NO_PROCESS_RULE',
4364: 'TRANSACTION_TYPE', ec_utils.g_transaction_type,
4365: 'RULE_TYPE', l_rule_type);
4366: ec_debug.pop ('ECE_RULES_PKG.GET_ACTION_IGNORE_FLAG');
4367: raise ec_utils.program_exit;
4368:
4369: WHEN OTHERS THEN
4370: if (c_rule_info%ISOPEN) then
4371: close c_rule_info;
4375: end if;
4376: ec_debug.pl (0, 'EC', 'ECE_PROGRAM_ERROR','PROGRESS_LEVEL', xProgress);
4377: ec_debug.pl (0, 'EC', 'ECE_ERROR_MESSAGE', 'ERROR_MESSAGE', SQLERRM);
4378: ec_debug.pop ('ECE_RULES_PKG.GET_ACTION_IGNORE_FLAG');
4379: raise ec_utils.program_exit;
4380:
4381: END Get_Action_Ignore_Flag;
4382:
4383: