eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKE_K_USER_ATTRIBUTES_PKG

Source


1 PACKAGE BODY OKE_K_USER_ATTRIBUTES_PKG AS
2 /* $Header: OKEKUATB.pls 115.5 2002/11/20 20:28:54 who ship $ */
3 PROCEDURE INSERT_ROW
4 ( X_ROWID                   IN OUT NOCOPY   VARCHAR2
5 , X_K_USER_ATTRIBUTE_ID     IN OUT NOCOPY   NUMBER
6 , X_RECORD_VERSION_NUMBER   IN OUT NOCOPY   NUMBER
7 , X_CREATION_DATE           IN        DATE
8 , X_CREATED_BY              IN        NUMBER
9 , X_LAST_UPDATE_DATE        IN        DATE
10 , X_LAST_UPDATED_BY         IN        NUMBER
11 , X_LAST_UPDATE_LOGIN       IN        NUMBER
12 , X_K_HEADER_ID             IN        NUMBER
13 , X_K_LINE_ID               IN        NUMBER
14 , X_USER_ATTRIBUTE_CONTEXT  IN        VARCHAR2
15 , X_USER_ATTRIBUTE01        IN        VARCHAR2
16 , X_USER_ATTRIBUTE02        IN        VARCHAR2
17 , X_USER_ATTRIBUTE03        IN        VARCHAR2
18 , X_USER_ATTRIBUTE04        IN        VARCHAR2
19 , X_USER_ATTRIBUTE05        IN        VARCHAR2
20 , X_USER_ATTRIBUTE06        IN        VARCHAR2
21 , X_USER_ATTRIBUTE07        IN        VARCHAR2
22 , X_USER_ATTRIBUTE08        IN        VARCHAR2
23 , X_USER_ATTRIBUTE09        IN        VARCHAR2
24 , X_USER_ATTRIBUTE10        IN        VARCHAR2
25 , X_USER_ATTRIBUTE11        IN        VARCHAR2
26 , X_USER_ATTRIBUTE12        IN        VARCHAR2
27 , X_USER_ATTRIBUTE13        IN        VARCHAR2
28 , X_USER_ATTRIBUTE14        IN        VARCHAR2
29 , X_USER_ATTRIBUTE15        IN        VARCHAR2
30 , X_USER_ATTRIBUTE16        IN        VARCHAR2
31 , X_USER_ATTRIBUTE17        IN        VARCHAR2
32 , X_USER_ATTRIBUTE18        IN        VARCHAR2
33 , X_USER_ATTRIBUTE19        IN        VARCHAR2
34 , X_USER_ATTRIBUTE20        IN        VARCHAR2
35 , X_USER_ATTRIBUTE21        IN        VARCHAR2
36 , X_USER_ATTRIBUTE22        IN        VARCHAR2
37 , X_USER_ATTRIBUTE23        IN        VARCHAR2
38 , X_USER_ATTRIBUTE24        IN        VARCHAR2
39 , X_USER_ATTRIBUTE25        IN        VARCHAR2
40 , X_USER_ATTRIBUTE26        IN        VARCHAR2
41 , X_USER_ATTRIBUTE27        IN        VARCHAR2
42 , X_USER_ATTRIBUTE28        IN        VARCHAR2
43 , X_USER_ATTRIBUTE29        IN        VARCHAR2
44 , X_USER_ATTRIBUTE30        IN        VARCHAR2
45 ) IS
46 
47   CURSOR c IS
48     SELECT rowid
49     FROM   oke_k_user_attributes
50     WHERE  k_user_attribute_id = X_K_USER_ATTRIBUTE_ID;
51 
52 BEGIN
53 
54   SELECT oke_k_user_attributes_s.nextval
55   ,      1
56   INTO   X_K_USER_ATTRIBUTE_ID
57   ,      X_RECORD_VERSION_NUMBER
58   FROM   dual;
59 
60   INSERT INTO oke_k_user_attributes
61   ( K_USER_ATTRIBUTE_ID
62   , CREATION_DATE
63   , CREATED_BY
64   , LAST_UPDATE_DATE
65   , LAST_UPDATED_BY
66   , LAST_UPDATE_LOGIN
67   , RECORD_VERSION_NUMBER
68   , K_HEADER_ID
69   , K_LINE_ID
70   , USER_ATTRIBUTE_CONTEXT
71   , USER_ATTRIBUTE01
72   , USER_ATTRIBUTE02
73   , USER_ATTRIBUTE03
74   , USER_ATTRIBUTE04
75   , USER_ATTRIBUTE05
76   , USER_ATTRIBUTE06
77   , USER_ATTRIBUTE07
78   , USER_ATTRIBUTE08
79   , USER_ATTRIBUTE09
80   , USER_ATTRIBUTE10
81   , USER_ATTRIBUTE11
82   , USER_ATTRIBUTE12
83   , USER_ATTRIBUTE13
84   , USER_ATTRIBUTE14
85   , USER_ATTRIBUTE15
86   , USER_ATTRIBUTE16
87   , USER_ATTRIBUTE17
88   , USER_ATTRIBUTE18
89   , USER_ATTRIBUTE19
90   , USER_ATTRIBUTE20
91   , USER_ATTRIBUTE21
92   , USER_ATTRIBUTE22
93   , USER_ATTRIBUTE23
94   , USER_ATTRIBUTE24
95   , USER_ATTRIBUTE25
96   , USER_ATTRIBUTE26
97   , USER_ATTRIBUTE27
98   , USER_ATTRIBUTE28
99   , USER_ATTRIBUTE29
100   , USER_ATTRIBUTE30
101   ) VALUES
102   ( X_K_USER_ATTRIBUTE_ID
103   , X_CREATION_DATE
104   , X_CREATED_BY
105   , X_LAST_UPDATE_DATE
106   , X_LAST_UPDATED_BY
107   , X_LAST_UPDATE_LOGIN
108   , X_RECORD_VERSION_NUMBER
109   , X_K_HEADER_ID
110   , X_K_LINE_ID
111   , X_USER_ATTRIBUTE_CONTEXT
112   , X_USER_ATTRIBUTE01
113   , X_USER_ATTRIBUTE02
114   , X_USER_ATTRIBUTE03
115   , X_USER_ATTRIBUTE04
116   , X_USER_ATTRIBUTE05
117   , X_USER_ATTRIBUTE06
118   , X_USER_ATTRIBUTE07
119   , X_USER_ATTRIBUTE08
120   , X_USER_ATTRIBUTE09
121   , X_USER_ATTRIBUTE10
122   , X_USER_ATTRIBUTE11
123   , X_USER_ATTRIBUTE12
124   , X_USER_ATTRIBUTE13
125   , X_USER_ATTRIBUTE14
126   , X_USER_ATTRIBUTE15
127   , X_USER_ATTRIBUTE16
128   , X_USER_ATTRIBUTE17
129   , X_USER_ATTRIBUTE18
130   , X_USER_ATTRIBUTE19
131   , X_USER_ATTRIBUTE20
132   , X_USER_ATTRIBUTE21
133   , X_USER_ATTRIBUTE22
134   , X_USER_ATTRIBUTE23
135   , X_USER_ATTRIBUTE24
136   , X_USER_ATTRIBUTE25
137   , X_USER_ATTRIBUTE26
138   , X_USER_ATTRIBUTE27
139   , X_USER_ATTRIBUTE28
140   , X_USER_ATTRIBUTE29
141   , X_USER_ATTRIBUTE30
142   );
143 
144   OPEN c;
145   FETCH c INTO X_ROWID;
146   IF ( c%notfound ) THEN
147     CLOSE c;
148     RAISE no_data_found;
149   END IF;
150   CLOSE c;
151 
152 END INSERT_ROW;
153 
154 
155 PROCEDURE LOCK_ROW
156 ( X_ROWID                   IN        VARCHAR2
157 , X_RECORD_VERSION_NUMBER   IN        NUMBER
158 ) IS
159 
160   CURSOR c IS
161     SELECT record_version_number
162     FROM   oke_k_user_attributes
163     WHERE  ROWID = X_rowid
164     FOR UPDATE OF record_version_number NOWAIT;
165   RecInfo c%rowtype;
166 
167 BEGIN
168 
169   OPEN c;
170   FETCH c INTO RecInfo;
171   IF ( c%notfound ) THEN
172     CLOSE c;
173     FND_MESSAGE.SET_NAME('FND' , 'FORM_RECORD_DELETED');
174     APP_EXCEPTION.RAISE_EXCEPTION;
175   END IF;
176   CLOSE c;
177 
178   IF ( RecInfo.Record_Version_Number <> X_RECORD_VERSION_NUMBER ) THEN
179     FND_MESSAGE.SET_NAME('FND' , 'FORM_RECORD_CHANGED');
180     APP_EXCEPTION.RAISE_EXCEPTION;
181   END IF;
182 
183   RETURN;
184 
185 END LOCK_ROW;
186 
187 
188 PROCEDURE UPDATE_ROW
189 ( X_K_USER_ATTRIBUTE_ID     IN        NUMBER
190 , X_RECORD_VERSION_NUMBER   IN OUT NOCOPY   NUMBER
191 , X_LAST_UPDATE_DATE        IN        DATE
192 , X_LAST_UPDATED_BY         IN        NUMBER
193 , X_LAST_UPDATE_LOGIN       IN        NUMBER
194 , X_K_HEADER_ID             IN        NUMBER
195 , X_K_LINE_ID               IN        NUMBER
196 , X_USER_ATTRIBUTE_CONTEXT  IN        VARCHAR2
197 , X_USER_ATTRIBUTE01        IN        VARCHAR2
198 , X_USER_ATTRIBUTE02        IN        VARCHAR2
199 , X_USER_ATTRIBUTE03        IN        VARCHAR2
200 , X_USER_ATTRIBUTE04        IN        VARCHAR2
201 , X_USER_ATTRIBUTE05        IN        VARCHAR2
202 , X_USER_ATTRIBUTE06        IN        VARCHAR2
203 , X_USER_ATTRIBUTE07        IN        VARCHAR2
204 , X_USER_ATTRIBUTE08        IN        VARCHAR2
205 , X_USER_ATTRIBUTE09        IN        VARCHAR2
206 , X_USER_ATTRIBUTE10        IN        VARCHAR2
207 , X_USER_ATTRIBUTE11        IN        VARCHAR2
208 , X_USER_ATTRIBUTE12        IN        VARCHAR2
209 , X_USER_ATTRIBUTE13        IN        VARCHAR2
210 , X_USER_ATTRIBUTE14        IN        VARCHAR2
211 , X_USER_ATTRIBUTE15        IN        VARCHAR2
212 , X_USER_ATTRIBUTE16        IN        VARCHAR2
213 , X_USER_ATTRIBUTE17        IN        VARCHAR2
214 , X_USER_ATTRIBUTE18        IN        VARCHAR2
215 , X_USER_ATTRIBUTE19        IN        VARCHAR2
216 , X_USER_ATTRIBUTE20        IN        VARCHAR2
217 , X_USER_ATTRIBUTE21        IN        VARCHAR2
218 , X_USER_ATTRIBUTE22        IN        VARCHAR2
219 , X_USER_ATTRIBUTE23        IN        VARCHAR2
220 , X_USER_ATTRIBUTE24        IN        VARCHAR2
221 , X_USER_ATTRIBUTE25        IN        VARCHAR2
222 , X_USER_ATTRIBUTE26        IN        VARCHAR2
223 , X_USER_ATTRIBUTE27        IN        VARCHAR2
224 , X_USER_ATTRIBUTE28        IN        VARCHAR2
225 , X_USER_ATTRIBUTE29        IN        VARCHAR2
226 , X_USER_ATTRIBUTE30        IN        VARCHAR2
227 ) IS
228 
229 BEGIN
230 
231   UPDATE oke_k_user_attributes
232   SET K_USER_ATTRIBUTE_ID     = X_K_USER_ATTRIBUTE_ID
233   ,   LAST_UPDATE_DATE        = X_LAST_UPDATE_DATE
234   ,   LAST_UPDATED_BY         = X_LAST_UPDATED_BY
235   ,   LAST_UPDATE_LOGIN       = X_LAST_UPDATE_LOGIN
236   ,   RECORD_VERSION_NUMBER   = X_RECORD_VERSION_NUMBER + 1
237   ,   K_HEADER_ID             = X_K_HEADER_ID
238   ,   K_LINE_ID               = X_K_LINE_ID
239   ,   USER_ATTRIBUTE_CONTEXT  = X_USER_ATTRIBUTE_CONTEXT
240   ,   USER_ATTRIBUTE01        = X_USER_ATTRIBUTE01
241   ,   USER_ATTRIBUTE02        = X_USER_ATTRIBUTE02
242   ,   USER_ATTRIBUTE03        = X_USER_ATTRIBUTE03
243   ,   USER_ATTRIBUTE04        = X_USER_ATTRIBUTE04
244   ,   USER_ATTRIBUTE05        = X_USER_ATTRIBUTE05
245   ,   USER_ATTRIBUTE06        = X_USER_ATTRIBUTE06
246   ,   USER_ATTRIBUTE07        = X_USER_ATTRIBUTE07
247   ,   USER_ATTRIBUTE08        = X_USER_ATTRIBUTE08
248   ,   USER_ATTRIBUTE09        = X_USER_ATTRIBUTE09
249   ,   USER_ATTRIBUTE10        = X_USER_ATTRIBUTE10
250   ,   USER_ATTRIBUTE11        = X_USER_ATTRIBUTE11
251   ,   USER_ATTRIBUTE12        = X_USER_ATTRIBUTE12
252   ,   USER_ATTRIBUTE13        = X_USER_ATTRIBUTE13
253   ,   USER_ATTRIBUTE14        = X_USER_ATTRIBUTE14
254   ,   USER_ATTRIBUTE15        = X_USER_ATTRIBUTE15
255   ,   USER_ATTRIBUTE16        = X_USER_ATTRIBUTE16
256   ,   USER_ATTRIBUTE17        = X_USER_ATTRIBUTE17
257   ,   USER_ATTRIBUTE18        = X_USER_ATTRIBUTE18
258   ,   USER_ATTRIBUTE19        = X_USER_ATTRIBUTE19
259   ,   USER_ATTRIBUTE20        = X_USER_ATTRIBUTE20
260   ,   USER_ATTRIBUTE21        = X_USER_ATTRIBUTE21
261   ,   USER_ATTRIBUTE22        = X_USER_ATTRIBUTE22
262   ,   USER_ATTRIBUTE23        = X_USER_ATTRIBUTE23
263   ,   USER_ATTRIBUTE24        = X_USER_ATTRIBUTE24
264   ,   USER_ATTRIBUTE25        = X_USER_ATTRIBUTE25
265   ,   USER_ATTRIBUTE26        = X_USER_ATTRIBUTE26
266   ,   USER_ATTRIBUTE27        = X_USER_ATTRIBUTE27
267   ,   USER_ATTRIBUTE28        = X_USER_ATTRIBUTE28
268   ,   USER_ATTRIBUTE29        = X_USER_ATTRIBUTE29
269   ,   USER_ATTRIBUTE30        = X_USER_ATTRIBUTE30
270   WHERE k_user_attribute_id = X_K_USER_ATTRIBUTE_ID;
271 
272   IF ( sql%notfound ) THEN
273     RAISE no_data_found;
274   END IF;
275 
276   X_RECORD_VERSION_NUMBER := X_RECORD_VERSION_NUMBER + 1;
277 
278 END UPDATE_ROW;
279 
280 
281 PROCEDURE DELETE_ROW (
282   X_K_USER_ATTRIBUTE_ID     IN        NUMBER
283 ) IS
284 
285 BEGIN
286 
287   DELETE FROM oke_k_user_attributes
288   WHERE k_user_attribute_id = X_K_USER_ATTRIBUTE_ID;
289 
290   IF ( sql%notfound ) THEN
291     RAISE no_data_found;
292   END IF;
293 
294 END DELETE_ROW;
295 
296 END OKE_K_USER_ATTRIBUTES_PKG;