1 PACKAGE BODY GMF_GL_GET_CONVERSION_TYPES AS
2 /* $Header: gmfcnvtb.pls 115.1 2002/11/11 00:32:49 rseshadr ship $ */
3 CURSOR conversion_types( startdate date,
4 enddate date,
5 usr_conversiontype varchar2) IS
6 SELECT conversion_type,
7 user_conversion_type,
8 description,
9 creation_date,
10 last_update_date,
11 created_by,
12 last_updated_by
13 FROM GL_DAILY_CONVERSION_TYPES
14 WHERE nvl(user_conversion_type,' ') like
15 nvl(usr_conversiontype,nvl(user_conversion_type,' '))
16 AND
17 /* nvl(description,' ') like
18 nvl(descr,nvl(description,' ')) AND
19 */
20 last_update_date BETWEEN
21 nvl(startdate,last_update_date) AND
22 nvl(enddate,last_update_date);
23 PROCEDURE gl_get_conversion_types( startdate in date,
24 enddate in date,
25 creation_date out NOCOPY date,
26 last_update_date out NOCOPY date,
27 created_by out NOCOPY number,
28 last_updated_by out NOCOPY number,
29 conversiontype in out NOCOPY varchar2,
30 usr_conversiontype in out NOCOPY varchar2,
31 descr in out NOCOPY varchar2,
32 row_to_fetch in out NOCOPY number,
33 statuscode out NOCOPY number) IS
34 BEGIN
35 IF NOT conversion_types%ISOPEN THEN
36 OPEN conversion_types(startdate,enddate,usr_conversiontype);
37 END IF;
38 FETCH conversion_types INTO conversiontype,
39 usr_conversiontype,
40 descr,
41 creation_date,
42 last_update_date,
43 created_by,
44 last_updated_by ;
45 /* added_by := pkg_gl_get_currencies.get_name(ad_by);*/
46 /* modified_by := pkg_gl_get_currencies.get_name(mod_by);*/
47 if conversion_types%NOTFOUND then
48 statuscode:=100;
49 END IF;
50 IF conversion_types%NOTFOUND or row_to_fetch = 1 THEN
51 CLOSE conversion_types;
52 END IF;
53 EXCEPTION
54 WHEN OTHERS THEN
55 statuscode := SQLCODE;
56 END; /* Procedure gl_get_conversion_types*/
57 END GMF_GL_GET_CONVERSION_TYPES;