1942: ,x_Rltd_Modifier_ID OUT NOCOPY /* file.sql.39 change */ NUMBER
1943: ) IS
1944:
1945: l_List_Line_Id QP_LIST_LINES.List_Line_ID%Type;
1946: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1947: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1948: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1949: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1950:
1943: ) IS
1944:
1945: l_List_Line_Id QP_LIST_LINES.List_Line_ID%Type;
1946: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1947: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1948: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1949: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1950:
1951: BEGIN
1944:
1945: l_List_Line_Id QP_LIST_LINES.List_Line_ID%Type;
1946: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1947: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1948: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1949: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1950:
1951: BEGIN
1952:
1945: l_List_Line_Id QP_LIST_LINES.List_Line_ID%Type;
1946: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1947: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1948: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1949: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1950:
1951: BEGIN
1952:
1953: select to_rltd_modifier_id,
1953: select to_rltd_modifier_id,
1954: rltd_modifier_grp_type, rltd_modifier_grp_no, rltd_modifier_id
1955: into x_to_rltd_modifier_id,
1956: x_rltd_modifier_grp_type, x_rltd_modifier_grp_no, x_rltd_modifier_id
1957: from qp_rltd_modifiers
1958: where
1959: from_rltd_modifier_id = p_list_line_id;
1960:
1961: EXCEPTION
1973: FUNCTION Get_To_Rltd_Modifier_ID
1974: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
1975: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
1976: )
1977: RETURN QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type IS
1978: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1979: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1980: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1981: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1974: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
1975: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
1976: )
1977: RETURN QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type IS
1978: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1979: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1980: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1981: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1982: BEGIN
1975: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
1976: )
1977: RETURN QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type IS
1978: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1979: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1980: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1981: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1982: BEGIN
1983:
1976: )
1977: RETURN QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type IS
1978: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1979: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1980: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1981: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1982: BEGIN
1983:
1984: IF p_modifier_type_code = 'CIE' THEN
1977: RETURN QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type IS
1978: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
1979: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
1980: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
1981: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
1982: BEGIN
1983:
1984: IF p_modifier_type_code = 'CIE' THEN
1985: --only for coupon issue
2007: FUNCTION Get_Rltd_Modifier_ID
2008: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2009: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2010: )
2011: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type IS
2012: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2013: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2014: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2015: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2008: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2009: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2010: )
2011: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type IS
2012: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2013: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2014: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2015: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2016: BEGIN
2009: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2010: )
2011: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type IS
2012: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2013: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2014: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2015: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2016: BEGIN
2017:
2010: )
2011: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type IS
2012: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2013: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2014: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2015: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2016: BEGIN
2017:
2018: IF p_modifier_type_code = 'CIE' THEN
2011: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type IS
2012: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2013: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2014: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2015: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2016: BEGIN
2017:
2018: IF p_modifier_type_code = 'CIE' THEN
2019: --only for coupon issue
2041: FUNCTION Get_Rltd_Modifier_Grp_Type
2042: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2043: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2044: )
2045: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type IS
2046: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2047: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2048: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2049: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2042: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2043: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2044: )
2045: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type IS
2046: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2047: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2048: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2049: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2050: BEGIN
2043: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2044: )
2045: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type IS
2046: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2047: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2048: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2049: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2050: BEGIN
2051:
2044: )
2045: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type IS
2046: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2047: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2048: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2049: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2050: BEGIN
2051:
2052: IF p_modifier_type_code = 'CIE' THEN
2045: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type IS
2046: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2047: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2048: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2049: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2050: BEGIN
2051:
2052: IF p_modifier_type_code = 'CIE' THEN
2053: --only for coupon issue
2075: FUNCTION Get_Rltd_Modifier_Grp_No
2076: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2077: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2078: )
2079: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type IS
2080: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2081: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2082: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2083: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2076: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2077: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2078: )
2079: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type IS
2080: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2081: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2082: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2083: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2084: BEGIN
2077: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2078: )
2079: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type IS
2080: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2081: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2082: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2083: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2084: BEGIN
2085:
2078: )
2079: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type IS
2080: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2081: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2082: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2083: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2084: BEGIN
2085:
2086: IF p_modifier_type_code = 'CIE' THEN
2079: RETURN QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type IS
2080: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2081: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2082: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2083: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2084: BEGIN
2085:
2086: IF p_modifier_type_code = 'CIE' THEN
2087: --only for coupon issue
2111: ( p_list_line_id IN QP_LIST_LINES.List_Line_ID%Type
2112: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2113: )
2114: RETURN QP_LIST_LINES.List_Line_No%Type IS
2115: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2116: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2117: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2118: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2119: l_Benefit_List_Line_No QP_LIST_LINES.List_Line_No%Type;
2112: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2113: )
2114: RETURN QP_LIST_LINES.List_Line_No%Type IS
2115: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2116: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2117: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2118: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2119: l_Benefit_List_Line_No QP_LIST_LINES.List_Line_No%Type;
2120: BEGIN
2113: )
2114: RETURN QP_LIST_LINES.List_Line_No%Type IS
2115: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2116: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2117: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2118: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2119: l_Benefit_List_Line_No QP_LIST_LINES.List_Line_No%Type;
2120: BEGIN
2121:
2114: RETURN QP_LIST_LINES.List_Line_No%Type IS
2115: l_To_Rltd_Modifier_ID QP_RLTD_MODIFIERS.To_Rltd_Modifier_ID%Type;
2116: l_Rltd_Modifier_Grp_Type QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_Type%Type;
2117: l_Rltd_Modifier_Grp_No QP_RLTD_MODIFIERS.Rltd_Modifier_Grp_No%Type;
2118: l_Rltd_Modifier_ID QP_RLTD_MODIFIERS.Rltd_Modifier_ID%Type;
2119: l_Benefit_List_Line_No QP_LIST_LINES.List_Line_No%Type;
2120: BEGIN
2121:
2122: IF p_modifier_type_code = 'CIE' THEN
2149:
2150:
2151: /*
2152: FUNCTION Get_Benefit_List_Line_No
2153: ( p_to_rltd_modifier_id IN QP_RLTD_MODIFIERS.to_rltd_modifier_id%type
2154: , p_modifier_type_code IN QP_LIST_LINES.list_line_type_code%type
2155: )
2156: RETURN QP_LIST_LINES.List_Line_No%Type IS
2157: l_Benefit_List_Line_No QP_LIST_LINES.List_Line_No%Type;
2267:
2268: select ql.list_line_type_code into l_Break_Line_Type_Code
2269: from QP_LIST_LINES ql
2270: where ql.list_line_id = (select to_rltd_modifier_id from
2271: qp_rltd_modifiers where from_rltd_modifier_id = p_list_line_id and
2272: rownum < 2);
2273:
2274: ELSE
2275:
2313: select qlook.Meaning into l_Break_Line_Type
2314: from QP_LIST_LINES ql, qp_lookups qlook
2315: where qlook.lookup_code = ql.list_line_type_code and
2316: ql.list_line_id = (select to_rltd_modifier_id from
2317: qp_rltd_modifiers where from_rltd_modifier_id = p_list_line_id and
2318: rownum < 2);
2319: */
2320:
2321: ELSE