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