[Home] [Help]
PACKAGE BODY: APPS.BNE_PERF_SET_ITEMS_PKG
Source
1 package body BNE_PERF_SET_ITEMS_PKG as
2 /* $Header: bneperfsetitemb.pls 120.2 2005/06/29 03:40:43 dvayro noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_SET_CODE in VARCHAR2,
7 X_STATISTIC_CODE in VARCHAR2,
8 X_OBJECT_VERSION_NUMBER in NUMBER,
9 X_CREATION_DATE in DATE,
10 X_CREATED_BY in NUMBER,
11 X_LAST_UPDATE_DATE in DATE,
12 X_LAST_UPDATED_BY in NUMBER,
13 X_LAST_UPDATE_LOGIN in NUMBER
14 ) is
15 cursor C is select ROWID from BNE_PERF_SET_ITEMS
16 where SET_CODE = X_SET_CODE
17 and STATISTIC_CODE = X_STATISTIC_CODE
18 ;
19 begin
20 insert into BNE_PERF_SET_ITEMS (
21 SET_CODE,
22 STATISTIC_CODE,
23 OBJECT_VERSION_NUMBER,
24 CREATED_BY,
25 CREATION_DATE,
26 LAST_UPDATED_BY,
27 LAST_UPDATE_LOGIN,
28 LAST_UPDATE_DATE
29 ) values (
30 X_SET_CODE,
31 X_STATISTIC_CODE,
32 X_OBJECT_VERSION_NUMBER,
33 X_CREATED_BY,
34 X_CREATION_DATE,
35 X_LAST_UPDATED_BY,
36 X_LAST_UPDATE_LOGIN,
37 X_LAST_UPDATE_DATE
38 );
39
40 open c;
41 fetch c into X_ROWID;
42 if (c%notfound) then
43 close c;
44 raise no_data_found;
45 end if;
46 close c;
47
48 end INSERT_ROW;
49
50 procedure LOCK_ROW (
51 X_SET_CODE in VARCHAR2,
52 X_STATISTIC_CODE in VARCHAR2,
53 X_OBJECT_VERSION_NUMBER in NUMBER
54 ) is
55 cursor c1 is select
56 OBJECT_VERSION_NUMBER
57 from BNE_PERF_SET_ITEMS
58 where SET_CODE = X_SET_CODE
59 and STATISTIC_CODE = X_STATISTIC_CODE
60 for update of SET_CODE nowait;
61 begin
62 for tlinfo in c1 loop
63 if ((tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
64 ) then
65 null;
66 else
67 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
68 app_exception.raise_exception;
69 end if;
70 end loop;
71 return;
72 end LOCK_ROW;
73
74 procedure UPDATE_ROW (
75 X_SET_CODE in VARCHAR2,
76 X_STATISTIC_CODE in VARCHAR2,
77 X_OBJECT_VERSION_NUMBER in NUMBER,
78 X_LAST_UPDATE_DATE in DATE,
79 X_LAST_UPDATED_BY in NUMBER,
80 X_LAST_UPDATE_LOGIN in NUMBER
81 ) is
82 begin
83 update BNE_PERF_SET_ITEMS set
84 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
85 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
86 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
87 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
88 where SET_CODE = X_SET_CODE
89 and STATISTIC_CODE = X_STATISTIC_CODE
90 ;
91
92 if (sql%notfound) then
93 raise no_data_found;
94 end if;
95 end UPDATE_ROW;
96
97 procedure DELETE_ROW (
98 X_SET_CODE in VARCHAR2,
99 X_STATISTIC_CODE in VARCHAR2
100 ) is
101 begin
102 delete from BNE_PERF_SET_ITEMS
103 where SET_CODE = X_SET_CODE
104 and STATISTIC_CODE = X_STATISTIC_CODE;
105
106 if (sql%notfound) then
107 raise no_data_found;
108 end if;
109
110 end DELETE_ROW;
111
112 procedure ADD_LANGUAGE
113 is
114 begin
115 null;
116 end ADD_LANGUAGE;
117
118 --------------------------------------------------------------------------------
119 -- PROCEDURE: LOAD_ROW --
120 -- --
121 -- DESCRIPTION: Load a row into the BNE_PERF_SET_ITEMS entity. --
122 -- This proc is called from the apps loader. --
123 -- --
124 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
125 -- --
126 -- --
127 -- MODIFICATION HISTORY --
128 -- Date Username Description --
129 -- 28-May-04 DGROVES CREATED --
130 --------------------------------------------------------------------------------
131 procedure LOAD_ROW(
132 x_set_code in VARCHAR2,
133 x_statistic_code in VARCHAR2,
134 x_object_version_number in VARCHAR2,
135 x_owner in VARCHAR2,
136 x_last_update_date in VARCHAR2,
137 x_custom_mode in VARCHAR2
138 )
139 is
140 l_row_id varchar2(64);
141 f_luby number; -- entity owner in file
142 f_ludate date; -- entity update date in file
143 db_luby number; -- entity owner in db
144 db_ludate date; -- entity update date in db
145 begin
146 -- Translate owner to file_last_updated_by
147 f_luby := fnd_load_util.owner_id(x_owner);
148
149 -- Translate char last_update_date to date
150 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
151 begin
152 select LAST_UPDATED_BY, LAST_UPDATE_DATE
153 into db_luby, db_ludate
154 from BNE_PERF_SET_ITEMS
155 where SET_CODE = x_set_code
156 and STATISTIC_CODE = x_statistic_code
157 ;
158
159 -- Test for customization and version
160 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
161 db_ludate, x_custom_mode)) then
162 -- Update existing row
163 BNE_PERF_SET_ITEMS_PKG.Update_Row(
164 X_SET_CODE => x_set_code,
165 X_STATISTIC_CODE => x_statistic_code,
166 X_OBJECT_VERSION_NUMBER => x_object_version_number,
167 X_LAST_UPDATE_DATE => f_ludate,
168 X_LAST_UPDATED_BY => f_luby,
169 X_LAST_UPDATE_LOGIN => 0
170 );
171 end if;
172 exception
173 when no_data_found then
174 -- Record doesn't exist - insert in all cases
175 BNE_PERF_SET_ITEMS_PKG.Insert_Row(
176 X_ROWID => l_row_id,
177 X_SET_CODE => x_set_code,
178 X_STATISTIC_CODE => x_statistic_code,
179 X_OBJECT_VERSION_NUMBER => x_object_version_number,
180 X_CREATION_DATE => f_ludate,
181 X_CREATED_BY => f_luby,
182 X_LAST_UPDATE_DATE => f_ludate,
183 X_LAST_UPDATED_BY => f_luby,
184 X_LAST_UPDATE_LOGIN => 0
185 );
186 end;
187 end LOAD_ROW;
188
189
190 end BNE_PERF_SET_ITEMS_PKG;