9: /*
10: Enhancement : 2665434
11: Description : Changed the usage of the record type from old record type
12: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
13: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
14: */
15: PROCEDURE Id_To_Value
16: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
17: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
12: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
13: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
14: */
15: PROCEDURE Id_To_Value
16: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
17: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
18: );
19:
20: -- Forward declaration of procedure Value_To_Id
13: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
14: */
15: PROCEDURE Id_To_Value
16: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
17: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
18: );
19:
20: -- Forward declaration of procedure Value_To_Id
21: /*
21: /*
22: Enhancement : 2665434
23: Description : Changed the usage of the record type from old record type
24: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
25: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
26: */
27: PROCEDURE Value_To_Id
28: ( x_return_status OUT NOCOPY VARCHAR2
29: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
25: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
26: */
27: PROCEDURE Value_To_Id
28: ( x_return_status OUT NOCOPY VARCHAR2
29: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
30: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
31: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
32: );
33:
26: */
27: PROCEDURE Value_To_Id
28: ( x_return_status OUT NOCOPY VARCHAR2
29: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
30: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
31: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
32: );
33:
34: -- Start of Comments
27: PROCEDURE Value_To_Id
28: ( x_return_status OUT NOCOPY VARCHAR2
29: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
30: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
31: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
32: );
33:
34: -- Start of Comments
35: -- API name Process_Flow_Schedule
67: l_api_version_number CONSTANT NUMBER := 1.0;
68: l_api_name CONSTANT VARCHAR2(30):= 'Process_Flow_Schedule';
69: l_control_rec MRP_GLOBALS.Control_Rec_Type;
70: l_return_status VARCHAR2(1);
71: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
72: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
73: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
74: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
75: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
68: l_api_name CONSTANT VARCHAR2(30):= 'Process_Flow_Schedule';
69: l_control_rec MRP_GLOBALS.Control_Rec_Type;
70: l_return_status VARCHAR2(1);
71: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
72: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
73: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
74: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
75: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
76: l_error_msg VARCHAR2(2000);
69: l_control_rec MRP_GLOBALS.Control_Rec_Type;
70: l_return_status VARCHAR2(1);
71: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
72: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
73: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
74: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
75: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
76: l_error_msg VARCHAR2(2000);
77: l_error_code NUMBER;
70: l_return_status VARCHAR2(1);
71: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
72: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
73: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
74: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
75: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
76: l_error_msg VARCHAR2(2000);
77: l_error_code NUMBER;
78: BEGIN
71: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
72: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
73: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
74: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
75: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
76: l_error_msg VARCHAR2(2000);
77: l_error_code NUMBER;
78: BEGIN
79:
91:
92: /*bug 5292986 - set the operation unit so project/task can be validated correctly */
93: fnd_profile.PUT('MFG_ORGANIZATION_ID', p_flow_schedule_rec.organization_id);
94:
95: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Rec_To_PVT(p_flow_schedule_rec,l_p_flow_schedule_rec);
96: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Val_Rec_To_PVT(p_flow_schedule_val_rec,l_p_flow_schedule_val_rec);
97:
98: -- Perform Value to Id conversion
99:
92: /*bug 5292986 - set the operation unit so project/task can be validated correctly */
93: fnd_profile.PUT('MFG_ORGANIZATION_ID', p_flow_schedule_rec.organization_id);
94:
95: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Rec_To_PVT(p_flow_schedule_rec,l_p_flow_schedule_rec);
96: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Val_Rec_To_PVT(p_flow_schedule_val_rec,l_p_flow_schedule_val_rec);
97:
98: -- Perform Value to Id conversion
99:
100: Value_To_Id
110: RAISE FND_API.G_EXC_ERROR;
111: END IF;
112:
113:
114: -- Call MRP_Flow_Schedule_PVT.Process_Flow_Schedule
115:
116: MRP_Flow_Schedule_PVT.Process_Flow_Schedule
117: ( p_api_version_number => 1.0
118: , p_init_msg_list => p_init_msg_list
112:
113:
114: -- Call MRP_Flow_Schedule_PVT.Process_Flow_Schedule
115:
116: MRP_Flow_Schedule_PVT.Process_Flow_Schedule
117: ( p_api_version_number => 1.0
118: , p_init_msg_list => p_init_msg_list
119: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
120: , p_commit => p_commit
129: );
130:
131: -- Load Id OUT parameters.
132:
133: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Rec_To_PUB(l_flow_schedule_rec,x_flow_schedule_rec);
134:
135:
136: -- If p_return_values is TRUE then convert Ids to Values.
137:
141: ( p_flow_schedule_rec => l_flow_schedule_rec
142: , x_flow_schedule_val_rec => l_x_flow_schedule_val_rec
143: );
144:
145: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Val_Rec_To_PUB(l_x_flow_schedule_val_rec,x_flow_schedule_val_rec);
146:
147: END IF;
148:
149: EXCEPTION
224: IS
225: l_api_version_number CONSTANT NUMBER := 1.0;
226: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Flow_Schedule';
227: l_return_status VARCHAR2(1);
228: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
229: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
230: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
231: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
232: BEGIN
225: l_api_version_number CONSTANT NUMBER := 1.0;
226: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Flow_Schedule';
227: l_return_status VARCHAR2(1);
228: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
229: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
230: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
231: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
232: BEGIN
233:
226: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Flow_Schedule';
227: l_return_status VARCHAR2(1);
228: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
229: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
230: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
231: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
232: BEGIN
233:
234: -- Standard call to check for call compatibility
227: l_return_status VARCHAR2(1);
228: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
229: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
230: l_p_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
231: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
232: BEGIN
233:
234: -- Standard call to check for call compatibility
235:
242: THEN
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
245:
246: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Rec_To_PVT(p_flow_schedule_rec,l_p_flow_schedule_rec);
247: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Val_Rec_To_PVT(p_flow_schedule_val_rec,l_p_flow_schedule_val_rec);
248:
249: -- Perform Value to Id conversion
250:
243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
244: END IF;
245:
246: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Rec_To_PVT(p_flow_schedule_rec,l_p_flow_schedule_rec);
247: MRP_Flow_Schedule_PVT.PUB_Flow_Sched_Val_Rec_To_PVT(p_flow_schedule_val_rec,l_p_flow_schedule_val_rec);
248:
249: -- Perform Value to Id conversion
250:
251: Value_To_Id
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
263:
264:
265: -- Call MRP_Flow_Schedule_PVT.Lock_Flow_Schedule
266:
267: MRP_Flow_Schedule_PVT.Lock_Flow_Schedule
268: ( p_api_version_number => 1.0
269: , p_init_msg_list => p_init_msg_list
263:
264:
265: -- Call MRP_Flow_Schedule_PVT.Lock_Flow_Schedule
266:
267: MRP_Flow_Schedule_PVT.Lock_Flow_Schedule
268: ( p_api_version_number => 1.0
269: , p_init_msg_list => p_init_msg_list
270: , x_return_status => x_return_status
271: , x_msg_count => x_msg_count
275: );
276:
277: -- Load Id OUT parameters.
278:
279: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Rec_To_PUB(l_flow_schedule_rec,x_flow_schedule_rec);
280:
281: -- If p_return_values is TRUE then convert Ids to Values.
282:
283: IF FND_API.to_Boolean(p_return_values) THEN
286: ( p_flow_schedule_rec => l_flow_schedule_rec
287: , x_flow_schedule_val_rec => l_x_flow_schedule_val_rec
288: );
289:
290: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Val_Rec_To_PUB(l_x_flow_schedule_val_rec,x_flow_schedule_val_rec);
291:
292: END IF;
293:
294: EXCEPTION
369: IS
370: l_api_version_number CONSTANT NUMBER := 1.0;
371: l_api_name CONSTANT VARCHAR2(30):= 'Get_Flow_Schedule';
372: l_wip_entity_id NUMBER := p_wip_entity_id;
373: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
374: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
375: BEGIN
376:
377: -- Standard call to check for call compatibility
370: l_api_version_number CONSTANT NUMBER := 1.0;
371: l_api_name CONSTANT VARCHAR2(30):= 'Get_Flow_Schedule';
372: l_wip_entity_id NUMBER := p_wip_entity_id;
373: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
374: l_x_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
375: BEGIN
376:
377: -- Standard call to check for call compatibility
378:
429:
430: END IF;
431:
432:
433: -- Call MRP_Flow_Schedule_PVT.Get_Flow_Schedule
434:
435: MRP_Flow_Schedule_PVT.Get_Flow_Schedule
436: ( p_api_version_number => 1.0
437: , p_init_msg_list => p_init_msg_list
431:
432:
433: -- Call MRP_Flow_Schedule_PVT.Get_Flow_Schedule
434:
435: MRP_Flow_Schedule_PVT.Get_Flow_Schedule
436: ( p_api_version_number => 1.0
437: , p_init_msg_list => p_init_msg_list
438: , x_return_status => x_return_status
439: , x_msg_count => x_msg_count
443: );
444:
445: -- Load Id OUT parameters.
446:
447: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Rec_To_PUB(l_flow_schedule_rec,x_flow_schedule_rec);
448:
449: -- If p_return_values is TRUE then convert Ids to Values.
450:
451: IF FND_API.TO_BOOLEAN(p_return_values) THEN
454: ( p_flow_schedule_rec => l_flow_schedule_rec
455: , x_flow_schedule_val_rec => l_x_flow_schedule_val_rec
456: );
457:
458: MRP_Flow_Schedule_PVT.PVT_Flow_Sched_Val_Rec_To_PUB(l_x_flow_schedule_val_rec,x_flow_schedule_val_rec);
459:
460: END IF;
461:
462: -- Set return status
518:
519: -- Procedure Id_To_Value
520:
521: PROCEDURE Id_To_Value
522: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
523: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
524: )
525: IS
526: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type ;
519: -- Procedure Id_To_Value
520:
521: PROCEDURE Id_To_Value
522: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
523: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
524: )
525: IS
526: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type ;
527: BEGIN
522: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
523: , x_flow_schedule_val_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
524: )
525: IS
526: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type ;
527: BEGIN
528:
529: -- Convert flow_schedule
530:
549: -- Procedure Value_To_Id
550:
551: PROCEDURE Value_To_Id
552: ( x_return_status OUT NOCOPY VARCHAR2
553: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
554: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
555: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
556: )
557: IS
550:
551: PROCEDURE Value_To_Id
552: ( x_return_status OUT NOCOPY VARCHAR2
553: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
554: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
555: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
556: )
557: IS
558: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
551: PROCEDURE Value_To_Id
552: ( x_return_status OUT NOCOPY VARCHAR2
553: , p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
554: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
555: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
556: )
557: IS
558: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
559: l_index BINARY_INTEGER;
554: , p_flow_schedule_val_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type
555: , x_flow_schedule_rec OUT NOCOPY MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
556: )
557: IS
558: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
559: l_index BINARY_INTEGER;
560: BEGIN
561:
562: -- Init x_return_status.