10: -- HISTORY
11: -- 10/09/99 khung Create.
12: ---------------------------------------------------------------------
13:
14: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE create_deliv_kit_item
11: -- 10/09/99 khung Create.
12: ---------------------------------------------------------------------
13:
14: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE create_deliv_kit_item
19: (
12: ---------------------------------------------------------------------
13:
14: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
15: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
16: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
17:
18: PROCEDURE create_deliv_kit_item
19: (
20: p_api_version IN NUMBER,
72: AMS_Utility_PVT.debug_message(l_full_name||': start');
73: END IF;
74:
75: IF FND_API.to_boolean(p_init_msg_list) THEN
76: FND_MSG_PUB.initialize;
77: END IF;
78:
79: IF NOT FND_API.compatible_api_call
80: (
123: CLOSE c_deliv_kit_part_flag;
124:
125: IF (l_kit_flag = 'Y')
126: THEN
127: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
128: THEN
129: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KITPART_NOT_KIT');
130: FND_MSG_PUB.add;
131: END IF;
126: THEN
127: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
128: THEN
129: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KITPART_NOT_KIT');
130: FND_MSG_PUB.add;
131: END IF;
132: RAISE FND_API.g_exc_error;
133: END IF;
134:
138: CLOSE c_deliv_kit_part_count;
139:
140: IF (l_kit_part_count <> 0)
141: THEN
142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
143: THEN
144: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NOT_KITPART');
145: FND_MSG_PUB.add;
146: END IF;
141: THEN
142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
143: THEN
144: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NOT_KITPART');
145: FND_MSG_PUB.add;
146: END IF;
147: RAISE FND_API.g_exc_error;
148: END IF;
149: */
266: IF FND_API.to_boolean(p_commit) THEN
267: COMMIT;
268: END IF;
269:
270: FND_MSG_PUB.count_and_get(
271: p_encoded => FND_API.g_false,
272: p_count => x_msg_count,
273: p_data => x_msg_data
274: );
285:
286: WHEN FND_API.g_exc_error THEN
287: ROLLBACK TO create_deliv_kit_item;
288: x_return_status := FND_API.g_ret_sts_error;
289: FND_MSG_PUB.count_and_get(
290: p_encoded => FND_API.g_false,
291: p_count => x_msg_count,
292: p_data => x_msg_data
293: );
294:
295: WHEN FND_API.g_exc_unexpected_error THEN
296: ROLLBACK TO create_deliv_kit_item;
297: x_return_status := FND_API.g_ret_sts_unexp_error ;
298: FND_MSG_PUB.count_and_get(
299: p_encoded => FND_API.g_false,
300: p_count => x_msg_count,
301: p_data => x_msg_data
302: );
305: WHEN OTHERS THEN
306: ROLLBACK TO create_deliv_kit_item;
307: x_return_status := FND_API.g_ret_sts_unexp_error ;
308:
309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
310: THEN
311: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
312: END IF;
313:
307: x_return_status := FND_API.g_ret_sts_unexp_error ;
308:
309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
310: THEN
311: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
312: END IF;
313:
314: FND_MSG_PUB.count_and_get(
315: p_encoded => FND_API.g_false,
310: THEN
311: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
312: END IF;
313:
314: FND_MSG_PUB.count_and_get(
315: p_encoded => FND_API.g_false,
316: p_count => x_msg_count,
317: p_data => x_msg_data
318: );
377:
378: END IF;
379:
380: IF FND_API.to_boolean(p_init_msg_list) THEN
381: FND_MSG_PUB.initialize;
382: END IF;
383:
384: IF NOT FND_API.compatible_api_call(
385: l_api_version,
410: WHERE deliverable_kit_item_id = p_deliv_kit_item_id
411: AND object_version_number = p_object_version;
412:
413: IF (SQL%NOTFOUND) THEN
414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
415: THEN
416: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
417: FND_MSG_PUB.add;
418: END IF;
413: IF (SQL%NOTFOUND) THEN
414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
415: THEN
416: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
417: FND_MSG_PUB.add;
418: END IF;
419: RAISE FND_API.g_exc_error;
420: END IF;
421:
473: IF FND_API.to_boolean(p_commit) THEN
474: COMMIT;
475: END IF;
476:
477: FND_MSG_PUB.count_and_get(
478: p_encoded => FND_API.g_false,
479: p_count => x_msg_count,
480: p_data => x_msg_data
481: );
492:
493: WHEN FND_API.g_exc_error THEN
494: ROLLBACK TO delete_deliv_kit_item;
495: x_return_status := FND_API.g_ret_sts_error;
496: FND_MSG_PUB.count_and_get(
497: p_encoded => FND_API.g_false,
498: p_count => x_msg_count,
499: p_data => x_msg_data
500: );
501:
502: WHEN FND_API.g_exc_unexpected_error THEN
503: ROLLBACK TO delete_deliv_kit_item;
504: x_return_status := FND_API.g_ret_sts_unexp_error ;
505: FND_MSG_PUB.count_and_get(
506: p_encoded => FND_API.g_false,
507: p_count => x_msg_count,
508: p_data => x_msg_data
509: );
511: WHEN OTHERS THEN
512: ROLLBACK TO delete_deliv_kit_item;
513: x_return_status := FND_API.g_ret_sts_unexp_error ;
514:
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
516: THEN
517: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
518: END IF;
519:
513: x_return_status := FND_API.g_ret_sts_unexp_error ;
514:
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
516: THEN
517: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
518: END IF;
519:
520: FND_MSG_PUB.count_and_get(
521: p_encoded => FND_API.g_false,
516: THEN
517: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
518: END IF;
519:
520: FND_MSG_PUB.count_and_get(
521: p_encoded => FND_API.g_false,
522: p_count => x_msg_count,
523: p_data => x_msg_data
524: );
569: AMS_Utility_PVT.debug_message(l_full_name||': start');
570: END IF;
571:
572: IF FND_API.to_boolean(p_init_msg_list) THEN
573: FND_MSG_PUB.initialize;
574: END IF;
575:
576: IF NOT FND_API.compatible_api_call(
577: l_api_version,
593: OPEN c_deliv_kit_item;
594: FETCH c_deliv_kit_item INTO l_deliv_kit_item_id;
595: IF (c_deliv_kit_item%NOTFOUND) THEN
596: CLOSE c_deliv_kit_item;
597: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
598: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
599: FND_MSG_PUB.add;
600: END IF;
601: RAISE FND_API.g_exc_error;
595: IF (c_deliv_kit_item%NOTFOUND) THEN
596: CLOSE c_deliv_kit_item;
597: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
598: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
599: FND_MSG_PUB.add;
600: END IF;
601: RAISE FND_API.g_exc_error;
602: END IF;
603: CLOSE c_deliv_kit_item;
602: END IF;
603: CLOSE c_deliv_kit_item;
604:
605: -------------------- finish --------------------------
606: FND_MSG_PUB.count_and_get(
607: p_encoded => FND_API.g_false,
608: p_count => x_msg_count,
609: p_data => x_msg_data
610: );
620: EXCEPTION
621:
622: WHEN AMS_Utility_PVT.resource_locked THEN
623: x_return_status := FND_API.g_ret_sts_error;
624: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
625: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
626: FND_MSG_PUB.add;
627: END IF;
628:
622: WHEN AMS_Utility_PVT.resource_locked THEN
623: x_return_status := FND_API.g_ret_sts_error;
624: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
625: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
626: FND_MSG_PUB.add;
627: END IF;
628:
629: FND_MSG_PUB.count_and_get(
630: p_encoded => FND_API.g_false,
625: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
626: FND_MSG_PUB.add;
627: END IF;
628:
629: FND_MSG_PUB.count_and_get(
630: p_encoded => FND_API.g_false,
631: p_count => x_msg_count,
632: p_data => x_msg_data
633: );
633: );
634:
635: WHEN FND_API.g_exc_error THEN
636: x_return_status := FND_API.g_ret_sts_error;
637: FND_MSG_PUB.count_and_get(
638: p_encoded => FND_API.g_false,
639: p_count => x_msg_count,
640: p_data => x_msg_data
641: );
641: );
642:
643: WHEN FND_API.g_exc_unexpected_error THEN
644: x_return_status := FND_API.g_ret_sts_unexp_error ;
645: FND_MSG_PUB.count_and_get(
646: p_encoded => FND_API.g_false,
647: p_count => x_msg_count,
648: p_data => x_msg_data
649: );
649: );
650:
651: WHEN OTHERS THEN
652: x_return_status := FND_API.g_ret_sts_unexp_error ;
653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
654: THEN
655: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
656: END IF;
657:
651: WHEN OTHERS THEN
652: x_return_status := FND_API.g_ret_sts_unexp_error ;
653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
654: THEN
655: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
656: END IF;
657:
658: FND_MSG_PUB.count_and_get(
659: p_encoded => FND_API.g_false,
654: THEN
655: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
656: END IF;
657:
658: FND_MSG_PUB.count_and_get(
659: p_encoded => FND_API.g_false,
660: p_count => x_msg_count,
661: p_data => x_msg_data
662: );
708:
709: END IF;
710:
711: IF FND_API.to_boolean(p_init_msg_list) THEN
712: FND_MSG_PUB.initialize;
713: END IF;
714:
715: IF NOT FND_API.compatible_api_call(
716: l_api_version,
796: WHERE deliverable_kit_item_id = l_deliv_kit_item_rec.deliverable_kit_item_id
797: AND object_version_number = l_deliv_kit_item_rec.object_version_number;
798:
799: IF (SQL%NOTFOUND) THEN
800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
801: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
802: FND_MSG_PUB.add;
803: END IF;
804: RAISE FND_API.g_exc_error;
798:
799: IF (SQL%NOTFOUND) THEN
800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
801: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
802: FND_MSG_PUB.add;
803: END IF;
804: RAISE FND_API.g_exc_error;
805: END IF;
806:
808: IF FND_API.to_boolean(p_commit) THEN
809: COMMIT;
810: END IF;
811:
812: FND_MSG_PUB.count_and_get(
813: p_encoded => FND_API.g_false,
814: p_count => x_msg_count,
815: p_data => x_msg_data
816: );
827:
828: WHEN FND_API.g_exc_error THEN
829: ROLLBACK TO update_deliv_kit_item;
830: x_return_status := FND_API.g_ret_sts_error;
831: FND_MSG_PUB.count_and_get(
832: p_encoded => FND_API.g_false,
833: p_count => x_msg_count,
834: p_data => x_msg_data
835: );
836:
837: WHEN FND_API.g_exc_unexpected_error THEN
838: ROLLBACK TO update_deliv_kit_item;
839: x_return_status := FND_API.g_ret_sts_unexp_error ;
840: FND_MSG_PUB.count_and_get(
841: p_encoded => FND_API.g_false,
842: p_count => x_msg_count,
843: p_data => x_msg_data
844: );
846: WHEN OTHERS THEN
847: ROLLBACK TO update_deliv_kit_item;
848: x_return_status := FND_API.g_ret_sts_unexp_error ;
849:
850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
851: THEN
852: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
853: END IF;
854:
848: x_return_status := FND_API.g_ret_sts_unexp_error ;
849:
850: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
851: THEN
852: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
853: END IF;
854:
855: FND_MSG_PUB.count_and_get(
856: p_encoded => FND_API.g_false,
851: THEN
852: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
853: END IF;
854:
855: FND_MSG_PUB.count_and_get(
856: p_encoded => FND_API.g_false,
857: p_count => x_msg_count,
858: p_data => x_msg_data
859: );
895: AMS_Utility_PVT.debug_message(l_full_name||': start');
896: END IF;
897:
898: IF FND_API.to_boolean(p_init_msg_list) THEN
899: FND_MSG_PUB.initialize;
900: END IF;
901:
902: IF NOT FND_API.compatible_api_call(
903: l_api_version,
949: END IF;
950: END IF;
951:
952: -------------------- finish --------------------------
953: FND_MSG_PUB.count_and_get
954: (
955: p_encoded => FND_API.g_false,
956: p_count => x_msg_count,
957: p_data => x_msg_data
968: EXCEPTION
969:
970: WHEN FND_API.g_exc_error THEN
971: x_return_status := FND_API.g_ret_sts_error;
972: FND_MSG_PUB.count_and_get(
973: p_encoded => FND_API.g_false,
974: p_count => x_msg_count,
975: p_data => x_msg_data
976: );
976: );
977:
978: WHEN FND_API.g_exc_unexpected_error THEN
979: x_return_status := FND_API.g_ret_sts_unexp_error ;
980: FND_MSG_PUB.count_and_get(
981: p_encoded => FND_API.g_false,
982: p_count => x_msg_count,
983: p_data => x_msg_data
984: );
984: );
985:
986: WHEN OTHERS THEN
987: x_return_status := FND_API.g_ret_sts_unexp_error;
988: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
989: THEN
990: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
991: END IF;
992:
986: WHEN OTHERS THEN
987: x_return_status := FND_API.g_ret_sts_unexp_error;
988: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
989: THEN
990: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
991: END IF;
992:
993: FND_MSG_PUB.count_and_get
994: (
989: THEN
990: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
991: END IF;
992:
993: FND_MSG_PUB.count_and_get
994: (
995: p_encoded => FND_API.g_false,
996: p_count => x_msg_count,
997: p_data => x_msg_data
1021:
1022: -------------------- put required items here ---------------------
1023:
1024: IF p_deliv_kit_item_rec.deliverable_kit_id IS NULL THEN
1025: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1026: THEN
1027: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NO_KIT_ID');
1028: FND_MSG_PUB.add;
1029: END IF;
1024: IF p_deliv_kit_item_rec.deliverable_kit_id IS NULL THEN
1025: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1026: THEN
1027: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NO_KIT_ID');
1028: FND_MSG_PUB.add;
1029: END IF;
1030:
1031: x_return_status := FND_API.g_ret_sts_error;
1032: RETURN;
1032: RETURN;
1033: END IF;
1034:
1035: IF p_deliv_kit_item_rec.deliverable_kit_part_id IS NULL THEN
1036: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1037: THEN
1038: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NO_KIT_PART_ID');
1039: FND_MSG_PUB.add;
1040: END IF;
1035: IF p_deliv_kit_item_rec.deliverable_kit_part_id IS NULL THEN
1036: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1037: THEN
1038: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_NO_KIT_PART_ID');
1039: FND_MSG_PUB.add;
1040: END IF;
1041:
1042: x_return_status := FND_API.g_ret_sts_error;
1043: RETURN;
1075: 'ams_deliv_kit_items',
1076: 'deliverable_kit_item_id = ' || p_deliv_kit_item_rec.deliverable_kit_item_id
1077: ) = FND_API.g_false
1078: THEN
1079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1080: THEN
1081: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_ITEM_DUP_ID');
1082: FND_MSG_PUB.add;
1083: END IF;
1078: THEN
1079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1080: THEN
1081: FND_MESSAGE.set_name('AMS', 'AMS_DELIV_KIT_ITEM_DUP_ID');
1082: FND_MSG_PUB.add;
1083: END IF;
1084: x_return_status := FND_API.g_ret_sts_error;
1085: RETURN;
1086: END IF;
1471: OPEN c_deliv_kit_item;
1472: FETCH c_deliv_kit_item INTO l_deliv_kit_item_rec;
1473: IF c_deliv_kit_item%NOTFOUND THEN
1474: CLOSE c_deliv_kit_item;
1475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1476: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1477: FND_MSG_PUB.add;
1478: END IF;
1479: RAISE FND_API.g_exc_error;
1473: IF c_deliv_kit_item%NOTFOUND THEN
1474: CLOSE c_deliv_kit_item;
1475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1476: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1477: FND_MSG_PUB.add;
1478: END IF;
1479: RAISE FND_API.g_exc_error;
1480: END IF;
1481: CLOSE c_deliv_kit_item;