[Home] [Help]
1888: ,X_TO_CURRENCY IN VARCHAR2
1889: ,X_EFFECTIVE_DATE IN DATE) RETURN VARCHAR2 IS
1890: X0 VARCHAR2(2000);
1891: BEGIN
1892: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.IS_FIXED_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE); end;');
1893: STPROC.BIND_O(X0);
1894: STPROC.BIND_I(X_FROM_CURRENCY);
1895: STPROC.BIND_I(X_TO_CURRENCY);
1896: STPROC.BIND_I(X_EFFECTIVE_DATE);
1897: STPROC.EXECUTE;
1898: STPROC.RETRIEVE(1
1899: ,X0);*/
1900:
1901: X0 := GL_CURRENCY_API.IS_FIXED_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE);
1902: RETURN X0;
1903: END IS_FIXED_RATE;
1904:
1905: PROCEDURE GET_RELATION(X_FROM_CURRENCY IN VARCHAR2
1909: ,X_RELATIONSHIP IN OUT NOCOPY VARCHAR2) IS
1910: BEGIN
1911: /*STPROC.INIT('declare X_FIXED_RATE BOOLEAN;
1912: begin X_FIXED_RATE := sys.diutil.int_to_bool(:X_FIXED_RATE);
1913: GL_CURRENCY_API.GET_RELATION(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_EFFECTIVE_DATE, X_FIXED_RATE, :X_RELATIONSHIP);
1914: :X_FIXED_RATE := sys.diutil.bool_to_int(X_FIXED_RATE); end;');
1915: STPROC.BIND_IO(X_FIXED_RATE);
1916: STPROC.BIND_I(X_FROM_CURRENCY);
1917: STPROC.BIND_I(X_TO_CURRENCY);
1928: X_FIXED_RATE1 number;
1929: begin
1930: X_FIXED_RATE1 := sys.diutil.bool_to_int(X_FIXED_RATE);
1931: X_FIXED_RATE := sys.diutil.int_to_bool(X_FIXED_RATE1);
1932: GL_CURRENCY_API.GET_RELATION(X_FROM_CURRENCY, X_TO_CURRENCY, X_EFFECTIVE_DATE, X_FIXED_RATE, X_RELATIONSHIP);
1933: X_FIXED_RATE1 := sys.diutil.bool_to_int(X_FIXED_RATE);
1934: end;
1935: END GET_RELATION;
1936:
1936:
1937: FUNCTION GET_EURO_CODE RETURN VARCHAR2 IS
1938: X0 VARCHAR2(2000);
1939: BEGIN
1940: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_EURO_CODE; end;');
1941: STPROC.BIND_O(X0);
1942: STPROC.EXECUTE;
1943: STPROC.RETRIEVE(1
1944: ,X0);*/
1941: STPROC.BIND_O(X0);
1942: STPROC.EXECUTE;
1943: STPROC.RETRIEVE(1
1944: ,X0);*/
1945: X0 := GL_CURRENCY_API.GET_EURO_CODE;
1946: RETURN X0;
1947: END GET_EURO_CODE;
1948:
1949: FUNCTION GET_RATE(X_FROM_CURRENCY IN VARCHAR2
1951: ,X_CONVERSION_DATE IN DATE
1952: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
1953: X0 NUMBER;
1954: BEGIN
1955: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
1956: STPROC.BIND_O(X0);
1957: STPROC.BIND_I(X_FROM_CURRENCY);
1958: STPROC.BIND_I(X_TO_CURRENCY);
1959: STPROC.BIND_I(X_CONVERSION_DATE);
1961: STPROC.EXECUTE;
1962: STPROC.RETRIEVE(1
1963: ,X0);*/
1964:
1965: X0 := GL_CURRENCY_API.GET_RATE(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
1966: RETURN X0;
1967: END GET_RATE;
1968:
1969: FUNCTION GET_RATE(X_SET_OF_BOOKS_ID IN NUMBER
1971: ,X_CONVERSION_DATE IN DATE
1972: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN NUMBER IS
1973: X0 NUMBER;
1974: BEGIN
1975: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_RATE(:X_SET_OF_BOOKS_ID, :X_FROM_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
1976: STPROC.BIND_O(X0);
1977: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
1978: STPROC.BIND_I(X_FROM_CURRENCY);
1979: STPROC.BIND_I(X_CONVERSION_DATE);
1981: STPROC.EXECUTE;
1982: STPROC.RETRIEVE(1
1983: ,X0);*/
1984:
1985: X0 := GL_CURRENCY_API.GET_RATE(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
1986: RETURN X0;
1987: END GET_RATE;
1988:
1989: FUNCTION CONVERT_AMOUNT(X_FROM_CURRENCY IN VARCHAR2
1992: ,X_CONVERSION_TYPE IN VARCHAR2
1993: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
1994: X0 NUMBER;
1995: BEGIN
1996: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.CONVERT_AMOUNT(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE, :X_AMOUNT); end;');
1997: STPROC.BIND_O(X0);
1998: STPROC.BIND_I(X_FROM_CURRENCY);
1999: STPROC.BIND_I(X_TO_CURRENCY);
2000: STPROC.BIND_I(X_CONVERSION_DATE);
2003: STPROC.EXECUTE;
2004: STPROC.RETRIEVE(1
2005: ,X0);*/
2006:
2007: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
2008: RETURN X0;
2009: END CONVERT_AMOUNT;
2010:
2011: FUNCTION CONVERT_AMOUNT(X_SET_OF_BOOKS_ID IN NUMBER
2014: ,X_CONVERSION_TYPE IN VARCHAR2
2015: ,X_AMOUNT IN NUMBER) RETURN NUMBER IS
2016: X0 NUMBER;
2017: BEGIN
2018: /*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;');
2019: STPROC.BIND_O(X0);
2020: STPROC.BIND_I(X_SET_OF_BOOKS_ID);
2021: STPROC.BIND_I(X_FROM_CURRENCY);
2022: STPROC.BIND_I(X_CONVERSION_DATE);
2025: STPROC.EXECUTE;
2026: STPROC.RETRIEVE(1
2027: ,X0);*/
2028:
2029: X0 := GL_CURRENCY_API.CONVERT_AMOUNT(X_SET_OF_BOOKS_ID, X_FROM_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE, X_AMOUNT);
2030: RETURN X0;
2031: END CONVERT_AMOUNT;
2032:
2033: FUNCTION GET_DERIVE_TYPE(SOB_ID IN NUMBER
2034: ,PERIOD IN VARCHAR2
2035: ,CURR_CODE IN VARCHAR2) RETURN VARCHAR2 IS
2036: X0 VARCHAR2(2000);
2037: BEGIN
2038: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(:SOB_ID, :PERIOD, :CURR_CODE); end;');
2039: STPROC.BIND_O(X0);
2040: STPROC.BIND_I(SOB_ID);
2041: STPROC.BIND_I(PERIOD);
2042: STPROC.BIND_I(CURR_CODE);
2043: STPROC.EXECUTE;
2044: STPROC.RETRIEVE(1
2045: ,X0);*/
2046:
2047: X0 := GL_CURRENCY_API.GET_DERIVE_TYPE(SOB_ID, PERIOD, CURR_CODE);
2048: RETURN X0;
2049: END GET_DERIVE_TYPE;
2050:
2051: FUNCTION RATE_EXISTS(X_FROM_CURRENCY IN VARCHAR2
2053: ,X_CONVERSION_DATE IN DATE
2054: ,X_CONVERSION_TYPE IN VARCHAR2) RETURN VARCHAR2 IS
2055: X0 VARCHAR2(2000);
2056: BEGIN
2057: /*STPROC.INIT('begin :X0 := GL_CURRENCY_API.RATE_EXISTS(:X_FROM_CURRENCY, :X_TO_CURRENCY, :X_CONVERSION_DATE, :X_CONVERSION_TYPE); end;');
2058: STPROC.BIND_O(X0);
2059: STPROC.BIND_I(X_FROM_CURRENCY);
2060: STPROC.BIND_I(X_TO_CURRENCY);
2061: STPROC.BIND_I(X_CONVERSION_DATE);
2063: STPROC.EXECUTE;
2064: STPROC.RETRIEVE(1
2065: ,X0);*/
2066:
2067: X0 := GL_CURRENCY_API.RATE_EXISTS(X_FROM_CURRENCY, X_TO_CURRENCY, X_CONVERSION_DATE, X_CONVERSION_TYPE);
2068: RETURN X0;
2069: END RATE_EXISTS;
2070:
2071: function Item_dspFormula