6: --R12- Project - SU : Added variables p_Serial_Number_Tbl and p_CrossDock_Flag
7: PROCEDURE create_reservation
8: (
9: p_api_version_number IN NUMBER
10: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
11: , x_return_status OUT NOCOPY VARCHAR2
12: , x_msg_count OUT NOCOPY NUMBER
13: , x_msg_data OUT NOCOPY VARCHAR2
14: , p_requirement_date IN DATE
64: , p_attribute12 IN VARCHAR2 DEFAULT NULL
65: , p_attribute13 IN VARCHAR2 DEFAULT NULL
66: , p_attribute14 IN VARCHAR2 DEFAULT NULL
67: , p_attribute15 IN VARCHAR2 DEFAULT NULL
68: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
69: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
70: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
71: , x_quantity_reserved OUT NOCOPY NUMBER
72: , x_secondary_quantity_reserved OUT NOCOPY NUMBER
65: , p_attribute13 IN VARCHAR2 DEFAULT NULL
66: , p_attribute14 IN VARCHAR2 DEFAULT NULL
67: , p_attribute15 IN VARCHAR2 DEFAULT NULL
68: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
69: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
70: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
71: , x_quantity_reserved OUT NOCOPY NUMBER
72: , x_secondary_quantity_reserved OUT NOCOPY NUMBER
73: , x_reservation_id OUT NOCOPY NUMBER
66: , p_attribute14 IN VARCHAR2 DEFAULT NULL
67: , p_attribute15 IN VARCHAR2 DEFAULT NULL
68: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
69: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
70: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
71: , x_quantity_reserved OUT NOCOPY NUMBER
72: , x_secondary_quantity_reserved OUT NOCOPY NUMBER
73: , x_reservation_id OUT NOCOPY NUMBER
74: ) IS
73: , x_reservation_id OUT NOCOPY NUMBER
74: ) IS
75: l_api_version_number CONSTANT NUMBER := 1.0;
76: l_api_name CONSTANT VARCHAR2(30) := 'Create_Reservation';
77: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
78: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
79: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
80: BEGIN
81: -- Standard call to check for call compatibility
78: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
79: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
80: BEGIN
81: -- Standard call to check for call compatibility
82: IF NOT fnd_api.compatible_api_call(l_api_version_number
83: , p_api_version_number
84: , l_api_name
85: , G_PKG_NAME
86: ) THEN
83: , p_api_version_number
84: , l_api_name
85: , G_PKG_NAME
86: ) THEN
87: RAISE fnd_api.g_exc_unexpected_error;
88: END IF;
89: -- Initialize message list.
90: IF fnd_api.to_boolean(p_init_msg_lst) THEN
91: fnd_msg_pub.initialize;
86: ) THEN
87: RAISE fnd_api.g_exc_unexpected_error;
88: END IF;
89: -- Initialize message list.
90: IF fnd_api.to_boolean(p_init_msg_lst) THEN
91: fnd_msg_pub.initialize;
92: END IF;
93: -- reservation id is not decided yet
94: l_rsv_rec.reservation_id := NULL;
164: , x_secondary_quantity_reserved => x_secondary_quantity_reserved -- INVCONV
165: , x_reservation_id => x_reservation_id
166: );
167:
168: IF l_return_status = fnd_api.g_ret_sts_error THEN
169: RAISE fnd_api.g_exc_error;
170: END IF ;
171:
172: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
165: , x_reservation_id => x_reservation_id
166: );
167:
168: IF l_return_status = fnd_api.g_ret_sts_error THEN
169: RAISE fnd_api.g_exc_error;
170: END IF ;
171:
172: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
173: RAISE fnd_api.g_exc_unexpected_error;
168: IF l_return_status = fnd_api.g_ret_sts_error THEN
169: RAISE fnd_api.g_exc_error;
170: END IF ;
171:
172: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
173: RAISE fnd_api.g_exc_unexpected_error;
174: END IF;
175:
176: x_return_status := l_return_status;
169: RAISE fnd_api.g_exc_error;
170: END IF ;
171:
172: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
173: RAISE fnd_api.g_exc_unexpected_error;
174: END IF;
175:
176: x_return_status := l_return_status;
177:
176: x_return_status := l_return_status;
177:
178: EXCEPTION
179:
180: WHEN fnd_api.g_exc_error THEN
181: x_return_status := fnd_api.g_ret_sts_error;
182:
183: -- Get message count and data
184: fnd_msg_pub.count_and_get
177:
178: EXCEPTION
179:
180: WHEN fnd_api.g_exc_error THEN
181: x_return_status := fnd_api.g_ret_sts_error;
182:
183: -- Get message count and data
184: fnd_msg_pub.count_and_get
185: ( p_count => x_msg_count
186: , p_data => x_msg_data
187: , p_encoded => 'F'
188: );
189:
190: WHEN fnd_api.g_exc_unexpected_error THEN
191: x_return_status := fnd_api.g_ret_sts_unexp_error ;
192:
193: -- Get message count and data
194: fnd_msg_pub.count_and_get
187: , p_encoded => 'F'
188: );
189:
190: WHEN fnd_api.g_exc_unexpected_error THEN
191: x_return_status := fnd_api.g_ret_sts_unexp_error ;
192:
193: -- Get message count and data
194: fnd_msg_pub.count_and_get
195: ( p_count => x_msg_count
197: , p_encoded => 'F'
198: );
199:
200: WHEN OTHERS THEN
201: x_return_status := fnd_api.g_ret_sts_unexp_error ;
202:
203: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
204: THEN
205: fnd_msg_pub.add_exc_msg
219:
220: PROCEDURE create_reservation
221: (
222: p_api_version_number IN NUMBER
223: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
224: , x_return_status OUT NOCOPY VARCHAR2
225: , x_msg_count OUT NOCOPY NUMBER
226: , x_msg_data OUT NOCOPY VARCHAR2
227: , p_requirement_date IN DATE
270: , p_attribute12 IN VARCHAR2 DEFAULT NULL
271: , p_attribute13 IN VARCHAR2 DEFAULT NULL
272: , p_attribute14 IN VARCHAR2 DEFAULT NULL
273: , p_attribute15 IN VARCHAR2 DEFAULT NULL
274: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
275: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
276: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
277: , x_quantity_reserved OUT NOCOPY NUMBER
278: , x_reservation_id OUT NOCOPY NUMBER
271: , p_attribute13 IN VARCHAR2 DEFAULT NULL
272: , p_attribute14 IN VARCHAR2 DEFAULT NULL
273: , p_attribute15 IN VARCHAR2 DEFAULT NULL
274: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
275: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
276: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
277: , x_quantity_reserved OUT NOCOPY NUMBER
278: , x_reservation_id OUT NOCOPY NUMBER
279: ) IS
272: , p_attribute14 IN VARCHAR2 DEFAULT NULL
273: , p_attribute15 IN VARCHAR2 DEFAULT NULL
274: , p_partial_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
275: , p_force_reservation_flag IN VARCHAR2 DEFAULT fnd_api.g_false
276: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
277: , x_quantity_reserved OUT NOCOPY NUMBER
278: , x_reservation_id OUT NOCOPY NUMBER
279: ) IS
280: l_api_version_number CONSTANT NUMBER := 1.0;
278: , x_reservation_id OUT NOCOPY NUMBER
279: ) IS
280: l_api_version_number CONSTANT NUMBER := 1.0;
281: l_api_name CONSTANT VARCHAR2(30) := 'Create_Reservation';
282: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
283: l_secondary_quantity_reserved NUMBER;
284: l_Dummy_Serial_Number_Tbl Inv_Reservation_Global.Serial_Number_Tbl_Type ;
285:
286: BEGIN
284: l_Dummy_Serial_Number_Tbl Inv_Reservation_Global.Serial_Number_Tbl_Type ;
285:
286: BEGIN
287: -- Standard call to check for call compatibility
288: IF NOT fnd_api.compatible_api_call(l_api_version_number
289: , p_api_version_number
290: , l_api_name
291: , G_PKG_NAME
292: ) THEN
289: , p_api_version_number
290: , l_api_name
291: , G_PKG_NAME
292: ) THEN
293: RAISE fnd_api.g_exc_unexpected_error;
294: END IF;
295: -- Initialize message list.
296: IF fnd_api.to_boolean(p_init_msg_lst) THEN
297: fnd_msg_pub.initialize;
292: ) THEN
293: RAISE fnd_api.g_exc_unexpected_error;
294: END IF;
295: -- Initialize message list.
296: IF fnd_api.to_boolean(p_init_msg_lst) THEN
297: fnd_msg_pub.initialize;
298: END IF;
299:
300: -- Call the over loaded function
363: , x_reservation_id => x_reservation_id
364: );
365:
366:
367: IF l_return_status = fnd_api.g_ret_sts_error THEN
368: RAISE fnd_api.g_exc_error;
369: END IF ;
370:
371: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
364: );
365:
366:
367: IF l_return_status = fnd_api.g_ret_sts_error THEN
368: RAISE fnd_api.g_exc_error;
369: END IF ;
370:
371: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
372: RAISE fnd_api.g_exc_unexpected_error;
367: IF l_return_status = fnd_api.g_ret_sts_error THEN
368: RAISE fnd_api.g_exc_error;
369: END IF ;
370:
371: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
372: RAISE fnd_api.g_exc_unexpected_error;
373: END IF;
374:
375: x_return_status := l_return_status;
368: RAISE fnd_api.g_exc_error;
369: END IF ;
370:
371: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
372: RAISE fnd_api.g_exc_unexpected_error;
373: END IF;
374:
375: x_return_status := l_return_status;
376:
375: x_return_status := l_return_status;
376:
377: EXCEPTION
378:
379: WHEN fnd_api.g_exc_error THEN
380: x_return_status := fnd_api.g_ret_sts_error;
381:
382: -- Get message count and data
383: fnd_msg_pub.count_and_get
376:
377: EXCEPTION
378:
379: WHEN fnd_api.g_exc_error THEN
380: x_return_status := fnd_api.g_ret_sts_error;
381:
382: -- Get message count and data
383: fnd_msg_pub.count_and_get
384: ( p_count => x_msg_count
385: , p_data => x_msg_data
386: , p_encoded => 'F'
387: );
388:
389: WHEN fnd_api.g_exc_unexpected_error THEN
390: x_return_status := fnd_api.g_ret_sts_unexp_error ;
391:
392: -- Get message count and data
393: fnd_msg_pub.count_and_get
386: , p_encoded => 'F'
387: );
388:
389: WHEN fnd_api.g_exc_unexpected_error THEN
390: x_return_status := fnd_api.g_ret_sts_unexp_error ;
391:
392: -- Get message count and data
393: fnd_msg_pub.count_and_get
394: ( p_count => x_msg_count
396: , p_encoded => 'F'
397: );
398:
399: WHEN OTHERS THEN
400: x_return_status := fnd_api.g_ret_sts_unexp_error ;
401:
402: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
403: THEN
404: fnd_msg_pub.add_exc_msg
427: -- INVCONV - Incorporate secondaries
428: PROCEDURE update_reservation
429: (
430: p_api_version_number IN NUMBER
431: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
432: , x_return_status OUT NOCOPY VARCHAR2
433: , x_msg_count OUT NOCOPY NUMBER
434: , x_msg_data OUT NOCOPY VARCHAR2
435: , p_from_reservation_id IN NUMBER
534: , p_to_attribute12 IN VARCHAR2 DEFAULT NULL
535: , p_to_attribute13 IN VARCHAR2 DEFAULT NULL
536: , p_to_attribute14 IN VARCHAR2 DEFAULT NULL
537: , p_to_attribute15 IN VARCHAR2 DEFAULT NULL
538: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
539: ) IS
540: l_api_version_number CONSTANT NUMBER := 1.0;
541: l_api_name CONSTANT VARCHAR2(30) := 'Update_Reservation';
542: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
538: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
539: ) IS
540: l_api_version_number CONSTANT NUMBER := 1.0;
541: l_api_name CONSTANT VARCHAR2(30) := 'Update_Reservation';
542: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
543: l_orig_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
544: l_to_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
545: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
546: BEGIN
545: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
546: BEGIN
547:
548: -- Standard call to check for call compatibility
549: IF NOT fnd_api.compatible_api_call(l_api_version_number
550: , p_api_version_number
551: , l_api_name
552: , G_PKG_NAME
553: ) THEN
550: , p_api_version_number
551: , l_api_name
552: , G_PKG_NAME
553: ) THEN
554: RAISE fnd_api.g_exc_unexpected_error;
555: END IF;
556:
557: -- Initialize message list.
558: IF fnd_api.to_boolean(p_init_msg_lst) THEN
554: RAISE fnd_api.g_exc_unexpected_error;
555: END IF;
556:
557: -- Initialize message list.
558: IF fnd_api.to_boolean(p_init_msg_lst) THEN
559: fnd_msg_pub.initialize;
560: END IF;
561:
562: -- construct the record type for the original reservation
575: l_orig_rsv_rec.secondary_uom_id := p_from_secondary_uom_id; -- INVCONV
576: l_orig_rsv_rec.reservation_uom_code := p_from_reservation_uom_code;
577: l_orig_rsv_rec.reservation_uom_id := p_from_reservation_uom_id;
578: l_orig_rsv_rec.reservation_quantity := p_from_reservation_quantity;
579: l_orig_rsv_rec.primary_reservation_quantity := Nvl(p_from_primary_rsv_quantity,fnd_api.g_miss_num);
580: l_orig_rsv_rec.secondary_reservation_quantity := Nvl(p_from_secondary_rsv_quantity,fnd_api.g_miss_num);
581: l_orig_rsv_rec.autodetail_group_id := p_from_autodetail_group_id;
582: -- Bug 4756403:Setting external source code to g_miss_char
583: l_orig_rsv_rec.external_source_code :=
576: l_orig_rsv_rec.reservation_uom_code := p_from_reservation_uom_code;
577: l_orig_rsv_rec.reservation_uom_id := p_from_reservation_uom_id;
578: l_orig_rsv_rec.reservation_quantity := p_from_reservation_quantity;
579: l_orig_rsv_rec.primary_reservation_quantity := Nvl(p_from_primary_rsv_quantity,fnd_api.g_miss_num);
580: l_orig_rsv_rec.secondary_reservation_quantity := Nvl(p_from_secondary_rsv_quantity,fnd_api.g_miss_num);
581: l_orig_rsv_rec.autodetail_group_id := p_from_autodetail_group_id;
582: -- Bug 4756403:Setting external source code to g_miss_char
583: l_orig_rsv_rec.external_source_code :=
584: Nvl(p_from_external_source_code, fnd_api.g_miss_char);
580: l_orig_rsv_rec.secondary_reservation_quantity := Nvl(p_from_secondary_rsv_quantity,fnd_api.g_miss_num);
581: l_orig_rsv_rec.autodetail_group_id := p_from_autodetail_group_id;
582: -- Bug 4756403:Setting external source code to g_miss_char
583: l_orig_rsv_rec.external_source_code :=
584: Nvl(p_from_external_source_code, fnd_api.g_miss_char);
585: l_orig_rsv_rec.external_source_line_id := p_from_external_source_line;
586: l_orig_rsv_rec.supply_source_type_id := p_from_supply_type_id;
587: l_orig_rsv_rec.supply_source_header_id := p_from_supply_header_id;
588: l_orig_rsv_rec.supply_source_line_id := p_from_supply_line_id;
619: l_Orig_Rsv_Rec.CrossDock_Flag := p_From_CrossDock_Flag ;
620:
621: -- construct the record type for the update to record
622: l_to_rsv_rec.requirement_date := p_to_requirement_date;
623: l_to_rsv_rec.organization_id := Nvl(p_from_organization_id,fnd_api.g_miss_num);
624: l_to_rsv_rec.inventory_item_id := Nvl(p_from_inventory_item_id,fnd_api.g_miss_num);
625: l_to_rsv_rec.demand_source_type_id := p_to_demand_type_id;
626: l_to_rsv_rec.demand_source_name := p_to_demand_name;
627: l_to_rsv_rec.demand_source_header_id := p_to_demand_header_id;
620:
621: -- construct the record type for the update to record
622: l_to_rsv_rec.requirement_date := p_to_requirement_date;
623: l_to_rsv_rec.organization_id := Nvl(p_from_organization_id,fnd_api.g_miss_num);
624: l_to_rsv_rec.inventory_item_id := Nvl(p_from_inventory_item_id,fnd_api.g_miss_num);
625: l_to_rsv_rec.demand_source_type_id := p_to_demand_type_id;
626: l_to_rsv_rec.demand_source_name := p_to_demand_name;
627: l_to_rsv_rec.demand_source_header_id := p_to_demand_header_id;
628: l_to_rsv_rec.demand_source_line_id := p_to_demand_line_id;
633: l_to_rsv_rec.secondary_uom_id := p_from_secondary_uom_id; -- INVCONV
634: l_to_rsv_rec.reservation_uom_code := p_to_reservation_uom_code;
635: l_to_rsv_rec.reservation_uom_id := p_to_reservation_uom_id;
636: l_to_rsv_rec.reservation_quantity := p_to_reservation_quantity;
637: l_to_rsv_rec.primary_reservation_quantity := Nvl(p_to_primary_rsv_quantity,fnd_api.g_miss_num);
638: l_to_rsv_rec.secondary_reservation_quantity := Nvl(p_to_secondary_rsv_quantity,fnd_api.g_miss_num); --INVCONV
639: l_to_rsv_rec.autodetail_group_id := p_to_autodetail_group_id;
640:
641: -- Bug 4756403:Setting external source code to g_miss_char
634: l_to_rsv_rec.reservation_uom_code := p_to_reservation_uom_code;
635: l_to_rsv_rec.reservation_uom_id := p_to_reservation_uom_id;
636: l_to_rsv_rec.reservation_quantity := p_to_reservation_quantity;
637: l_to_rsv_rec.primary_reservation_quantity := Nvl(p_to_primary_rsv_quantity,fnd_api.g_miss_num);
638: l_to_rsv_rec.secondary_reservation_quantity := Nvl(p_to_secondary_rsv_quantity,fnd_api.g_miss_num); --INVCONV
639: l_to_rsv_rec.autodetail_group_id := p_to_autodetail_group_id;
640:
641: -- Bug 4756403:Setting external source code to g_miss_char
642: l_to_rsv_rec.external_source_code := Nvl(p_from_external_source_code, fnd_api.g_miss_char);
638: l_to_rsv_rec.secondary_reservation_quantity := Nvl(p_to_secondary_rsv_quantity,fnd_api.g_miss_num); --INVCONV
639: l_to_rsv_rec.autodetail_group_id := p_to_autodetail_group_id;
640:
641: -- Bug 4756403:Setting external source code to g_miss_char
642: l_to_rsv_rec.external_source_code := Nvl(p_from_external_source_code, fnd_api.g_miss_char);
643: l_to_rsv_rec.external_source_line_id := p_to_external_source_line;
644: l_to_rsv_rec.supply_source_type_id := p_to_supply_type_id;
645: l_to_rsv_rec.supply_source_header_id := p_to_supply_header_id;
646: l_to_rsv_rec.supply_source_line_id := p_to_supply_line_id;
690: , p_to_serial_number => p_To_serial_number_tbl -- R12 Changes : SU
691: , p_validation_flag => p_validation_flag
692: );
693:
694: IF l_return_status = fnd_api.g_ret_sts_error THEN
695: RAISE fnd_api.g_exc_error;
696: END IF ;
697:
698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
691: , p_validation_flag => p_validation_flag
692: );
693:
694: IF l_return_status = fnd_api.g_ret_sts_error THEN
695: RAISE fnd_api.g_exc_error;
696: END IF ;
697:
698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
699: RAISE fnd_api.g_exc_unexpected_error;
694: IF l_return_status = fnd_api.g_ret_sts_error THEN
695: RAISE fnd_api.g_exc_error;
696: END IF ;
697:
698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
699: RAISE fnd_api.g_exc_unexpected_error;
700: END IF;
701:
702: x_return_status := l_return_status;
695: RAISE fnd_api.g_exc_error;
696: END IF ;
697:
698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
699: RAISE fnd_api.g_exc_unexpected_error;
700: END IF;
701:
702: x_return_status := l_return_status;
703:
702: x_return_status := l_return_status;
703:
704: EXCEPTION
705:
706: WHEN fnd_api.g_exc_error THEN
707: x_return_status := fnd_api.g_ret_sts_error;
708:
709: -- Get message count and data
710: fnd_msg_pub.count_and_get
703:
704: EXCEPTION
705:
706: WHEN fnd_api.g_exc_error THEN
707: x_return_status := fnd_api.g_ret_sts_error;
708:
709: -- Get message count and data
710: fnd_msg_pub.count_and_get
711: ( p_count => x_msg_count
712: , p_data => x_msg_data
713: , p_encoded => 'F'
714: );
715:
716: WHEN fnd_api.g_exc_unexpected_error THEN
717: x_return_status := fnd_api.g_ret_sts_unexp_error ;
718:
719: -- Get message count and data
720: fnd_msg_pub.count_and_get
713: , p_encoded => 'F'
714: );
715:
716: WHEN fnd_api.g_exc_unexpected_error THEN
717: x_return_status := fnd_api.g_ret_sts_unexp_error ;
718:
719: -- Get message count and data
720: fnd_msg_pub.count_and_get
721: ( p_count => x_msg_count
723: , p_encoded => 'F'
724: );
725:
726: WHEN OTHERS THEN
727: x_return_status := fnd_api.g_ret_sts_unexp_error ;
728:
729: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
730: THEN
731: fnd_msg_pub.add_exc_msg
746: -- INVCONV - Incorporate secondaries
747: PROCEDURE delete_reservation
748: (
749: p_api_version_number IN NUMBER
750: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
751: , x_return_status OUT NOCOPY VARCHAR2
752: , x_msg_count OUT NOCOPY NUMBER
753: , x_msg_data OUT NOCOPY VARCHAR2
754: , p_reservation_id IN NUMBER
807: , p_validation_flag IN VARCHAR2 DEFAULT 'T' --Bug 2354735
808: ) IS
809: l_api_version_number CONSTANT NUMBER := 1.0;
810: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Reservation';
811: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
812: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
813: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
814: BEGIN
815: -- Standard call to check for call compatibility
812: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
813: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
814: BEGIN
815: -- Standard call to check for call compatibility
816: IF NOT fnd_api.compatible_api_call(l_api_version_number
817: , p_api_version_number
818: , l_api_name
819: , G_PKG_NAME
820: ) THEN
817: , p_api_version_number
818: , l_api_name
819: , G_PKG_NAME
820: ) THEN
821: RAISE fnd_api.g_exc_unexpected_error;
822: END IF;
823:
824: -- Initialize message list.
825: IF fnd_api.to_boolean(p_init_msg_lst) THEN
821: RAISE fnd_api.g_exc_unexpected_error;
822: END IF;
823:
824: -- Initialize message list.
825: IF fnd_api.to_boolean(p_init_msg_lst) THEN
826: fnd_msg_pub.initialize;
827: END IF;
828:
829: l_rsv_rec.reservation_id := p_reservation_id;
890: , p_original_serial_number => p_serial_number_Tbl -- R12 Changes : SU
891: , p_validation_flag => p_validation_flag -- Bug 2354735
892: );
893:
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE fnd_api.g_exc_error;
896: END IF ;
897:
898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
891: , p_validation_flag => p_validation_flag -- Bug 2354735
892: );
893:
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE fnd_api.g_exc_error;
896: END IF ;
897:
898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
899: RAISE fnd_api.g_exc_unexpected_error;
894: IF l_return_status = fnd_api.g_ret_sts_error THEN
895: RAISE fnd_api.g_exc_error;
896: END IF ;
897:
898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
899: RAISE fnd_api.g_exc_unexpected_error;
900: END IF;
901:
902: x_return_status := l_return_status;
895: RAISE fnd_api.g_exc_error;
896: END IF ;
897:
898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
899: RAISE fnd_api.g_exc_unexpected_error;
900: END IF;
901:
902: x_return_status := l_return_status;
903:
902: x_return_status := l_return_status;
903:
904: EXCEPTION
905:
906: WHEN fnd_api.g_exc_error THEN
907: x_return_status := fnd_api.g_ret_sts_error;
908:
909: -- Get message count and data
910: fnd_msg_pub.count_and_get
903:
904: EXCEPTION
905:
906: WHEN fnd_api.g_exc_error THEN
907: x_return_status := fnd_api.g_ret_sts_error;
908:
909: -- Get message count and data
910: fnd_msg_pub.count_and_get
911: ( p_count => x_msg_count
912: , p_data => x_msg_data
913: , p_encoded => 'F'
914: );
915:
916: WHEN fnd_api.g_exc_unexpected_error THEN
917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
918:
919: -- Get message count and data
920: fnd_msg_pub.count_and_get
913: , p_encoded => 'F'
914: );
915:
916: WHEN fnd_api.g_exc_unexpected_error THEN
917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
918:
919: -- Get message count and data
920: fnd_msg_pub.count_and_get
921: ( p_count => x_msg_count
923: , p_encoded => 'F'
924: );
925:
926: WHEN OTHERS THEN
927: x_return_status := fnd_api.g_ret_sts_unexp_error ;
928:
929: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
930: THEN
931: fnd_msg_pub.add_exc_msg
946: -- INVCONV - Incorporate secondaries
947: PROCEDURE transfer_supply
948: (
949: p_api_version_number IN NUMBER
950: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
951: , x_return_status OUT NOCOPY VARCHAR2
952: , x_msg_count OUT NOCOPY NUMBER
953: , x_msg_data OUT NOCOPY VARCHAR2
954: , p_from_reservation_id IN NUMBER
1018: , p_to_lot_number IN VARCHAR2
1019: , p_to_lot_number_id IN NUMBER
1020: , p_to_pick_slip_number IN NUMBER
1021: , p_to_lpn_id IN NUMBER
1022: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
1023: , x_to_reservation_id OUT NOCOPY NUMBER
1024: ) IS
1025: l_api_version_number CONSTANT NUMBER := 1.0;
1026: l_api_name CONSTANT VARCHAR2(30) := 'Transfer_Supply';
1023: , x_to_reservation_id OUT NOCOPY NUMBER
1024: ) IS
1025: l_api_version_number CONSTANT NUMBER := 1.0;
1026: l_api_name CONSTANT VARCHAR2(30) := 'Transfer_Supply';
1027: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1028: l_orig_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1029: l_to_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1030: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
1031: BEGIN
1030: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
1031: BEGIN
1032:
1033: -- Standard call to check for call compatibility
1034: IF NOT fnd_api.compatible_api_call(l_api_version_number
1035: , p_api_version_number
1036: , l_api_name
1037: , G_PKG_NAME
1038: ) THEN
1035: , p_api_version_number
1036: , l_api_name
1037: , G_PKG_NAME
1038: ) THEN
1039: RAISE fnd_api.g_exc_unexpected_error;
1040: END IF;
1041:
1042: -- Initialize message list.
1043: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1039: RAISE fnd_api.g_exc_unexpected_error;
1040: END IF;
1041:
1042: -- Initialize message list.
1043: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1044: fnd_msg_pub.initialize;
1045: END IF;
1046:
1047: -- construct the record type for the original reservation
1045: END IF;
1046:
1047: -- construct the record type for the original reservation
1048: IF p_from_reservation_id IS NOT NULL
1049: AND p_from_reservation_id <> fnd_api.g_miss_num
1050: THEN
1051: l_orig_rsv_rec.reservation_id := p_from_reservation_id;
1052: ELSE
1053: l_orig_rsv_rec.requirement_date := p_from_requirement_date;
1135: , p_validation_flag => p_validation_flag
1136: , x_reservation_id => x_to_reservation_id
1137: );
1138:
1139: IF l_return_status = fnd_api.g_ret_sts_error THEN
1140: RAISE fnd_api.g_exc_error;
1141: END IF ;
1142:
1143: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1136: , x_reservation_id => x_to_reservation_id
1137: );
1138:
1139: IF l_return_status = fnd_api.g_ret_sts_error THEN
1140: RAISE fnd_api.g_exc_error;
1141: END IF ;
1142:
1143: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1144: RAISE fnd_api.g_exc_unexpected_error;
1139: IF l_return_status = fnd_api.g_ret_sts_error THEN
1140: RAISE fnd_api.g_exc_error;
1141: END IF ;
1142:
1143: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1144: RAISE fnd_api.g_exc_unexpected_error;
1145: END IF;
1146:
1147: x_return_status := l_return_status;
1140: RAISE fnd_api.g_exc_error;
1141: END IF ;
1142:
1143: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1144: RAISE fnd_api.g_exc_unexpected_error;
1145: END IF;
1146:
1147: x_return_status := l_return_status;
1148:
1147: x_return_status := l_return_status;
1148:
1149: EXCEPTION
1150:
1151: WHEN fnd_api.g_exc_error THEN
1152: x_return_status := fnd_api.g_ret_sts_error;
1153:
1154: -- Get message count and data
1155: fnd_msg_pub.count_and_get
1148:
1149: EXCEPTION
1150:
1151: WHEN fnd_api.g_exc_error THEN
1152: x_return_status := fnd_api.g_ret_sts_error;
1153:
1154: -- Get message count and data
1155: fnd_msg_pub.count_and_get
1156: ( p_count => x_msg_count
1157: , p_data => x_msg_data
1158: , p_encoded => 'F'
1159: );
1160:
1161: WHEN fnd_api.g_exc_unexpected_error THEN
1162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1163:
1164: -- Get message count and data
1165: fnd_msg_pub.count_and_get
1158: , p_encoded => 'F'
1159: );
1160:
1161: WHEN fnd_api.g_exc_unexpected_error THEN
1162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1163:
1164: -- Get message count and data
1165: fnd_msg_pub.count_and_get
1166: ( p_count => x_msg_count
1168: , p_encoded => 'F'
1169: );
1170:
1171: WHEN OTHERS THEN
1172: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1173:
1174: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1175: THEN
1176: fnd_msg_pub.add_exc_msg
1191: -- INVCONV - Incorporate secondaries
1192: PROCEDURE transfer_demand
1193: (
1194: p_api_version_number IN NUMBER
1195: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_true
1196: , x_return_status OUT NOCOPY VARCHAR2
1197: , x_msg_count OUT NOCOPY NUMBER
1198: , x_msg_data OUT NOCOPY VARCHAR2
1199: , p_from_reservation_id IN NUMBER
1259: , p_to_secondary_uom_code IN VARCHAR2 -- INVCONV
1260: , p_to_secondary_rsv_quantity IN NUMBER -- INVCONV
1261: , p_to_project_id IN NUMBER Default Null
1262: , p_to_task_id IN NUMBER Default Null
1263: , p_validation_flag IN VARCHAR2 DEFAULT fnd_api.g_true
1264: , x_to_reservation_id OUT NOCOPY NUMBER
1265: ) IS
1266: l_api_version_number CONSTANT NUMBER := 1.0;
1267: l_api_name CONSTANT VARCHAR2(30) := 'Transfer_Demand';
1264: , x_to_reservation_id OUT NOCOPY NUMBER
1265: ) IS
1266: l_api_version_number CONSTANT NUMBER := 1.0;
1267: l_api_name CONSTANT VARCHAR2(30) := 'Transfer_Demand';
1268: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1269: l_orig_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1270: l_to_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1271: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
1272: BEGIN
1271: l_dummy_serial_number inv_reservation_global.serial_number_tbl_type;
1272: BEGIN
1273:
1274: -- Standard call to check for call compatibility
1275: IF NOT fnd_api.compatible_api_call(l_api_version_number
1276: , p_api_version_number
1277: , l_api_name
1278: , G_PKG_NAME
1279: ) THEN
1276: , p_api_version_number
1277: , l_api_name
1278: , G_PKG_NAME
1279: ) THEN
1280: RAISE fnd_api.g_exc_unexpected_error;
1281: END IF;
1282:
1283: -- Initialize message list.
1284: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1280: RAISE fnd_api.g_exc_unexpected_error;
1281: END IF;
1282:
1283: -- Initialize message list.
1284: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1285: fnd_msg_pub.initialize;
1286: END IF;
1287:
1288: -- construct the record type for the original reservation
1286: END IF;
1287:
1288: -- construct the record type for the original reservation
1289: IF p_from_reservation_id IS NOT NULL
1290: AND p_from_reservation_id <> fnd_api.g_miss_num THEN
1291: l_orig_rsv_rec.reservation_id := p_from_reservation_id;
1292: ELSE
1293: l_orig_rsv_rec.requirement_date := p_from_requirement_date;
1294: l_orig_rsv_rec.organization_id := p_from_organization_id;
1370: , p_validation_flag => p_validation_flag
1371: , x_reservation_id => x_to_reservation_id
1372: );
1373:
1374: IF l_return_status = fnd_api.g_ret_sts_error THEN
1375: RAISE fnd_api.g_exc_error;
1376: END IF ;
1377:
1378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1371: , x_reservation_id => x_to_reservation_id
1372: );
1373:
1374: IF l_return_status = fnd_api.g_ret_sts_error THEN
1375: RAISE fnd_api.g_exc_error;
1376: END IF ;
1377:
1378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1379: RAISE fnd_api.g_exc_unexpected_error;
1374: IF l_return_status = fnd_api.g_ret_sts_error THEN
1375: RAISE fnd_api.g_exc_error;
1376: END IF ;
1377:
1378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1379: RAISE fnd_api.g_exc_unexpected_error;
1380: END IF;
1381:
1382: x_return_status := l_return_status;
1375: RAISE fnd_api.g_exc_error;
1376: END IF ;
1377:
1378: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1379: RAISE fnd_api.g_exc_unexpected_error;
1380: END IF;
1381:
1382: x_return_status := l_return_status;
1383:
1382: x_return_status := l_return_status;
1383:
1384: EXCEPTION
1385:
1386: WHEN fnd_api.g_exc_error THEN
1387: x_return_status := fnd_api.g_ret_sts_error;
1388:
1389: -- Get message count and data
1390: fnd_msg_pub.count_and_get
1383:
1384: EXCEPTION
1385:
1386: WHEN fnd_api.g_exc_error THEN
1387: x_return_status := fnd_api.g_ret_sts_error;
1388:
1389: -- Get message count and data
1390: fnd_msg_pub.count_and_get
1391: ( p_count => x_msg_count
1392: , p_data => x_msg_data
1393: , p_encoded => 'F'
1394: );
1395:
1396: WHEN fnd_api.g_exc_unexpected_error THEN
1397: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1398:
1399: -- Get message count and data
1400: fnd_msg_pub.count_and_get
1393: , p_encoded => 'F'
1394: );
1395:
1396: WHEN fnd_api.g_exc_unexpected_error THEN
1397: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1398:
1399: -- Get message count and data
1400: fnd_msg_pub.count_and_get
1401: ( p_count => x_msg_count
1403: , p_encoded => 'F'
1404: );
1405:
1406: WHEN OTHERS THEN
1407: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1408:
1409: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1410: THEN
1411: fnd_msg_pub.add_exc_msg
1425: --
1426: PROCEDURE query_reservation
1427: (
1428: p_api_version_number IN NUMBER
1429: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
1430: , x_return_status OUT NOCOPY VARCHAR2
1431: , x_msg_count OUT NOCOPY NUMBER
1432: , x_msg_data OUT NOCOPY VARCHAR2
1433: , p_reservation_id IN NUMBER
1430: , x_return_status OUT NOCOPY VARCHAR2
1431: , x_msg_count OUT NOCOPY NUMBER
1432: , x_msg_data OUT NOCOPY VARCHAR2
1433: , p_reservation_id IN NUMBER
1434: , p_lock_records IN VARCHAR2 DEFAULT fnd_api.g_false
1435: , p_sort_by_req_date IN NUMBER
1436: , p_cancel_order_mode IN NUMBER
1437: , x_mtl_reservation_tbl
1438: OUT NOCOPY inv_reservation_global.mtl_reservation_tbl_type
1440: , x_error_code OUT NOCOPY NUMBER
1441: ) IS
1442: l_api_version_number CONSTANT NUMBER := 1.0;
1443: l_api_name CONSTANT VARCHAR2(30) := 'Query_Reservation';
1444: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1445: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1446: BEGIN
1447: -- Standard call to check for call compatibility
1448: IF NOT fnd_api.compatible_api_call(l_api_version_number
1444: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1445: l_rsv_rec inv_reservation_global.mtl_reservation_rec_type;
1446: BEGIN
1447: -- Standard call to check for call compatibility
1448: IF NOT fnd_api.compatible_api_call(l_api_version_number
1449: , p_api_version_number
1450: , l_api_name
1451: , G_PKG_NAME
1452: ) THEN
1449: , p_api_version_number
1450: , l_api_name
1451: , G_PKG_NAME
1452: ) THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1455: --
1456: -- Initialize message list.
1457: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1455: --
1456: -- Initialize message list.
1457: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1458: fnd_msg_pub.initialize;
1459: END IF;
1460: --
1461: l_rsv_rec.reservation_id := p_reservation_id;
1460: --
1461: l_rsv_rec.reservation_id := p_reservation_id;
1462: inv_reservation_pub.query_reservation
1463: ( p_api_version_number => 1.0
1464: , p_init_msg_lst => fnd_api.g_false
1465: , x_return_status => l_return_status
1466: , x_msg_count => x_msg_count
1467: , x_msg_data => x_msg_data
1468: , p_query_input => l_rsv_rec
1472: , x_mtl_reservation_tbl => x_mtl_reservation_tbl
1473: , x_mtl_reservation_tbl_count => x_mtl_reservation_tbl_count
1474: , x_error_code => x_error_code
1475: );
1476: IF l_return_status = fnd_api.g_ret_sts_error THEN
1477: RAISE fnd_api.g_exc_error;
1478: END IF ;
1479:
1480: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1473: , x_mtl_reservation_tbl_count => x_mtl_reservation_tbl_count
1474: , x_error_code => x_error_code
1475: );
1476: IF l_return_status = fnd_api.g_ret_sts_error THEN
1477: RAISE fnd_api.g_exc_error;
1478: END IF ;
1479:
1480: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1481: RAISE fnd_api.g_exc_unexpected_error;
1476: IF l_return_status = fnd_api.g_ret_sts_error THEN
1477: RAISE fnd_api.g_exc_error;
1478: END IF ;
1479:
1480: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1481: RAISE fnd_api.g_exc_unexpected_error;
1482: END IF;
1483:
1484: x_return_status := l_return_status;
1477: RAISE fnd_api.g_exc_error;
1478: END IF ;
1479:
1480: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1481: RAISE fnd_api.g_exc_unexpected_error;
1482: END IF;
1483:
1484: x_return_status := l_return_status;
1485:
1484: x_return_status := l_return_status;
1485:
1486: EXCEPTION
1487:
1488: WHEN fnd_api.g_exc_error THEN
1489: x_return_status := fnd_api.g_ret_sts_error;
1490:
1491: -- Get message count and data
1492: fnd_msg_pub.count_and_get
1485:
1486: EXCEPTION
1487:
1488: WHEN fnd_api.g_exc_error THEN
1489: x_return_status := fnd_api.g_ret_sts_error;
1490:
1491: -- Get message count and data
1492: fnd_msg_pub.count_and_get
1493: ( p_count => x_msg_count
1494: , p_data => x_msg_data
1495: , p_encoded => 'F'
1496: );
1497:
1498: WHEN fnd_api.g_exc_unexpected_error THEN
1499: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1500:
1501: -- Get message count and data
1502: fnd_msg_pub.count_and_get
1495: , p_encoded => 'F'
1496: );
1497:
1498: WHEN fnd_api.g_exc_unexpected_error THEN
1499: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1500:
1501: -- Get message count and data
1502: fnd_msg_pub.count_and_get
1503: ( p_count => x_msg_count
1505: , p_encoded => 'F'
1506: );
1507:
1508: WHEN OTHERS THEN
1509: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1510:
1511: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1512: THEN
1513: fnd_msg_pub.add_exc_msg
1526:
1527: PROCEDURE get_reservable_quantity
1528: (
1529: p_api_version_number IN NUMBER
1530: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
1531: , x_return_status OUT NOCOPY VARCHAR2
1532: , x_msg_count OUT NOCOPY NUMBER
1533: , x_msg_data OUT NOCOPY VARCHAR2
1534: , p_reservation_id IN NUMBER
1561: -- R12 Project : SU
1562: lx_Qty_Available Number;
1563: BEGIN
1564: -- Initialize return status
1565: x_return_status := fnd_api.g_ret_sts_success;
1566:
1567: -- Standard call to check for call compatibility
1568: IF NOT fnd_api.compatible_api_call(l_api_version_number
1569: , p_api_version_number
1564: -- Initialize return status
1565: x_return_status := fnd_api.g_ret_sts_success;
1566:
1567: -- Standard call to check for call compatibility
1568: IF NOT fnd_api.compatible_api_call(l_api_version_number
1569: , p_api_version_number
1570: , l_api_name
1571: , G_PKG_NAME
1572: ) THEN
1569: , p_api_version_number
1570: , l_api_name
1571: , G_PKG_NAME
1572: ) THEN
1573: RAISE fnd_api.g_exc_unexpected_error;
1574: END IF;
1575: --
1576: -- Initialize message list.
1577: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1573: RAISE fnd_api.g_exc_unexpected_error;
1574: END IF;
1575: --
1576: -- Initialize message list.
1577: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1578: fnd_msg_pub.initialize;
1579: END IF;
1580:
1581: if p_demand_type_id in (inv_reservation_global.g_source_type_oe,
1678: ,p_Task_Id => P_Task_Id
1679: ,p_API_Version_Number => 1.0
1680: ,p_Init_Msg_Lst => p_Init_Msg_lst );
1681:
1682: IF x_return_status = fnd_api.g_ret_sts_error THEN
1683: RAISE fnd_api.g_exc_error;
1684: END IF ;
1685:
1686: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1679: ,p_API_Version_Number => 1.0
1680: ,p_Init_Msg_Lst => p_Init_Msg_lst );
1681:
1682: IF x_return_status = fnd_api.g_ret_sts_error THEN
1683: RAISE fnd_api.g_exc_error;
1684: END IF ;
1685:
1686: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1687: RAISE fnd_api.g_exc_unexpected_error;
1682: IF x_return_status = fnd_api.g_ret_sts_error THEN
1683: RAISE fnd_api.g_exc_error;
1684: END IF ;
1685:
1686: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1687: RAISE fnd_api.g_exc_unexpected_error;
1688: END IF;
1689: end if;
1690:
1683: RAISE fnd_api.g_exc_error;
1684: END IF ;
1685:
1686: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1687: RAISE fnd_api.g_exc_unexpected_error;
1688: END IF;
1689: end if;
1690:
1691: EXCEPTION
1689: end if;
1690:
1691: EXCEPTION
1692:
1693: WHEN fnd_api.g_exc_error THEN
1694: x_return_status := fnd_api.g_ret_sts_error;
1695: x_reservable_quantity := 0;
1696:
1697: -- Get message count and data
1690:
1691: EXCEPTION
1692:
1693: WHEN fnd_api.g_exc_error THEN
1694: x_return_status := fnd_api.g_ret_sts_error;
1695: x_reservable_quantity := 0;
1696:
1697: -- Get message count and data
1698: fnd_msg_pub.count_and_get
1700: , p_data => x_msg_data
1701: , p_encoded => 'F'
1702: );
1703:
1704: WHEN fnd_api.g_exc_unexpected_error THEN
1705: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1706: x_reservable_quantity := 0;
1707:
1708: -- Get message count and data
1701: , p_encoded => 'F'
1702: );
1703:
1704: WHEN fnd_api.g_exc_unexpected_error THEN
1705: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1706: x_reservable_quantity := 0;
1707:
1708: -- Get message count and data
1709: fnd_msg_pub.count_and_get
1712: , p_encoded => 'F'
1713: );
1714:
1715: WHEN OTHERS THEN
1716: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1717: x_reservable_quantity := 0;
1718:
1719: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1720: THEN
1735: -- GME CONVERGENCE BEGIN
1736: PROCEDURE create_move_order_header
1737: (
1738: p_api_version_number IN NUMBER
1739: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
1740: , p_organization_id IN NUMBER
1741: , x_return_status OUT NOCOPY VARCHAR2
1742: , x_msg_count OUT NOCOPY NUMBER
1743: , x_msg_data OUT NOCOPY VARCHAR2
1754: l_out_trohdr_val_rec INV_MOVE_ORDER_PUB.Trohdr_Val_Rec_Type;
1755:
1756: BEGIN
1757: -- Initialize return status
1758: x_return_status := fnd_api.g_ret_sts_success;
1759:
1760: -- Standard call to check for call compatibility
1761: IF NOT fnd_api.compatible_api_call(l_api_version_number
1762: , p_api_version_number
1757: -- Initialize return status
1758: x_return_status := fnd_api.g_ret_sts_success;
1759:
1760: -- Standard call to check for call compatibility
1761: IF NOT fnd_api.compatible_api_call(l_api_version_number
1762: , p_api_version_number
1763: , l_api_name
1764: , G_PKG_NAME
1765: ) THEN
1762: , p_api_version_number
1763: , l_api_name
1764: , G_PKG_NAME
1765: ) THEN
1766: RAISE fnd_api.g_exc_unexpected_error;
1767: END IF;
1768: --
1769: -- Initialize message list.
1770: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1766: RAISE fnd_api.g_exc_unexpected_error;
1767: END IF;
1768: --
1769: -- Initialize message list.
1770: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1771: fnd_msg_pub.initialize;
1772: END IF;
1773:
1774: l_in_trohdr_rec.organization_id := p_organization_id;
1773:
1774: l_in_trohdr_rec.organization_id := p_organization_id;
1775: l_in_trohdr_rec.move_order_type := 8;
1776: l_in_trohdr_rec.operation := inv_globals.g_opr_create;
1777: l_in_trohdr_rec.request_number := FND_API.G_MISS_CHAR;
1778: l_in_trohdr_rec.header_id := FND_API.G_MISS_NUM;
1779: l_in_trohdr_rec.creation_date := SYSDATE;
1780: l_in_trohdr_rec.created_by := l_user_id;
1781: l_in_trohdr_rec.last_update_date := SYSDATE;
1774: l_in_trohdr_rec.organization_id := p_organization_id;
1775: l_in_trohdr_rec.move_order_type := 8;
1776: l_in_trohdr_rec.operation := inv_globals.g_opr_create;
1777: l_in_trohdr_rec.request_number := FND_API.G_MISS_CHAR;
1778: l_in_trohdr_rec.header_id := FND_API.G_MISS_NUM;
1779: l_in_trohdr_rec.creation_date := SYSDATE;
1780: l_in_trohdr_rec.created_by := l_user_id;
1781: l_in_trohdr_rec.last_update_date := SYSDATE;
1782: l_in_trohdr_rec.last_updated_by := l_user_id;
1781: l_in_trohdr_rec.last_update_date := SYSDATE;
1782: l_in_trohdr_rec.last_updated_by := l_user_id;
1783: inv_move_order_pub.create_move_order_header
1784: (p_api_version_number => 1.0,
1785: p_init_msg_list => FND_API.G_FALSE,
1786: p_return_values => FND_API.G_FALSE,
1787: p_commit => FND_API.G_FALSE,
1788: x_return_status => l_return_status,
1789: x_msg_count => x_msg_count,
1782: l_in_trohdr_rec.last_updated_by := l_user_id;
1783: inv_move_order_pub.create_move_order_header
1784: (p_api_version_number => 1.0,
1785: p_init_msg_list => FND_API.G_FALSE,
1786: p_return_values => FND_API.G_FALSE,
1787: p_commit => FND_API.G_FALSE,
1788: x_return_status => l_return_status,
1789: x_msg_count => x_msg_count,
1790: x_msg_data => x_msg_data,
1783: inv_move_order_pub.create_move_order_header
1784: (p_api_version_number => 1.0,
1785: p_init_msg_list => FND_API.G_FALSE,
1786: p_return_values => FND_API.G_FALSE,
1787: p_commit => FND_API.G_FALSE,
1788: x_return_status => l_return_status,
1789: x_msg_count => x_msg_count,
1790: x_msg_data => x_msg_data,
1791: p_trohdr_rec => l_in_trohdr_rec,
1793: x_trohdr_rec => l_out_trohdr_rec,
1794: x_trohdr_val_rec => l_out_trohdr_val_rec,
1795: p_validation_flag => inv_move_order_pub.g_validation_yes);
1796:
1797: IF l_return_status = fnd_api.g_ret_sts_error THEN
1798: RAISE fnd_api.g_exc_error;
1799: END IF ;
1800:
1801: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1794: x_trohdr_val_rec => l_out_trohdr_val_rec,
1795: p_validation_flag => inv_move_order_pub.g_validation_yes);
1796:
1797: IF l_return_status = fnd_api.g_ret_sts_error THEN
1798: RAISE fnd_api.g_exc_error;
1799: END IF ;
1800:
1801: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1802: RAISE fnd_api.g_exc_unexpected_error;
1797: IF l_return_status = fnd_api.g_ret_sts_error THEN
1798: RAISE fnd_api.g_exc_error;
1799: END IF ;
1800:
1801: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1802: RAISE fnd_api.g_exc_unexpected_error;
1803: END IF;
1804:
1805: x_header_id := l_out_trohdr_rec.header_id;
1798: RAISE fnd_api.g_exc_error;
1799: END IF ;
1800:
1801: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1802: RAISE fnd_api.g_exc_unexpected_error;
1803: END IF;
1804:
1805: x_header_id := l_out_trohdr_rec.header_id;
1806:
1805: x_header_id := l_out_trohdr_rec.header_id;
1806:
1807: EXCEPTION
1808:
1809: WHEN fnd_api.g_exc_error THEN
1810: x_return_status := fnd_api.g_ret_sts_error;
1811:
1812: -- Get message count and data
1813: fnd_msg_pub.count_and_get
1806:
1807: EXCEPTION
1808:
1809: WHEN fnd_api.g_exc_error THEN
1810: x_return_status := fnd_api.g_ret_sts_error;
1811:
1812: -- Get message count and data
1813: fnd_msg_pub.count_and_get
1814: ( p_count => x_msg_count
1815: , p_data => x_msg_data
1816: , p_encoded => 'F'
1817: );
1818:
1819: WHEN fnd_api.g_exc_unexpected_error THEN
1820: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1821:
1822: -- Get message count and data
1823: fnd_msg_pub.count_and_get
1816: , p_encoded => 'F'
1817: );
1818:
1819: WHEN fnd_api.g_exc_unexpected_error THEN
1820: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1821:
1822: -- Get message count and data
1823: fnd_msg_pub.count_and_get
1824: ( p_count => x_msg_count
1826: , p_encoded => 'F'
1827: );
1828:
1829: WHEN OTHERS THEN
1830: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1831:
1832: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1833: THEN
1834: fnd_msg_pub.add_exc_msg
1847:
1848: PROCEDURE create_move_order_line
1849: (
1850: p_api_version_number IN NUMBER
1851: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
1852: , p_organization_id IN NUMBER
1853: , p_move_order_header_id IN NUMBER
1854: , p_inventory_item_id IN NUMBER
1855: , p_quantity IN NUMBER
1878: l_out_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type;
1879:
1880: BEGIN
1881: -- Initialize return status
1882: x_return_status := fnd_api.g_ret_sts_success;
1883:
1884: -- Standard call to check for call compatibility
1885: IF NOT fnd_api.compatible_api_call(l_api_version_number
1886: , p_api_version_number
1881: -- Initialize return status
1882: x_return_status := fnd_api.g_ret_sts_success;
1883:
1884: -- Standard call to check for call compatibility
1885: IF NOT fnd_api.compatible_api_call(l_api_version_number
1886: , p_api_version_number
1887: , l_api_name
1888: , G_PKG_NAME
1889: ) THEN
1886: , p_api_version_number
1887: , l_api_name
1888: , G_PKG_NAME
1889: ) THEN
1890: RAISE fnd_api.g_exc_unexpected_error;
1891: END IF;
1892: --
1893: -- Initialize message list.
1894: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1890: RAISE fnd_api.g_exc_unexpected_error;
1891: END IF;
1892: --
1893: -- Initialize message list.
1894: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1895: fnd_msg_pub.initialize;
1896: END IF;
1897:
1898: l_in_trolin_tbl(1).operation := inv_globals.g_opr_create;
1929: -- bug 5671641 end
1930:
1931: inv_move_order_pub.create_move_order_lines
1932: (p_api_version_number => 1.0,
1933: p_init_msg_list => FND_API.G_FALSE,
1934: p_return_values => FND_API.G_FALSE,
1935: p_commit => FND_API.G_FALSE,
1936: x_return_status => l_return_status,
1937: x_msg_count => x_msg_count,
1930:
1931: inv_move_order_pub.create_move_order_lines
1932: (p_api_version_number => 1.0,
1933: p_init_msg_list => FND_API.G_FALSE,
1934: p_return_values => FND_API.G_FALSE,
1935: p_commit => FND_API.G_FALSE,
1936: x_return_status => l_return_status,
1937: x_msg_count => x_msg_count,
1938: x_msg_data => x_msg_data,
1931: inv_move_order_pub.create_move_order_lines
1932: (p_api_version_number => 1.0,
1933: p_init_msg_list => FND_API.G_FALSE,
1934: p_return_values => FND_API.G_FALSE,
1935: p_commit => FND_API.G_FALSE,
1936: x_return_status => l_return_status,
1937: x_msg_count => x_msg_count,
1938: x_msg_data => x_msg_data,
1939: p_trolin_tbl => l_in_trolin_tbl,
1941: x_trolin_tbl => l_out_trolin_tbl,
1942: x_trolin_val_tbl => l_out_trolin_val_tbl,
1943: p_validation_flag => inv_move_order_pub.g_validation_yes);
1944:
1945: IF l_return_status = fnd_api.g_ret_sts_error THEN
1946: RAISE fnd_api.g_exc_error;
1947: END IF ;
1948:
1949: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1942: x_trolin_val_tbl => l_out_trolin_val_tbl,
1943: p_validation_flag => inv_move_order_pub.g_validation_yes);
1944:
1945: IF l_return_status = fnd_api.g_ret_sts_error THEN
1946: RAISE fnd_api.g_exc_error;
1947: END IF ;
1948:
1949: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1950: RAISE fnd_api.g_exc_unexpected_error;
1945: IF l_return_status = fnd_api.g_ret_sts_error THEN
1946: RAISE fnd_api.g_exc_error;
1947: END IF ;
1948:
1949: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1950: RAISE fnd_api.g_exc_unexpected_error;
1951: END IF;
1952:
1953: x_line_id := l_out_trolin_tbl(1).line_id;
1946: RAISE fnd_api.g_exc_error;
1947: END IF ;
1948:
1949: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1950: RAISE fnd_api.g_exc_unexpected_error;
1951: END IF;
1952:
1953: x_line_id := l_out_trolin_tbl(1).line_id;
1954:
1953: x_line_id := l_out_trolin_tbl(1).line_id;
1954:
1955: EXCEPTION
1956:
1957: WHEN fnd_api.g_exc_error THEN
1958: x_return_status := fnd_api.g_ret_sts_error;
1959:
1960: -- Get message count and data
1961: fnd_msg_pub.count_and_get
1954:
1955: EXCEPTION
1956:
1957: WHEN fnd_api.g_exc_error THEN
1958: x_return_status := fnd_api.g_ret_sts_error;
1959:
1960: -- Get message count and data
1961: fnd_msg_pub.count_and_get
1962: ( p_count => x_msg_count
1963: , p_data => x_msg_data
1964: , p_encoded => 'F'
1965: );
1966:
1967: WHEN fnd_api.g_exc_unexpected_error THEN
1968: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1969:
1970: -- Get message count and data
1971: fnd_msg_pub.count_and_get
1964: , p_encoded => 'F'
1965: );
1966:
1967: WHEN fnd_api.g_exc_unexpected_error THEN
1968: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1969:
1970: -- Get message count and data
1971: fnd_msg_pub.count_and_get
1972: ( p_count => x_msg_count
1974: , p_encoded => 'F'
1975: );
1976:
1977: WHEN OTHERS THEN
1978: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1979:
1980: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1981: THEN
1982: fnd_msg_pub.add_exc_msg
1995:
1996: PROCEDURE delete_move_order
1997: (
1998: p_api_version_number IN NUMBER
1999: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
2000: , p_move_order_header_id IN NUMBER
2001: , x_return_status OUT NOCOPY VARCHAR2
2002: , x_msg_count OUT NOCOPY NUMBER
2003: , x_msg_data OUT NOCOPY VARCHAR2
2014: l_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type;
2015:
2016: BEGIN
2017: -- Initialize return status
2018: x_return_status := fnd_api.g_ret_sts_success;
2019:
2020: -- Standard call to check for call compatibility
2021: IF NOT fnd_api.compatible_api_call(l_api_version_number
2022: , p_api_version_number
2017: -- Initialize return status
2018: x_return_status := fnd_api.g_ret_sts_success;
2019:
2020: -- Standard call to check for call compatibility
2021: IF NOT fnd_api.compatible_api_call(l_api_version_number
2022: , p_api_version_number
2023: , l_api_name
2024: , G_PKG_NAME
2025: ) THEN
2022: , p_api_version_number
2023: , l_api_name
2024: , G_PKG_NAME
2025: ) THEN
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: --
2029: -- Initialize message list.
2030: IF fnd_api.to_boolean(p_init_msg_lst) THEN
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: --
2029: -- Initialize message list.
2030: IF fnd_api.to_boolean(p_init_msg_lst) THEN
2031: fnd_msg_pub.initialize;
2032: END IF;
2033:
2034: l_in_trohdr_rec.operation := inv_globals.g_opr_delete;
2034: l_in_trohdr_rec.operation := inv_globals.g_opr_delete;
2035: l_in_trohdr_rec.header_id := p_move_order_header_id;
2036: inv_move_order_pub.process_move_order
2037: (p_api_version_number => 1.0,
2038: p_init_msg_list => FND_API.G_TRUE,
2039: p_return_values => FND_API.G_FALSE,
2040: p_commit => FND_API.G_FALSE,
2041: x_return_status => l_return_status,
2042: x_msg_count => x_msg_count,
2035: l_in_trohdr_rec.header_id := p_move_order_header_id;
2036: inv_move_order_pub.process_move_order
2037: (p_api_version_number => 1.0,
2038: p_init_msg_list => FND_API.G_TRUE,
2039: p_return_values => FND_API.G_FALSE,
2040: p_commit => FND_API.G_FALSE,
2041: x_return_status => l_return_status,
2042: x_msg_count => x_msg_count,
2043: x_msg_data => x_msg_data,
2036: inv_move_order_pub.process_move_order
2037: (p_api_version_number => 1.0,
2038: p_init_msg_list => FND_API.G_TRUE,
2039: p_return_values => FND_API.G_FALSE,
2040: p_commit => FND_API.G_FALSE,
2041: x_return_status => l_return_status,
2042: x_msg_count => x_msg_count,
2043: x_msg_data => x_msg_data,
2044: p_trohdr_rec => l_in_trohdr_rec,
2046: x_trohdr_val_rec => l_trohdr_val_rec,
2047: x_trolin_tbl => l_trolin_tbl,
2048: x_trolin_val_tbl => l_trolin_val_tbl);
2049:
2050: IF l_return_status = fnd_api.g_ret_sts_error THEN
2051: RAISE fnd_api.g_exc_error;
2052: END IF ;
2053:
2054: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2047: x_trolin_tbl => l_trolin_tbl,
2048: x_trolin_val_tbl => l_trolin_val_tbl);
2049:
2050: IF l_return_status = fnd_api.g_ret_sts_error THEN
2051: RAISE fnd_api.g_exc_error;
2052: END IF ;
2053:
2054: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2055: RAISE fnd_api.g_exc_unexpected_error;
2050: IF l_return_status = fnd_api.g_ret_sts_error THEN
2051: RAISE fnd_api.g_exc_error;
2052: END IF ;
2053:
2054: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2055: RAISE fnd_api.g_exc_unexpected_error;
2056: END IF;
2057:
2058:
2051: RAISE fnd_api.g_exc_error;
2052: END IF ;
2053:
2054: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2055: RAISE fnd_api.g_exc_unexpected_error;
2056: END IF;
2057:
2058:
2059: EXCEPTION
2057:
2058:
2059: EXCEPTION
2060:
2061: WHEN fnd_api.g_exc_error THEN
2062: x_return_status := fnd_api.g_ret_sts_error;
2063:
2064: -- Get message count and data
2065: fnd_msg_pub.count_and_get
2058:
2059: EXCEPTION
2060:
2061: WHEN fnd_api.g_exc_error THEN
2062: x_return_status := fnd_api.g_ret_sts_error;
2063:
2064: -- Get message count and data
2065: fnd_msg_pub.count_and_get
2066: ( p_count => x_msg_count
2067: , p_data => x_msg_data
2068: , p_encoded => 'F'
2069: );
2070:
2071: WHEN fnd_api.g_exc_unexpected_error THEN
2072: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2073:
2074: -- Get message count and data
2075: fnd_msg_pub.count_and_get
2068: , p_encoded => 'F'
2069: );
2070:
2071: WHEN fnd_api.g_exc_unexpected_error THEN
2072: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2073:
2074: -- Get message count and data
2075: fnd_msg_pub.count_and_get
2076: ( p_count => x_msg_count
2078: , p_encoded => 'F'
2079: );
2080:
2081: WHEN OTHERS THEN
2082: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2083:
2084: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2085: THEN
2086: fnd_msg_pub.add_exc_msg