[Home] [Help]
68: --------------------- initialize -----------------------
69: SAVEPOINT create_deliv_kit_item;
70:
71: IF (AMS_DEBUG_HIGH_ON) THEN
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;
90:
91: ----------------------- validate -----------------------
92: IF (AMS_DEBUG_HIGH_ON) THEN
93:
94: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
95: END IF;
96:
97: validate_deliv_kit_item
98: (
112: END IF;
113:
114: -------------------------- insert --------------------------
115: IF (AMS_DEBUG_HIGH_ON) THEN
116: AMS_Utility_PVT.debug_message(l_full_name ||': insert');
117: END IF;
118:
119: -- check the kit_flag for kit_part_item
120: -- return false if this kit_part_item is also a kit
276: IF (AMS_DEBUG_HIGH_ON) THEN
277:
278:
279:
280: AMS_Utility_PVT.debug_message(l_full_name ||': end');
281:
282: END IF;
283:
284: EXCEPTION
372: IF (AMS_DEBUG_HIGH_ON) THEN
373:
374:
375:
376: AMS_Utility_PVT.debug_message(l_full_name||': start');
377:
378: END IF;
379:
380: IF FND_API.to_boolean(p_init_msg_list) THEN
394:
395: ------------------------ delete ------------------------
396: IF (AMS_DEBUG_HIGH_ON) THEN
397:
398: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
399: END IF;
400:
401: OPEN c_kit_id(p_deliv_kit_item_id);
402: FETCH c_kit_id INTO l_kit_id;
422: IF (AMS_DEBUG_HIGH_ON) THEN
423:
424:
425:
426: AMS_Utility_PVT.debug_message(l_full_name ||': after delete');
427:
428: END IF;
429:
430: -- check if there are kit_part associated with this kit after the delete
483: IF (AMS_DEBUG_HIGH_ON) THEN
484:
485:
486:
487: AMS_Utility_PVT.debug_message(l_full_name ||': end');
488:
489: END IF;
490:
491: EXCEPTION
565:
566: -------------------- initialize ------------------------
567: IF (AMS_DEBUG_HIGH_ON) THEN
568:
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;
586:
587: ------------------------ lock -------------------------
588: IF (AMS_DEBUG_HIGH_ON) THEN
589:
590: AMS_Utility_PVT.debug_message(l_full_name||': lock');
591: END IF;
592:
593: OPEN c_deliv_kit_item;
594: FETCH c_deliv_kit_item INTO l_deliv_kit_item_id;
612: IF (AMS_DEBUG_HIGH_ON) THEN
613:
614:
615:
616: AMS_Utility_PVT.debug_message(l_full_name ||': end');
617:
618: END IF;
619:
620: EXCEPTION
618: END IF;
619:
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;
703: IF (AMS_DEBUG_HIGH_ON) THEN
704:
705:
706:
707: AMS_Utility_PVT.debug_message(l_full_name||': start');
708:
709: END IF;
710:
711: IF FND_API.to_boolean(p_init_msg_list) THEN
725:
726: ----------------------- validate ----------------------
727: IF (AMS_DEBUG_HIGH_ON) THEN
728:
729: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
730: END IF;
731:
732: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
733: check_deliv_kit_item_items
764:
765: -------------------------- update --------------------
766: IF (AMS_DEBUG_HIGH_ON) THEN
767:
768: AMS_Utility_PVT.debug_message(l_full_name ||': update');
769: END IF;
770:
771: UPDATE ams_deliv_kit_items SET
772: last_update_date = SYSDATE,
818: IF (AMS_DEBUG_HIGH_ON) THEN
819:
820:
821:
822: AMS_Utility_PVT.debug_message(l_full_name ||': end');
823:
824: END IF;
825:
826: EXCEPTION
891: BEGIN
892:
893: ----------------------- initialize --------------------
894: IF (AMS_DEBUG_HIGH_ON) THEN
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;
911: x_return_status := FND_API.g_ret_sts_success;
912:
913: ---------------------- validate ------------------------
914: IF (AMS_DEBUG_HIGH_ON) THEN
915: AMS_Utility_PVT.debug_message(l_full_name||': check items');
916: END IF;
917:
918: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
919: check_deliv_kit_item_items
930: END IF;
931: END IF;
932:
933: IF (AMS_DEBUG_HIGH_ON) THEN
934: AMS_Utility_PVT.debug_message(l_full_name||': check record');
935: END IF;
936:
937: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
938: check_deliv_kit_item_record
960: IF (AMS_DEBUG_HIGH_ON) THEN
961:
962:
963:
964: AMS_Utility_PVT.debug_message(l_full_name ||': end');
965:
966: END IF;
967:
968: EXCEPTION
1070: -- check if this deliverable_kit_item_id is unique.
1071: IF p_validation_mode = JTF_PLSQL_API.g_create
1072: AND p_deliv_kit_item_rec.deliverable_kit_item_id IS NOT NULL
1073: THEN
1074: IF AMS_Utility_PVT.check_uniqueness(
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
1111: --------------------- deliverable_kit_id ----------------------------
1112: IF p_deliv_kit_item_rec.deliverable_kit_id <> FND_API.g_miss_num
1113: AND p_deliv_kit_item_rec.deliverable_kit_id IS NOT NULL
1114: THEN
1115: IF AMS_Utility_PVT.check_fk_exists(
1116: 'ams_deliverables_all_b',
1117: 'deliverable_id',
1118: p_deliv_kit_item_rec.deliverable_kit_id,
1119: AMS_Utility_PVT.g_number,
1115: IF AMS_Utility_PVT.check_fk_exists(
1116: 'ams_deliverables_all_b',
1117: 'deliverable_id',
1118: p_deliv_kit_item_rec.deliverable_kit_id,
1119: AMS_Utility_PVT.g_number,
1120: NULL
1121: ) = FND_API.g_false
1122: THEN
1123: AMS_Utility_PVT.Error_Message('AMS_DELIV_KIT_NO_KIT_ID');
1119: AMS_Utility_PVT.g_number,
1120: NULL
1121: ) = FND_API.g_false
1122: THEN
1123: AMS_Utility_PVT.Error_Message('AMS_DELIV_KIT_NO_KIT_ID');
1124: x_return_status := FND_API.g_ret_sts_error;
1125: RETURN;
1126: END IF;
1127: END IF;
1129: --------------------- deliverable_kit_part_id ----------------------------
1130: IF p_deliv_kit_item_rec.deliverable_kit_part_id <> FND_API.g_miss_num
1131: AND p_deliv_kit_item_rec.deliverable_kit_part_id IS NOT NULL
1132: THEN
1133: IF AMS_Utility_PVT.check_fk_exists(
1134: 'ams_deliverables_all_b',
1135: 'deliverable_id',
1136: p_deliv_kit_item_rec.deliverable_kit_part_id,
1137: AMS_Utility_PVT.g_number,
1133: IF AMS_Utility_PVT.check_fk_exists(
1134: 'ams_deliverables_all_b',
1135: 'deliverable_id',
1136: p_deliv_kit_item_rec.deliverable_kit_part_id,
1137: AMS_Utility_PVT.g_number,
1138: NULL
1139: ) = FND_API.g_false
1140: THEN
1141: AMS_Utility_PVT.Error_Message('AMS_DELV_KIT_TIP');
1137: AMS_Utility_PVT.g_number,
1138: NULL
1139: ) = FND_API.g_false
1140: THEN
1141: AMS_Utility_PVT.Error_Message('AMS_DELV_KIT_TIP');
1142: x_return_status := FND_API.g_ret_sts_error;
1143: RETURN;
1144: END IF;
1145: END IF;
1219: CLOSE get_type;
1220:
1221: IF l_kit_type <> l_kit_part_type
1222: THEN
1223: AMS_Utility_PVT.Error_Message('AMS_DELV_PHY_ELE_MISMATCH');
1224: -- The Deliverable kit and kit part are of different types. Please select you want to create kit for electronic
1225: -- deliverable or physical deliverable.
1226: x_return_status := FND_API.g_ret_sts_error;
1227: RETURN;
1240: CLOSE get_detail;
1241:
1242: IF l_kit_rec.type <> l_kit_part_rec.type
1243: THEN
1244: AMS_Utility_PVT.Error_Message('AMS_DELV_STO_INV_MISMATCH');
1245: -- The Deliverable kit and kit part are of different types. Please select whether you want to create kit for physically inventoried
1246: -- deliverable or physically stocked manual deliverable.
1247: x_return_status := FND_API.g_ret_sts_error;
1248: RETURN;
1251: IF l_kit_rec.type = 'PHYS'
1252: AND( l_kit_rec.quantity = -99999
1253: OR l_kit_part_rec.quantity = -99999)
1254: THEN
1255: AMS_Utility_PVT.Error_Message('AMS_DELV_KIT_NO_STOCK');
1256: -- Please make this physical deliverable kit or kit part as stock manually, by adding the quantity .
1257: x_return_status := FND_API.g_ret_sts_error;
1258: RETURN;
1259: END IF;