DBA Data[Home] [Help]

APPS.HZ_MATCH_RULE_COMPILE dependencies on HZ_GEN_PLSQL

Line 137: HZ_GEN_PLSQL.add_line(str);

133:
134: /*** Private procedure for inserting lines into generated packages **/
135: PROCEDURE l(str VARCHAR2) IS
136: BEGIN
137: HZ_GEN_PLSQL.add_line(str);
138: END;
139:
140: /*** Private procedure for inserting statement , procedure level debug lines into generated packages **/
141: PROCEDURE d(p_msg_level NUMBER,str VARCHAR2, val VARCHAR2 DEFAULT NULL, pad VARCHAR2 DEFAULT ' ') IS

Line 614: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE');

610: END IF;
611: CLOSE check_inactive;
612:
613: -- Generate and compile match rule package spec
614: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE');
615: gen_pkg_spec(l_package_name, l_rule_id);
616: HZ_GEN_PLSQL.compile_code;
617:
618: -- Generate the package body

Line 616: HZ_GEN_PLSQL.compile_code;

612:
613: -- Generate and compile match rule package spec
614: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE');
615: gen_pkg_spec(l_package_name, l_rule_id);
616: HZ_GEN_PLSQL.compile_code;
617:
618: -- Generate the package body
619: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE BODY');
620:

Line 619: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE BODY');

615: gen_pkg_spec(l_package_name, l_rule_id);
616: HZ_GEN_PLSQL.compile_code;
617:
618: -- Generate the package body
619: HZ_GEN_PLSQL.new(l_package_name, 'PACKAGE BODY');
620:
621: -- VJN: generate the body for HZ_MATCH_RULE_XXX depending on the rule purpose:
622: -- If rule purpose is Q, we would generate Bulk Match rules that use B-tree indexes
623: -- Else we would generate Match rules that use the regular intermedia text indexes

Line 637: HZ_GEN_PLSQL.compile_code;

633: gen_pkg_body(l_package_name, l_rule_id);
634: END IF;
635:
636: -- Compile the package body
637: HZ_GEN_PLSQL.compile_code;
638:
639:
640: IF p_skip_wrap IS NULL OR p_skip_wrap='N' THEN
641: -- Generate and compile API package body (Package HZ_PARTY_SEARCH)

Line 642: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');

638:
639:
640: IF p_skip_wrap IS NULL OR p_skip_wrap='N' THEN
641: -- Generate and compile API package body (Package HZ_PARTY_SEARCH)
642: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
643: gen_wrap_pkg_body(p_rule_id);
644: HZ_GEN_PLSQL.compile_code;
645: END IF;
646:

Line 644: HZ_GEN_PLSQL.compile_code;

640: IF p_skip_wrap IS NULL OR p_skip_wrap='N' THEN
641: -- Generate and compile API package body (Package HZ_PARTY_SEARCH)
642: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
643: gen_wrap_pkg_body(p_rule_id);
644: HZ_GEN_PLSQL.compile_code;
645: END IF;
646:
647: EXECUTE IMMEDIATE 'ALTER PACKAGE ' || l_package_name || ' COMPILE SPECIFICATION'; --bug 5622345
648:

Line 13711: HZ_GEN_PLSQL.add_line(' IF p_party_site_list(I).',false);

13707: AND nvl(p.FILTER_FLAG,'N') = 'N')
13708: LOOP
13709: IF PRIMATTRS.ENTITY_NAME = 'PARTY_SITES' THEN
13710: l(' FOR I IN 1..p_party_site_list.COUNT LOOP');
13711: HZ_GEN_PLSQL.add_line(' IF p_party_site_list(I).',false);
13712: ELSIF PRIMATTRS.ENTITY_NAME = 'CONTACTS' THEN
13713: l(' FOR I IN 1..p_contact_list.COUNT LOOP');
13714: HZ_GEN_PLSQL.add_line(' IF p_contact_list(I).',false);
13715: ELSIF PRIMATTRS.ENTITY_NAME = 'CONTACT_POINTS' THEN

