[Home] [Help]
PACKAGE BODY: APPS.JTF_GRID_LCT_PKG
Source
1 package body jtf_grid_lct_pkg as
2 /* $Header: JTFGCLSB.pls 120.2 2006/10/27 14:25:43 snellepa noship $ */
3 procedure LOAD_SEED_DATASOURCES(
4 x_upload_mode in varchar2,
5 x_custom_mode in varchar2,
6 x_last_update_date in varchar2,
7 x_grid_datasource_name in varchar2,
8 x_title_text in varchar2,
9 x_owner in varchar2,
10 x_db_view_name in varchar2,
11 x_application_short_name in varchar2,
12 x_default_row_height in varchar2,
13 x_max_queried_rows in varchar2,
14 x_where_clause in varchar2,
15 x_alt_color_code in varchar2,
16 x_alt_color_interval in varchar2,
17 x_fetch_size in varchar2)
18 is
19 l_custom_mode varchar2(20) := x_custom_mode;
20 begin
21 if x_last_update_date is null then
22 l_custom_mode := 'FORCE';
23 end if;
24
25 if (x_upload_mode = 'NLS') then
26 JTF_GRID_DATASOURCES_PKG.TRANSLATE_ROW(
27 x_grid_datasource_name => x_grid_datasource_name
28 ,x_title_text => x_title_text
29 ,x_owner => x_owner
30 ,x_custom_mode => l_custom_mode
31 ,x_last_update_date => x_last_update_date);
32 else
33 JTF_GRID_DATASOURCES_PKG.LOAD_ROW(
34 x_grid_datasource_name => x_grid_datasource_name
35 ,x_db_view_name => x_db_view_name
36 ,x_application_short_name => x_application_short_name
37 ,x_default_row_height => to_number(x_default_row_height)
38 ,x_max_queried_rows => to_number(x_max_queried_rows)
39 ,x_where_clause => x_where_clause
40 ,x_alt_color_code => x_alt_color_code
41 ,x_alt_color_interval => to_number(x_alt_color_interval)
42 ,x_title_text => x_title_text
43 ,x_owner => x_owner
44 ,x_fetch_size => to_number(x_fetch_size)
45 ,x_custom_mode => l_custom_mode
46 ,x_last_update_date => x_last_update_date);
47 end if;
48 end LOAD_SEED_DATASOURCES;
49
50
51
52
53
54 procedure LOAD_SEED_COLS(
55 x_upload_mode in varchar2,
56 x_custom_mode in varchar2,
57 x_last_update_date in varchar2,
58 x_grid_datasource_name in varchar2,
59 x_grid_col_alias in varchar2,
60 x_label_text in varchar2,
61 x_owner in varchar2,
62 x_db_col_name in varchar2,
63 x_data_type_code in varchar2,
64 x_query_seq in varchar2,
65 x_sortable_flag in varchar2,
66 x_sort_asc_by_default_flag in varchar2,
67 x_visible_flag in varchar2,
68 x_freeze_visible_flag in varchar2,
69 x_display_seq in varchar2,
70 x_display_type_code in varchar2,
71 x_display_hsize in varchar2,
72 x_header_alignment_code in varchar2,
73 x_cell_alignment_code in varchar2,
74 x_display_format_type_code in varchar2,
75 x_display_format_mask in varchar2,
76 x_checkbox_checked_value in varchar2,
77 x_checkbox_unchecked_value in varchar2,
78 x_checkbox_other_values in varchar2,
79 x_db_currency_code_col in varchar2,
80 x_query_allowed_flag in varchar2,
81 x_validation_object_code in varchar2,
82 x_query_display_seq in varchar2,
83 x_db_sort_column in varchar2,
84 x_fire_post_query_flag in varchar2,
85 x_image_description_col in varchar2 )
86 is
87 l_custom_mode varchar2(20) := x_custom_mode;
88 begin
89 if x_last_update_date is null then
90 l_custom_mode := 'FORCE';
91 end if;
92
93 if (x_upload_mode = 'NLS') then
94 jtf_grid_cols_pkg.TRANSLATE_ROW(
95 x_grid_datasource_name => x_grid_datasource_name
96 ,x_grid_col_alias => x_grid_col_alias
97 ,x_label_text => x_label_text
98 ,x_owner => x_owner
99 ,x_custom_mode => l_custom_mode
100 ,x_last_update_date => x_last_update_date);
101 else
102 JTF_GRID_COLS_PKG.LOAD_ROW(
103 x_grid_datasource_name => x_grid_datasource_name
104 ,x_grid_col_alias => x_grid_col_alias
105 ,x_db_col_name => x_db_col_name
106 ,x_data_type_code => x_data_type_code
107 ,x_query_seq => to_number(x_query_seq)
108 ,x_sortable_flag => x_sortable_flag
109 ,x_sort_asc_by_default_flag => x_sort_asc_by_default_flag
110 ,x_visible_flag => x_visible_flag
111 ,x_freeze_visible_flag => x_freeze_visible_flag
112 ,x_display_seq => to_number(x_display_seq)
113 ,x_display_type_code => x_display_type_code
114 ,x_display_hsize => to_number(x_display_hsize)
115 ,x_header_alignment_code => x_header_alignment_code
116 ,x_cell_alignment_code => x_cell_alignment_code
117 ,x_display_format_type_code => x_display_format_type_code
118 ,x_display_format_mask => x_display_format_mask
119 ,x_checkbox_checked_value => x_checkbox_checked_value
120 ,x_checkbox_unchecked_value => x_checkbox_unchecked_value
121 ,x_checkbox_other_values => x_checkbox_other_values
122 ,x_db_currency_code_col => x_db_currency_code_col
123 ,x_label_text => x_label_text
124 ,x_owner => x_owner
125 ,X_QUERY_ALLOWED_FLAG => nvl(x_query_allowed_flag,'F')
126 ,X_VALIDATION_OBJECT_CODE => x_validation_object_code
127 ,X_QUERY_DISPLAY_SEQ => to_number(x_query_display_SEQ)
128 ,X_DB_SORT_COLUMN => x_db_sort_column
129 ,X_FIRE_POST_QUERY_FLAG => x_fire_post_query_flag
130 ,X_IMAGE_DESCRIPTION_COL => x_image_description_col
131 ,x_custom_mode => l_custom_mode
132 ,x_last_update_date => x_last_update_date);
133 end if;
134 end LOAD_SEED_COLS;
135
136
137 procedure LOAD_SEED_SORT_COLS(
138 x_last_update_date in varchar2,
139 x_upload_mode in varchar2,
140 x_owner in varchar2,
141 x_grid_datasource_name in varchar2,
142 x_grid_sort_col_alias1 in varchar2,
143 x_grid_sort_col_alias2 in varchar2,
144 x_grid_sort_col_alias3 in varchar2,
145 x_custom_mode in varchar2)
146 is
147 l_last_updated_by number;
148 l_custom_mode varchar2(20) := x_custom_mode;
149 f_luby number; -- entity owner in file
150 f_ludate date; -- entity update date in file
151 db_luby number; -- entity owner in db
152 db_ludate date; -- entity update date in db
153 dummy varchar2(2);
154 begin
155
156 if x_last_update_date is null then
157 l_custom_mode := 'FORCE';
158 end if;
159
160 if (x_upload_mode = 'NLS') then
161 null;
162 else
163 -- Translate owner to file_last_updated_by
164 f_luby := fnd_load_util.owner_id(x_owner);
165
166 -- Translate char last_update_date to date
167 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
168
169
170
171 begin
172
173 select LAST_UPDATED_BY, LAST_UPDATE_DATE
174 into db_luby, db_ludate
175 from JTF_GRID_sort_cols
176 where GRID_DATASOURCE_NAME = x_grid_datasource_name;
177
178
179
180 -- Test for customization and version
181 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
182 db_ludate, L_CUSTOM_MODE)) then
183 update JTF_GRID_SORT_COLS
184 set GRID_SORT_COL_ALIAS1 = x_grid_sort_col_alias1
185 ,GRID_SORT_COL_ALIAS2 = x_grid_sort_col_alias2
186 ,GRID_SORT_COL_ALIAS3 = x_grid_sort_col_alias3
187 ,LAST_UPDATED_BY = f_luby
188 ,LAST_UPDATE_DATE = f_ludate
189 ,LAST_UPDATE_LOGIN = 0
190 where GRID_DATASOURCE_NAME = x_grid_datasource_name;
191
192 if sql%notfound then
193 raise no_data_found;
194 end if;
195 end if;
196 exception
197 when no_data_found then
198 insert into JTF_GRID_SORT_COLS
199 (GRID_DATASOURCE_NAME
200 ,GRID_SORT_COL_ALIAS1
201 ,GRID_SORT_COL_ALIAS2
202 ,GRID_SORT_COL_ALIAS3
203 ,CREATED_BY
204 ,CREATION_DATE
205 ,LAST_UPDATED_BY
206 ,LAST_UPDATE_DATE
207 ,LAST_UPDATE_LOGIN)
208 values
209 (x_grid_datasource_name
210 ,x_grid_sort_col_alias1
211 ,x_grid_sort_col_alias2
212 ,x_grid_sort_col_alias3
213 ,f_luby
214 ,f_ludate
215 ,f_luby
216 ,f_ludate
217 ,0);
218 end;
219 end if;
220 end LOAD_SEED_SORT_COLS;
221
222 end jtf_grid_lct_pkg;