43: -- End of Comments
44:
45: PROCEDURE Process_Assignment
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY VARCHAR2
51: , x_msg_count OUT NOCOPY NUMBER
44:
45: PROCEDURE Process_Assignment
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY VARCHAR2
51: , x_msg_count OUT NOCOPY NUMBER
52: , x_msg_data OUT NOCOPY VARCHAR2
45: PROCEDURE Process_Assignment
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT NOCOPY VARCHAR2
51: , x_msg_count OUT NOCOPY NUMBER
52: , x_msg_data OUT NOCOPY VARCHAR2
53: , p_Assignment_Set_rec IN Assignment_Set_Rec_Type :=
76:
77:
78: -- Standard call to check for call compatibility
79:
80: IF NOT FND_API.Compatible_API_Call
81: ( l_api_version_number
82: , p_api_version_number
83: , l_api_name
84: , G_PKG_NAME
83: , l_api_name
84: , G_PKG_NAME
85: )
86: THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: -- Perform Value to Id conversion
91:
98: , x_Assignment_Set_rec => l_Assignment_Set_rec
99: , x_Assignment_tbl => l_Assignment_tbl
100: );
101:
102: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
99: , x_Assignment_tbl => l_Assignment_tbl
100: );
101:
102: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107:
100: );
101:
102: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107:
108:
101:
102: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107:
108:
109: -- Call MRP_Assignment_PVT.Process_Assignment
110:
111: MRP_Assignment_PVT.Process_Assignment
112: ( p_api_version_number => 1.0
113: , p_init_msg_list => p_init_msg_list
114: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
115: , p_commit => p_commit
116: , x_return_status => x_return_status
117: , x_msg_count => x_msg_count
118: , x_msg_data => x_msg_data
132: x_Assignment_tbl := l_Assignment_tbl;
133:
134: -- If p_return_values is TRUE then convert Ids to Values.
135:
136: IF FND_API.to_Boolean(p_return_values) THEN
137:
138: Id_To_Value
139: ( p_Assignment_Set_rec => l_Assignment_Set_rec
140: , p_Assignment_tbl => l_Assignment_tbl
145: END IF;
146:
147: EXCEPTION
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150:
151:
152: x_return_status := FND_API.G_RET_STS_ERROR;
153:
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150:
151:
152: x_return_status := FND_API.G_RET_STS_ERROR;
153:
154: -- Get message count and data
155:
156: FND_MSG_PUB.Count_And_Get
157: ( p_count => x_msg_count
158: , p_data => x_msg_data
159: );
160:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162:
163:
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165:
160:
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162:
163:
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165:
166: -- Get message count and data
167:
168: FND_MSG_PUB.Count_And_Get
172:
173: WHEN OTHERS THEN
174:
175:
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177:
178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
179: THEN
180: FND_MSG_PUB.Add_Exc_Msg
209: -- End of Comments
210:
211: PROCEDURE Lock_Assignment
212: ( p_api_version_number IN NUMBER
213: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
214: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
215: , x_return_status OUT NOCOPY VARCHAR2
216: , x_msg_count OUT NOCOPY NUMBER
217: , x_msg_data OUT NOCOPY VARCHAR2
210:
211: PROCEDURE Lock_Assignment
212: ( p_api_version_number IN NUMBER
213: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
214: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
215: , x_return_status OUT NOCOPY VARCHAR2
216: , x_msg_count OUT NOCOPY NUMBER
217: , x_msg_data OUT NOCOPY VARCHAR2
218: , p_Assignment_Set_rec IN Assignment_Set_Rec_Type :=
240:
241:
242: -- Standard call to check for call compatibility
243:
244: IF NOT FND_API.Compatible_API_Call
245: ( l_api_version_number
246: , p_api_version_number
247: , l_api_name
248: , G_PKG_NAME
247: , l_api_name
248: , G_PKG_NAME
249: )
250: THEN
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252: END IF;
253:
254: -- Perform Value to Id conversion
255:
262: , x_Assignment_Set_rec => l_Assignment_Set_rec
263: , x_Assignment_tbl => l_Assignment_tbl
264: );
265:
266: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
263: , x_Assignment_tbl => l_Assignment_tbl
264: );
265:
266: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
271:
264: );
265:
266: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
271:
272:
265:
266: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
271:
272:
273: -- Call MRP_Assignment_PVT.Lock_Assignment
292: x_Assignment_tbl := l_Assignment_tbl;
293:
294: -- If p_return_values is TRUE then convert Ids to Values.
295:
296: IF FND_API.to_Boolean(p_return_values) THEN
297:
298: Id_To_Value
299: ( p_Assignment_Set_rec => l_Assignment_Set_rec
300: , p_Assignment_tbl => l_Assignment_tbl
305: END IF;
306:
307: EXCEPTION
308:
309: WHEN FND_API.G_EXC_ERROR THEN
310:
311:
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
308:
309: WHEN FND_API.G_EXC_ERROR THEN
310:
311:
312: x_return_status := FND_API.G_RET_STS_ERROR;
313:
314: -- Get message count and data
315:
316: FND_MSG_PUB.Count_And_Get
317: ( p_count => x_msg_count
318: , p_data => x_msg_data
319: );
320:
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322:
323:
324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
325:
320:
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322:
323:
324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
325:
326: -- Get message count and data
327:
328: FND_MSG_PUB.Count_And_Get
332:
333: WHEN OTHERS THEN
334:
335:
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
337:
338: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
339: THEN
340: FND_MSG_PUB.Add_Exc_Msg
369: -- End of Comments
370:
371: PROCEDURE Get_Assignment
372: ( p_api_version_number IN NUMBER
373: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
374: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
375: , x_return_status OUT NOCOPY VARCHAR2
376: , x_msg_count OUT NOCOPY NUMBER
377: , x_msg_data OUT NOCOPY VARCHAR2
370:
371: PROCEDURE Get_Assignment
372: ( p_api_version_number IN NUMBER
373: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
374: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
375: , x_return_status OUT NOCOPY VARCHAR2
376: , x_msg_count OUT NOCOPY NUMBER
377: , x_msg_data OUT NOCOPY VARCHAR2
378: , p_Assignment_Set_Id IN NUMBER :=
375: , x_return_status OUT NOCOPY VARCHAR2
376: , x_msg_count OUT NOCOPY NUMBER
377: , x_msg_data OUT NOCOPY VARCHAR2
378: , p_Assignment_Set_Id IN NUMBER :=
379: FND_API.G_MISS_NUM
380: , x_Assignment_Set_rec OUT NOCOPY Assignment_Set_Rec_Type
381: , x_Assignment_Set_val_rec OUT NOCOPY Assignment_Set_Val_Rec_Type
382: , x_Assignment_tbl OUT NOCOPY Assignment_Tbl_Type
383: , x_Assignment_val_tbl OUT NOCOPY Assignment_Val_Tbl_Type
394:
395:
396: -- Standard call to check for call compatibility
397:
398: IF NOT FND_API.Compatible_API_Call
399: ( l_api_version_number
400: , p_api_version_number
401: , l_api_name
402: , G_PKG_NAME
401: , l_api_name
402: , G_PKG_NAME
403: )
404: THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: -- Value to ID conversion
409:
409:
410:
411: -- If p_return_values is TRUE then query read views
412:
413: IF FND_API.TO_BOOLEAN(p_return_values) THEN
414:
415: -- Get Assignment_Set
416:
417: MRP_Assignment_Set_Handlers.Query_Entity
459: END IF;
460:
461: -- Set return status
462:
463: x_return_status := FND_API.G_RET_STS_SUCCESS;
464:
465: -- Get message count and data
466:
467: FND_MSG_PUB.Count_And_Get
471:
472:
473: EXCEPTION
474:
475: WHEN FND_API.G_EXC_ERROR THEN
476:
477:
478: x_return_status := FND_API.G_RET_STS_ERROR;
479:
474:
475: WHEN FND_API.G_EXC_ERROR THEN
476:
477:
478: x_return_status := FND_API.G_RET_STS_ERROR;
479:
480: -- Get message count and data
481:
482: FND_MSG_PUB.Count_And_Get
483: ( p_count => x_msg_count
484: , p_data => x_msg_data
485: );
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488:
489:
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491:
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488:
489:
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491:
492: -- Get message count and data
493:
494: FND_MSG_PUB.Count_And_Get
498:
499: WHEN OTHERS THEN
500:
501:
502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
503:
504: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
505: THEN
506: FND_MSG_PUB.Add_Exc_Msg
553: , 'Id_To_Value'
554: );
555: END IF;
556:
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558:
559: END Id_To_Value;
560:
561: -- Procedure Value_To_Id
577:
578:
579: -- Init x_return_status.
580:
581: x_return_status := FND_API.G_RET_STS_SUCCESS;
582:
583: -- Convert Assignment_Set
584:
585: l_Assignment_Set_rec := MRP_Assignment_Set_Util.Get_Ids
588: );
589:
590: x_Assignment_Set_rec := l_Assignment_Set_rec;
591:
592: IF l_Assignment_Set_rec.return_status = FND_API.G_RET_STS_ERROR THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: END IF;
595:
596: -- Convert Assignment
589:
590: x_Assignment_Set_rec := l_Assignment_Set_rec;
591:
592: IF l_Assignment_Set_rec.return_status = FND_API.G_RET_STS_ERROR THEN
593: x_return_status := FND_API.G_RET_STS_ERROR;
594: END IF;
595:
596: -- Convert Assignment
597:
607: );
608:
609: x_Assignment_tbl(l_index) := l_Assignment_rec;
610:
611: IF l_Assignment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
612: x_return_status := FND_API.G_RET_STS_ERROR;
613: END IF;
614:
615: l_index := p_Assignment_val_tbl.NEXT(l_index);
608:
609: x_Assignment_tbl(l_index) := l_Assignment_rec;
610:
611: IF l_Assignment_rec.return_status = FND_API.G_RET_STS_ERROR THEN
612: x_return_status := FND_API.G_RET_STS_ERROR;
613: END IF;
614:
615: l_index := p_Assignment_val_tbl.NEXT(l_index);
616:
628: , 'Value_To_Id'
629: );
630: END IF;
631:
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633:
634: END Value_To_Id;
635:
636: END MRP_Src_Assignment_PUB;