[Home] [Help]
599: -- Transaction type - pull seq to insert/update/delete
600: if p_transaction_type is null then
601: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
602: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Transaction Type');
603: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
604: elsif p_transaction_type NOT IN (FLM_KANBAN_MASSLOAD.kanban_add,
605: FLM_KANBAN_MASSLOAD.kanban_change,
606: FLM_KANBAN_MASSLOAD.kanban_delete)
607: then
606: FLM_KANBAN_MASSLOAD.kanban_delete)
607: then
608: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
609: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Transaction Type');
610: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
611: else
612: l_transaction_type := p_transaction_type;
613: end if;
614:
619:
620: if p_pull_seq_rec.organization_id is null then
621: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
622: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization Code');
623: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
624: end if;
625: end if;
626: elsif is_org_id_invalid(p_pull_seq_rec.organization_id) then
627: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
625: end if;
626: elsif is_org_id_invalid(p_pull_seq_rec.organization_id) then
627: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
628: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization');
629: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
630: end if;
631:
632: -- Validate inventory item id
633: if p_pull_seq_rec.inventory_item_id is null then
637:
638: if p_pull_seq_rec.inventory_item_id is null then
639: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
640: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Concatenated segments/Item Name');
641: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
642: end if;
643: end if;
644: elsif not is_inv_item_id_valid(p_inv_item_id => p_pull_seq_rec.inventory_item_id
645: ,p_org_id => p_pull_seq_rec.organization_id)
645: ,p_org_id => p_pull_seq_rec.organization_id)
646: then
647: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
648: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Inventory Item');
649: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
650: end if;
651:
652: -- Validate pull sequence
653: IF l_transaction_type = FLM_KANBAN_MASSLOAD.kanban_add THEN
676: FND_MESSAGE.SET_TOKEN('ORG_CODE', l_org_code);
677: FND_MESSAGE.SET_TOKEN('ITEM_NAME', l_item_name );
678: FND_MESSAGE.SET_TOKEN('SUB_CODE', NVL(l_subinventory, p_pull_seq_rec.subinventory_name));
679: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME', l_loc_name);
680: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
681:
682: END IF;
683:
684: ELSIF l_transaction_type IN (FLM_KANBAN_MASSLOAD.kanban_change,
712: FND_MESSAGE.SET_TOKEN('ORG_CODE', l_org_code);
713: FND_MESSAGE.SET_TOKEN('ITEM_NAME', l_item_name );
714: FND_MESSAGE.SET_TOKEN('SUB_CODE', NVL(l_subinventory, p_pull_seq_rec.subinventory_name));
715: FND_MESSAGE.SET_TOKEN('LOCATOR_NAME', l_loc_name);
716: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
717:
718: END IF;
719:
720: END IF;
843: p_pull_seq_rec.organization_code IS NULL
844: THEN
845: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
846: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization Code');
847: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
848: END IF;
849:
850: -- Inventory Item
851: IF p_pull_seq_rec.inventory_item_id IS NULL AND
852: p_pull_seq_rec.concatenated_segments IS NULL
853: THEN
854: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
855: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Concatenated segments/Item Name');
856: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
857: END IF;
858:
859: OPEN c_inv_item(p_pull_seq_rec.inventory_item_id
860: ,p_pull_seq_rec.organization_id);
861: FETCH c_inv_item into lr_inv_item;
862:
863: IF lr_inv_item.inventory_item_flag = 'N' THEN
864: FND_MESSAGE.SET_NAME('FLM','FLM_ITEM_FLAG');
865: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
866: END IF;
867:
868: IF lr_inv_item.effectivity_control = 2 THEN
869: FND_MESSAGE.SET_NAME('INV','INV_NO_EFFECTIVITY_CONTROL');
866: END IF;
867:
868: IF lr_inv_item.effectivity_control = 2 THEN
869: FND_MESSAGE.SET_NAME('INV','INV_NO_EFFECTIVITY_CONTROL');
870: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
871: END IF;
872:
873: IF lr_inv_item.stock_enabled_flag = 'N' THEN
874: FND_MESSAGE.SET_NAME('INV','INV_NOT_STOCK_ENABLED');
871: END IF;
872:
873: IF lr_inv_item.stock_enabled_flag = 'N' THEN
874: FND_MESSAGE.SET_NAME('INV','INV_NOT_STOCK_ENABLED');
875: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
876: END IF;
877:
878: IF lr_inv_item.mtl_transactions_enabled_flag = 'N' THEN
879: FND_MESSAGE.SET_NAME('FLM','FLM_TRX_ENABLED_FLAG');
876: END IF;
877:
878: IF lr_inv_item.mtl_transactions_enabled_flag = 'N' THEN
879: FND_MESSAGE.SET_NAME('FLM','FLM_TRX_ENABLED_FLAG');
880: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
881: END IF;
882:
883: IF lr_inv_item.inventory_item_status_code <> 'Active' THEN
884: FND_MESSAGE.SET_NAME('FLM','FLM_ITEM_STATUS_CODE');
881: END IF;
882:
883: IF lr_inv_item.inventory_item_status_code <> 'Active' THEN
884: FND_MESSAGE.SET_NAME('FLM','FLM_ITEM_STATUS_CODE');
885: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
886: END IF;
887:
888: CLOSE c_inv_item;
889:
896:
897: if l_subinventory IS NULL THEN
898: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
899: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Subinventory');
900: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
901: end if;
902:
903: l_locator_control := get_locator_control(p_pull_seq_rec.inventory_item_id,
904: p_pull_seq_rec.organization_id,
909: p_pull_seq_rec.locator_id IS NULL
910: THEN
911: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
912: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Locator');
913: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
914: END IF;
915:
916: IF p_pull_seq_rec.locator_id IS NOT NULL AND
917: NOT is_locator_id_valid(p_subinv_name => p_pull_seq_rec.subinventory_name,
919: p_org_id => p_pull_seq_rec.organization_id)
920: THEN
921: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
922: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Locator');
923: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
924: END IF;
925:
926: end if; -- l_transaction_type = kanban_add
927:
969: if l_source_type = inv_kanban_pvt.G_Source_Type_InterOrg then
970: --item is not inter org enabled and inter org source type selected
971: IF (NVL(lr_inv_item.internal_order_enabled_flag, 'N' ) <> 'Y' ) THEN
972: FND_MESSAGE.SET_NAME ( 'INV' , 'INV_ENTER_INTORD_ITEM' );
973: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
974: END IF;
975:
976: IF (lr_inv_item.shippable_item_flag = 'N' ) THEN
977: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_SHIPPABLE_ITEM' );
974: END IF;
975:
976: IF (lr_inv_item.shippable_item_flag = 'N' ) THEN
977: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_SHIPPABLE_ITEM' );
978: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
979: END IF;
980:
981: /* IF (lr_inv_item.returnable_flag = 'N' ) THEN
982: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_RETURNABLE_ITEM' );
979: END IF;
980:
981: /* IF (lr_inv_item.returnable_flag = 'N' ) THEN
982: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_RETURNABLE_ITEM' );
983: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
984: END IF;
985: Bug#13929621- Returnable items should be allowed for interorg transfer
986: */
987:
986: */
987:
988: IF (lr_inv_item.so_transactions_flag = 'N' ) THEN
989: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_INTERORG_ITEM' );
990: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
991: END IF;
992:
993: elsif l_source_type = inv_kanban_pvt.G_Source_Type_Supplier then
994: --if item is not purchase enabled and Supplier source type selected
993: elsif l_source_type = inv_kanban_pvt.G_Source_Type_Supplier then
994: --if item is not purchase enabled and Supplier source type selected
995: IF (NVL(lr_inv_item.purchasing_enabled_flag, 'N' ) <> 'Y') THEN
996: FND_MESSAGE.SET_NAME ( 'FLM' , 'FLM_PURCHASE_ENABLED_ITEM' );
997: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
998: END IF;
999:
1000: IF (NVL(lr_inv_item.purchasing_item_flag, 'N' ) <> 'Y') THEN
1001: FND_MESSAGE.SET_NAME ( 'INV' , 'INV_ENTER_PURCHASE_ITEM' );
998: END IF;
999:
1000: IF (NVL(lr_inv_item.purchasing_item_flag, 'N' ) <> 'Y') THEN
1001: FND_MESSAGE.SET_NAME ( 'INV' , 'INV_ENTER_PURCHASE_ITEM' );
1002: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1003: END IF;
1004:
1005: elsif l_source_type = inv_kanban_pvt.G_Source_Type_IntraOrg then
1006: --if the item is not transactable and source_type 'Intra-Org' is selected
1005: elsif l_source_type = inv_kanban_pvt.G_Source_Type_IntraOrg then
1006: --if the item is not transactable and source_type 'Intra-Org' is selected
1007: IF (NVL(lr_inv_item.mtl_transactions_enabled_flag, 'N' ) <> 'Y') THEN
1008: FND_MESSAGE.SET_NAME ( 'INV' , 'INV_ENTER_TRANSACT_ITEM' );
1009: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1010: END IF;
1011:
1012: elsif l_source_type = inv_kanban_pvt.G_Source_Type_Production then
1013: --if item is not production enabled and production source type selected
1012: elsif l_source_type = inv_kanban_pvt.G_Source_Type_Production then
1013: --if item is not production enabled and production source type selected
1014: IF (NVL(lr_inv_item.planning_make_buy_code, 0 ) <> 1 ) THEN
1015: FND_MESSAGE.SET_NAME ( 'INV' , 'INV_ENTER_MAKE_ITEM' );
1016: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1017: END IF;
1018:
1019: else
1020: FND_MESSAGE.SET_NAME ('INV' ,'INV-BAD SOURCE TYPE');
1017: END IF;
1018:
1019: else
1020: FND_MESSAGE.SET_NAME ('INV' ,'INV-BAD SOURCE TYPE');
1021: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1022: end if;
1023:
1024: -- checking if item is a reservable item
1025: IF (lr_inv_item.reservable_type = 2 AND l_source_type IN (inv_kanban_pvt.G_Source_Type_InterOrg
1025: IF (lr_inv_item.reservable_type = 2 AND l_source_type IN (inv_kanban_pvt.G_Source_Type_InterOrg
1026: ,inv_kanban_pvt.G_Source_Type_IntraOrg))
1027: THEN
1028: FND_MESSAGE.SET_NAME ('FLM' , 'FLM_NOT_RESERVABLE_ITEM');
1029: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1030: END IF;
1031: CLOSE c_inv_item;
1032:
1033: end if;
1041: /*if p_pull_seq_rec.source_organization_id is null
1042: then
1043: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
1044: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source Organization Id');
1045: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1046: else*/
1047:
1048: --Default Source org id as org id if intra org
1049: if l_source_type = INV_Kanban_PVT.G_Source_type_IntraOrg then
1054: if p_pull_seq_rec.source_subinventory is null
1055: then
1056: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
1057: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source Subinventory',TRUE);
1058: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1059: else
1060: -- validate source subinventory
1061: OPEN c_subinv(p_subinv_name => p_pull_seq_rec.source_subinventory
1062: ,p_org_id => p_pull_seq_rec.source_organization_id);
1065:
1066: if l_source_subinventory IS NULL THEN
1067: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1068: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source Subinventory');
1069: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1070: end if;
1071: end if;
1072: else -- source org_id is null and source type Inter org
1073: p_pull_seq_rec.source_subinventory := null;
1083: p_pull_seq_rec.source_locator_id IS NULL
1084: THEN
1085: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
1086: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Source Locator');
1087: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1088: END IF;
1089:
1090: IF p_pull_seq_rec.source_locator_id IS NOT NULL AND
1091: NOT is_locator_id_valid(p_subinv_name => p_pull_seq_rec.source_subinventory,
1093: p_org_id => p_pull_seq_rec.source_organization_id)
1094: THEN
1095: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1096: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'Source Locator');
1097: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1098: END IF;
1099:
1100: IF p_pull_seq_rec.organization_id = p_pull_seq_rec.source_organization_id AND
1101: p_pull_seq_rec.subinventory_name = p_pull_seq_rec.source_subinventory AND
1114:
1115: FND_MESSAGE.SET_NAME('INV', 'INV_CANNOT_CREATE_PULLSEQ');
1116: FND_MESSAGE.SET_TOKEN('SUB_CODE', p_pull_seq_rec.subinventory_name);
1117: FND_MESSAGE.SET_TOKEN('LOC_NAME', l_loc_name );
1118: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1119: END IF;
1120:
1121: end if;
1122:
1160:
1161: if p_pull_seq_rec.supplier_id is null then
1162: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1163: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Name');
1164: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1165: end if;
1166: end if;
1167: else -- supplier id is not null
1168: if is_supplier_id_invalid(p_pull_seq_rec.supplier_id) then
1167: else -- supplier id is not null
1168: if is_supplier_id_invalid(p_pull_seq_rec.supplier_id) then
1169: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1170: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier');
1171: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1172: end if;
1173: end if;
1174:
1175: if p_pull_seq_rec.supplier_site_id is null then
1181:
1182: if p_pull_seq_rec.supplier_site_id is null then
1183: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1184: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Site Code');
1185: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1186: end if;
1187: end if;
1188: else -- supplier site id is not null
1189: if is_supplier_site_id_invalid(p_supplier_id => p_pull_seq_rec.supplier_id
1191: ,p_org_id =>p_pull_seq_rec.organization_id)
1192: then
1193: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1194: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Site');
1195: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1196: end if;
1197: end if;
1198:
1199: end if;
1216: -- when it is null
1217: if p_pull_seq_rec.wip_line_code <> FND_API.G_MISS_CHAR and p_pull_seq_rec.wip_line_code is not null then
1218: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1219: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Wip Line Code');
1220: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1221: end if;
1222: else -- wip line id is not null
1223: if is_wip_line_id_invalid(p_pull_seq_rec.wip_line_id) then
1224: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1222: else -- wip line id is not null
1223: if is_wip_line_id_invalid(p_pull_seq_rec.wip_line_id) then
1224: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1225: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Wip Line');
1226: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1227: end if;
1228: end if;
1229: end if;
1230:
1231: --Minimum order quantity
1232: if sign(p_pull_seq_rec.minimum_order_quantity) = -1 then
1233: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1234: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Minimum order quantity');
1235: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1236: end if;
1237:
1238: --Allocation percent
1239: if p_pull_seq_rec.allocation_percent IS NOT NULL THEN
1239: if p_pull_seq_rec.allocation_percent IS NOT NULL THEN
1240: if p_pull_seq_rec.allocation_percent NOT BETWEEN 0 and 100 then
1241: FND_MESSAGE.SET_NAME('FLM','FLM_INVALID_PERCENT_VALUE');
1242: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation Percent');
1243: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1244: end if;
1245: end if;
1246:
1247: -- Validation for positive numbers
1251:
1252: if sign(p_pull_seq_rec.kanban_size) = -1 then
1253: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1254: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Kanban size');
1255: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1256: end if;
1257:
1258: -- Number of cards
1259: if sign(p_pull_seq_rec.number_of_cards) = -1 then
1258: -- Number of cards
1259: if sign(p_pull_seq_rec.number_of_cards) = -1 then
1260: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1261: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Number of cards');
1262: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1263: end if;
1264:
1265: if TRUNC(p_pull_seq_rec.number_of_cards) <> p_pull_seq_rec.number_of_cards then
1266: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1264:
1265: if TRUNC(p_pull_seq_rec.number_of_cards) <> p_pull_seq_rec.number_of_cards then
1266: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1267: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Number of cards');
1268: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1269: end if;
1270:
1271: -- Replenishment lead time
1272: if sign(p_pull_seq_rec.replenishment_lead_time) = -1 then
1271: -- Replenishment lead time
1272: if sign(p_pull_seq_rec.replenishment_lead_time) = -1 then
1273: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1274: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Replenishment Lead time');
1275: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1276: end if;
1277:
1278: -- Fixed lot multiplier
1279: if sign(p_pull_seq_rec.fixed_lot_multiplier) = -1 then
1278: -- Fixed lot multiplier
1279: if sign(p_pull_seq_rec.fixed_lot_multiplier) = -1 then
1280: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1281: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Fixed lot multiplier');
1282: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1283: end if;
1284:
1285: -- Safety stock days
1286: if sign(p_pull_seq_rec.safety_stock_days) = -1 then
1285: -- Safety stock days
1286: if sign(p_pull_seq_rec.safety_stock_days) = -1 then
1287: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_POSITIVE');
1288: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Safety stock days');
1289: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1290: end if;
1291:
1292: -- Future cards size
1293: if nvl(p_pull_seq_rec.future_card_size,1) <=0 then
1292: -- Future cards size
1293: if nvl(p_pull_seq_rec.future_card_size,1) <=0 then
1294: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1295: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Future cards size');
1296: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1297: end if;
1298:
1299: -- Future no of cards
1300: if nvl(p_pull_seq_rec.future_no_of_cards,1) <=0 then
1299: -- Future no of cards
1300: if nvl(p_pull_seq_rec.future_no_of_cards,1) <=0 then
1301: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1302: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Future no of cards');
1303: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1304: end if;
1305:
1306: mydebug('Validation of additonal fields.');
1307:
1308: -- Planning effectivity. Changes for Bug 12615810.
1309: if trunc(nvl(p_pull_seq_rec.planning_effectivity,sysdate+2)) <= trunc(SYSDATE) and l_transaction_type = FLM_KANBAN_MASSLOAD.kanban_add then
1310: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1311: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Planning effectivity');
1312: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1313: end if;
1314:
1315: -- Make Future effective current if it's currently effective. Changes for Bug 12615810.
1316: if trunc(nvl(p_pull_seq_rec.planning_effectivity,sysdate+2)) <= trunc(SYSDATE) and l_transaction_type = FLM_KANBAN_MASSLOAD.kanban_change then
1329: if p_pull_seq_rec.auto_allocate_flag is not null then
1330: if p_pull_seq_rec.auto_allocate_flag NOT IN (1,2) then
1331: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1332: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Auto Allocate Flag');
1333: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1334: end if;
1335: end if;
1336:
1337: -- Release kanban flag
1340: else
1341: if p_pull_seq_rec.release_kanban_flag not in (1,2) then
1342: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1343: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Release Kanban Flag');
1344: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1345: end if;
1346: end if;
1347:
1348: -- Auto Request
1349: if p_pull_seq_rec.auto_request is not null then
1350: if p_pull_seq_rec.auto_request not in ('Y','N') then
1351: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1352: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Auto Request');
1353: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1354: end if;
1355: end if;
1356:
1357: -- Replenishment Type
1364: ,FLM_KANBAN_MASSLOAD.LOGICAL)
1365: then
1366: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1367: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Replenishment Type');
1368: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1369:
1370: end if;
1371: end if;
1372:
1377: FLM_KANBAN_MASSLOAD.CONSOLIDATION_NO)
1378: then
1379: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1380: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Consolidation');
1381: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1382: end if;
1383:
1384: if l_source_type = inv_kanban_pvt.G_Source_Type_Production and
1385: p_pull_seq_rec.consolidation = FLM_KANBAN_MASSLOAD.CONSOLIDATION_YES then
1384: if l_source_type = inv_kanban_pvt.G_Source_Type_Production and
1385: p_pull_seq_rec.consolidation = FLM_KANBAN_MASSLOAD.CONSOLIDATION_YES then
1386: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1387: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Consolidation');
1388: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1389: end if;
1390: -----------------------------------------------------------------------
1391: -- Validation to see that number of cards are not null if
1392: -- calculate size is selected or that kanban size is not null if calculate
1420: l_calculate_kanban_flag := p_pull_seq_rec.calculate_kanban_flag;
1421: else
1422: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
1423: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Calculate Kanban Flag');
1424: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1425: end if;
1426:
1427: if l_transaction_type = FLM_KANBAN_MASSLOAD.kanban_add then
1428: lr_pull_seq_calc.kanban_size := p_pull_seq_rec.kanban_size;
1436: lr_pull_seq_calc.release_kanban_flag = 1)
1437: then
1438: FND_MESSAGE.SET_NAME ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1439: FND_MESSAGE.SET_TOKEN ('ATTRIBUTE', 'NUMBER_OF_CARDS');
1440: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1441: elsif (lr_pull_seq_calc.calculate_kanban_flag = 2 and
1442: lr_pull_seq_calc.kanban_size IS NULL and
1443: lr_pull_seq_calc.release_kanban_flag = 1) then
1444: FND_MESSAGE.SET_NAME ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1442: lr_pull_seq_calc.kanban_size IS NULL and
1443: lr_pull_seq_calc.release_kanban_flag = 1) then
1444: FND_MESSAGE.SET_NAME ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1445: FND_MESSAGE.SET_TOKEN ('ATTRIBUTE', 'KANBAN_SIZE');
1446: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
1447: end if;
1448: elsif (l_transaction_type = FLM_KANBAN_MASSLOAD.kanban_add and
1449: p_pull_seq_rec.calculate_kanban_flag IS NULL) then
1450: if (lr_pull_seq_calc.kanban_size IS NULL and
1496: mydebug('Exiting validate_pull_sequence procedure.');
1497: EXCEPTION
1498: WHEN OTHERS THEN
1499: x_ret_status := FND_API.G_RET_STS_ERROR;
1500: x_error_msg := 'Error in validate_pull_sequence procedure:' ||FND_CONST.NEWLINE||SQLERRM;
1501: end validate_pull_sequence;
1502:
1503: -----------------------
1504: --procedure process_ps
1788: --Validate Transaction Type
1789: IF p_transaction_type IS NULL THEN
1790: fnd_message.set_name('FLM','FLM_ATTRIBUTE_REQUIRED');
1791: fnd_message.set_token('ATTRIBUTE','Transaction Type');
1792: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1793: ELSIF p_transaction_type NOT IN (FLM_KANBAN_MASSLOAD.kanban_add,
1794: FLM_KANBAN_MASSLOAD.kanban_change,
1795: FLM_KANBAN_MASSLOAD.kanban_delete)
1796: THEN
1795: FLM_KANBAN_MASSLOAD.kanban_delete)
1796: THEN
1797: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1798: fnd_message.set_token ('ATTRIBUTE', 'Transaction Type');
1799: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1800: ELSE
1801: l_transaction_type := p_transaction_type;
1802: END IF;
1803:
1810: IF r_kanban_card_rec.organization_id IS NULL THEN
1811: IF r_kanban_card_rec.organization_code IS NULL THEN
1812: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1813: fnd_message.set_token ('ATTRIBUTE', 'Organization');
1814: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1815: ELSE
1816: r_kanban_card_rec.organization_id := FLM_KANBAN_PUB.default_org_id(r_kanban_card_rec.organization_code);
1817: IF r_kanban_card_rec.organization_id IS NULL THEN
1818: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1816: r_kanban_card_rec.organization_id := FLM_KANBAN_PUB.default_org_id(r_kanban_card_rec.organization_code);
1817: IF r_kanban_card_rec.organization_id IS NULL THEN
1818: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1819: fnd_message.set_token ('ATTRIBUTE', 'Organization Code');
1820: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1821: END IF;
1822: END IF;
1823: ELSE
1824: IF FLM_KANBAN_PUB.is_org_id_invalid (r_kanban_card_rec.organization_id) THEN
1823: ELSE
1824: IF FLM_KANBAN_PUB.is_org_id_invalid (r_kanban_card_rec.organization_id) THEN
1825: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1826: fnd_message.set_token ('ATTRIBUTE', 'Organization Id');
1827: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1828: END IF;
1829: END IF;
1830:
1831: -- Inventory Item
1832: IF r_kanban_card_rec.inventory_item_id IS NULL THEN
1833: IF r_kanban_card_rec.inventory_item_code IS NULL THEN
1834: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1835: fnd_message.set_token ('ATTRIBUTE', 'Inventory Item');
1836: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1837: ELSE
1838: r_kanban_card_rec.inventory_item_id := FLM_KANBAN_PUB.default_inv_item_id(p_org_id => r_kanban_card_rec.organization_id
1839: ,p_conc_segments => r_kanban_card_rec.inventory_item_code);
1840: IF r_kanban_card_rec.inventory_item_id IS NULL THEN
1839: ,p_conc_segments => r_kanban_card_rec.inventory_item_code);
1840: IF r_kanban_card_rec.inventory_item_id IS NULL THEN
1841: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1842: fnd_message.set_token ('ATTRIBUTE', 'Inventory Item Name');
1843: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1844: END IF;
1845: END IF;
1846: ELSE
1847: IF is_inv_item_id_valid(p_inv_item_id => r_kanban_card_rec.inventory_item_id
1854: FETCH c_inv_item INTO lr_inv_item;
1855:
1856: IF lr_inv_item.inventory_item_flag = 'N' THEN
1857: fnd_message.set_name ('FLM', 'FLM_ITEM_FLAG');
1858: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1859: END IF;
1860:
1861: IF lr_inv_item.effectivity_control = 2 THEN
1862: fnd_message.set_name ('INV', 'INV_NO_EFFECTIVITY_CONTROL');
1859: END IF;
1860:
1861: IF lr_inv_item.effectivity_control = 2 THEN
1862: fnd_message.set_name ('INV', 'INV_NO_EFFECTIVITY_CONTROL');
1863: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1864: END IF;
1865:
1866: IF lr_inv_item.stock_enabled_flag = 'N' THEN
1867: fnd_message.set_name ('INV', 'INV_NOT_STOCK_ENABLED');
1864: END IF;
1865:
1866: IF lr_inv_item.stock_enabled_flag = 'N' THEN
1867: fnd_message.set_name ('INV', 'INV_NOT_STOCK_ENABLED');
1868: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1869: END IF;
1870:
1871: IF lr_inv_item.mtl_transactions_enabled_flag = 'N' THEN
1872: fnd_message.set_name ('FLM', 'FLM_TRX_ENABLED_FLAG');
1869: END IF;
1870:
1871: IF lr_inv_item.mtl_transactions_enabled_flag = 'N' THEN
1872: fnd_message.set_name ('FLM', 'FLM_TRX_ENABLED_FLAG');
1873: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1874: END IF;
1875:
1876: IF lr_inv_item.inventory_item_status_code <> 'Active' THEN
1877: fnd_message.set_name ('FLM', 'FLM_ITEM_STATUS_CODE');
1874: END IF;
1875:
1876: IF lr_inv_item.inventory_item_status_code <> 'Active' THEN
1877: fnd_message.set_name ('FLM', 'FLM_ITEM_STATUS_CODE');
1878: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1879: END IF;
1880:
1881: CLOSE c_inv_item;
1882: ELSE
1881: CLOSE c_inv_item;
1882: ELSE
1883: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1884: fnd_message.set_token ('ATTRIBUTE', 'Inventory Item Id');
1885: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1886: END IF;
1887: END IF;
1888:
1889: -- Subinventory name
1889: -- Subinventory name
1890: IF r_kanban_card_rec.subinventory_name IS NULL THEN
1891: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1892: fnd_message.set_token ('ATTRIBUTE', 'SubInventory Name');
1893: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1894: ELSE
1895: OPEN c_subinv(p_subinv_name => r_kanban_card_rec.subinventory_name,
1896: p_org_id => r_kanban_card_rec.organization_id
1897: );
1901:
1902: IF l_subinventory IS NULL THEN
1903: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1904: fnd_message.set_token ('ATTRIBUTE', 'Subinventory Name');
1905: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1906: END IF;
1907:
1908: l_locator_control := get_locator_control(r_kanban_card_rec.inventory_item_id,
1909: r_kanban_card_rec.organization_id,
1914: -- mandatory if subinventory is locator controlled
1915: IF r_kanban_card_rec.locator_id IS NULL THEN
1916: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
1917: fnd_message.set_token ('ATTRIBUTE', 'Locator Id');
1918: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1919:
1920: ELSE
1921: IF NOT is_locator_id_valid(p_subinv_name => r_kanban_card_rec.subinventory_name
1922: ,p_locator_id => r_kanban_card_rec.locator_id
1924: )
1925: THEN
1926: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
1927: fnd_message.set_token ('ATTRIBUTE', 'Locator Id');
1928: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1929: END IF;
1930: END IF;
1931: ELSE -- subinventory is not locator controlled
1932: IF r_kanban_card_rec.locator_id IS NOT NULL THEN
1963: fnd_message.set_token ('ORG_CODE', r_kanban_card_rec.organization_id);
1964: fnd_message.set_token ('ITEM_NAME', r_kanban_card_rec.inventory_item_id);
1965: fnd_message.set_token ('SUB_CODE', r_kanban_card_rec.subinventory_name);
1966: fnd_message.set_token ('LOCATOR_NAME', r_kanban_card_rec.locator_id);
1967: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
1968: END IF;
1969: END IF;
1970: END IF;-- pull seq id null
1971:
1997: /* Bug 11829013 - this validation is not needed when manually creating kanban cards
1998: IF l_rem_cards <= 0 THEN
1999: fnd_message.set_name ('FLM', 'FLM_NO_OF_CARDS_EXIST');
2000: fnd_message.set_token ('ATTRIBUTE', r_kanban_card_rec.pull_sequence_id);
2001: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2002: END IF;
2003: */
2004:
2005: --Validate Kanban Size
2008: ELSIF r_kanban_card_rec.kanban_size IS NOT NULL THEN
2009: IF r_kanban_card_rec.kanban_size <= 0 THEN
2010: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2011: fnd_message.set_token ('ATTRIBUTE', 'Kanban Size');
2012: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2013: END IF;
2014: ELSE
2015: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2016: fnd_message.set_token ('ATTRIBUTE', 'Kanban Size');
2013: END IF;
2014: ELSE
2015: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2016: fnd_message.set_token ('ATTRIBUTE', 'Kanban Size');
2017: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2018: END IF;
2019:
2020: --Validate kanban card number
2021: IF r_kanban_card_rec.kanban_card_number IS NOT NULL THEN
2023: ,r_kanban_card_rec.kanban_card_number
2024: ,NULL) THEN
2025: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_EXISTS'); --Attribute already exists
2026: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Number');
2027: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2028: END IF;
2029: END IF;
2030:
2031: --Validate kanban card id
2034: ,NULL
2035: ,r_kanban_card_rec.kanban_card_id) THEN
2036: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_EXISTS'); --Attribute already exists
2037: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Id');
2038: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2039: END IF;
2040: END IF;
2041:
2042: --Validate Kanban Card Type- Replenishable or Non Replenishable
2047: THEN
2048: /*
2049: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2050: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Type');
2051: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2052: */
2053: r_kanban_card_rec.kanban_card_type := 1; -- Default to Replenishable Kanban Card.
2054: END IF;
2055: ELSE
2061: r_kanban_card_rec.supply_status NOT IN (INV_Kanban_PVT.G_Supply_Status_New,INV_Kanban_PVT.G_Supply_Status_Full,INV_Kanban_PVT.G_Supply_Status_Empty)
2062: THEN
2063: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2064: fnd_message.set_token ('ATTRIBUTE', 'Supply Status');
2065: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2066: END IF;
2067:
2068: IF r_kanban_card_rec.supply_status IS NULL THEN
2069: r_kanban_card_rec.supply_status := INV_Kanban_PVT.G_Supply_Status_New;
2073: IF r_kanban_card_rec.card_status IS NOT NULL AND
2074: r_kanban_card_rec.card_status = INV_Kanban_PVT.G_Card_Status_Cancel THEN
2075: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2076: fnd_message.set_token ('ATTRIBUTE', 'Card Status');
2077: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2078: END IF;
2079:
2080: IF r_kanban_card_rec.card_status IS NULL THEN
2081: r_kanban_card_rec.card_status := INV_Kanban_PVT.G_Card_Status_Active;
2106: END IF;
2107: ELSE
2108: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2109: fnd_message.set_token ('ATTRIBUTE', 'Pull Sequence Id');
2110: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2111: END IF;--valid pull seq id
2112: END IF; --pull seq id not null
2113:
2114: -- Dont Allow user to enter following values during card creation
2133: IF r_kanban_card_rec.kanban_card_id IS NULL THEN
2134: IF r_kanban_card_rec.kanban_card_number IS NULL THEN
2135: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2136: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card');
2137: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2138: ELSE
2139: IF r_kanban_card_rec.pull_sequence_id IS NOT NULL THEN
2140: r_kanban_card_rec.kanban_card_id := FLM_KANBAN_PUB.default_kanban_card_id(p_pull_sequence_id => r_kanban_card_rec.pull_sequence_id
2141: ,p_kanban_card_number => r_kanban_card_rec.kanban_card_number);
2141: ,p_kanban_card_number => r_kanban_card_rec.kanban_card_number);
2142: IF r_kanban_card_rec.kanban_card_id IS NULL THEN
2143: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2144: fnd_message.set_token ('ATTRIBUTE', 'Pull Sequence Id / Kanban card Number');
2145: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2146: -- Fix bug 12426260 and 12424326, get the value of l_card_id,l_card_sts,l_supply_sts as it will be use for validations
2147: ELSE -- if r_kanban_card_rec.kanban_card_id IS not NULL
2148: OPEN c_card_exist(r_kanban_card_rec.kanban_card_id);
2149: FETCH c_card_exist INTO l_card_id,l_card_sts,l_supply_sts;
2151: END IF;
2152: ELSE
2153: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2154: fnd_message.set_token ('ATTRIBUTE', 'Pull Sequence Id for Kanban card Number');
2155: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2156: END IF;
2157: END IF;
2158: ELSE
2159: l_card_id := 0;
2162: CLOSE c_card_exist;
2163: IF l_card_id = 0 OR l_card_id IS NULL THEN
2164: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2165: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Id');
2166: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2167: END IF;
2168: END IF;
2169: END IF;
2170:
2171: --Fix bug 12426260, user can only delete card in cancel status
2172: IF l_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_DELETE THEN
2173: /*IF l_supply_sts <> INV_Kanban_PVT.G_Supply_Status_New THEN
2174: fnd_message.set_name ('FLM','FLM_CANNOT_DELETE_CARD');
2175: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2176: END IF;*/
2177: IF l_card_sts <> INV_Kanban_PVT.G_Card_Status_Cancel THEN
2178: fnd_message.set_name ('FLM','FLM_CANNOT_DELETE_CARD');
2179: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2175: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2176: END IF;*/
2177: IF l_card_sts <> INV_Kanban_PVT.G_Card_Status_Cancel THEN
2178: fnd_message.set_name ('FLM','FLM_CANNOT_DELETE_CARD');
2179: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2180: END IF;
2181: END IF;
2182:
2183: IF l_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_CHANGE THEN
2275: END IF;
2276:
2277: IF l_card_sts = INV_Kanban_PVT.G_Card_Status_Cancel THEN
2278: fnd_message.set_name ('FLM','FLM_CANNOT_UPDATE_CARD');
2279: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2280: END IF;
2281:
2282: -- Validate supply status
2283: IF r_kanban_card_rec.supply_status IS NOT NULL THEN
2286: )
2287: THEN
2288: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2289: fnd_message.set_token ('ATTRIBUTE', 'Supply Status');
2290: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2291: END IF;
2292: END IF;
2293:
2294: -- Validate Card status
2298: )
2299: THEN
2300: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2301: fnd_message.set_token ('ATTRIBUTE', 'Card Status');
2302: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2303: END IF;
2304: END IF;
2305: END IF;
2306:
2319:
2320: IF nvl(r_kanban_card_rec.kanban_size,0) <= 0 THEN
2321: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2322: fnd_message.set_token ('ATTRIBUTE', 'Kanban Size');
2323: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2324: END IF;
2325:
2326: -- Validate Error Code
2327: IF r_kanban_card_rec.kanban_error_code IS NOT NULL THEN
2330: )
2331: THEN
2332: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2333: fnd_message.set_token ('ATTRIBUTE', 'Error Code');
2334: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2335: END IF;
2336: END IF;
2337:
2338: IF r_kanban_card_rec.disable_date IS NOT NULL THEN
2338: IF r_kanban_card_rec.disable_date IS NOT NULL THEN
2339: IF r_kanban_card_rec.disable_date <= SYSDATE THEN
2340: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2341: fnd_message.set_token ('ATTRIBUTE', 'Disable Date');
2342: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2343: END IF;
2344: END IF;
2345:
2346: -- Validate Max Replenishments
2359:
2360: IF NVL(r_kanban_card_rec.max_replenishments,0) <= l_max_replenishments THEN
2361: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2362: fnd_message.set_token ('ATTRIBUTE', 'Max Replenishments');
2363: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2364: END IF;
2365: END IF;
2366:
2367: IF r_kanban_card_rec.source_type = INV_Kanban_PVT.G_Source_Type_Supplier THEN
2374: ELSE
2375: IF is_supplier_id_invalid(p_supplier_id => r_kanban_card_rec.supplier_id) THEN
2376: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2377: fnd_message.set_token ('ATTRIBUTE', 'Supplier Id');
2378: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2379: END IF;
2380: END IF;
2381:
2382: IF r_kanban_card_rec.supplier_id IS NOT NULL THEN
2384: IF r_kanban_card_rec.supplier_site_id IS NULL THEN
2385: IF r_kanban_card_rec.supplier_site_code IS NULL THEN
2386: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2387: fnd_message.set_token ('ATTRIBUTE', 'Supplier Site');
2388: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2389: ELSE
2390: r_kanban_card_rec.supplier_site_id := FLM_KANBAN_PUB.default_supplier_site_id(p_supplier_id => r_kanban_card_rec.supplier_id
2391: ,p_supplier_site_code => r_kanban_card_rec.supplier_site_code
2392: ,p_org_id => r_kanban_card_rec.organization_id
2397: ,p_supplier_site_id => r_kanban_card_rec.supplier_site_id
2398: ,p_org_id => r_kanban_card_rec.organization_id) THEN
2399: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2400: fnd_message.set_token ('ATTRIBUTE', 'Supplier Site Id');
2401: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2402: END IF;
2403: END IF; -- end validate Supplier Site
2404: END IF;
2405: END IF;-- end if for validate suppler
2422: IF r_kanban_card_rec.source_organization_id IS NOT NULL AND lr_pullseq_info.source_organization_id IS NULL THEN
2423: IF FLM_KANBAN_PUB.is_org_id_invalid (r_kanban_card_rec.source_organization_id) THEN
2424: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2425: fnd_message.set_token ('ATTRIBUTE', 'Source Organization Id');
2426: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2427: ELSE
2428: IF r_kanban_card_rec.source_subinventory IS NULL THEN
2429: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2430: fnd_message.set_token ('ATTRIBUTE','Source Subinventory');
2427: ELSE
2428: IF r_kanban_card_rec.source_subinventory IS NULL THEN
2429: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_REQUIRED');
2430: fnd_message.set_token ('ATTRIBUTE','Source Subinventory');
2431: p_error_text := p_error_text || fnd_const.NEWLINE || fnd_message.get;
2432: ELSE
2433: -- validate source subinventory
2434: OPEN c_subinv(p_subinv_name => r_kanban_card_rec.source_subinventory
2435: ,p_org_id => r_kanban_card_rec.source_organization_id
2439:
2440: IF l_source_subinventory IS NULL THEN
2441: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2442: fnd_message.set_token ('ATTRIBUTE', 'Source Subinventory');
2443: p_error_text := p_error_text || fnd_const.NEWLINE || fnd_message.get;
2444: END IF;
2445: END IF;
2446: END IF;
2447: END IF;
2461: )
2462: THEN
2463: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2464: fnd_message.set_token ('ATTRIBUTE', 'Source Locator Id');
2465: p_error_text := p_error_text || fnd_const.NEWLINE || fnd_message.get;
2466: END IF;
2467: END IF;
2468: END IF;
2469: ELSE
2487: );
2488: IF r_kanban_card_rec.wip_line_id IS NULL THEN
2489: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2490: fnd_message.set_token ('ATTRIBUTE', 'WIP Line Code');
2491: p_error_text := p_error_text || fnd_const.NEWLINE || fnd_message.get;
2492: END IF;
2493: END IF;
2494: ELSE
2495: IF is_wip_line_id_invalid(p_wip_line_id => r_kanban_card_rec.wip_line_id) THEN
2494: ELSE
2495: IF is_wip_line_id_invalid(p_wip_line_id => r_kanban_card_rec.wip_line_id) THEN
2496: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_INVALID');
2497: fnd_message.set_token ('ATTRIBUTE', 'WIP Line Id');
2498: p_error_text := p_error_text || fnd_const.NEWLINE || fnd_message.get;
2499: END IF;
2500: END IF;
2501: ELSE
2502: IF r_kanban_card_rec.wip_line_id IS NOT NULL THEN
2515: r_kanban_card_rec.disable_date IS NOT NULL THEN
2516: fnd_message.set_name ('FLM','FLM_NOT_BOTH_ATTRIBUTES');
2517: fnd_message.set_token ('ATTRIBUTE1', 'Disable Date');
2518: fnd_message.set_token ('ATTRIBUTE2', 'Max Replenishments');
2519: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2520:
2521: ELSIF r_kanban_card_rec.max_replenishments IS NOT NULL
2522: OR r_kanban_card_rec.disable_date IS NOT NULL THEN
2523: IF r_kanban_card_rec.disable_date IS NOT NULL
2523: IF r_kanban_card_rec.disable_date IS NOT NULL
2524: AND r_kanban_card_rec.disable_date <= SYSDATE THEN
2525: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2526: fnd_message.set_token ('ATTRIBUTE', 'Disable Date');
2527: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2528: END IF;
2529:
2530: IF r_kanban_card_rec.max_replenishments IS NOT NULL
2531: AND r_kanban_card_rec.max_replenishments <= 0 THEN
2530: IF r_kanban_card_rec.max_replenishments IS NOT NULL
2531: AND r_kanban_card_rec.max_replenishments <= 0 THEN
2532: fnd_message.set_name ('FLM','FLM_ATTRIBUTE_INVALID');
2533: fnd_message.set_token ('ATTRIBUTE', 'Max Replenishments');
2534: p_error_text := p_error_text || FND_CONST.NEWLINE || FND_MESSAGE.GET;
2535: END IF;
2536: END IF;
2537:
2538: END IF;
3016: if nvl(p_kanban_size,r_kanban_card_rec.kanban_size) <> r_kanban_card_rec.kanban_size then
3017: l_ret_status := 'W';
3018: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_IGNORED');
3019: fnd_message.set_token ('ATTRIBUTE', 'Kanban Size');
3020: x_err_msg := x_err_msg || FND_CONST.NEWLINE || FND_MESSAGE.GET;
3021: end if;
3022: if nvl(p_source_type,r_kanban_card_rec.source_type) <> r_kanban_card_rec.source_type then
3023: l_ret_status := 'W';
3024: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_IGNORED');
3022: if nvl(p_source_type,r_kanban_card_rec.source_type) <> r_kanban_card_rec.source_type then
3023: l_ret_status := 'W';
3024: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_IGNORED');
3025: fnd_message.set_token ('ATTRIBUTE', 'Source Type');
3026: x_err_msg := x_err_msg || FND_CONST.NEWLINE || FND_MESSAGE.GET;
3027: end if;
3028: if nvl(p_kanban_card_number,r_kanban_card_rec.kanban_card_number) <> r_kanban_card_rec.kanban_card_number then
3029: l_ret_status := 'W';
3030: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_IGNORED');
3028: if nvl(p_kanban_card_number,r_kanban_card_rec.kanban_card_number) <> r_kanban_card_rec.kanban_card_number then
3029: l_ret_status := 'W';
3030: fnd_message.set_name ('FLM', 'FLM_ATTRIBUTE_IGNORED');
3031: fnd_message.set_token ('ATTRIBUTE', 'Kanban Card Number');
3032: x_err_msg := x_err_msg || FND_CONST.NEWLINE || FND_MESSAGE.GET;
3033: end if;
3034: end if;
3035: END IF;
3036: p_kanban_card_id := r_kanban_card_rec.kanban_card_id;
3698: -- Transaction type - supplier to insert/update/delete
3699: if p_supplier_rec.transaction_type is null then
3700: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
3701: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Transaction Type');
3702: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3703: elsif p_supplier_rec.transaction_type NOT IN (FLM_KANBAN_MASSLOAD.kanban_add,
3704: FLM_KANBAN_MASSLOAD.kanban_change,
3705: FLM_KANBAN_MASSLOAD.kanban_delete)
3706: then
3705: FLM_KANBAN_MASSLOAD.kanban_delete)
3706: then
3707: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3708: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Transaction Type');
3709: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3710: else
3711: l_transaction_type := p_supplier_rec.transaction_type;
3712: end if;
3713:
3715:
3716: if p_supplier_rec.pull_sequence_id is null then
3717: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
3718: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pull Sequence Id for Supplier');
3719: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3720: else
3721: if is_valid_pull_sequence_id(p_supplier_rec.pull_sequence_id) then
3722: l_pullseq_id := p_supplier_rec.pull_sequence_id;
3723: else
3722: l_pullseq_id := p_supplier_rec.pull_sequence_id;
3723: else
3724: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3725: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pull Sequence Id for Supplier');
3726: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3727: end if;
3728: end if;
3729:
3730: --Validate supplier_id
3731: if p_supplier_rec.supplier_id is null then
3732: if p_supplier_rec.supplier_name is null then
3733: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
3734: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier');
3735: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3736: else
3737: p_supplier_rec.supplier_id := default_supplier_id(p_supplier_name => p_supplier_rec.supplier_name);
3738: if p_supplier_rec.supplier_id is null then
3739: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3737: p_supplier_rec.supplier_id := default_supplier_id(p_supplier_name => p_supplier_rec.supplier_name);
3738: if p_supplier_rec.supplier_id is null then
3739: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3740: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Name');
3741: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3742: end if;
3743: end if;
3744: else -- supplier id is not null
3745: if is_supplier_id_invalid(p_supplier_rec.supplier_id) then
3744: else -- supplier id is not null
3745: if is_supplier_id_invalid(p_supplier_rec.supplier_id) then
3746: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3747: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier');
3748: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3749: end if;
3750: end if;
3751:
3752: if l_transaction_type IN (FLM_KANBAN_MASSLOAD.KANBAN_ADD
3760: ,p_org_id => p_organization_id);
3761: if p_supplier_rec.supplier_site_id is null then
3762: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3763: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Code');
3764: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3765: end if;
3766: end if;
3767: else -- supplier site id is not null
3768: if is_supplier_site_id_invalid(p_supplier_id => p_supplier_rec.supplier_id
3770: ,p_org_id => p_organization_id)
3771: then
3772: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3773: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Site');
3774: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3775: end if;
3776: end if;
3777:
3778: --Unique constaint for pull_sequence_id and supplier_id combination; Added for Bug 12533212
3786: if(l_supplier_count > 0) then
3787: mydebug('Duplicate supplier is trying to inserted for current pull sequence');
3788: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3789: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier');
3790: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3791: end if;
3792: end if;
3793:
3794: if l_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_CHANGE then
3804: exception
3805: when others then
3806: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_INVALID');
3807: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier/Supplier Site');
3808: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3809: end;
3810: end if;
3811:
3812: --Sourcing Percentage
3814: -- During update null means retain old value.
3815: if l_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_ADD then
3816: FND_MESSAGE.SET_NAME('FLM','FLM_ATTRIBUTE_REQUIRED');
3817: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sourcing Percentage');
3818: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3819: end if;
3820: -- Fix bug 12419603, derive sourcing_percentage if it's not provided during update
3821: if l_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_CHANGE then
3822: select sourcing_percentage into l_sourcing_percentage
3827: end if;
3828: ELSIF (p_supplier_rec.sourcing_percentage <=0 or p_supplier_rec.sourcing_percentage >100) THEN
3829: FND_MESSAGE.SET_NAME('FLM','FLM_INVALID_PERCENT_VALUE');
3830: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Supplier Sourcing Percentage');
3831: x_error_msg := x_error_msg||FND_CONST.NEWLINE||FND_MESSAGE.GET;
3832: END IF;
3833:
3834:
3835: end if; -- l_transaction_type IN add or change
3842: mydebug('Exiting validate_suppliers procedure');
3843: EXCEPTION
3844: WHEN OTHERS THEN
3845: x_ret_status := FND_API.G_RET_STS_ERROR;
3846: x_error_msg := 'Error in validate_suppliers procedure:' ||FND_CONST.NEWLINE||SQLERRM;
3847: END validate_suppliers;
3848:
3849: --------------------------------------------
3850: -- procedure for pull sequence public API
4031: inv_kanban_pvt.G_Source_Type_Production) then
4032: if l_supplier_count > 0 then
4033: l_ret_status := FND_API.G_RET_STS_ERROR;
4034: FND_MESSAGE.SET_NAME('FLM','FLM_NO_SUPPLIERS_REQUIRED');
4035: l_error_msg := x_error_msg || FND_CONST.NEWLINE||FND_MESSAGE.GET;
4036: end if;
4037:
4038: end if;
4039: end if;