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;