[Home] [Help]
PACKAGE BODY: APPS.MRP_ASSIGNMENT_SET_HANDLERS
Source
1 PACKAGE BODY MRP_Assignment_Set_Handlers AS
2 /* $Header: MRPHASTB.pls 115.2 99/07/16 12:22:09 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Assignment_Set_Handlers';
7
8 -- Procedure Update_Row
9
10 PROCEDURE Update_Row
11 ( p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
12 )
13 IS
14 BEGIN
15
16 UPDATE MRP_ASSIGNMENT_SETS
17 SET ASSIGNMENT_SET_ID = p_Assignment_Set_rec.Assignment_Set_Id
18 , ASSIGNMENT_SET_NAME = p_Assignment_Set_rec.Assignment_Set_Name
19 , ATTRIBUTE1 = p_Assignment_Set_rec.Attribute1
20 , ATTRIBUTE10 = p_Assignment_Set_rec.Attribute10
21 , ATTRIBUTE11 = p_Assignment_Set_rec.Attribute11
22 , ATTRIBUTE12 = p_Assignment_Set_rec.Attribute12
23 , ATTRIBUTE13 = p_Assignment_Set_rec.Attribute13
24 , ATTRIBUTE14 = p_Assignment_Set_rec.Attribute14
25 , ATTRIBUTE15 = p_Assignment_Set_rec.Attribute15
26 , ATTRIBUTE2 = p_Assignment_Set_rec.Attribute2
27 , ATTRIBUTE3 = p_Assignment_Set_rec.Attribute3
28 , ATTRIBUTE4 = p_Assignment_Set_rec.Attribute4
29 , ATTRIBUTE5 = p_Assignment_Set_rec.Attribute5
30 , ATTRIBUTE6 = p_Assignment_Set_rec.Attribute6
31 , ATTRIBUTE7 = p_Assignment_Set_rec.Attribute7
32 , ATTRIBUTE8 = p_Assignment_Set_rec.Attribute8
33 , ATTRIBUTE9 = p_Assignment_Set_rec.Attribute9
34 , ATTRIBUTE_CATEGORY = p_Assignment_Set_rec.Attribute_Category
35 , CREATED_BY = p_Assignment_Set_rec.Created_By
36 , CREATION_DATE = p_Assignment_Set_rec.Creation_Date
37 , DESCRIPTION = p_Assignment_Set_rec.Description
38 , LAST_UPDATED_BY = p_Assignment_Set_rec.Last_Updated_By
39 , LAST_UPDATE_DATE = p_Assignment_Set_rec.Last_Update_Date
40 , LAST_UPDATE_LOGIN = p_Assignment_Set_rec.Last_Update_Login
41 , PROGRAM_APPLICATION_ID = p_Assignment_Set_rec.Program_Application_Id
42 , PROGRAM_ID = p_Assignment_Set_rec.Program_Id
43 , PROGRAM_UPDATE_DATE = p_Assignment_Set_rec.Program_Update_Date
44 , REQUEST_ID = p_Assignment_Set_rec.Request_Id
45 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_rec.Assignment_Set_Id
46 ;
47
48 EXCEPTION
49
50 WHEN OTHERS THEN
51
52 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
53 THEN
54 FND_MSG_PUB.Add_Exc_Msg
55 ( G_PKG_NAME
56 , 'Update_Row'
57 );
58 END IF;
59
60 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61
62 END Update_Row;
63
64 -- Procedure Insert_Row
65
66 PROCEDURE Insert_Row
67 ( p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
68 )
69 IS
70 BEGIN
71
72 INSERT INTO MRP_ASSIGNMENT_SETS
73 ( ASSIGNMENT_SET_ID
74 , ASSIGNMENT_SET_NAME
75 , ATTRIBUTE1
76 , ATTRIBUTE10
77 , ATTRIBUTE11
78 , ATTRIBUTE12
79 , ATTRIBUTE13
80 , ATTRIBUTE14
81 , ATTRIBUTE15
82 , ATTRIBUTE2
83 , ATTRIBUTE3
84 , ATTRIBUTE4
85 , ATTRIBUTE5
86 , ATTRIBUTE6
87 , ATTRIBUTE7
88 , ATTRIBUTE8
89 , ATTRIBUTE9
90 , ATTRIBUTE_CATEGORY
91 , CREATED_BY
92 , CREATION_DATE
93 , DESCRIPTION
94 , LAST_UPDATED_BY
95 , LAST_UPDATE_DATE
96 , LAST_UPDATE_LOGIN
97 , PROGRAM_APPLICATION_ID
98 , PROGRAM_ID
99 , PROGRAM_UPDATE_DATE
100 , REQUEST_ID
101 )
102 VALUES
103 ( p_Assignment_Set_rec.Assignment_Set_Id
104 , p_Assignment_Set_rec.Assignment_Set_Name
105 , p_Assignment_Set_rec.Attribute1
106 , p_Assignment_Set_rec.Attribute10
107 , p_Assignment_Set_rec.Attribute11
108 , p_Assignment_Set_rec.Attribute12
109 , p_Assignment_Set_rec.Attribute13
110 , p_Assignment_Set_rec.Attribute14
111 , p_Assignment_Set_rec.Attribute15
112 , p_Assignment_Set_rec.Attribute2
113 , p_Assignment_Set_rec.Attribute3
114 , p_Assignment_Set_rec.Attribute4
115 , p_Assignment_Set_rec.Attribute5
116 , p_Assignment_Set_rec.Attribute6
117 , p_Assignment_Set_rec.Attribute7
118 , p_Assignment_Set_rec.Attribute8
119 , p_Assignment_Set_rec.Attribute9
120 , p_Assignment_Set_rec.Attribute_Category
121 , p_Assignment_Set_rec.Created_By
122 , p_Assignment_Set_rec.Creation_Date
123 , p_Assignment_Set_rec.Description
124 , p_Assignment_Set_rec.Last_Updated_By
125 , p_Assignment_Set_rec.Last_Update_Date
126 , p_Assignment_Set_rec.Last_Update_Login
127 , p_Assignment_Set_rec.Program_Application_Id
128 , p_Assignment_Set_rec.Program_Id
129 , p_Assignment_Set_rec.Program_Update_Date
130 , p_Assignment_Set_rec.Request_Id
131 );
132
133 EXCEPTION
134
135 WHEN OTHERS THEN
136
137 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
138 THEN
139 FND_MSG_PUB.Add_Exc_Msg
140 ( G_PKG_NAME
141 , 'Insert_Row'
142 );
143 END IF;
144
145 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146
147 END Insert_Row;
148
149 -- Procedure Delete_Row
150
151 PROCEDURE Delete_Row
152 ( p_Assignment_Set_Id IN NUMBER
153 )
154 IS
155
156 l_assignment_id NUMBER;
157
158 CURSOR cur_Assignments IS
159 SELECT assignment_id
160 FROM MRP_SR_ASSIGNMENTS
161 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_Id;
162
163 BEGIN
164
165 -- Before we delete an assignment set, we need to
166 -- delete all the associated assignments
167
168 OPEN cur_Assignments;
169
170 WHILE TRUE LOOP
171 FETCH cur_Assignments
172 INTO l_assignment_id;
173
174 EXIT WHEN cur_Assignments%NOTFOUND;
175
176 MRP_Assignment_Handlers.Delete_Row (
177 p_Assignment_Id => l_assignment_id) ;
178 END LOOP;
179
180 CLOSE cur_Assignments;
181
182 DELETE FROM MRP_ASSIGNMENT_SETS
183 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_Id
184 ;
185
186 EXCEPTION
187
188 WHEN OTHERS THEN
189
190 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
191 THEN
192 FND_MSG_PUB.Add_Exc_Msg
193 ( G_PKG_NAME
194 , 'Delete_Row'
195 );
196 END IF;
197
198 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199
200 END Delete_Row;
201
202 -- Procedure lock_Row
203 --
204
205 PROCEDURE Lock_Row
206 ( x_return_status OUT VARCHAR2
207 , p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
208 , x_Assignment_Set_rec OUT MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
209 )
210 IS
211 l_Assignment_Set_rec MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type;
212 BEGIN
213
214 SELECT ASSIGNMENT_SET_ID
215 , ASSIGNMENT_SET_NAME
216 , ATTRIBUTE1
217 , ATTRIBUTE10
218 , ATTRIBUTE11
219 , ATTRIBUTE12
220 , ATTRIBUTE13
221 , ATTRIBUTE14
222 , ATTRIBUTE15
223 , ATTRIBUTE2
224 , ATTRIBUTE3
225 , ATTRIBUTE4
226 , ATTRIBUTE5
227 , ATTRIBUTE6
228 , ATTRIBUTE7
229 , ATTRIBUTE8
230 , ATTRIBUTE9
231 , ATTRIBUTE_CATEGORY
232 , CREATED_BY
233 , CREATION_DATE
234 , DESCRIPTION
235 , LAST_UPDATED_BY
236 , LAST_UPDATE_DATE
237 , LAST_UPDATE_LOGIN
238 , PROGRAM_APPLICATION_ID
239 , PROGRAM_ID
240 , PROGRAM_UPDATE_DATE
241 , REQUEST_ID
242 INTO l_Assignment_Set_rec.Assignment_Set_Id
243 , l_Assignment_Set_rec.Assignment_Set_Name
244 , l_Assignment_Set_rec.Attribute1
245 , l_Assignment_Set_rec.Attribute10
246 , l_Assignment_Set_rec.Attribute11
247 , l_Assignment_Set_rec.Attribute12
248 , l_Assignment_Set_rec.Attribute13
249 , l_Assignment_Set_rec.Attribute14
250 , l_Assignment_Set_rec.Attribute15
251 , l_Assignment_Set_rec.Attribute2
252 , l_Assignment_Set_rec.Attribute3
253 , l_Assignment_Set_rec.Attribute4
254 , l_Assignment_Set_rec.Attribute5
255 , l_Assignment_Set_rec.Attribute6
256 , l_Assignment_Set_rec.Attribute7
257 , l_Assignment_Set_rec.Attribute8
258 , l_Assignment_Set_rec.Attribute9
259 , l_Assignment_Set_rec.Attribute_Category
260 , l_Assignment_Set_rec.Created_By
261 , l_Assignment_Set_rec.Creation_Date
262 , l_Assignment_Set_rec.Description
263 , l_Assignment_Set_rec.Last_Updated_By
264 , l_Assignment_Set_rec.Last_Update_Date
265 , l_Assignment_Set_rec.Last_Update_Login
266 , l_Assignment_Set_rec.Program_Application_Id
267 , l_Assignment_Set_rec.Program_Id
268 , l_Assignment_Set_rec.Program_Update_Date
269 , l_Assignment_Set_rec.Request_Id
270 FROM MRP_ASSIGNMENT_SETS
271 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_rec.Assignment_Set_Id
272 FOR UPDATE NOWAIT;
273
274 -- Row locked. Compare IN attributes to DB attributes.
275
276 IF ( (l_Assignment_Set_rec.Assignment_Set_Id =
277 p_Assignment_Set_rec.Assignment_Set_Id) OR
278 ((p_Assignment_Set_rec.Assignment_Set_Id = FND_API.G_MISS_NUM) OR
279 ( (l_Assignment_Set_rec.Assignment_Set_Id IS NULL) AND
280 (p_Assignment_Set_rec.Assignment_Set_Id IS NULL))))
281 AND ( (l_Assignment_Set_rec.Assignment_Set_Name =
282 p_Assignment_Set_rec.Assignment_Set_Name) OR
283 ((p_Assignment_Set_rec.Assignment_Set_Name = FND_API.G_MISS_CHAR) OR
284 ( (l_Assignment_Set_rec.Assignment_Set_Name IS NULL) AND
285 (p_Assignment_Set_rec.Assignment_Set_Name IS NULL))))
286 AND ( (l_Assignment_Set_rec.Attribute1 =
287 p_Assignment_Set_rec.Attribute1) OR
288 ((p_Assignment_Set_rec.Attribute1 = FND_API.G_MISS_CHAR) OR
289 ( (l_Assignment_Set_rec.Attribute1 IS NULL) AND
290 (p_Assignment_Set_rec.Attribute1 IS NULL))))
291 AND ( (l_Assignment_Set_rec.Attribute10 =
292 p_Assignment_Set_rec.Attribute10) OR
293 ((p_Assignment_Set_rec.Attribute10 = FND_API.G_MISS_CHAR) OR
294 ( (l_Assignment_Set_rec.Attribute10 IS NULL) AND
295 (p_Assignment_Set_rec.Attribute10 IS NULL))))
296 AND ( (l_Assignment_Set_rec.Attribute11 =
297 p_Assignment_Set_rec.Attribute11) OR
298 ((p_Assignment_Set_rec.Attribute11 = FND_API.G_MISS_CHAR) OR
299 ( (l_Assignment_Set_rec.Attribute11 IS NULL) AND
300 (p_Assignment_Set_rec.Attribute11 IS NULL))))
301 AND ( (l_Assignment_Set_rec.Attribute12 =
302 p_Assignment_Set_rec.Attribute12) OR
303 ((p_Assignment_Set_rec.Attribute12 = FND_API.G_MISS_CHAR) OR
304 ( (l_Assignment_Set_rec.Attribute12 IS NULL) AND
305 (p_Assignment_Set_rec.Attribute12 IS NULL))))
306 AND ( (l_Assignment_Set_rec.Attribute13 =
307 p_Assignment_Set_rec.Attribute13) OR
308 ((p_Assignment_Set_rec.Attribute13 = FND_API.G_MISS_CHAR) OR
309 ( (l_Assignment_Set_rec.Attribute13 IS NULL) AND
310 (p_Assignment_Set_rec.Attribute13 IS NULL))))
311 AND ( (l_Assignment_Set_rec.Attribute14 =
312 p_Assignment_Set_rec.Attribute14) OR
313 ((p_Assignment_Set_rec.Attribute14 = FND_API.G_MISS_CHAR) OR
314 ( (l_Assignment_Set_rec.Attribute14 IS NULL) AND
315 (p_Assignment_Set_rec.Attribute14 IS NULL))))
316 AND ( (l_Assignment_Set_rec.Attribute15 =
317 p_Assignment_Set_rec.Attribute15) OR
318 ((p_Assignment_Set_rec.Attribute15 = FND_API.G_MISS_CHAR) OR
319 ( (l_Assignment_Set_rec.Attribute15 IS NULL) AND
320 (p_Assignment_Set_rec.Attribute15 IS NULL))))
321 AND ( (l_Assignment_Set_rec.Attribute2 =
322 p_Assignment_Set_rec.Attribute2) OR
323 ((p_Assignment_Set_rec.Attribute2 = FND_API.G_MISS_CHAR) OR
324 ( (l_Assignment_Set_rec.Attribute2 IS NULL) AND
325 (p_Assignment_Set_rec.Attribute2 IS NULL))))
326 AND ( (l_Assignment_Set_rec.Attribute3 =
327 p_Assignment_Set_rec.Attribute3) OR
328 ((p_Assignment_Set_rec.Attribute3 = FND_API.G_MISS_CHAR) OR
329 ( (l_Assignment_Set_rec.Attribute3 IS NULL) AND
330 (p_Assignment_Set_rec.Attribute3 IS NULL))))
331 AND ( (l_Assignment_Set_rec.Attribute4 =
332 p_Assignment_Set_rec.Attribute4) OR
333 ((p_Assignment_Set_rec.Attribute4 = FND_API.G_MISS_CHAR) OR
334 ( (l_Assignment_Set_rec.Attribute4 IS NULL) AND
335 (p_Assignment_Set_rec.Attribute4 IS NULL))))
336 AND ( (l_Assignment_Set_rec.Attribute5 =
337 p_Assignment_Set_rec.Attribute5) OR
338 ((p_Assignment_Set_rec.Attribute5 = FND_API.G_MISS_CHAR) OR
339 ( (l_Assignment_Set_rec.Attribute5 IS NULL) AND
340 (p_Assignment_Set_rec.Attribute5 IS NULL))))
341 AND ( (l_Assignment_Set_rec.Attribute6 =
342 p_Assignment_Set_rec.Attribute6) OR
343 ((p_Assignment_Set_rec.Attribute6 = FND_API.G_MISS_CHAR) OR
344 ( (l_Assignment_Set_rec.Attribute6 IS NULL) AND
345 (p_Assignment_Set_rec.Attribute6 IS NULL))))
346 AND ( (l_Assignment_Set_rec.Attribute7 =
347 p_Assignment_Set_rec.Attribute7) OR
348 ((p_Assignment_Set_rec.Attribute7 = FND_API.G_MISS_CHAR) OR
349 ( (l_Assignment_Set_rec.Attribute7 IS NULL) AND
350 (p_Assignment_Set_rec.Attribute7 IS NULL))))
351 AND ( (l_Assignment_Set_rec.Attribute8 =
352 p_Assignment_Set_rec.Attribute8) OR
353 ((p_Assignment_Set_rec.Attribute8 = FND_API.G_MISS_CHAR) OR
354 ( (l_Assignment_Set_rec.Attribute8 IS NULL) AND
355 (p_Assignment_Set_rec.Attribute8 IS NULL))))
356 AND ( (l_Assignment_Set_rec.Attribute9 =
357 p_Assignment_Set_rec.Attribute9) OR
358 ((p_Assignment_Set_rec.Attribute9 = FND_API.G_MISS_CHAR) OR
359 ( (l_Assignment_Set_rec.Attribute9 IS NULL) AND
360 (p_Assignment_Set_rec.Attribute9 IS NULL))))
361 AND ( (l_Assignment_Set_rec.Attribute_Category =
362 p_Assignment_Set_rec.Attribute_Category) OR
363 ((p_Assignment_Set_rec.Attribute_Category = FND_API.G_MISS_CHAR) OR
364 ( (l_Assignment_Set_rec.Attribute_Category IS NULL) AND
365 (p_Assignment_Set_rec.Attribute_Category IS NULL))))
366 AND ( (l_Assignment_Set_rec.Created_By =
367 p_Assignment_Set_rec.Created_By) OR
368 ((p_Assignment_Set_rec.Created_By = FND_API.G_MISS_NUM) OR
369 ( (l_Assignment_Set_rec.Created_By IS NULL) AND
370 (p_Assignment_Set_rec.Created_By IS NULL))))
371 AND ( (l_Assignment_Set_rec.Creation_Date =
372 p_Assignment_Set_rec.Creation_Date) OR
373 ((p_Assignment_Set_rec.Creation_Date = FND_API.G_MISS_DATE) OR
374 ( (l_Assignment_Set_rec.Creation_Date IS NULL) AND
375 (p_Assignment_Set_rec.Creation_Date IS NULL))))
376 AND ( (l_Assignment_Set_rec.Description =
377 p_Assignment_Set_rec.Description) OR
378 ((p_Assignment_Set_rec.Description = FND_API.G_MISS_CHAR) OR
379 ( (l_Assignment_Set_rec.Description IS NULL) AND
380 (p_Assignment_Set_rec.Description IS NULL))))
381 AND ( (l_Assignment_Set_rec.Last_Updated_By =
382 p_Assignment_Set_rec.Last_Updated_By) OR
383 ((p_Assignment_Set_rec.Last_Updated_By = FND_API.G_MISS_NUM) OR
384 ( (l_Assignment_Set_rec.Last_Updated_By IS NULL) AND
385 (p_Assignment_Set_rec.Last_Updated_By IS NULL))))
386 AND ( (l_Assignment_Set_rec.Last_Update_Date =
387 p_Assignment_Set_rec.Last_Update_Date) OR
388 ((p_Assignment_Set_rec.Last_Update_Date = FND_API.G_MISS_DATE) OR
389 ( (l_Assignment_Set_rec.Last_Update_Date IS NULL) AND
390 (p_Assignment_Set_rec.Last_Update_Date IS NULL))))
391 AND ( (l_Assignment_Set_rec.Last_Update_Login =
392 p_Assignment_Set_rec.Last_Update_Login) OR
393 ((p_Assignment_Set_rec.Last_Update_Login = FND_API.G_MISS_NUM) OR
394 ( (l_Assignment_Set_rec.Last_Update_Login IS NULL) AND
395 (p_Assignment_Set_rec.Last_Update_Login IS NULL))))
396 AND ( (l_Assignment_Set_rec.Program_Application_Id =
397 p_Assignment_Set_rec.Program_Application_Id) OR
398 ((p_Assignment_Set_rec.Program_Application_Id = FND_API.G_MISS_NUM) OR
399 ( (l_Assignment_Set_rec.Program_Application_Id IS NULL) AND
400 (p_Assignment_Set_rec.Program_Application_Id IS NULL))))
401 AND ( (l_Assignment_Set_rec.Program_Id =
402 p_Assignment_Set_rec.Program_Id) OR
403 ((p_Assignment_Set_rec.Program_Id = FND_API.G_MISS_NUM) OR
404 ( (l_Assignment_Set_rec.Program_Id IS NULL) AND
405 (p_Assignment_Set_rec.Program_Id IS NULL))))
406 AND ( (l_Assignment_Set_rec.Program_Update_Date =
407 p_Assignment_Set_rec.Program_Update_Date) OR
408 ((p_Assignment_Set_rec.Program_Update_Date = FND_API.G_MISS_DATE) OR
409 ( (l_Assignment_Set_rec.Program_Update_Date IS NULL) AND
410 (p_Assignment_Set_rec.Program_Update_Date IS NULL))))
411 AND ( (l_Assignment_Set_rec.Request_Id =
412 p_Assignment_Set_rec.Request_Id) OR
413 ((p_Assignment_Set_rec.Request_Id = FND_API.G_MISS_NUM) OR
414 ( (l_Assignment_Set_rec.Request_Id IS NULL) AND
415 (p_Assignment_Set_rec.Request_Id IS NULL))))
416 THEN
417
418 -- Row has not changed. Set out parameter.
419
420 x_Assignment_Set_rec := l_Assignment_Set_rec;
421
422 -- Set return status
423
424 x_return_status := FND_API.G_RET_STS_SUCCESS;
425 x_Assignment_Set_rec.return_status := FND_API.G_RET_STS_SUCCESS;
426
427 ELSE
428
429 -- Row has changed by another user.
430
431 x_return_status := FND_API.G_RET_STS_ERROR;
432 x_Assignment_Set_rec.return_status := FND_API.G_RET_STS_ERROR;
433
434 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
435 THEN
436
437 FND_MESSAGE.SET_NAME('MRP','BOI_LOCK_ROW_CHANGED');
438 FND_MSG_PUB.Add;
439
440 END IF;
441
442 END IF;
443
444 EXCEPTION
445
446 WHEN NO_DATA_FOUND THEN
447
448 x_return_status := FND_API.G_RET_STS_ERROR;
449 x_Assignment_Set_rec.return_status := FND_API.G_RET_STS_ERROR;
450
451 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
452 THEN
453
454 FND_MESSAGE.SET_NAME('MRP','BOI_LOCK_ROW_DELETED');
455 FND_MSG_PUB.Add;
456
457 END IF;
458 WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
459
460 x_return_status := FND_API.G_RET_STS_ERROR;
461 x_Assignment_Set_rec.return_status := FND_API.G_RET_STS_ERROR;
462
463 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
464 THEN
465
466 FND_MESSAGE.SET_NAME('MRP','BOI_LOCK_ROW_ALREADY_LOCKED');
467 FND_MSG_PUB.Add;
468
469 END IF;
470 WHEN OTHERS THEN
471
472 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473 x_Assignment_Set_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474
475 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
476 THEN
477 FND_MSG_PUB.Add_Exc_Msg
478 ( G_PKG_NAME
479 , 'Lock_Row'
480 );
481 END IF;
482
483 END Lock_Row;
484
485 -- Function Query_Row
486
487 FUNCTION Query_Row
488 ( p_Assignment_Set_Id IN NUMBER
489 ) RETURN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
490 IS
491 l_Assignment_Set_rec MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type;
492 BEGIN
493
494 SELECT ASSIGNMENT_SET_ID
495 , ASSIGNMENT_SET_NAME
496 , ATTRIBUTE1
497 , ATTRIBUTE10
498 , ATTRIBUTE11
499 , ATTRIBUTE12
500 , ATTRIBUTE13
501 , ATTRIBUTE14
502 , ATTRIBUTE15
503 , ATTRIBUTE2
504 , ATTRIBUTE3
505 , ATTRIBUTE4
506 , ATTRIBUTE5
507 , ATTRIBUTE6
508 , ATTRIBUTE7
509 , ATTRIBUTE8
510 , ATTRIBUTE9
511 , ATTRIBUTE_CATEGORY
512 , CREATED_BY
513 , CREATION_DATE
514 , DESCRIPTION
515 , LAST_UPDATED_BY
516 , LAST_UPDATE_DATE
517 , LAST_UPDATE_LOGIN
518 , PROGRAM_APPLICATION_ID
519 , PROGRAM_ID
520 , PROGRAM_UPDATE_DATE
521 , REQUEST_ID
522 INTO l_Assignment_Set_rec.Assignment_Set_Id
523 , l_Assignment_Set_rec.Assignment_Set_Name
524 , l_Assignment_Set_rec.Attribute1
525 , l_Assignment_Set_rec.Attribute10
526 , l_Assignment_Set_rec.Attribute11
527 , l_Assignment_Set_rec.Attribute12
528 , l_Assignment_Set_rec.Attribute13
529 , l_Assignment_Set_rec.Attribute14
530 , l_Assignment_Set_rec.Attribute15
531 , l_Assignment_Set_rec.Attribute2
532 , l_Assignment_Set_rec.Attribute3
533 , l_Assignment_Set_rec.Attribute4
534 , l_Assignment_Set_rec.Attribute5
535 , l_Assignment_Set_rec.Attribute6
536 , l_Assignment_Set_rec.Attribute7
537 , l_Assignment_Set_rec.Attribute8
538 , l_Assignment_Set_rec.Attribute9
539 , l_Assignment_Set_rec.Attribute_Category
540 , l_Assignment_Set_rec.Created_By
541 , l_Assignment_Set_rec.Creation_Date
542 , l_Assignment_Set_rec.Description
543 , l_Assignment_Set_rec.Last_Updated_By
544 , l_Assignment_Set_rec.Last_Update_Date
545 , l_Assignment_Set_rec.Last_Update_Login
546 , l_Assignment_Set_rec.Program_Application_Id
547 , l_Assignment_Set_rec.Program_Id
548 , l_Assignment_Set_rec.Program_Update_Date
549 , l_Assignment_Set_rec.Request_Id
550 FROM MRP_ASSIGNMENT_SETS
551 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_Id
552 ;
553
554 RETURN l_Assignment_Set_rec;
555
556 EXCEPTION
557
558 WHEN OTHERS THEN
559
560 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
561 THEN
562 FND_MSG_PUB.Add_Exc_Msg
563 ( G_PKG_NAME
564 , 'Query_Row'
565 );
566 END IF;
567
568 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
569
570 END Query_Row;
571
572 -- Procedure Query_Entity
573
574 PROCEDURE Query_Entity
575 ( p_Assignment_Set_Id IN NUMBER
576 , x_Assignment_Set_rec OUT MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
577 , x_Assignment_Set_val_rec OUT MRP_Src_Assignment_PUB.Assignment_Set_Val_Rec_Type
578 )
579 IS
580 BEGIN
581
582 SELECT ASSIGNMENT_SET_ID
583 , ASSIGNMENT_SET_NAME
584 , ATTRIBUTE1
585 , ATTRIBUTE10
586 , ATTRIBUTE11
587 , ATTRIBUTE12
588 , ATTRIBUTE13
589 , ATTRIBUTE14
590 , ATTRIBUTE15
591 , ATTRIBUTE2
592 , ATTRIBUTE3
593 , ATTRIBUTE4
594 , ATTRIBUTE5
595 , ATTRIBUTE6
596 , ATTRIBUTE7
597 , ATTRIBUTE8
598 , ATTRIBUTE9
599 , ATTRIBUTE_CATEGORY
600 , CREATED_BY
601 , CREATION_DATE
602 , DESCRIPTION
603 , LAST_UPDATED_BY
604 , LAST_UPDATE_DATE
605 , LAST_UPDATE_LOGIN
606 , PROGRAM_APPLICATION_ID
607 , PROGRAM_ID
608 , PROGRAM_UPDATE_DATE
609 , REQUEST_ID
610 INTO x_Assignment_Set_rec.Assignment_Set_Id
611 , x_Assignment_Set_rec.Assignment_Set_Name
612 , x_Assignment_Set_rec.Attribute1
613 , x_Assignment_Set_rec.Attribute10
614 , x_Assignment_Set_rec.Attribute11
615 , x_Assignment_Set_rec.Attribute12
616 , x_Assignment_Set_rec.Attribute13
617 , x_Assignment_Set_rec.Attribute14
618 , x_Assignment_Set_rec.Attribute15
619 , x_Assignment_Set_rec.Attribute2
620 , x_Assignment_Set_rec.Attribute3
621 , x_Assignment_Set_rec.Attribute4
622 , x_Assignment_Set_rec.Attribute5
623 , x_Assignment_Set_rec.Attribute6
624 , x_Assignment_Set_rec.Attribute7
625 , x_Assignment_Set_rec.Attribute8
626 , x_Assignment_Set_rec.Attribute9
627 , x_Assignment_Set_rec.Attribute_Category
628 , x_Assignment_Set_rec.Created_By
629 , x_Assignment_Set_rec.Creation_Date
630 , x_Assignment_Set_rec.Description
631 , x_Assignment_Set_rec.Last_Updated_By
632 , x_Assignment_Set_rec.Last_Update_Date
633 , x_Assignment_Set_rec.Last_Update_Login
634 , x_Assignment_Set_rec.Program_Application_Id
635 , x_Assignment_Set_rec.Program_Id
636 , x_Assignment_Set_rec.Program_Update_Date
637 , x_Assignment_Set_rec.Request_Id
638 FROM MRP_ASSIGNMENT_SETS
639 WHERE ASSIGNMENT_SET_ID = p_Assignment_Set_Id
640 ;
641
642
643 EXCEPTION
644
645 WHEN OTHERS THEN
646
647 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
648 THEN
649 FND_MSG_PUB.Add_Exc_Msg
650 ( G_PKG_NAME
651 , 'Query_Entity'
652 );
653 END IF;
654
655 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656
657 END Query_Entity;
658
659 END MRP_Assignment_Set_Handlers;