[Home] [Help]
PACKAGE BODY: APPS.WIP_PREF_DEF_PKG
Source
1 package body WIP_PREF_DEF_PKG as
2 /* $Header: WIPPRFDB.pls 120.1 2005/06/24 17:10:42 asuherma noship $ */
3
4 procedure LOAD_SEED_ROW(
5 x_upload_mode in varchar2,
6 x_custom_mode in varchar2,
7 x_preference_id in number,
8 x_preference_code in number,
9 x_preference_type in number,
10 x_preference_source in varchar2,
11 x_preference_value_lookup_type in varchar2,
12 x_module_id in number,
13 x_usage_level in number,
14 x_owner in varchar2,
15 x_last_update_date in varchar2) is
16 begin
17 if (x_upload_mode = 'NLS') then
18 return;
19 else
20 WIP_PREF_DEF_PKG.LOAD_ROW(
21 x_custom_mode,
22 x_preference_id,
23 x_preference_code,
24 x_preference_type,
25 x_preference_source,
26 x_preference_value_lookup_type,
27 x_module_id,
28 x_usage_level,
29 x_owner,
30 x_last_update_date);
31 end if;
32 end LOAD_SEED_ROW;
33
34 procedure LOAD_ROW(
35 x_custom_mode in varchar2,
36 x_preference_id in number,
37 x_preference_code in number,
38 x_preference_type in number,
39 x_preference_source in varchar2,
40 x_preference_value_lookup_type in varchar2,
41 x_module_id in number,
42 x_usage_level in number,
43 x_owner in varchar2,
44 x_last_update_date in varchar2) is
45 user_id NUMBER := 0;
46 f_ludate date; -- entity update date in file
47 db_luby number; -- entity owner in db
48 db_ludate date; -- entity update date in db
49 begin
50 user_id := fnd_load_util.owner_id(x_owner);
51
52 -- Translate char last_update_date to date
53 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
54
55 select LAST_UPDATED_BY, LAST_UPDATE_DATE
56 into db_luby, db_ludate
57 from WIP_PREFERENCE_DEFINITIONS
58 where PREFERENCE_ID = x_preference_id;
59
60 if (fnd_load_util.upload_test(user_id, f_ludate, db_luby,
61 db_ludate, x_custom_mode)) then
62 update WIP_PREFERENCE_DEFINITIONS set
63 PREFERENCE_CODE = x_preference_code,
64 PREFERENCE_TYPE = x_preference_type,
65 PREFERENCE_SOURCE = x_preference_source,
66 PREFERENCE_VALUE_LOOKUP_TYPE = x_preference_value_lookup_type,
67 MODULE_ID = x_module_id,
68 USAGE_LEVEL = x_usage_level,
69 LAST_UPDATE_DATE = f_ludate,
70 LAST_UPDATED_BY = user_id,
71 LAST_UPDATE_LOGIN = 0
72 where PREFERENCE_ID = x_preference_id;
73 end if;
74
75 exception
76 when no_data_found then
77 -- Row doesn't exist yet. Now this insert statement is placed here.
78 insert into WIP_PREFERENCE_DEFINITIONS (
79 PREFERENCE_ID,
80 PREFERENCE_CODE,
81 PREFERENCE_TYPE,
82 PREFERENCE_SOURCE,
83 PREFERENCE_VALUE_LOOKUP_TYPE,
84 MODULE_ID,
85 USAGE_LEVEL,
86 OBJECT_VERSION_NUMBER,
87 LAST_UPDATE_DATE,
88 LAST_UPDATED_BY,
89 CREATION_DATE,
90 CREATED_BY,
91 LAST_UPDATE_LOGIN )
92 values (
93 x_preference_id,
94 x_preference_code,
95 x_preference_type,
96 x_preference_source,
97 x_preference_value_lookup_type,
98 x_module_id,
99 x_usage_level,
100 1,
101 f_ludate,
102 user_id,
103 f_ludate,
104 user_id,
105 0 );
106
107 end LOAD_ROW;
108
109
110 end WIP_PREF_DEF_PKG;