40: CURSOR csr_line_rules(p_rule_code IN VARCHAR2, p_cle_id IN NUMBER, p_chr_id IN NUMBER) IS
41: SELECT rule_information1, rule_information2,
42: rule_information3, rule_information4
43: FROM okc_rule_groups_b rgb,
44: okc_rules_b rul
45: WHERE rgb.id = rul.rgp_id
46: AND rgb.rgd_code = 'REVENUE_CONTINGENCY_RULES'
47: AND rgb.dnz_chr_id = p_chr_id
48: AND rgb.cle_id = p_cle_id
52: CURSOR csr_header_rules(p_rule_code IN VARCHAR2, p_chr_id IN NUMBER) IS
53: SELECT rule_information1, rule_information2,
54: rule_information3, rule_information4
55: FROM okc_rule_groups_b rgb,
56: okc_rules_b rul
57: WHERE rgb.id = rul.rgp_id
58: AND rgb.rgd_code = 'REVENUE_CONTINGENCY_RULES'
59: AND rgb.chr_id = p_chr_id
60: AND rul.rule_information_category = p_rule_code;
60: AND rul.rule_information_category = p_rule_code;
61:
62:
63: l_rule_code fnd_lookups.lookup_code%TYPE;
64: l_rule_information1 okc_rules_b.rule_information1%TYPE;
65: l_rule_information2 okc_rules_b.rule_information2%TYPE;
66: l_rule_information3 okc_rules_b.rule_information3%TYPE;
67: l_rule_information4 okc_rules_b.rule_information4%TYPE;
68: i BINARY_INTEGER :=1;
61:
62:
63: l_rule_code fnd_lookups.lookup_code%TYPE;
64: l_rule_information1 okc_rules_b.rule_information1%TYPE;
65: l_rule_information2 okc_rules_b.rule_information2%TYPE;
66: l_rule_information3 okc_rules_b.rule_information3%TYPE;
67: l_rule_information4 okc_rules_b.rule_information4%TYPE;
68: i BINARY_INTEGER :=1;
69:
62:
63: l_rule_code fnd_lookups.lookup_code%TYPE;
64: l_rule_information1 okc_rules_b.rule_information1%TYPE;
65: l_rule_information2 okc_rules_b.rule_information2%TYPE;
66: l_rule_information3 okc_rules_b.rule_information3%TYPE;
67: l_rule_information4 okc_rules_b.rule_information4%TYPE;
68: i BINARY_INTEGER :=1;
69:
70: BEGIN
63: l_rule_code fnd_lookups.lookup_code%TYPE;
64: l_rule_information1 okc_rules_b.rule_information1%TYPE;
65: l_rule_information2 okc_rules_b.rule_information2%TYPE;
66: l_rule_information3 okc_rules_b.rule_information3%TYPE;
67: l_rule_information4 okc_rules_b.rule_information4%TYPE;
68: i BINARY_INTEGER :=1;
69:
70: BEGIN
71: IF (l_debug = 'Y') THEN