[Home] [Help]
PACKAGE BODY: APPS.FND_DOCUMENT_ENTITIES_PKG
Source
1 PACKAGE BODY fnd_document_entities_pkg AS
2 /* $Header: AFAKDOCB.pls 115.14 2004/02/06 20:50:21 blash ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_DOCUMENT_ENTITY_ID in NUMBER,
7 X_DATA_OBJECT_CODE in VARCHAR2,
8 X_APPLICATION_ID in NUMBER,
9 X_TABLE_NAME in VARCHAR2,
10 X_PK1_COLUMN in VARCHAR2,
11 X_PK2_COLUMN in VARCHAR2,
12 X_PK3_COLUMN in VARCHAR2,
13 X_PK4_COLUMN in VARCHAR2,
14 X_PK5_COLUMN in VARCHAR2,
15 X_USER_ENTITY_NAME in VARCHAR2,
16 X_USER_ENTITY_PROMPT in VARCHAR2,
17 X_CREATION_DATE in DATE,
18 X_CREATED_BY in NUMBER,
19 X_LAST_UPDATE_DATE in DATE,
20 X_LAST_UPDATED_BY in NUMBER,
21 X_LAST_UPDATE_LOGIN in NUMBER
22 ) is
23 cursor C is select ROWID from FND_DOCUMENT_ENTITIES
24 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE;
25 begin
26
27 insert into FND_DOCUMENT_ENTITIES (
28 DOCUMENT_ENTITY_ID,
29 DATA_OBJECT_CODE,
30 APPLICATION_ID,
31 TABLE_NAME,
32 PK1_COLUMN,
33 PK2_COLUMN,
34 PK3_COLUMN,
35 PK4_COLUMN,
36 PK5_COLUMN,
37 CREATION_DATE,
38 CREATED_BY,
39 LAST_UPDATE_DATE,
40 LAST_UPDATED_BY,
41 LAST_UPDATE_LOGIN
42 ) values (
43 X_DOCUMENT_ENTITY_ID,
44 X_DATA_OBJECT_CODE,
45 X_APPLICATION_ID,
46 X_TABLE_NAME,
47 X_PK1_COLUMN,
48 X_PK2_COLUMN,
49 X_PK3_COLUMN,
50 X_PK4_COLUMN,
51 X_PK5_COLUMN,
52 X_CREATION_DATE,
53 X_CREATED_BY,
54 X_LAST_UPDATE_DATE,
55 X_LAST_UPDATED_BY,
56 X_LAST_UPDATE_LOGIN);
57
58 open c;
59 fetch c into X_ROWID;
60 if (c%notfound) then
61 close c;
62 raise no_data_found;
63 end if;
64 close c;
65
66 insert into FND_DOCUMENT_ENTITIES_TL (
67 DOCUMENT_ENTITY_ID,
68 DATA_OBJECT_CODE,
69 LANGUAGE,
70 USER_ENTITY_NAME,
71 USER_ENTITY_PROMPT,
72 SOURCE_LANG,
73 CREATION_DATE,
74 CREATED_BY,
75 LAST_UPDATE_DATE,
76 LAST_UPDATED_BY,
77 LAST_UPDATE_LOGIN
78 ) select
79 X_DOCUMENT_ENTITY_ID,
80 X_DATA_OBJECT_CODE,
81 L.LANGUAGE_CODE,
82 X_USER_ENTITY_NAME,
83 X_USER_ENTITY_PROMPT,
84 userenv('LANG'),
85 X_CREATION_DATE,
86 X_CREATED_BY,
87 X_LAST_UPDATE_DATE,
88 X_LAST_UPDATED_BY,
89 X_LAST_UPDATE_LOGIN
90 from FND_LANGUAGES L
91 where L.INSTALLED_FLAG in ('I', 'B')
92 and not exists
93 (select NULL
94 from FND_DOCUMENT_ENTITIES_TL T
95 where T.DATA_OBJECT_CODE = X_DATA_OBJECT_CODE
96 and T.LANGUAGE = L.LANGUAGE_CODE);
97 end INSERT_ROW;
98
99 procedure LOCK_ROW (
100 X_DOCUMENT_ENTITY_ID in NUMBER,
101 X_DATA_OBJECT_CODE in VARCHAR2,
102 X_APPLICATION_ID in NUMBER,
103 X_TABLE_NAME in VARCHAR2,
104 X_PK1_COLUMN in VARCHAR2,
105 X_PK2_COLUMN in VARCHAR2,
106 X_PK3_COLUMN in VARCHAR2,
107 X_PK4_COLUMN in VARCHAR2,
108 X_PK5_COLUMN in VARCHAR2,
109 X_USER_ENTITY_NAME in VARCHAR2,
110 X_USER_ENTITY_PROMPT in VARCHAR2
111 ) is
112 cursor c is select
113 APPLICATION_ID,
114 TABLE_NAME,
115 PK1_COLUMN,
116 PK2_COLUMN,
117 PK3_COLUMN,
118 PK4_COLUMN,
119 PK5_COLUMN
120 from FND_DOCUMENT_ENTITIES
121 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE
122 for update of DOCUMENT_ENTITY_ID nowait;
123 recinfo c%rowtype;
124
125 cursor c1 is select
126 USER_ENTITY_NAME,
127 USER_ENTITY_PROMPT
128 from FND_DOCUMENT_ENTITIES_TL
129 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE
130 and LANGUAGE = userenv('LANG')
131 for update of DOCUMENT_ENTITY_ID nowait;
132 tlinfo c1%rowtype;
133
134 begin
135 open c;
136 fetch c into recinfo;
137 if (c%notfound) then
138 close c;
139 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
140 app_exception.raise_exception;
141 end if;
142 close c;
143 if (NOT( (recinfo.APPLICATION_ID = X_APPLICATION_ID)
144 AND (recinfo.TABLE_NAME = X_TABLE_NAME)
145 AND ((recinfo.PK1_COLUMN = X_PK1_COLUMN)
146 OR ((recinfo.PK1_COLUMN is null)
147 AND (X_PK1_COLUMN is null)))
148 AND ((recinfo.PK2_COLUMN = X_PK2_COLUMN)
149 OR ((recinfo.PK2_COLUMN is null)
150 AND (X_PK2_COLUMN is null)))
151 AND ((recinfo.PK3_COLUMN = X_PK3_COLUMN)
152 OR ((recinfo.PK3_COLUMN is null)
153 AND (X_PK3_COLUMN is null)))
154 AND ((recinfo.PK4_COLUMN = X_PK4_COLUMN)
155 OR ((recinfo.PK4_COLUMN is null)
156 AND (X_PK4_COLUMN is null)))
157 AND ((recinfo.PK5_COLUMN = X_PK5_COLUMN)
158 OR ((recinfo.PK5_COLUMN is null)
159 AND (X_PK5_COLUMN is null)))
160 )) then
161 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
162 app_exception.raise_exception;
163 end if;
164
165 open c1;
166 fetch c1 into tlinfo;
167 if (c1%notfound) then
168 close c1;
169 return;
170 end if;
171 close c1;
172
173 if (NOT( (tlinfo.USER_ENTITY_NAME = X_USER_ENTITY_NAME)
174 AND (tlinfo.USER_ENTITY_PROMPT = X_USER_ENTITY_PROMPT)
175 )) then
176 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
177 app_exception.raise_exception;
178 end if;
179 return;
180 end LOCK_ROW;
181
182 procedure UPDATE_ROW (
183 X_DOCUMENT_ENTITY_ID in NUMBER,
184 X_DATA_OBJECT_CODE in VARCHAR2,
185 X_APPLICATION_ID in NUMBER,
186 X_TABLE_NAME in VARCHAR2,
187 X_PK1_COLUMN in VARCHAR2,
188 X_PK2_COLUMN in VARCHAR2,
189 X_PK3_COLUMN in VARCHAR2,
190 X_PK4_COLUMN in VARCHAR2,
191 X_PK5_COLUMN in VARCHAR2,
192 X_USER_ENTITY_NAME in VARCHAR2,
193 X_USER_ENTITY_PROMPT in VARCHAR2,
194 X_LAST_UPDATE_DATE in DATE,
195 X_LAST_UPDATED_BY in NUMBER,
196 X_LAST_UPDATE_LOGIN in NUMBER
197 ) is
198 begin
199 update FND_DOCUMENT_ENTITIES set
200 DOCUMENT_ENTITY_ID = X_DOCUMENT_ENTITY_ID,
201 DATA_OBJECT_CODE = X_DATA_OBJECT_CODE,
202 APPLICATION_ID = X_APPLICATION_ID,
203 TABLE_NAME = X_TABLE_NAME,
204 PK1_COLUMN = X_PK1_COLUMN,
205 PK2_COLUMN = X_PK2_COLUMN,
206 PK3_COLUMN = X_PK3_COLUMN,
207 PK4_COLUMN = X_PK4_COLUMN,
208 PK5_COLUMN = X_PK5_COLUMN,
209 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
210 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
211 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
212 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE;
213 if (sql%notfound) then
214 raise no_data_found;
215 end if;
216
217 update FND_DOCUMENT_ENTITIES_TL set
218 USER_ENTITY_NAME = X_USER_ENTITY_NAME,
219 USER_ENTITY_PROMPT = X_USER_ENTITY_PROMPT,
220 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
221 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
222 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
223 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE
224 and LANGUAGE = userenv('LANG');
225 if (sql%notfound) then
226 raise no_data_found;
227 end if;
228 end UPDATE_ROW;
229
230 procedure DELETE_ROW (
231 X_DOCUMENT_ENTITY_ID in NUMBER,
232 X_DATA_OBJECT_CODE in VARCHAR2
233 ) is
234 begin
235 delete from FND_DOCUMENT_ENTITIES
236 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE;
237
238 if (sql%notfound) then
239 raise no_data_found;
240 end if;
241
242 delete from FND_DOCUMENT_ENTITIES_TL
243 where DATA_OBJECT_CODE = X_DATA_OBJECT_CODE;
244 if (sql%notfound) then
245 raise no_data_found;
246 end if;
247 end DELETE_ROW;
248
249 procedure ADD_LANGUAGE
250 is
251 begin
252
253 /* Mar/19/03 requested by Ric Ginsberg */
254 /* The following delete and update statements are commented out */
255 /* as a quick workaround to fix the time-consuming table handler issue */
256 /* Eventually we'll need to turn them into a separate fix_language procedure */
257 /*
258
259 delete from FND_DOCUMENT_ENTITIES_TL T
260 where not exists
261 (select NULL
262 from FND_DOCUMENT_ENTITIES B
263 where B.DATA_OBJECT_CODE = T.DATA_OBJECT_CODE
264 );
265
266 update FND_DOCUMENT_ENTITIES_TL T set (
267 USER_ENTITY_NAME,
268 USER_ENTITY_PROMPT
269 ) = (select
270 B.USER_ENTITY_NAME,
271 B.USER_ENTITY_PROMPT
272 from FND_DOCUMENT_ENTITIES_TL B
273 where B.DATA_OBJECT_CODE = T.DATA_OBJECT_CODE
274 and B.LANGUAGE = T.SOURCE_LANG)
275 where (
276 T.DOCUMENT_ENTITY_ID,
277 T.LANGUAGE
278 ) in (select
279 SUBT.DOCUMENT_ENTITY_ID,
280 SUBT.LANGUAGE
281 from FND_DOCUMENT_ENTITIES_TL SUBB, FND_DOCUMENT_ENTITIES_TL SUBT
282 where SUBB.DATA_OBJECT_CODE = SUBT.DATA_OBJECT_CODE
283 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
284 and (SUBB.USER_ENTITY_NAME <> SUBT.USER_ENTITY_NAME
285 or SUBB.USER_ENTITY_PROMPT <> SUBT.USER_ENTITY_PROMPT
286 ));
287 */
288
289 insert into FND_DOCUMENT_ENTITIES_TL (
290 DOCUMENT_ENTITY_ID,
291 DATA_OBJECT_CODE,
292 LANGUAGE,
293 USER_ENTITY_NAME,
294 USER_ENTITY_PROMPT,
295 SOURCE_LANG,
296 CREATION_DATE,
297 CREATED_BY,
298 LAST_UPDATE_DATE,
299 LAST_UPDATED_BY,
300 LAST_UPDATE_LOGIN
301 ) select
302 M.DOCUMENT_ENTITY_ID,
303 M.DATA_OBJECT_CODE,
304 L.LANGUAGE_CODE,
305 M.USER_ENTITY_NAME,
306 M.USER_ENTITY_PROMPT,
307 M.SOURCE_LANG,
308 M.CREATION_DATE,
309 M.CREATED_BY,
310 M.LAST_UPDATE_DATE,
311 M.LAST_UPDATED_BY,
312 M.LAST_UPDATE_LOGIN
313 from FND_DOCUMENT_ENTITIES_TL M, FND_LANGUAGES B, FND_LANGUAGES L
314 where B.INSTALLED_FLAG = 'B'
315 and L.INSTALLED_FLAG in ('I', 'B')
316 and M.LANGUAGE = userenv('LANG')
317 and not exists
318 (select NULL
319 from FND_DOCUMENT_ENTITIES_TL T
320 where T.DATA_OBJECT_CODE = M.DATA_OBJECT_CODE
321 and T.LANGUAGE = L.LANGUAGE_CODE);
322 end ADD_LANGUAGE;
323
324 procedure TRANSLATE_ROW (
325 X_DATA_OBJECT_CODE in varchar2,
326 X_APP_SHORT_NAME in varchar2,
327 X_USER_ENTITY_NAME in varchar2,
328 X_USER_ENTITY_PROMPT in varchar2,
329 X_OWNER in varchar2) IS
330
331 begin
332
333 update fnd_document_entities_tl set
334 user_entity_name = nvl(X_USER_ENTITY_NAME,user_entity_name),
335 user_entity_prompt = nvl(X_USER_ENTITY_PROMPT,user_entity_prompt),
336 last_update_date = sysdate,
337 last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
338 last_update_login = 0,
339 source_lang = userenv('LANG')
340 where data_object_code = X_DATA_OBJECT_CODE
341 and userenv('LANG') in (language, source_lang);
342
343 end TRANSLATE_ROW;
344
345 -- Overloaded for BUG 3087292.
346
347 procedure TRANSLATE_ROW (
348 X_DATA_OBJECT_CODE in varchar2,
349 X_APP_SHORT_NAME in varchar2,
350 X_USER_ENTITY_NAME in varchar2,
351 X_USER_ENTITY_PROMPT in varchar2,
352 X_OWNER in varchar2,
353 X_LAST_UPDATE_DATE in VARCHAR2,
354 X_CUSTOM_MODE in VARCHAR2) IS
355
356 f_luby number; -- entity owner in file
357 f_ludate date; -- entity update date in file
358 db_luby number; -- entity owner in db
359 db_ludate date; -- entity update date in db
360
361 begin
362 -- Translate owner to file_last_updated_by
363 f_luby := fnd_load_util.owner_id(x_owner);
364
365 -- Translate char last_update_date to date
366 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
367
368 select LAST_UPDATED_BY, LAST_UPDATE_DATE
369 into db_luby, db_ludate
370 from fnd_document_entities_tl
371 where data_object_code = X_DATA_OBJECT_CODE
372 and LANGUAGE = userenv('LANG');
373
374 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
375 db_ludate, X_CUSTOM_MODE)) then
376 update fnd_document_entities_tl set
377 user_entity_name = nvl(X_USER_ENTITY_NAME,user_entity_name),
378 user_entity_prompt = nvl(X_USER_ENTITY_PROMPT,user_entity_prompt),
379 last_update_date = f_ludate,
380 last_updated_by = f_luby,
381 last_update_login = 0,
382 source_lang = userenv('LANG')
383 where data_object_code = X_DATA_OBJECT_CODE
384 and userenv('LANG') in (language, source_lang);
385 end if;
386
387 end TRANSLATE_ROW;
388
389 procedure LOAD_ROW (
390 X_DATA_OBJECT_CODE in varchar2,
391 X_APP_SHORT_NAME in varchar2,
392 X_TABLE_NAME in varchar2,
393 X_ENTITY_NAME in varchar2,
394 X_OWNER in varchar2,
395 X_PK1_COLUMN in varchar2,
396 X_PK2_COLUMN in varchar2,
397 X_PK3_COLUMN in varchar2,
398 X_PK4_COLUMN in varchar2,
399 X_PK5_COLUMN in varchar2,
400 X_USER_ENTITY_NAME in varchar2,
401 X_USER_ENTITY_PROMPT in varchar2)is
402
403 l_user_id number := 0 ;
404 l_document_entity_id number := 0 ;
405 l_application_id number := 0 ;
406 l_row_id varchar2(64);
407
408 begin
409
410 if (X_OWNER = 'SEED') then
411 l_user_id := 1;
412 end if;
413
414 -- Get application Id from fnd_application.
415 select application_id
416 into l_application_id
417 from fnd_application
418 where application_short_name = X_APP_SHORT_NAME;
419
420 begin
421 -- Get document entity Id from fnd_document_entities.
422 select document_entity_id, application_id
423 into l_document_entity_id, l_application_id
424 from fnd_document_entities
425 where data_object_code = X_DATA_OBJECT_CODE ;
426
427 UPDATE_ROW (
428 X_DOCUMENT_ENTITY_ID => l_document_entity_id,
429 X_DATA_OBJECT_CODE => X_DATA_OBJECT_CODE,
430 X_APPLICATION_ID => l_application_id,
431 X_TABLE_NAME => X_TABLE_NAME,
432 X_PK1_COLUMN => X_PK1_COLUMN,
433 X_PK2_COLUMN => X_PK2_COLUMN,
434 X_PK3_COLUMN => X_PK3_COLUMN,
435 X_PK4_COLUMN => X_PK4_COLUMN,
436 X_PK5_COLUMN => X_PK5_COLUMN,
437 X_USER_ENTITY_NAME => X_USER_ENTITY_NAME,
438 X_USER_ENTITY_PROMPT => X_USER_ENTITY_PROMPT,
439 X_LAST_UPDATE_DATE => sysdate,
440 X_LAST_UPDATED_BY => l_user_id,
441 X_LAST_UPDATE_LOGIN => 0);
442
443 exception
444 when no_data_found then
445
446 select fnd_document_entities_s.nextval
447 into l_document_entity_id
448 from dual;
449
450 INSERT_ROW (
451 X_ROWID => l_row_id,
452 X_DOCUMENT_ENTITY_ID => l_document_entity_id,
453 X_DATA_OBJECT_CODE => X_DATA_OBJECT_CODE,
454 X_APPLICATION_ID => l_application_id,
455 X_TABLE_NAME => X_TABLE_NAME,
456 X_PK1_COLUMN => X_PK1_COLUMN,
457 X_PK2_COLUMN => X_PK2_COLUMN,
458 X_PK3_COLUMN => X_PK3_COLUMN,
459 X_PK4_COLUMN => X_PK4_COLUMN,
463 X_CREATION_DATE => sysdate,
460 X_PK5_COLUMN => X_PK5_COLUMN,
461 X_USER_ENTITY_NAME => X_USER_ENTITY_NAME,
462 X_USER_ENTITY_PROMPT => X_USER_ENTITY_PROMPT,
464 X_CREATED_BY => l_user_id,
465 X_LAST_UPDATE_DATE => sysdate,
466 X_LAST_UPDATED_BY => l_user_id,
467 X_LAST_UPDATE_LOGIN => 0 );
468 end;
469 end LOAD_ROW;
470
471 -- Overloaded for BUG 3087292.
472
473 procedure LOAD_ROW (
474 X_DATA_OBJECT_CODE in varchar2,
475 X_APP_SHORT_NAME in varchar2,
476 X_TABLE_NAME in varchar2,
477 X_ENTITY_NAME in varchar2,
478 X_OWNER in varchar2,
479 X_PK1_COLUMN in varchar2,
480 X_PK2_COLUMN in varchar2,
481 X_PK3_COLUMN in varchar2,
482 X_PK4_COLUMN in varchar2,
483 X_PK5_COLUMN in varchar2,
484 X_USER_ENTITY_NAME in varchar2,
485 X_USER_ENTITY_PROMPT in varchar2,
486 X_LAST_UPDATE_DATE in VARCHAR2,
487 X_CUSTOM_MODE in VARCHAR2)is
488
489 l_user_id number := 0 ;
490 l_document_entity_id number := 0 ;
491 l_application_id number := 0 ;
492 l_row_id varchar2(64);
493 f_luby number; -- entity owner in file
494 f_ludate date; -- entity update date in file
495 db_luby number; -- entity owner in db
496 db_ludate date; -- entity update date in db
497
498 begin
499 -- Translate owner to file_last_updated_by
500 f_luby := fnd_load_util.owner_id(x_owner);
501
502 -- Translate char last_update_date to date
503 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
504
505
506 -- Get application Id from fnd_application.
507 select application_id
508 into l_application_id
509 from fnd_application
510 where application_short_name = X_APP_SHORT_NAME;
511
512 begin
513 -- Get document entity Id from fnd_document_entities.
514 select document_entity_id, application_id,
515 LAST_UPDATED_BY, LAST_UPDATE_DATE
516 into l_document_entity_id, l_application_id, db_luby, db_ludate
517 from fnd_document_entities
518 where data_object_code = X_DATA_OBJECT_CODE ;
519
520 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
521 db_ludate, X_CUSTOM_MODE)) then
522 UPDATE_ROW (
523 X_DOCUMENT_ENTITY_ID => l_document_entity_id,
524 X_DATA_OBJECT_CODE => X_DATA_OBJECT_CODE,
525 X_APPLICATION_ID => l_application_id,
526 X_TABLE_NAME => X_TABLE_NAME,
527 X_PK1_COLUMN => X_PK1_COLUMN,
528 X_PK2_COLUMN => X_PK2_COLUMN,
529 X_PK3_COLUMN => X_PK3_COLUMN,
530 X_PK4_COLUMN => X_PK4_COLUMN,
531 X_PK5_COLUMN => X_PK5_COLUMN,
532 X_USER_ENTITY_NAME => X_USER_ENTITY_NAME,
533 X_USER_ENTITY_PROMPT => X_USER_ENTITY_PROMPT,
534 X_LAST_UPDATE_DATE => f_ludate,
535 X_LAST_UPDATED_BY => f_luby,
536 X_LAST_UPDATE_LOGIN => 0);
537 end if;
538
539 exception
540 when no_data_found then
544 from dual;
541
542 select fnd_document_entities_s.nextval
543 into l_document_entity_id
545
546 INSERT_ROW (
547 X_ROWID => l_row_id,
548 X_DOCUMENT_ENTITY_ID => l_document_entity_id,
549 X_DATA_OBJECT_CODE => X_DATA_OBJECT_CODE,
550 X_APPLICATION_ID => l_application_id,
551 X_TABLE_NAME => X_TABLE_NAME,
552 X_PK1_COLUMN => X_PK1_COLUMN,
553 X_PK2_COLUMN => X_PK2_COLUMN,
554 X_PK3_COLUMN => X_PK3_COLUMN,
555 X_PK4_COLUMN => X_PK4_COLUMN,
556 X_PK5_COLUMN => X_PK5_COLUMN,
557 X_USER_ENTITY_NAME => X_USER_ENTITY_NAME,
558 X_USER_ENTITY_PROMPT => X_USER_ENTITY_PROMPT,
559 X_CREATION_DATE => f_ludate,
560 X_CREATED_BY => f_luby,
561 X_LAST_UPDATE_DATE => f_ludate,
562 X_LAST_UPDATED_BY => f_luby,
563 X_LAST_UPDATE_LOGIN => 0 );
564 end;
565 end LOAD_ROW;
566
567 end FND_DOCUMENT_ENTITIES_PKG;