[Home] [Help]
1884: ,X_TO_CURRENCY IN VARCHAR2
1885: ,X_EFFECTIVE_DATE IN DATE) RETURN VARCHAR2 IS
1886: X0 VARCHAR2(2000);
1887: BEGIN
1888: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.IS_FIXED_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE); end;');
1889: STPROC.BIND_O(X0);
1890: STPROC.BIND_I(X_FROM_CURRENCY);
1891: STPROC.BIND_I(X_TO_CURRENCY);
1892: STPROC.BIND_I(X_EFFECTIVE_DATE);
1893: STPROC.EXECUTE;
1894: STPROC.RETRIEVE(1
1895: ,X0);*/
1896:
1897: X0 := GL_CURRENCY_API.IS_FIXED_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE);
1898: RETURN X0;
1899: END IS_FIXED_RATE;
1900:
1901: PROCEDURE GET_RELATION(X_FROM_CURRENCY IN VARCHAR2
1905: ,X_RELATIONSHIP IN OUT NOCOPY VARCHAR2) IS
1906: BEGIN
1907: /*STPROC.INIT('declare X_FIXED_RATE BOOLEAN;
1908: begin X_FIXED_RATE := sys.diutil.int_to_bool(:X_FIXED_RATE);
1909: GL_CURRENCY_API.GET_RELATION(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE, X_FIXED_RATE, :X_RELATIONSHIP);
1910: :X_FIXED_RATE := sys.diutil.bool_to_int(X_FIXED_RATE); end;');
1911: STPROC.BIND_IO(X_FIXED_RATE);
1912: STPROC.BIND_I(X_FROM_CURRENCY);
1913: STPROC.BIND_I(X_TO_CURRENCY);
1924: X_FIXED_RATE1 number;
1925: begin
1926: X_FIXED_RATE1 := sys.diutil.bool_to_int(X_FIXED_RATE);
1927: X_FIXED_RATE := sys.diutil.int_to_bool(X_FIXED_RATE1);
1928: GL_CURRENCY_API.GET_RELATION(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE, X_FIXED_RATE, X_RELATIONSHIP);
1929: X_FIXED_RATE1 := sys.diutil.bool_to_int(X_FIXED_RATE);
1930: end;
1931: END GET_RELATION;
1932:
1932:
1933: FUNCTION GET_EURO_CODE RETURN VARCHAR2 IS
1934: X0 VARCHAR2(2000);
1935: BEGIN
1936: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_EURO_CODE; end;');
1937: STPROC.BIND_O(X0);
1938: STPROC.EXECUTE;
1939: STPROC.RETRIEVE(1
1940: ,X0);*/
1937: STPROC.BIND_O(X0);
1938: STPROC.EXECUTE;
1939: STPROC.RETRIEVE(1
1940: ,X0);*/
1941: X0 := GL_CURRENCY_API.GET_EURO_CODE;
1942: RETURN X0;
1943: END GET_EURO_CODE;
1944:
1945: FUNCTION GET_RATE(X_FROM_CURRENCY IN VARCHAR2
1947: ,X_CONVERSION_DATE IN DATE
1948: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
1949: X0 NUMBER;
1950: BEGIN
1951: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
1952: STPROC.BIND_O(X0);
1953: STPROC.BIND_I(X_FROM_CURRENCY);
1954: STPROC.BIND_I(X_TO_CURRENCY);
1955: STPROC.BIND_I(X_CONVERSION_DATE);
1957: STPROC.EXECUTE;
1958: STPROC.RETRIEVE(1
1959: ,X0);*/
1960:
1961: X0 := GL_CURRENCY_API.GET_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
1962: RETURN X0;
1963: END GET_RATE;
1964:
1965: FUNCTION GET_RATE(X_SET_OF_BOOKS_ID IN NUMBER
1967: ,X_CONVERSION_DATE IN DATE
1968: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
1969: X0 NUMBER;
1970: BEGIN
1971: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_SET_OF_BOOKS_ID, :X_FROM_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
1972: STPROC.BIND_O(X0);
1973: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
1974: STPROC.BIND_I(X_FROM_CURRENCY);
1975: STPROC.BIND_I(X_CONVERSION_DATE);
1977: STPROC.EXECUTE;
1978: STPROC.RETRIEVE(1
1979: ,X0);*/
1980:
1981: X0 := GL_CURRENCY_API.GET_RATE(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
1982: RETURN X0;
1983: END GET_RATE;
1984:
1985: FUNCTION CONVERT_AMOUNT(X_FROM_CURRENCY IN VARCHAR2
1988: ,X_CONVERSION_TYPE IN VARCHAR2
1989: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
1990: X0 NUMBER;
1991: BEGIN
1992: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.CONVERT_AMOUNT(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE, :X_AMOUNT); end;');
1993: STPROC.BIND_O(X0);
1994: STPROC.BIND_I(X_FROM_CURRENCY);
1995: STPROC.BIND_I(X_TO_CURRENCY);
1996: STPROC.BIND_I(X_CONVERSION_DATE);
1999: STPROC.EXECUTE;
2000: STPROC.RETRIEVE(1
2001: ,X0);*/
2002:
2003: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
2004: RETURN X0;
2005: END CONVERT_AMOUNT;
2006:
2007: FUNCTION CONVERT_AMOUNT(X_SET_OF_BOOKS_ID IN NUMBER
2010: ,X_CONVERSION_TYPE IN VARCHAR2
2011: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
2012: X0 NUMBER;
2013: BEGIN
2014: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.CONVERT_AMOUNT(:X_SET_OF_BOOKS_ID, :X_FROM_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE, :X_AMOUNT); end;');
2015: STPROC.BIND_O(X0);
2016: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
2017: STPROC.BIND_I(X_FROM_CURRENCY);
2018: STPROC.BIND_I(X_CONVERSION_DATE);
2021: STPROC.EXECUTE;
2022: STPROC.RETRIEVE(1
2023: ,X0);*/
2024:
2025: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
2026: RETURN X0;
2027: END CONVERT_AMOUNT;
2028:
2029: FUNCTION GET_DERIVE_TYPE(SOB_ID IN NUMBER
2030: ,PERIOD IN VARCHAR2
2031: ,CURR_CODE IN VARCHAR2) RETURN VARCHAR2 IS
2032: X0 VARCHAR2(2000);
2033: BEGIN
2034: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(:SOB_ID, :PERIOD, :CURR_CODE); end;');
2035: STPROC.BIND_O(X0);
2036: STPROC.BIND_I(SOB_ID);
2037: STPROC.BIND_I(PERIOD);
2038: STPROC.BIND_I(CURR_CODE);
2039: STPROC.EXECUTE;
2040: STPROC.RETRIEVE(1
2041: ,X0);*/
2042:
2043: X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(SOB_ID, PERIOD, CURR_CODE);
2044: RETURN X0;
2045: END GET_DERIVE_TYPE;
2046:
2047: FUNCTION RATE_EXISTS(X_FROM_CURRENCY IN VARCHAR2
2049: ,X_CONVERSION_DATE IN DATE
2050: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
2051: X0 VARCHAR2(2000);
2052: BEGIN
2053: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.RATE_EXISTS(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
2054: STPROC.BIND_O(X0);
2055: STPROC.BIND_I(X_FROM_CURRENCY);
2056: STPROC.BIND_I(X_TO_CURRENCY);
2057: STPROC.BIND_I(X_CONVERSION_DATE);
2059: STPROC.EXECUTE;
2060: STPROC.RETRIEVE(1
2061: ,X0);*/
2062:
2063: X0 := GL_CURRENCY_API.RATE_EXISTS(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
2064: RETURN X0;
2065: END RATE_EXISTS;
2066:
2067: function Item_dspFormula