[Home] [Help]
PACKAGE BODY: APPS.GMF_GL_GET_SOB_DET
Source
1 PACKAGE BODY GMF_GL_GET_SOB_DET AS
2 /* $Header: gmfsobdb.pls 115.1 2002/11/11 00:43:46 rseshadr ship $ */
3 CURSOR cur_gl_get_sob_det(st_date date, en_date date,
4 sob_name varchar2, sob_id number) IS
5 SELECT set_of_books_id,
6 name,
7 last_updated_by ,
8 currency_code ,
9 chart_of_accounts_id ,
10 period_set_name ,
11 suspense_allowed_flag ,
12 allow_posting_warning_flag ,
13 accounted_period_type ,
14 short_name ,
15 require_budget_journals_flag ,
16 enable_budgetary_control_flag,
17 allow_intercompany_post_flag ,
18 creation_date ,
19 created_by ,
20 last_update_login ,
21 latest_encumbrance_year ,
22 earliest_untrans_period_name ,
23 cum_trans_code_combination_id,
24 future_enterable_periods_limit,
25 latest_opened_period_name ,
26 ret_earn_code_combination_id ,
27 res_encumb_code_combination_id
28 FROM gl_sets_of_books
29 WHERE name LIKE sob_name AND
30 set_of_books_id = nvl(sob_id, set_of_books_id) and
31 creation_date BETWEEN
32 nvl(st_date, creation_date)
33 AND nvl(en_date, creation_date);
34
35 PROCEDURE proc_gl_get_sob_det(
36 st_date in out NOCOPY date,
37 en_date in out NOCOPY date,
38 sob_name in out NOCOPY varchar2,
39 sob_id in out NOCOPY number,
40 /*last_update_date out date, */
41 last_updated_by out NOCOPY number,
42 currency_code out NOCOPY varchar2,
43 chart_of_accounts_id out NOCOPY number,
44 period_set_name out NOCOPY varchar2,
45 suspense_allowed_flag out NOCOPY varchar2,
46 allow_posting_warning_flag out NOCOPY varchar2,
47 accounted_period_type out NOCOPY varchar2,
48 short_name out NOCOPY varchar2,
49 require_budget_journals_flag out NOCOPY varchar2,
50 enable_budgetary_control_flag out NOCOPY varchar2,
51 allow_intercompany_post_flag out NOCOPY varchar2,
52 creation_date out NOCOPY date,
53 created_by out NOCOPY number,
54 last_update_login out NOCOPY number,
55 latest_encumbrance_year out NOCOPY number,
56 earliest_untrans_period_name out NOCOPY varchar2,
57 cum_trans_code_combination_id out NOCOPY number,
58 future_enterable_periods_limit out NOCOPY number,
59 latest_opened_period_name out NOCOPY varchar2,
60 ret_earn_code_combination_id out NOCOPY number,
61 res_encumb_code_combination_id out NOCOPY number,
62 row_to_fetch in number,
63 error_status out NOCOPY number) IS
64
65 BEGIN
66
67 IF NOT cur_gl_get_sob_det%ISOPEN THEN
68 OPEN cur_gl_get_sob_det(st_date, en_date, sob_name, sob_id);
69 END IF;
70
71 FETCH cur_gl_get_sob_det
72 INTO sob_id,
73 sob_name,
74 last_updated_by ,
75 currency_code ,
76 chart_of_accounts_id ,
77 period_set_name ,
78 suspense_allowed_flag ,
79 allow_posting_warning_flag ,
80 accounted_period_type ,
81 short_name ,
82 require_budget_journals_flag ,
83 enable_budgetary_control_flag,
84 allow_intercompany_post_flag ,
85 creation_date ,
86 created_by ,
87 last_update_login ,
88 latest_encumbrance_year ,
89 earliest_untrans_period_name ,
90 cum_trans_code_combination_id,
91 future_enterable_periods_limit,
92 latest_opened_period_name ,
93 ret_earn_code_combination_id ,
94 res_encumb_code_combination_id;
95
96 if cur_gl_get_sob_det%NOTFOUND then
97 error_status := 100;
98 end if;
99 if (cur_gl_get_sob_det%NOTFOUND) or row_to_fetch = 1 THEN
100 CLOSE cur_gl_get_sob_det;
101 end if;
102
103 exception
104
105 when others then
106 error_status := SQLCODE;
107
108 END; /* End of procedure proc_gl_get_sob_det */
109
110 END GMF_GL_GET_SOB_DET; -- END GMF_GL_GET_SOB_DET