[Home] [Help]
PACKAGE BODY: APPS.WIP_PREF_VALUE_PKG
Source
1 package body WIP_PREF_VALUE_PKG as
2 /* $Header: WIPPRFVB.pls 120.0.12020000.2 2012/07/18 07:47:13 ankohli ship $ */
3
4 procedure LOAD_SEED_ROW(
5 x_upload_mode in varchar2,
6 x_custom_mode in varchar2,
7 x_preference_value_id in number,
8 x_preference_id in number,
9 x_level_id in number,
10 x_sequence_number in number,
11 x_attribute_name in varchar2,
12 x_attribute_value_code in varchar2,
13 x_owner in varchar2,
14 x_last_update_date in varchar2) is
15 begin
16 if (x_upload_mode = 'NLS') then
17 return;
18 else
19 WIP_PREF_VALUE_PKG.LOAD_ROW(
20 x_custom_mode,
21 x_preference_value_id,
22 x_preference_id,
23 x_level_id,
24 x_sequence_number,
25 x_attribute_name,
26 x_attribute_value_code,
27 x_owner,
28 x_last_update_date);
29 end if;
30 end LOAD_SEED_ROW;
31
32 procedure LOAD_ROW(
33 x_custom_mode in varchar2,
34 x_preference_value_id in number,
35 x_preference_id in number,
36 x_level_id in number,
37 x_sequence_number in number,
38 x_attribute_name in varchar2,
39 x_attribute_value_code in varchar2,
40 x_owner in varchar2,
41 x_last_update_date in varchar2) is
42 user_id NUMBER := 0;
43 f_ludate date; -- entity update date in file
44 row_count number;
45 begin
46 user_id := fnd_load_util.owner_id(x_owner);
47
48 -- Translate char last_update_date to date
49 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
50
51 /*Bug 14159709: This package uploads the site level seeded values in
52 wipprfvl.ldt. But customer may change the seeded values at site level.
53 Thus before this fix, when a new LDT file was uploaded it would
54 over-write the site level values in customer instance. Now only new
55 parameters will be seeded. If there is any row existing for a preference
56 at site level (level_id =1) it wont be changed*/
57
58 select count(*) into row_count
59 from WIP_PREFERENCE_VALUES
60 where LEVEL_ID = x_level_id
61 and PREFERENCE_ID = x_preference_id;
62
63 if(row_count=0) then
64 insert into WIP_PREFERENCE_VALUES (
65 PREFERENCE_VALUE_ID,
66 PREFERENCE_ID,
67 LEVEL_ID,
68 SEQUENCE_NUMBER,
69 ATTRIBUTE_NAME,
70 ATTRIBUTE_VALUE_CODE,
71 OBJECT_VERSION_NUMBER,
72 LAST_UPDATE_DATE,
73 LAST_UPDATED_BY,
74 CREATION_DATE,
75 CREATED_BY,
76 LAST_UPDATE_LOGIN )
77 values (
78 x_preference_value_id,
79 x_preference_id,
80 x_level_id,
81 x_sequence_number,
82 x_attribute_name,
83 x_attribute_value_code,
84 1,
85 f_ludate,
86 user_id,
87 f_ludate,
88 user_id,
89 0 );
90 end if;
91
92 /*if (fnd_load_util.upload_test(user_id, f_ludate, db_luby,
93 db_ludate, x_custom_mode)) then
94 update WIP_PREFERENCE_VALUES set
95 PREFERENCE_ID = x_preference_id,
96 LEVEL_ID = x_level_id,
97 SEQUENCE_NUMBER = x_sequence_number,
98 ATTRIBUTE_NAME = x_attribute_name,
99 ATTRIBUTE_VALUE_CODE = x_attribute_value_code,
100 LAST_UPDATE_DATE = f_ludate,
101 LAST_UPDATED_BY = user_id,
102 LAST_UPDATE_LOGIN = 0
103 where PREFERENCE_VALUE_ID = x_preference_value_id;
104 end if;
105
106 exception
107 when no_data_found then
108 -- Row doesn't exist yet. Now this insert statement is placed here.
109 insert into WIP_PREFERENCE_VALUES (
110 PREFERENCE_VALUE_ID,
111 PREFERENCE_ID,
112 LEVEL_ID,
113 SEQUENCE_NUMBER,
114 ATTRIBUTE_NAME,
115 ATTRIBUTE_VALUE_CODE,
116 OBJECT_VERSION_NUMBER,
117 LAST_UPDATE_DATE,
118 LAST_UPDATED_BY,
119 CREATION_DATE,
120 CREATED_BY,
121 LAST_UPDATE_LOGIN )
122 values (
123 x_preference_value_id,
124 x_preference_id,
125 x_level_id,
126 x_sequence_number,
127 x_attribute_name,
128 x_attribute_value_code,
129 1,
130 f_ludate,
131 user_id,
132 f_ludate,
133 user_id,
134 0 );
135 */
136
137 end LOAD_ROW;
138
139
140 end WIP_PREF_VALUE_PKG;