[Home] [Help]
PACKAGE BODY: APPS.EAM_ENABLE_WF_PKG
Source
1 package body EAM_ENABLE_WF_PKG as
2 /* $Header: EAMVWFEB.pls 120.0 2005/10/17 00:43:34 cboppana noship $ */
3
4 procedure LOAD_SEED_ROW(
5 x_upload_mode in varchar2,
6 x_custom_mode in varchar2,
7 x_maintenance_object_source in number,
8 x_enable_workflow in varchar2,
9 x_owner in varchar2,
10 x_last_update_date in varchar2) is
11 begin
12 if (x_upload_mode = 'NLS') then
13 return;
14 else
15 EAM_ENABLE_WF_PKG.LOAD_ROW(
16 x_custom_mode,
17 x_maintenance_object_source,
18 x_enable_workflow,
19 x_owner,
20 x_last_update_date);
21 end if;
22 end LOAD_SEED_ROW;
23
24 procedure LOAD_ROW(
25 x_custom_mode in varchar2,
26 x_maintenance_object_source in number,
27 x_enable_workflow in varchar2,
28 x_owner in varchar2,
29 x_last_update_date in varchar2) is
30 user_id NUMBER := 0;
31 f_ludate date; -- entity update date in file
32 db_luby number; -- entity owner in db
33 db_ludate date; -- entity update date in db
34 begin
35 user_id := fnd_load_util.owner_id(x_owner);
36
37 -- Translate char last_update_date to date
38 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
39
40 select LAST_UPDATED_BY, LAST_UPDATE_DATE
41 into db_luby, db_ludate
42 from EAM_ENABLE_WORKFLOW
43 where MAINTENANCE_OBJECT_SOURCE = x_maintenance_object_source;
44
45 if (fnd_load_util.upload_test(user_id, f_ludate, db_luby,
46 db_ludate, x_custom_mode)) then
47 update EAM_ENABLE_WORKFLOW set
48 MAINTENANCE_OBJECT_SOURCE = x_maintenance_object_source,
49 ENABLE_WORKFLOW = x_enable_workflow,
50 LAST_UPDATE_DATE = f_ludate,
51 LAST_UPDATED_BY = user_id,
52 LAST_UPDATE_LOGIN = 0
53 where MAINTENANCE_OBJECT_SOURCE = x_maintenance_object_source;
54 end if;
55
56 exception
57 when no_data_found then
58 -- Row doesn't exist yet. Now this insert statement is placed here.
59 insert into EAM_ENABLE_WORKFLOW (
60 MAINTENANCE_OBJECT_SOURCE,
61 ENABLE_WORKFLOW,
62 LAST_UPDATE_DATE,
63 LAST_UPDATED_BY,
64 CREATION_DATE,
65 CREATED_BY,
66 LAST_UPDATE_LOGIN )
67 values (
68 x_maintenance_object_source,
69 x_enable_workflow,
70 f_ludate,
71 user_id,
72 f_ludate,
73 user_id,
74 0 );
75
76 end LOAD_ROW;
77
78
79 end EAM_ENABLE_WF_PKG;