[Home] [Help]
665: END IF;
666: -- no null DATE
667: IF p_count_date IS NULL THEN
668: x_errorcode := 59;
669: FND_MESSAGE.SET_NAME('INV', 'INV_COUNT_DATE_FUTURE');
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR;
672: END IF;
673: -- no future DATE
672: END IF;
673: -- no future DATE
674: IF TRUNC(p_count_date) > TRUNC(SYSDATE) THEN
675: x_errorcode := 23;
676: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_COUNT_DATE_FUTURE');
677: FND_MSG_PUB.Add;
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: --
691: L_open_past_period := TRUE;
692: END IF;
693: ELSE
694: x_errorcode := 24;
695: FND_MESSAGE.SET_NAME('FND', 'PROFILES-CANNOT READ');
696: FND_MESSAGE.SET_TOKEN('OPTION', 'TRANSACTION_DATE', TRUE);
697: FND_MESSAGE.SET_TOKEN('ROUTINE',
698: 'MTL_CC_TRANSACT_PKG.CC_TRANSACT ', TRUE);
699: FND_MSG_PUB.Add;
692: END IF;
693: ELSE
694: x_errorcode := 24;
695: FND_MESSAGE.SET_NAME('FND', 'PROFILES-CANNOT READ');
696: FND_MESSAGE.SET_TOKEN('OPTION', 'TRANSACTION_DATE', TRUE);
697: FND_MESSAGE.SET_TOKEN('ROUTINE',
698: 'MTL_CC_TRANSACT_PKG.CC_TRANSACT ', TRUE);
699: FND_MSG_PUB.Add;
700: RAISE FND_API.G_EXC_ERROR;
693: ELSE
694: x_errorcode := 24;
695: FND_MESSAGE.SET_NAME('FND', 'PROFILES-CANNOT READ');
696: FND_MESSAGE.SET_TOKEN('OPTION', 'TRANSACTION_DATE', TRUE);
697: FND_MESSAGE.SET_TOKEN('ROUTINE',
698: 'MTL_CC_TRANSACT_PKG.CC_TRANSACT ', TRUE);
699: FND_MSG_PUB.Add;
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: IF L_profile_value = 2 THEN
704: IF trunc(p_count_date) < TRUNC(sysdate) THEN
705: x_errorcode := 24;
706: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PAST_TXN_DATES');
707: FND_MSG_PUB.Add;
708: RAISE FND_API.G_EXC_ERROR;
709: END IF;
710: END IF;
715: L_period_id,
716: L_open_past_period);
717: IF L_period_id = 0 THEN
718: x_errorcode := 24;
719: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OPEN_PERIOD');
720: FND_MSG_PUB.Add;
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF L_period_id = -1 THEN
723: x_errorcode := 24;
725: ELSE
726: IF(L_profile_value = 3) AND
727: NOT(L_open_past_period) THEN
728: x_errorcode := 24;
729: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PAST_TXN_PERIODS');
730: FND_MSG_PUB.Add;
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733: END IF;
916: -- Cycle COUNT must be valid, IF NOT error OUT
917: IF(MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_HEADER_REC.DISABLE_DATE IS NOT NULL AND
918: MTL_CCEOI_VAR_PVT.G_CYCLE_COUNT_HEADER_REC.DISABLE_DATE <= sysdate)
919: THEN
920: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_HEADER');
921: FND_MSG_PUB.Add;
922: x_errorcode :=2;
923: RAISE FND_API.G_EXC_ERROR;
924: ELSE
921: FND_MSG_PUB.Add;
922: x_errorcode :=2;
923: RAISE FND_API.G_EXC_ERROR;
924: ELSE
925: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_SUCCESS');
926: FND_MSG_PUB.Add;
927: END IF;
928: ELSIF
929: (rec_counter = 0) THEN
926: FND_MSG_PUB.Add;
927: END IF;
928: ELSIF
929: (rec_counter = 0) THEN
930: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_HEADER');
931: FND_MSG_PUB.Add;
932: x_errorcode := 1;
933: RAISE FND_API.G_EXC_ERROR;
934: ELSIF
932: x_errorcode := 1;
933: RAISE FND_API.G_EXC_ERROR;
934: ELSIF
935: (rec_counter > 1) THEN
936: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_MULT_HEADER');
937: FND_MSG_PUB.Add;
938: x_errorcode := 45;
939: RAISE FND_API.G_EXC_ERROR;
940: END IF;
1096: --
1097: -- API body
1098: --
1099: IF P_Count_List_Sequence <= 0 THEN
1100: FND_MESSAGE.SET_NAME('INV', 'INV_POSITIVE_NUMBER');
1101: FND_MSG_PUB.Add;
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: --
1120: --
1121: rec_counter := rec_counter + 1;
1122: IF(rec_counter > 1 or c_rec.entry_status_code = 2) THEN
1123: -- error Cycle COUNT must be unique
1124: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_MULT_MATCH_REQ');
1125: FND_MSG_PUB.Add;
1126: x_errorcode := 3;
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1141: END IF;
1142: x_errorcode := 66;
1143: END IF;
1144: ELSE
1145: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_UNMATCH_LISTSEQ');
1146: FND_MSG_PUB.Add;
1147: x_errorcode := 46;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: ELSIF -- XXX why do we post success message?
1151: (rec_counter = 1) THEN
1152: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_SUCCESS');
1153: FND_MSG_PUB.Add;
1154: x_errorcode := 0;
1155: END IF;
1156: --
1294: IF (l_debug = 1) THEN
1295: MDEBUG( 'Validating CQty > 1 or NULL');
1296: END IF;
1297: x_errorcode := 60;
1298: FND_MESSAGE.SET_NAME('INV', 'INV_SERIAL_QTY_MUST_BE_1');
1299: FND_MSG_PUB.Add;
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302: ELSE
1304: IF (l_debug = 1) THEN
1305: MDEBUG( 'Validating CQty is NULL');
1306: END IF;
1307: x_errorcode := 61;
1308: FND_MESSAGE.SET_NAME('INV', 'INV_GREATER_EQUAL_ZERO');
1309: FND_MSG_PUB.Add;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312: END IF;
1315: IF (l_debug = 1) THEN
1316: MDEBUG( 'Validating CQty < 0');
1317: END IF;
1318: x_errorcode := 22;
1319: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NEG_QTY');
1320: FND_MSG_PUB.Add;
1321: RAISE FND_API.G_EXC_ERROR;
1322: ELSE
1323: MTL_CCEOI_VAR_PVT.G_COUNT_QUANTITY := p_count_quantity;
1582: IF (l_debug = 1) THEN
1583: MDEBUG( 'Validating Locator_control but no locator');
1584: END IF;
1585: x_errorcode := 9;
1586: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_LOC');
1587: FND_MSG_PUB.Add;
1588: RAISE FND_API.G_EXC_ERROR;
1589: --
1590: END IF;
1606: MDEBUG( 'Validating serial_control but no serial number');
1607: mdebug('serial_control but no serial number');
1608: END IF;
1609: x_errorcode := 15;
1610: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SERIAL');
1611: FND_MSG_PUB.Add;
1612: RAISE FND_API.G_EXC_ERROR;
1613:
1614: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.SERIAL_NUMBER_CONTROL_CODE = 0 THEN
1626: IF (l_debug = 1) THEN
1627: MDEBUG( 'Validating revision_control but no revision');
1628: END IF;
1629: x_errorcode := 11;
1630: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_REV');
1631: FND_MSG_PUB.Add;
1632: RAISE FND_API.G_EXC_ERROR;
1633: --
1634: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.REVISION_QTY_CONTROL_CODE = 1 THEN
1645: IF (l_debug = 1) THEN
1646: MDEBUG( 'Validating lot_control but no lot');
1647: END IF;
1648: x_errorcode := 13;
1649: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_LOT');
1650: FND_MSG_PUB.Add;
1651: RAISE FND_API.G_EXC_ERROR;
1652: --
1653: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.LOT_CONTROL_CODE= 1 THEN
1818: END IF;
1819: IF p_count_uom IS NULL AND p_count_unit_of_measure IS NULL THEN
1820: --
1821: x_errorcode := 19;
1822: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_UOM');
1823: FND_MSG_PUB.Add;
1824: RAISE FND_API.G_EXC_ERROR;
1825: --
1826: ELSIF
1846: END LOOP;
1847: --
1848: IF L_counter < 1 THEN
1849: x_errorcode := 20;
1850: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_UOM');
1851: FND_MSG_PUB.Add;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: --
2071: MDEBUG( 'Validating Item-4');
2072: END IF;
2073: IF L_counter = 0 THEN
2074: x_errorcode := 4;
2075: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_ITEM');
2076: FND_MSG_PUB.Add;
2077: RAISE FND_API.G_EXC_ERROR;
2078: ELSIF
2079: l_counter = 1 THEN
2092: END LOOP;
2093: --
2094: IF L_counter = 0 THEN
2095: x_errorcode := 5;
2096: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_ITEM');
2097: FND_MSG_PUB.Add;
2098: ELSE
2099: x_errorcode := 0;
2100: END IF;
2321: -- dynmaic NOT allowed FOR restriced locators on item level
2322: IF p_locator_control = 2 OR
2323: (p_restrict_control = 1 AND p_control_level=1) THEN
2324: x_errorcode := 10;
2325: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_LOC');
2326: FND_MSG_PUB.Add;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2329: -- Dynamic locator creation
2338: IF (l_debug = 1) THEN
2339: mdebug('Error ');
2340: END IF;
2341: x_errorcode := 10;
2342: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_LOC');
2343: FND_MSG_PUB.Add;
2344: RAISE FND_API.G_EXC_ERROR;
2345: END IF;
2346: END IF;
2366: IF (l_debug = 1) THEN
2367: MDEBUG( 'Validating Locator Restricted Loc - Error ' );
2368: END IF;
2369: x_errorcode := 47;
2370: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_LOC_NOT_IN_LIST');
2371: FND_MSG_PUB.Add;
2372: RAISE FND_API.G_EXC_ERROR;
2373: END IF;
2374: END IF;
2514: END IF;
2515:
2516: IF p_primary_uom_quantity is NULL THEN
2517: x_errorcode := 19;
2518: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_UOM');
2519: FND_MSG_PUB.Add;
2520: RAISE FND_API.G_EXC_ERROR;
2521: ELSE
2522: MTL_CCEOI_VAR_PVT.G_UOM_CODE := MTL_CCEOI_VAR_PVT.G_PRIMARY_UOM_CODE;
2687: --
2688: -- API body
2689: IF p_subinventory IS NULL THEN
2690: x_errorcode := 6;
2691: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SUB');
2692: FND_MSG_PUB.Add;
2693: RAISE FND_API.G_EXC_ERROR;
2694: END IF;
2695: --
2705: IF INV_Validate.subinventory(L_sub,L_org) = INV_Validate.T then
2706: MTL_CCEOI_VAR_PVT.G_SUB_LOCATOR_TYPE := l_sub.LOCATOR_TYPE;
2707: IF l_sub.QUANTITY_TRACKED <> 1 THEN
2708: x_errorcode := 8;
2709: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NON_QTY_TRKD_SUB');
2710: FND_MSG_PUB.Add;
2711: RAISE FND_API.G_EXC_ERROR;
2712: END IF;
2713: L_counter := L_counter + 1;
2715:
2716: --
2717: IF L_counter < 1 THEN
2718: x_errorcode := 6;
2719: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SUB');
2720: FND_MSG_PUB.Add;
2721: RAISE FND_API.G_EXC_ERROR;
2722: END IF;
2723: --
2732: END LOOP;
2733: --
2734: IF L_counter < 1 THEN
2735: x_errorcode := 7;
2736: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_SUB');
2737: FND_MSG_PUB.Add;
2738: RAISE FND_API.G_EXC_ERROR;
2739: END IF;
2740: END IF;
3468: END IF;
3469:
3470: IF l_secondary_uom <> MTL_CCEOI_VAR_PVT.g_secondary_uom_code THEN
3471: x_errorcode := 20;
3472: fnd_message.set_name ('INV', 'INV_INCORRECT_SECONDARY_UOM');
3473: fnd_msg_pub.ADD;
3474: RAISE fnd_api.g_exc_error;
3475: END IF;
3476:
3565: );
3566:
3567: IF (l_converted_qty = -99999) THEN
3568: x_errorcode := 50;
3569: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
3570: fnd_msg_pub.ADD;
3571: RAISE fnd_api.g_exc_error;
3572: END IF;
3573:
3575:
3576: ELSE -- p_secondary_quantity IS NOT NULL
3577: IF p_secondary_quantity < 0 THEN
3578: x_errorcode := 52;
3579: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NEG_QTY');
3580: FND_MSG_PUB.Add;
3581: RAISE FND_API.G_EXC_ERROR;
3582: END IF;
3583:
3593: , p_unit_of_measure1 => NULL
3594: , p_unit_of_measure2 => NULL) = 0) THEN
3595:
3596: x_errorcode := 51;
3597: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_CHECK_ERR');
3598: -- An error occurred in call to INV_CONVERT.within_deviation
3599: fnd_msg_pub.ADD;
3600: RAISE fnd_api.g_exc_error;
3601: END IF;