[Home] [Help]
PACKAGE BODY: APPS.FND_SVC_COMPONENTS_PKG
Source
1 package body FND_SVC_COMPONENTS_PKG as
2 /* $Header: AFSVCMTB.pls 115.5 2002/12/27 20:20:10 ankung noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out nocopy VARCHAR2,
6 X_COMPONENT_ID in NUMBER,
7 X_COMPONENT_NAME in VARCHAR2,
8 X_COMPONENT_STATUS in VARCHAR2,
9 X_COMPONENT_TYPE in VARCHAR2,
10 X_STARTUP_MODE in VARCHAR2,
11 X_CONTAINER_TYPE in VARCHAR2,
12 X_CUSTOMIZATION_LEVEL in VARCHAR2,
13 X_APPLICATION_ID in NUMBER,
14 X_CONCURRENT_QUEUE_ID in NUMBER,
15 X_STANDALONE_CONTAINER_NAME in VARCHAR2,
16 X_INBOUND_AGENT_NAME in VARCHAR2,
17 X_OUTBOUND_AGENT_NAME in VARCHAR2,
18 X_CORRELATION_ID in VARCHAR2,
19 X_MAX_IDLE_TIME in NUMBER,
20 X_COMPONENT_STATUS_INFO in VARCHAR2,
21 X_OBJECT_VERSION_NUMBER in NUMBER,
22 X_CREATION_DATE in DATE,
23 X_CREATED_BY in NUMBER,
24 X_LAST_UPDATE_DATE in DATE,
25 X_LAST_UPDATED_BY in NUMBER,
26 X_LAST_UPDATE_LOGIN in NUMBER
27 ) is
28 cursor C is select ROWID from FND_SVC_COMPONENTS
29 where COMPONENT_ID = X_COMPONENT_ID
30 ;
31 begin
32 insert into FND_SVC_COMPONENTS (
33 COMPONENT_ID,
34 COMPONENT_NAME,
35 COMPONENT_STATUS,
36 COMPONENT_TYPE,
37 STARTUP_MODE,
38 CONTAINER_TYPE,
39 CUSTOMIZATION_LEVEL,
40 APPLICATION_ID,
41 CONCURRENT_QUEUE_ID,
42 STANDALONE_CONTAINER_NAME,
43 INBOUND_AGENT_NAME,
44 OUTBOUND_AGENT_NAME,
45 CORRELATION_ID,
46 MAX_IDLE_TIME,
47 COMPONENT_STATUS_INFO,
48 CREATION_DATE,
49 CREATED_BY,
50 LAST_UPDATE_DATE,
51 LAST_UPDATED_BY,
52 LAST_UPDATE_LOGIN,
53 OBJECT_VERSION_NUMBER
54 ) values (
55 X_COMPONENT_ID,
56 X_COMPONENT_NAME,
57 X_COMPONENT_STATUS,
58 X_COMPONENT_TYPE,
59 X_STARTUP_MODE,
60 X_CONTAINER_TYPE,
61 X_CUSTOMIZATION_LEVEL,
62 X_APPLICATION_ID,
63 X_CONCURRENT_QUEUE_ID,
64 X_STANDALONE_CONTAINER_NAME,
65 X_INBOUND_AGENT_NAME,
66 X_OUTBOUND_AGENT_NAME,
67 X_CORRELATION_ID,
68 X_MAX_IDLE_TIME,
69 X_COMPONENT_STATUS_INFO,
70 X_CREATION_DATE,
71 X_CREATED_BY,
72 X_LAST_UPDATE_DATE,
73 X_LAST_UPDATED_BY,
74 X_LAST_UPDATE_LOGIN,
75 X_OBJECT_VERSION_NUMBER
76 );
77
78 open c;
79 fetch c into X_ROWID;
80 if (c%notfound) then
81 close c;
82 raise no_data_found;
83 end if;
84 close c;
85
86 exception
87 when others then
88 wf_core.context('FND_SVC_COMPONENTS_PKG', 'Insert_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
89 raise;
90
91 end INSERT_ROW;
92
93 procedure LOCK_ROW (
94 X_COMPONENT_ID in NUMBER,
95 X_COMPONENT_NAME in VARCHAR2,
96 X_COMPONENT_STATUS in VARCHAR2,
97 X_COMPONENT_TYPE in VARCHAR2,
98 X_STARTUP_MODE in VARCHAR2,
99 X_CONTAINER_TYPE in VARCHAR2,
100 X_CUSTOMIZATION_LEVEL in VARCHAR2,
101 X_APPLICATION_ID in NUMBER,
102 X_CONCURRENT_QUEUE_ID in NUMBER,
103 X_STANDALONE_CONTAINER_NAME in VARCHAR2,
104 X_INBOUND_AGENT_NAME in VARCHAR2,
105 X_OUTBOUND_AGENT_NAME in VARCHAR2,
106 X_CORRELATION_ID in VARCHAR2,
107 X_MAX_IDLE_TIME in NUMBER,
108 X_COMPONENT_STATUS_INFO in VARCHAR2,
109 X_OBJECT_VERSION_NUMBER in NUMBER
110 ) is
111 cursor c is select
112 COMPONENT_NAME,
113 COMPONENT_STATUS,
114 COMPONENT_TYPE,
115 STARTUP_MODE,
116 CONTAINER_TYPE,
117 CUSTOMIZATION_LEVEL,
118 APPLICATION_ID,
119 CONCURRENT_QUEUE_ID,
120 STANDALONE_CONTAINER_NAME,
121 INBOUND_AGENT_NAME,
122 OUTBOUND_AGENT_NAME,
123 CORRELATION_ID,
124 MAX_IDLE_TIME,
125 COMPONENT_STATUS_INFO,
126 OBJECT_VERSION_NUMBER
127 from FND_SVC_COMPONENTS
128 where COMPONENT_ID = X_COMPONENT_ID
129 for update of COMPONENT_ID nowait;
130
131 recinfo c%rowtype;
132 begin
133 open c;
134 fetch c into recinfo;
135 if (c%notfound) then
136 close c;
137 wf_core.raise('WF_RECORD_DELETED');
138 end if;
139 close c;
140
141 if ( (recinfo.COMPONENT_NAME = X_COMPONENT_NAME)
142 AND (recinfo.COMPONENT_STATUS = X_COMPONENT_STATUS)
143 AND (recinfo.COMPONENT_TYPE = X_COMPONENT_TYPE)
144 AND (recinfo.STARTUP_MODE = X_STARTUP_MODE)
145 AND (recinfo.CONTAINER_TYPE = X_CONTAINER_TYPE)
146 AND (recinfo.CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL)
147 AND ((recinfo.APPLICATION_ID = X_APPLICATION_ID)
148 OR ((recinfo.APPLICATION_ID is null) AND (X_APPLICATION_ID is null)))
149 AND ((recinfo.CONCURRENT_QUEUE_ID = X_CONCURRENT_QUEUE_ID)
150 OR ((recinfo.CONCURRENT_QUEUE_ID is null) AND (X_CONCURRENT_QUEUE_ID is null)))
151 AND ((recinfo.STANDALONE_CONTAINER_NAME = X_STANDALONE_CONTAINER_NAME)
152 OR ((recinfo.STANDALONE_CONTAINER_NAME is null) AND (X_STANDALONE_CONTAINER_NAME is null)))
153 AND ((recinfo.INBOUND_AGENT_NAME = X_INBOUND_AGENT_NAME)
154 OR ((recinfo.INBOUND_AGENT_NAME is null) AND (X_INBOUND_AGENT_NAME is null)))
155 AND ((recinfo.OUTBOUND_AGENT_NAME = X_OUTBOUND_AGENT_NAME)
156 OR ((recinfo.OUTBOUND_AGENT_NAME is null) AND (X_OUTBOUND_AGENT_NAME is null)))
157 AND ((recinfo.CORRELATION_ID = X_CORRELATION_ID)
158 OR ((recinfo.CORRELATION_ID is null) AND (X_CORRELATION_ID is null)))
159 AND ((recinfo.MAX_IDLE_TIME = X_MAX_IDLE_TIME)
160 OR ((recinfo.MAX_IDLE_TIME is null) AND (X_MAX_IDLE_TIME is null)))
161 AND ((recinfo.COMPONENT_STATUS_INFO = X_COMPONENT_STATUS_INFO)
162 OR ((recinfo.COMPONENT_STATUS_INFO is null) AND (X_COMPONENT_STATUS_INFO is null)))
163 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
164 ) then
165 null;
166 else
167 wf_core.raise('WF_RECORD_CHANGED');
168 end if;
169
170 return;
171
172 exception
173 when others then
174 wf_core.context('FND_SVC_COMPONENTS_PKG', 'Lock_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
175 raise;
176 end LOCK_ROW;
177
178 procedure UPDATE_ROW (
179 X_COMPONENT_ID in NUMBER,
180 X_COMPONENT_NAME in VARCHAR2,
181 X_COMPONENT_STATUS in VARCHAR2,
182 X_COMPONENT_TYPE in VARCHAR2,
183 X_STARTUP_MODE in VARCHAR2,
184 X_CONTAINER_TYPE in VARCHAR2,
185 X_CUSTOMIZATION_LEVEL in VARCHAR2,
186 X_APPLICATION_ID in NUMBER,
187 X_CONCURRENT_QUEUE_ID in NUMBER,
188 X_STANDALONE_CONTAINER_NAME in VARCHAR2,
189 X_INBOUND_AGENT_NAME in VARCHAR2,
190 X_OUTBOUND_AGENT_NAME in VARCHAR2,
191 X_CORRELATION_ID in VARCHAR2,
192 X_MAX_IDLE_TIME in NUMBER,
193 X_COMPONENT_STATUS_INFO in VARCHAR2,
194 X_OBJECT_VERSION_NUMBER in NUMBER,
195 X_LAST_UPDATE_DATE in DATE,
196 X_LAST_UPDATED_BY in NUMBER,
197 X_LAST_UPDATE_LOGIN in NUMBER
198 ) is
199
200 l_object_version_number NUMBER;
201 begin
202
203 --
204 -- Perform OVN checks
205 --
206 if X_OBJECT_VERSION_NUMBER = -1 then
207
208 --
209 -- Allow update. Increment the database's OVN by 1
210 --
211 select OBJECT_VERSION_NUMBER
212 into l_object_version_number
213 from FND_SVC_COMPONENTS
214 where COMPONENT_ID = X_COMPONENT_ID;
215
216 l_object_version_number := l_object_version_number + 1;
217
218 else
219
220 --
221 -- Lock the row. Allow update only if the database's OVN equals the one
222 -- passed in.
223 --
224 -- If update is allowed, increment the database's OVN by 1.
225 -- Otherwise, raise an error.
226 --
227
228 select OBJECT_VERSION_NUMBER
229 into l_object_version_number
230 from FND_SVC_COMPONENTS
231 where COMPONENT_ID = X_COMPONENT_ID
232 for update;
233
234 if (l_object_version_number = X_OBJECT_VERSION_NUMBER) then
235
236 l_object_version_number := l_object_version_number + 1;
237 else
238
239 raise_application_error(-20002,
240 wf_core.translate('SVC_RECORD_ALREADY_UPDATED'));
241
242 end if;
243
244 end if;
245
246 --
247 -- If CORE customization level
248 --
249 if X_CUSTOMIZATION_LEVEL = 'C' then
250
251 --
252 -- If loader is calling this:
253 -- It can update everything
254 --
255 if WF_EVENTS_PKG.g_Mode = 'UPGRADE' then
256
257 update FND_SVC_COMPONENTS set
258 COMPONENT_NAME = X_COMPONENT_NAME,
259 -- COMPONENT_STATUS = X_COMPONENT_STATUS, // run-time data
260 COMPONENT_TYPE = X_COMPONENT_TYPE,
261 STARTUP_MODE = X_STARTUP_MODE,
262 CONTAINER_TYPE = X_CONTAINER_TYPE,
263 CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
264 APPLICATION_ID = X_APPLICATION_ID,
265 CONCURRENT_QUEUE_ID = X_CONCURRENT_QUEUE_ID,
266 STANDALONE_CONTAINER_NAME = X_STANDALONE_CONTAINER_NAME,
267 INBOUND_AGENT_NAME = X_INBOUND_AGENT_NAME,
268 OUTBOUND_AGENT_NAME = X_OUTBOUND_AGENT_NAME,
269 CORRELATION_ID = X_CORRELATION_ID,
270 MAX_IDLE_TIME = X_MAX_IDLE_TIME,
271 -- COMPONENT_STATUS_INFO = X_COMPONENT_STATUS_INFO, // run-time data
272 OBJECT_VERSION_NUMBER = l_object_version_number,
273 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
274 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
275 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
276 where COMPONENT_ID = X_COMPONENT_ID;
277
278 if (sql%notfound) then
279 raise no_data_found;
280 end if;
281
282 --
283 -- If user is calling this:
284 -- It can NOT update anything
285 --
286 else
287 null;
288 end if;
289
290 --
291 -- If LIMIT customization level
292 --
293 elsif X_CUSTOMIZATION_LEVEL = 'L' then
294
295 --
296 -- If loader is calling this
297 -- It can update everything EXCEPT
298 -- > startup_mode
299 -- > max_idle_time
300 if WF_EVENTS_PKG.g_Mode = 'UPGRADE' then
301
302 update FND_SVC_COMPONENTS set
303 COMPONENT_NAME = X_COMPONENT_NAME,
304 -- COMPONENT_STATUS = X_COMPONENT_STATUS, // run-time data
305 COMPONENT_TYPE = X_COMPONENT_TYPE,
306 -- STARTUP_MODE = X_STARTUP_MODE, // limit data
307 CONTAINER_TYPE = X_CONTAINER_TYPE,
308 CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
309 APPLICATION_ID = X_APPLICATION_ID,
310 CONCURRENT_QUEUE_ID = X_CONCURRENT_QUEUE_ID,
311 STANDALONE_CONTAINER_NAME = X_STANDALONE_CONTAINER_NAME,
312 INBOUND_AGENT_NAME = X_INBOUND_AGENT_NAME,
313 OUTBOUND_AGENT_NAME = X_OUTBOUND_AGENT_NAME,
314 CORRELATION_ID = X_CORRELATION_ID,
315 -- MAX_IDLE_TIME = X_MAX_IDLE_TIME, // limit data
316 -- COMPONENT_STATUS_INFO = X_COMPONENT_STATUS_INFO, // run-time data
317 OBJECT_VERSION_NUMBER = l_object_version_number,
318 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
319 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
320 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
321 where COMPONENT_ID = X_COMPONENT_ID;
322
323 if (sql%notfound) then
324 raise no_data_found;
325 end if;
326
327 --
328 -- If user is calling this:
329 -- It can update ONLY
330 -- > startup_mode
331 -- > max_idle_time
332 else
333
334 update FND_SVC_COMPONENTS set
335 STARTUP_MODE = X_STARTUP_MODE,
336 MAX_IDLE_TIME = X_MAX_IDLE_TIME,
337 OBJECT_VERSION_NUMBER = l_object_version_number,
338 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
339 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
340 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
341 where COMPONENT_ID = X_COMPONENT_ID;
342
343 if (sql%notfound) then
344 raise no_data_found;
345 end if;
346 end if;
347
348 --
349 -- If USER customization level
350 --
351 elsif X_CUSTOMIZATION_LEVEL = 'U' then
352 --
353 -- If loader is calling this
354 -- It can NOT update anything
355 --
356 if WF_EVENTS_PKG.g_Mode = 'UPGRADE' then
357 null;
358
359 --
360 -- If user is calling this:
361 -- It can update everything
362 --
363 else
364
365 update FND_SVC_COMPONENTS set
366 COMPONENT_NAME = X_COMPONENT_NAME,
367 -- COMPONENT_STATUS = X_COMPONENT_STATUS, // run-time data
368 COMPONENT_TYPE = X_COMPONENT_TYPE,
369 STARTUP_MODE = X_STARTUP_MODE,
370 CONTAINER_TYPE = X_CONTAINER_TYPE,
371 CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
372 APPLICATION_ID = X_APPLICATION_ID,
373 CONCURRENT_QUEUE_ID = X_CONCURRENT_QUEUE_ID,
374 STANDALONE_CONTAINER_NAME = X_STANDALONE_CONTAINER_NAME,
375 INBOUND_AGENT_NAME = X_INBOUND_AGENT_NAME,
376 OUTBOUND_AGENT_NAME = X_OUTBOUND_AGENT_NAME,
377 CORRELATION_ID = X_CORRELATION_ID,
378 MAX_IDLE_TIME = X_MAX_IDLE_TIME,
379 -- COMPONENT_STATUS_INFO = X_COMPONENT_STATUS_INFO, // run-time data
380 OBJECT_VERSION_NUMBER = l_object_version_number,
381 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
382 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
383 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
384 where COMPONENT_ID = X_COMPONENT_ID;
385
386 if (sql%notfound) then
387 raise no_data_found;
388 end if;
389 end if;
390 end if;
391 exception
392 when others then
393 wf_core.context('FND_SVC_COMPONENTS_PKG', 'Update_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
394 raise;
395 end UPDATE_ROW;
396
397 procedure DELETE_ROW (
398 X_COMPONENT_ID in NUMBER
399 ) is
400
401 l_customization_level varchar2(1);
402 begin
403
404 select CUSTOMIZATION_LEVEL
405 into l_customization_level
406 from FND_SVC_COMPONENTS
407 where COMPONENT_ID = X_COMPONENT_ID;
408
409 if l_customization_level = 'U' then
410
411 delete from FND_SVC_COMPONENTS
412 where COMPONENT_ID = X_COMPONENT_ID;
413
414 if (sql%notfound) then
415 raise no_data_found;
416 end if;
417 end if;
418 exception
419 when others then
420 wf_core.context('FND_SVC_COMP_PARAM_VALS_PKG', 'Delete_Row', X_COMPONENT_ID);
421 raise;
422
423 end DELETE_ROW;
424
425
426 procedure LOAD_ROW (
427 X_COMPONENT_NAME in VARCHAR2,
428 X_COMPONENT_STATUS in VARCHAR2,
429 X_COMPONENT_TYPE in VARCHAR2,
430 X_STARTUP_MODE in VARCHAR2,
431 X_CONTAINER_TYPE in VARCHAR2,
432 X_CUSTOMIZATION_LEVEL in VARCHAR2,
436 X_INBOUND_AGENT_NAME in VARCHAR2,
433 X_APPLICATION_SHORT_NAME in VARCHAR2,
434 X_CONCURRENT_QUEUE_NAME in VARCHAR2,
435 X_STANDALONE_CONTAINER_NAME in VARCHAR2,
437 X_OUTBOUND_AGENT_NAME in VARCHAR2,
438 X_CORRELATION_ID in VARCHAR2,
439 X_MAX_IDLE_TIME in NUMBER,
440 X_COMPONENT_STATUS_INFO in VARCHAR2,
441 X_OBJECT_VERSION_NUMBER in NUMBER,
442 X_OWNER in VARCHAR2
443 )
444 IS
445
446 begin
447
448 declare
449 user_id number := 0;
450 row_id varchar2(64);
451
452 l_component_id NUMBER := 0;
453
454 l_concurrent_queue_id fnd_concurrent_queues.concurrent_queue_id%TYPE;
455 l_application_id fnd_application.application_id%TYPE;
456
457 begin
458
459 if (X_OWNER = 'ORACLE') then
460 user_id := 1;
461 end if;
462
463
464 IF (X_CONCURRENT_QUEUE_NAME IS NOT NULL) THEN
465 SELECT concurrent_queue_id
466 INTO l_concurrent_queue_id
467 FROM fnd_concurrent_queues
468 WHERE concurrent_queue_name = X_CONCURRENT_QUEUE_NAME;
469
470 IF (X_APPLICATION_SHORT_NAME IS NOT NULL) THEN
471 SELECT application_id
472 INTO l_application_id
473 FROM fnd_application
474 WHERE application_short_name = X_APPLICATION_SHORT_NAME;
475 END IF;
476
477 ELSE
478 l_concurrent_queue_id := NULL;
479 l_application_id := NULL;
480 END IF;
481
482 BEGIN
483 SELECT component_id
484 INTO l_component_id
485 FROM fnd_svc_components
486 WHERE component_name = X_COMPONENT_NAME;
487
488 FND_SVC_COMPONENTS_PKG.UPDATE_ROW (
489 X_COMPONENT_ID => l_component_id,
490 X_COMPONENT_NAME => X_COMPONENT_NAME,
491 X_COMPONENT_STATUS => X_COMPONENT_STATUS,
492 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
493 X_STARTUP_MODE => X_STARTUP_MODE,
494 X_CONTAINER_TYPE => X_CONTAINER_TYPE,
495 X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
496 X_APPLICATION_ID => l_application_id,
497 X_CONCURRENT_QUEUE_ID => l_concurrent_queue_id,
498 X_STANDALONE_CONTAINER_NAME => X_STANDALONE_CONTAINER_NAME,
499 X_INBOUND_AGENT_NAME => X_INBOUND_AGENT_NAME,
500 X_OUTBOUND_AGENT_NAME => X_OUTBOUND_AGENT_NAME,
501 X_CORRELATION_ID => X_CORRELATION_ID,
502 X_MAX_IDLE_TIME => X_MAX_IDLE_TIME,
503 X_COMPONENT_STATUS_INFO => X_COMPONENT_STATUS_INFO,
504 X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
505 X_LAST_UPDATE_DATE => sysdate,
506 X_LAST_UPDATED_BY => user_id,
507 X_LAST_UPDATE_LOGIN => 0);
508
509 EXCEPTION
510 WHEN No_Data_Found THEN
511 SELECT fnd_svc_components_s.nextval
512 INTO l_component_id
513 FROM dual;
514
515 FND_SVC_COMPONENTS_PKG.INSERT_ROW (
516 X_ROWID => row_id,
517 X_COMPONENT_ID => l_component_id,
518 X_COMPONENT_NAME => X_COMPONENT_NAME,
519 X_COMPONENT_STATUS => X_COMPONENT_STATUS,
520 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
521 X_STARTUP_MODE => X_STARTUP_MODE,
522 X_CONTAINER_TYPE => X_CONTAINER_TYPE,
523 X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
524 X_APPLICATION_ID => l_application_id,
525 X_CONCURRENT_QUEUE_ID => l_concurrent_queue_id,
526 X_STANDALONE_CONTAINER_NAME => X_STANDALONE_CONTAINER_NAME,
527 X_INBOUND_AGENT_NAME => X_INBOUND_AGENT_NAME,
528 X_OUTBOUND_AGENT_NAME => X_OUTBOUND_AGENT_NAME,
529 X_CORRELATION_ID => X_CORRELATION_ID,
530 X_MAX_IDLE_TIME => X_MAX_IDLE_TIME,
531 X_COMPONENT_STATUS_INFO => X_COMPONENT_STATUS_INFO,
532 X_CREATION_DATE => sysdate,
533 X_CREATED_BY => user_id,
534 X_LAST_UPDATE_DATE => sysdate,
535 X_LAST_UPDATED_BY => user_id,
536 X_LAST_UPDATE_LOGIN => 0);
537 END;
538 end;
539 end LOAD_ROW;
540
541
542 end FND_SVC_COMPONENTS_PKG;