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