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