[Home] [Help]
PACKAGE BODY: APPS.FND_OAM_BF_COMP_CUST_PKG
Source
1 package body FND_OAM_BF_COMP_CUST_PKG as
2 /* $Header: AFOAMFPCB.pls 120.1 2005/07/02 03:03:51 appldev noship $ */
3
4
5 procedure LOAD_ROW (
6 X_BIZ_FLOW_KEY in VARCHAR2,
7 X_COMPONENT_TYPE in VARCHAR2,
8 X_COMPONENT_APPL_SHORT_NAME in VARCHAR2,
9 X_COMPONENT_NAME in VARCHAR,
10 X_MONITORED_FLAG in VARCHAR2,
11 X_DISPLAY_ORDER in NUMBER,
12 X_OWNER in VARCHAR2)
13 is
14 begin
15 FND_OAM_BF_COMP_CUST_pkg.LOAD_ROW(
16 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
17 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
18 X_COMPONENT_APPL_SHORT_NAME => X_COMPONENT_APPL_SHORT_NAME,
19 X_COMPONENT_NAME => X_COMPONENT_NAME,
20 X_MONITORED_FLAG => X_MONITORED_FLAG,
21 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
22 X_OWNER => X_OWNER,
23 X_CUSTOM_MODE => '',
24 X_LAST_UPDATE_DATE => '');
25 end LOAD_ROW;
26
27 procedure LOAD_ROW (
28 X_BIZ_FLOW_KEY in VARCHAR2,
29 X_COMPONENT_TYPE in VARCHAR2,
30 X_COMPONENT_APPL_SHORT_NAME in VARCHAR2,
31 X_COMPONENT_NAME in VARCHAR2,
32 X_MONITORED_FLAG in VARCHAR2,
33 X_DISPLAY_ORDER in NUMBER,
34 X_OWNER in VARCHAR2,
35 x_custom_mode in varchar2,
36 x_last_update_date in varchar2)
37 is
38 v_component_appl_id number;
39 v_component_id number;
40 begin
41 begin
42 if (x_component_type = 'FUNCTION') then
43 v_component_appl_id := -1;
44 else
45 select application_id into v_component_appl_id
46 from fnd_application
47 where application_short_name = X_COMPONENT_APPL_SHORT_NAME;
48 end if;
49
50
51 select component_id into v_component_id
52 from fnd_app_components_vl
53 where component_type = X_COMPONENT_TYPE
54 and application_id = v_component_appl_id
55 and component_name = X_COMPONENT_NAME;
56 exception
57 -- when no_data_found then
58 -- null;
59 -- return;
60 when others then
61 raise;
62 end;
63
64 FND_OAM_BF_COMP_CUST_pkg.LOAD_ROW(
65 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
66 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
67 X_COMPONENT_APPL_ID => v_component_appl_id,
68 X_COMPONENT_ID => v_component_id,
69 X_MONITORED_FLAG => X_MONITORED_FLAG,
70 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
71 X_OWNER => X_OWNER,
72 X_CUSTOM_MODE => X_CUSTOM_MODE,
73 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE);
74 end LOAD_ROW;
75
76 procedure LOAD_ROW (
77 X_BIZ_FLOW_KEY in VARCHAR2,
78 X_COMPONENT_TYPE in VARCHAR2,
79 X_COMPONENT_APPL_ID in NUMBER,
80 X_COMPONENT_ID in NUMBER,
81 X_MONITORED_FLAG in VARCHAR2,
82 X_DISPLAY_ORDER in NUMBER,
83 X_OWNER in VARCHAR2,
84 x_custom_mode in varchar2,
85 x_last_update_date in varchar2)
86 is
87 row_id varchar2(64);
88 f_luby number; -- entity owner in file
89 f_ludate date; -- entity update date in file
90 db_luby number; -- entity owner in db
91 db_ludate date; -- entity update date in db
92 begin
93 -- Translate owner to file_last_updated_by
94 f_luby := fnd_load_util.owner_id(x_owner);
95
96 -- Translate char last_update_date to date
97 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
98
99 begin
100 select LAST_UPDATED_BY, LAST_UPDATE_DATE
101 into db_luby, db_ludate
102 from FND_OAM_BF_COMP_CUST
103 where biz_flow_key = X_BIZ_FLOW_KEY
104 and component_type = x_component_type
105 and component_appl_id = x_component_appl_id
106 and component_id = x_component_id;
107
108 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
109 db_ludate, X_CUSTOM_MODE)) then
110 FND_OAM_BF_COMP_CUST_pkg.UPDATE_ROW (
111 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
112 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
113 X_COMPONENT_APPL_ID => X_COMPONENT_APPL_ID,
114 X_COMPONENT_ID => X_COMPONENT_ID,
115 X_MONITORED_FLAG => X_MONITORED_FLAG,
116 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
117 X_LAST_UPDATE_DATE => f_ludate,
118 X_LAST_UPDATED_BY => f_luby,
119 X_LAST_UPDATE_LOGIN => 0 );
120 end if;
121 exception
122 when NO_DATA_FOUND then
123
124 FND_OAM_BF_COMP_CUST_pkg.INSERT_ROW (
125 X_ROWID => row_id,
126 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
127 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
128 X_COMPONENT_APPL_ID => X_COMPONENT_APPL_ID,
129 X_COMPONENT_ID => X_COMPONENT_ID,
130 X_MONITORED_FLAG => X_MONITORED_FLAG,
131 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
132 X_CREATION_DATE => f_ludate,
133 X_CREATED_BY => f_luby,
134 X_LAST_UPDATE_DATE => f_ludate,
135 X_LAST_UPDATED_BY => f_luby,
136 X_LAST_UPDATE_LOGIN => 0 );
137 end;
138 END LOAD_ROW;
139
140 procedure INSERT_ROW (
141 X_ROWID in out nocopy VARCHAR2,
142 X_BIZ_FLOW_KEY in VARCHAR2,
143 X_COMPONENT_TYPE in VARCHAR2,
144 X_COMPONENT_APPL_ID in NUMBER,
145 X_COMPONENT_ID in NUMBER,
146 X_MONITORED_FLAG in VARCHAR2,
147 X_DISPLAY_ORDER in NUMBER,
148 X_CREATION_DATE in DATE,
149 X_CREATED_BY in NUMBER,
150 X_LAST_UPDATE_DATE in DATE,
151 X_LAST_UPDATED_BY in NUMBER,
152 X_LAST_UPDATE_LOGIN in NUMBER)
153 is
154 cursor C is select ROWID from FND_OAM_BF_COMP_CUST
155 where BIZ_FLOW_KEY = X_BIZ_FLOW_KEY
156 and component_type = x_component_type
157 and component_appl_id = x_component_appl_id
158 and component_id = x_component_id;
159 begin
160 insert into FND_OAM_BF_COMP_CUST (
161 BIZ_FLOW_KEY,
162 component_type,
163 component_appl_id,
164 component_id,
165 MONITORED_FLAG,
166 DISPLAY_ORDER,
167 CREATION_DATE,
168 CREATED_BY,
169 LAST_UPDATE_DATE,
170 LAST_UPDATED_BY,
171 LAST_UPDATE_LOGIN
172 ) values (
173 X_BIZ_FLOW_KEY,
174 X_COMPONENT_TYPE,
175 X_COMPONENT_APPL_ID,
176 X_COMPONENT_ID,
177 X_MONITORED_FLAG,
178 X_DISPLAY_ORDER,
179 X_CREATION_DATE,
180 X_CREATED_BY,
181 X_LAST_UPDATE_DATE,
182 X_LAST_UPDATED_BY,
183 X_LAST_UPDATE_LOGIN
184 );
185
186 open c;
187 fetch c into X_ROWID;
188 if (c%notfound) then
189 close c;
190 raise no_data_found;
191 end if;
192 close c;
193 end INSERT_ROW;
194
195 procedure UPDATE_ROW (
196 X_BIZ_FLOW_KEY in VARCHAR2,
197 X_COMPONENT_TYPE in VARCHAR2,
198 X_COMPONENT_APPL_ID in NUMBER,
199 X_COMPONENT_ID in NUMBER,
200 X_MONITORED_FLAG in VARCHAR2,
201 X_DISPLAY_ORDER in NUMBER,
202 X_LAST_UPDATE_DATE in DATE,
203 X_LAST_UPDATED_BY in NUMBER,
204 X_LAST_UPDATE_LOGIN in NUMBER
205 )
206 is
207 begin
208 update FND_OAM_BF_COMP_CUST set
209 monitored_flag = x_monitored_flag,
210 display_order = x_display_order,
211 last_update_date = x_last_update_date,
212 last_updated_by = x_last_updated_by,
213 last_update_login = x_last_update_login
214 where biz_flow_key = x_biz_flow_key
215 and component_type = x_component_type
216 and component_appl_id = x_component_appl_id
217 and component_id = x_component_id;
218
219 if (sql%notfound) then
220 raise no_data_found;
221 end if;
222 end UPDATE_ROW;
223
224 procedure DELETE_ROW (
225 X_BIZ_FLOW_KEY in VARCHAR2,
226 X_COMPONENT_TYPE in VARCHAR2,
227 X_COMPONENT_APPL_ID in NUMBER,
228 X_COMPONENT_ID in NUMBER
229 )
230 is
231 begin
232 delete from FND_OAM_BF_COMP_CUST
233 where biz_flow_key = x_biz_flow_key
234 and component_type = x_component_type
235 and component_appl_id = x_component_appl_id
236 and component_id = x_component_id;
237
238 if (sql%notfound) then
239 raise no_data_found;
240 end if;
241 end DELETE_ROW;
242
243 procedure DELETE_ROW (
244 X_BIZ_FLOW_KEY in VARCHAR2,
245 X_COMPONENT_TYPE in VARCHAR2,
246 X_COMPONENT_APPL_SHORT_NAME in VARCHAR2,
247 X_COMPONENT_NAME in VARCHAR2
248 )
249 is
250 v_component_appl_id number;
251 v_component_id number;
252 begin
253 begin
254 select application_id into v_component_appl_id
255 from fnd_application
256 where application_short_name = X_COMPONENT_APPL_SHORT_NAME;
257
258 select component_id into v_component_id
259 from fnd_app_components_vl
260 where component_type = X_COMPONENT_TYPE
261 and application_id = v_component_appl_id
262 and component_name = X_COMPONENT_NAME;
263 exception
264 -- when no_data_found then
265 -- null;
266 -- return;
267 when others then
268 raise;
269 end;
270
271 FND_OAM_BF_COMP_CUST_pkg.delete_row(
272 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
273 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
274 X_COMPONENT_APPL_ID => v_component_appl_id,
275 X_COMPONENT_ID => v_component_id);
276 end DELETE_ROW;
277
278 end FND_OAM_BF_COMP_CUST_PKG;