[Home] [Help]
PACKAGE BODY: APPS.BNE_STYLES_PKG
Source
1 package body BNE_STYLES_PKG as
2 /* $Header: bnestyleb.pls 120.2 2005/06/29 03:41:08 dvayro noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_APPLICATION_ID in NUMBER,
7 X_STYLE_CODE in VARCHAR2,
8 X_PARENT_STYLE_CODE in VARCHAR2,
9 X_PARENT_STYLE_APP_ID in NUMBER,
10 X_OBJECT_VERSION_NUMBER in NUMBER,
11 X_STYLESHEET_APP_ID in NUMBER,
12 X_STYLESHEET_CODE in VARCHAR2,
13 X_STYLE_CLASS in VARCHAR2,
14 X_CREATION_DATE in DATE,
15 X_CREATED_BY in NUMBER,
16 X_LAST_UPDATE_DATE in DATE,
17 X_LAST_UPDATED_BY in NUMBER,
18 X_LAST_UPDATE_LOGIN in NUMBER
19 ) is
20 cursor C is select ROWID from BNE_STYLES
21 where APPLICATION_ID = X_APPLICATION_ID
22 and STYLE_CODE = X_STYLE_CODE
23 ;
24 begin
25 insert into BNE_STYLES (
26 PARENT_STYLE_CODE,
27 PARENT_STYLE_APP_ID,
28 APPLICATION_ID,
29 STYLE_CODE,
30 OBJECT_VERSION_NUMBER,
31 STYLESHEET_APP_ID,
32 STYLESHEET_CODE,
33 STYLE_CLASS,
34 CREATED_BY,
35 CREATION_DATE,
36 LAST_UPDATED_BY,
37 LAST_UPDATE_LOGIN,
38 LAST_UPDATE_DATE
39 ) values (
40 X_PARENT_STYLE_CODE,
41 X_PARENT_STYLE_APP_ID,
42 X_APPLICATION_ID,
43 X_STYLE_CODE,
44 X_OBJECT_VERSION_NUMBER,
45 X_STYLESHEET_APP_ID,
46 X_STYLESHEET_CODE,
47 X_STYLE_CLASS,
48 X_CREATED_BY,
49 X_CREATION_DATE,
50 X_LAST_UPDATED_BY,
51 X_LAST_UPDATE_LOGIN,
52 X_LAST_UPDATE_DATE
53 );
54
55 open c;
56 fetch c into X_ROWID;
57 if (c%notfound) then
58 close c;
59 raise no_data_found;
60 end if;
61 close c;
62
63 end INSERT_ROW;
64
65 procedure LOCK_ROW (
66 X_APPLICATION_ID in NUMBER,
67 X_STYLE_CODE in VARCHAR2,
68 X_PARENT_STYLE_CODE in VARCHAR2,
69 X_PARENT_STYLE_APP_ID in NUMBER,
70 X_OBJECT_VERSION_NUMBER in NUMBER,
71 X_STYLESHEET_APP_ID in NUMBER,
72 X_STYLESHEET_CODE in VARCHAR2,
73 X_STYLE_CLASS in VARCHAR2
74 ) is
75 cursor c1 is select
76 PARENT_STYLE_CODE,
77 PARENT_STYLE_APP_ID,
78 OBJECT_VERSION_NUMBER,
79 STYLESHEET_APP_ID,
80 STYLESHEET_CODE,
81 STYLE_CLASS
82 from BNE_STYLES
83 where APPLICATION_ID = X_APPLICATION_ID
84 and STYLE_CODE = X_STYLE_CODE
85 for update of APPLICATION_ID nowait;
86 begin
87 for tlinfo in c1 loop
88 if ( (tlinfo.STYLE_CLASS = X_STYLE_CLASS)
89 AND ((tlinfo.PARENT_STYLE_CODE = X_PARENT_STYLE_CODE)
90 OR ((tlinfo.PARENT_STYLE_CODE is null) AND (X_PARENT_STYLE_CODE is null)))
91 AND ((tlinfo.PARENT_STYLE_APP_ID = X_PARENT_STYLE_APP_ID)
92 OR ((tlinfo.PARENT_STYLE_APP_ID is null) AND (X_PARENT_STYLE_APP_ID is null)))
93 AND (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
94 AND (tlinfo.STYLESHEET_APP_ID = X_STYLESHEET_APP_ID)
95 AND (tlinfo.STYLESHEET_CODE = X_STYLESHEET_CODE)
96 ) then
97 null;
98 else
99 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
100 app_exception.raise_exception;
101 end if;
102 end loop;
103 return;
104 end LOCK_ROW;
105
106 procedure UPDATE_ROW (
107 X_APPLICATION_ID in NUMBER,
108 X_STYLE_CODE in VARCHAR2,
109 X_PARENT_STYLE_CODE in VARCHAR2,
110 X_PARENT_STYLE_APP_ID in NUMBER,
111 X_OBJECT_VERSION_NUMBER in NUMBER,
112 X_STYLESHEET_APP_ID in NUMBER,
113 X_STYLESHEET_CODE in VARCHAR2,
114 X_STYLE_CLASS in VARCHAR2,
115 X_LAST_UPDATE_DATE in DATE,
116 X_LAST_UPDATED_BY in NUMBER,
117 X_LAST_UPDATE_LOGIN in NUMBER
118 ) is
119 begin
120 update BNE_STYLES set
121 PARENT_STYLE_CODE = X_PARENT_STYLE_CODE,
122 PARENT_STYLE_APP_ID = X_PARENT_STYLE_APP_ID,
123 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
124 STYLESHEET_APP_ID = X_STYLESHEET_APP_ID,
125 STYLESHEET_CODE = X_STYLESHEET_CODE,
126 STYLE_CLASS = X_STYLE_CLASS,
127 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
128 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
129 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
130 where APPLICATION_ID = X_APPLICATION_ID
131 and STYLE_CODE = X_STYLE_CODE;
132
133 if (sql%notfound) then
134 raise no_data_found;
135 end if;
136 end UPDATE_ROW;
137
138 procedure DELETE_ROW (
139 X_APPLICATION_ID in NUMBER,
140 X_STYLE_CODE in VARCHAR2
141 ) is
142 begin
143 delete from BNE_STYLES
144 where APPLICATION_ID = X_APPLICATION_ID
145 and STYLE_CODE = X_STYLE_CODE;
146
147 if (sql%notfound) then
148 raise no_data_found;
149 end if;
150
151 end DELETE_ROW;
152
153 procedure ADD_LANGUAGE
154 is
155 begin
156 null;
157 end ADD_LANGUAGE;
158
159 --------------------------------------------------------------------------------
160 -- PROCEDURE: LOAD_ROW --
161 -- --
162 -- DESCRIPTION: Load a row into the BNE_STYLES entity. --
163 -- This proc is called from the apps loader. --
164 -- --
165 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
166 -- --
167 -- --
168 -- MODIFICATION HISTORY --
169 -- Date Username Description --
170 -- 1-Oct-02 DGROVES CREATED --
171 --------------------------------------------------------------------------------
172
173 procedure LOAD_ROW(
174 x_style_asn IN VARCHAR2,
175 x_style_code IN VARCHAR2,
176 x_object_version_number IN VARCHAR2,
177 x_stylesheet_asn IN VARCHAR2,
178 x_stylesheet_code IN VARCHAR2,
179 x_parent_style_asn IN VARCHAR2,
180 x_parent_style_code IN VARCHAR2,
181 x_style_class IN VARCHAR2,
182 x_owner IN VARCHAR2,
183 x_last_update_date IN VARCHAR2,
184 x_custom_mode IN VARCHAR2
185 )
186 is
187 l_app_id number;
188 l_ss_app_id number;
189 l_par_app_id number;
190 l_row_id varchar2(64);
191 f_luby number; -- entity owner in file
192 f_ludate date; -- entity update date in file
193 db_luby number; -- entity owner in db
194 db_ludate date; -- entity update date in db
195 begin
196 -- translate values to IDs
197 l_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_style_asn);
198 l_ss_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_stylesheet_asn);
199 l_par_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_parent_style_asn);
200
201 -- Translate owner to file_last_updated_by
202 f_luby := fnd_load_util.owner_id(x_owner);
203
204 -- Translate char last_update_date to date
205 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
206 begin
207 select LAST_UPDATED_BY, LAST_UPDATE_DATE
208 into db_luby, db_ludate
209 from BNE_STYLES
210 where APPLICATION_ID = l_app_id
211 and STYLE_CODE = x_style_code;
212
213 -- Test for customization and version
214 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
215 db_ludate, x_custom_mode)) then
216 -- Update existing row
217 BNE_STYLES_PKG.Update_Row(
218 X_APPLICATION_ID => l_app_id,
219 X_STYLE_CODE => x_style_code,
220 X_PARENT_STYLE_CODE => x_parent_style_code,
221 X_PARENT_STYLE_APP_ID => l_par_app_id,
222 X_OBJECT_VERSION_NUMBER => x_object_version_number,
223 X_STYLESHEET_APP_ID => l_ss_app_id,
224 X_STYLESHEET_CODE => x_stylesheet_code,
225 X_STYLE_CLASS => x_style_class,
226 X_LAST_UPDATE_DATE => f_ludate,
227 X_LAST_UPDATED_BY => f_luby,
228 X_LAST_UPDATE_LOGIN => 0
229 );
230 end if;
231 exception
232 when no_data_found then
233 -- Record doesn't exist - insert in all cases
234 BNE_STYLES_PKG.Insert_Row(
235 X_ROWID => l_row_id,
236 X_APPLICATION_ID => l_app_id,
237 X_STYLE_CODE => x_style_code,
238 X_PARENT_STYLE_CODE => x_parent_style_code,
239 X_PARENT_STYLE_APP_ID => l_par_app_id,
240 X_OBJECT_VERSION_NUMBER => x_object_version_number,
241 X_STYLESHEET_APP_ID => l_ss_app_id,
242 X_STYLESHEET_CODE => x_stylesheet_code,
243 X_STYLE_CLASS => x_style_class,
244 X_CREATION_DATE => f_ludate,
245 X_CREATED_BY => f_luby,
246 X_LAST_UPDATE_DATE => f_ludate,
247 X_LAST_UPDATED_BY => f_luby,
248 X_LAST_UPDATE_LOGIN => 0
249 );
250 end;
251
252 end LOAD_ROW;
253
254 end BNE_STYLES_PKG;