Line 13714: HZ_GEN_PLSQL.add_line(' IF p_contact_list(I).',false);

13710: l(' FOR I IN 1..p_party_site_list.COUNT LOOP');
13711: HZ_GEN_PLSQL.add_line(' IF p_party_site_list(I).',false);
13712: ELSIF PRIMATTRS.ENTITY_NAME = 'CONTACTS' THEN
13713: l(' FOR I IN 1..p_contact_list.COUNT LOOP');
13714: HZ_GEN_PLSQL.add_line(' IF p_contact_list(I).',false);
13715: ELSIF PRIMATTRS.ENTITY_NAME = 'CONTACT_POINTS' THEN
13716: l(' FOR I IN 1..p_contact_point_list.COUNT LOOP');
13717: HZ_GEN_PLSQL.add_line(' IF p_contact_point_list(I).',false);
13718: END IF;

Line 13717: HZ_GEN_PLSQL.add_line(' IF p_contact_point_list(I).',false);

13713: l(' FOR I IN 1..p_contact_list.COUNT LOOP');
13714: HZ_GEN_PLSQL.add_line(' IF p_contact_list(I).',false);
13715: ELSIF PRIMATTRS.ENTITY_NAME = 'CONTACT_POINTS' THEN
13716: l(' FOR I IN 1..p_contact_point_list.COUNT LOOP');
13717: HZ_GEN_PLSQL.add_line(' IF p_contact_point_list(I).',false);
13718: END IF;
13719: l(PRIMATTRS.ATTRIBUTE_NAME||' IS NOT NULL THEN ');
13720: l(' RETURN TRUE;');
13721: l(' END IF;');

Line 15617: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');

15613: END LOOP;
15614:
15615: -- IF p_rule_purpose <> 'Q'
15616: -- THEN
15617: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
15618: gen_wrap_pkg_body(-1);
15619: HZ_GEN_PLSQL.compile_code;
15620: -- END IF;
15621:

Line 15619: HZ_GEN_PLSQL.compile_code;

15615: -- IF p_rule_purpose <> 'Q'
15616: -- THEN
15617: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
15618: gen_wrap_pkg_body(-1);
15619: HZ_GEN_PLSQL.compile_code;
15620: -- END IF;
15621:
15622: EXCEPTION
15623: WHEN OTHERS THEN

Line 15695: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');

15691: UPDATE HZ_MATCH_RULES_B SET COMPILATION_FLAG = 'U' WHERE MATCH_RULE_ID = l_match_rule_id;
15692: COMMIT;
15693: END;
15694: END LOOP;
15695: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
15696: gen_wrap_pkg_body(-1);
15697: HZ_GEN_PLSQL.compile_code;
15698:
15699: IF retcode = 1 THEN

Line 15697: HZ_GEN_PLSQL.compile_code;

15693: END;
15694: END LOOP;
15695: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
15696: gen_wrap_pkg_body(-1);
15697: HZ_GEN_PLSQL.compile_code;
15698:
15699: IF retcode = 1 THEN
15700: outandlog('One or More match rules compilation had errors. Please check the log file for details');
15701: END IF;

Line 16041: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');

16037: END;
16038: END LOOP;
16039: close c_rulesets_for_compile;
16040: IF NOT l_has_errors THEN
16041: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
16042: gen_wrap_pkg_body(-1);
16043: HZ_GEN_PLSQL.compile_code;
16044: END IF;
16045:

Line 16043: HZ_GEN_PLSQL.compile_code;

16039: close c_rulesets_for_compile;
16040: IF NOT l_has_errors THEN
16041: HZ_GEN_PLSQL.new('HZ_PARTY_SEARCH','PACKAGE BODY');
16042: gen_wrap_pkg_body(-1);
16043: HZ_GEN_PLSQL.compile_code;
16044: END IF;
16045:
16046: EXCEPTION
16047: WHEN OTHERS THEN