[Home] [Help]
23: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
24: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
25: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
26: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
27: FND_MSG_PUB.Add;
28: RAISE FND_API.G_EXC_ERROR;
29: END IF;
30: END Check_Reqd_Param_num;
31:
44: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
45: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
46: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
47: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
48: FND_MSG_PUB.Add;
49: RAISE FND_API.G_EXC_ERROR;
50: END IF;
51: END Check_Reqd_Param_char;
52:
65: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
66: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
67: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
68: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
69: FND_MSG_PUB.Add;
70: RAISE FND_API.G_EXC_ERROR;
71: END IF;
72: END Check_Reqd_Param_date;
73:
93: IF ( p_stack_err_msg = TRUE ) THEN
94: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_EXISTS');
95: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
96: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_item_instance_id);
97: FND_MSG_PUB.Add;
98: END IF;
99: -- RETURN l_return_value;
100: EXCEPTION
101: WHEN NO_DATA_FOUND THEN
171: FROM csi_item_instances
172: WHERE instance_number=p_instance_number;
173: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
174: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
175: FND_MSG_PUB.Add;
176: l_return_value := FALSE;
177: EXCEPTION
178: WHEN NO_DATA_FOUND THEN
179: l_return_value := TRUE;
179: l_return_value := TRUE;
180: WHEN TOO_MANY_ROWS THEN
181: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
182: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
183: FND_MSG_PUB.Add;
184: l_return_value := FALSE;
185: END;
186: -- End addition for eam integration
187: -- Start commentation for eam integration
189: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
190: IF ( p_stack_err_msg = TRUE ) THEN
191: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
192: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
193: FND_MSG_PUB.Add;
194: l_return_value := FALSE;
195: END IF;
196: END IF;
197: */
208: WHERE instance_number = p_instance_number
209: AND instance_id <> p_item_instance_id;
210: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
211: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
212: FND_MSG_PUB.Add;
213: l_return_value := FALSE;
214: EXCEPTION
215: WHEN NO_DATA_FOUND THEN
216: l_return_value := TRUE;
216: l_return_value := TRUE;
217: WHEN TOO_MANY_ROWS THEN
218: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
219: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
220: FND_MSG_PUB.Add;
221: l_return_value := FALSE;
222: END;
223: -- End addition for eam integration
224: END IF;
269: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
270: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
271: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
272:
273: FND_MSG_PUB.Add;
274: END IF;
275: else
276: l_return_value := TRUE;
277: end if;
291: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
292: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
293: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
294: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
295: FND_MSG_PUB.Add;
296: END IF;
297: END IF;
298:
299:
303: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
304: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
305: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
306: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
307: FND_MSG_PUB.Add;
308: End IF;
309: END IF;
310:
311:
425: l_return_value := FALSE;
426: IF ( l_stack_err_msg = TRUE ) THEN
427: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
428: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
429: FND_MSG_PUB.Add;
430: END IF;
431: ELSE
432: p_creation_complete_flag := 'N';
433: l_return_value := TRUE;
447: l_return_value := FALSE;
448: IF ( l_stack_err_msg = TRUE ) THEN
449: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
450: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
451: FND_MSG_PUB.Add;
452: END IF;
453: END;
454: END IF;
455: ELSE
468: l_return_value := FALSE;
469: IF ( l_stack_err_msg = TRUE ) THEN
470: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
471: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
472: FND_MSG_PUB.Add;
473: END IF;
474: END;
475: ELSE
476: l_return_value := TRUE;
481: l_return_value := FALSE;
482: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
483: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
485: FND_MSG_PUB.Add;
486: END IF;
487: END Validate_Revision;
488:
489: /*------------------------------------------------------------*/
531: l_return_value := FALSE;
532: IF ( l_stack_err_msg = TRUE ) THEN
533: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
534: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
535: FND_MSG_PUB.Add;
536: END IF;
537: ELSE
538: BEGIN
539: SELECT 1
548: l_return_value := FALSE;
549: IF ( l_stack_err_msg = TRUE ) THEN
550: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
551: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
552: FND_MSG_PUB.Add;
553: END IF;
554: END;
555: END IF;
556: ELSE
569: l_return_value := FALSE;
570: IF ( l_stack_err_msg = TRUE ) THEN
571: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
572: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
573: FND_MSG_PUB.Add;
574: END IF;
575: END;
576: ELSE
577: l_return_value := TRUE;
581: l_return_value := FALSE;
582: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
583: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
585: FND_MSG_PUB.Add;
586: END IF;
587: END Update_Revision;
588:
589: /*----------------------------------------------------*/
724: WHEN no_data_found THEN
725: l_return_value := FALSE;
726: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
727: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
728: fnd_msg_pub.add;
729: RAISE comp_error;
730: END;
731: --
732: -- srramakr IB should just check for serial number existence in MSN and if it does not exist
847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: l_return_value := FALSE;
849: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
850: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
851: FND_MSG_PUB.ADD;
852: RAISE comp_error;
853: ELSE
854: l_return_value := TRUE;
855: csi_gen_utility_pvt.put_line('Serial Number updated successfully in MTL_SERIAL_NUMBERS..');
898: IF l_temp IS NOT NULL THEN
899: l_return_value := FALSE;
900: fnd_message.set_name('CSI','CSI_SER_CASE4');
901: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
902: fnd_msg_pub.add;
903: RAISE comp_error;
904: END IF;
905: END IF; -- base model exists
906: END IF; -- case 1
926: l_temp := 'x';
927: l_return_value := FALSE;
928: fnd_message.set_name('CSI','CSI_SER_CASE2');
929: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
930: fnd_msg_pub.add;
931: RAISE comp_error;
932: END;
933: --
934: IF l_item_id IS NOT NULL THEN
936: IF l_item_id <> p_inv_item_id THEN
937: l_return_value := FALSE;
938: fnd_message.set_name('CSI','CSI_SER_CASE2');
939: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
940: fnd_msg_pub.add;
941: RAISE comp_error;
942: ELSE
943: RAISE Process_next;
944: END IF;
964: IF l_temp IS NOT NULL THEN
965: l_return_value := FALSE;
966: fnd_message.set_name('CSI','CSI_SER_CASE3');
967: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
968: fnd_msg_pub.add;
969: RAISE comp_error;
970: END IF;
971: END IF; --l_return_value
972: END IF; -- l_serial_type = 2
986: l_temp := 'x';
987: l_return_value := FALSE;
988: fnd_message.set_name('CSI','CSI_SER_CASE3');
989: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
990: fnd_msg_pub.add;
991: RAISE comp_error;
992: END;
993: --
994: IF l_item_id IS NOT NULL THEN
996: IF l_item_id <> p_inv_item_id THEN
997: l_return_value := FALSE;
998: fnd_message.set_name('CSI','CSI_SER_CASE3');
999: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1000: fnd_msg_pub.add;
1001: RAISE comp_error;
1002: ELSE
1003: RAISE Process_next;
1004: END IF;
1059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1060: l_return_value := FALSE;
1061: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1062: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1063: FND_MSG_PUB.ADD;
1064: ELSE
1065: l_return_value := TRUE;
1066: p_ins_flag := FND_API.G_TRUE;
1067: csi_gen_utility_pvt.put_line('Serial Number created successfully in MTL_SERIAL_NUMBERS..');
1142: l_return_value := FALSE;
1143: IF (p_stack_err_msg = TRUE) THEN
1144: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1145: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1146: FND_MSG_PUB.Add;
1147: END IF;
1148: ELSE
1149: p_creation_complete_flag := 'N';
1150: l_return_value := TRUE;
1184: THEN
1185: l_return_value := FALSE;
1186: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1187: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1188: FND_MSG_PUB.Add;
1189: END IF;
1190: ELSE
1191: l_return_value := TRUE;
1192: END IF;
1196: l_return_value := FALSE;
1197: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1198: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1199: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1200: FND_MSG_PUB.Add;
1201: END IF;
1202:
1203: IF l_return_value = TRUE AND
1204: p_serial_number IS NOT NULL AND
1212: ,p_instance_id => p_instance_id
1213: );
1214: IF l_return_value = FALSE THEN
1215: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
1216: fnd_msg_pub.add;
1217: END IF;
1218: END IF;
1219:
1220: END Validate_Serial_Number;
1267: WHEN no_data_found THEN
1268: l_return_value := FALSE;
1269: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1270: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1271: fnd_msg_pub.add;
1272: RAISE comp_error;
1273: END;
1274: --
1275: IF l_serial_type IS NOT NULL
1290: IF l_temp IS NOT NULL THEN
1291: l_return_value := FALSE;
1292: fnd_message.set_name('CSI','CSI_SER_CASE1');
1293: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1294: fnd_msg_pub.add;
1295: RAISE comp_error;
1296: END IF;
1297: --
1298: -- case1 Unique Serial Number within Models and Inventory Items
1324: IF l_temp IS NOT NULL THEN
1325: l_return_value := FALSE;
1326: fnd_message.set_name('CSI','CSI_SER_CASE4');
1327: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1328: fnd_msg_pub.add;
1329: RAISE comp_error;
1330: END IF;
1331: END IF; -- Base Model check
1332: END IF; -- Case1
1353: IF l_temp IS NOT NULL THEN
1354: l_return_value := FALSE;
1355: fnd_message.set_name('CSI','CSI_SER_CASE2');
1356: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1357: fnd_msg_pub.add;
1358: RAISE comp_error;
1359: END IF;
1360: --
1361: IF l_return_value THEN
1372: WHEN TOO_MANY_ROWS THEN
1373: l_return_value := FALSE;
1374: fnd_message.set_name('CSI','CSI_SER_CASE2');
1375: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1376: fnd_msg_pub.add;
1377: RAISE comp_error;
1378: END;
1379: --
1380: IF l_item_id IS NOT NULL THEN
1381: IF l_item_id <> p_inv_item_id THEN
1382: l_return_value := FALSE;
1383: fnd_message.set_name('CSI','CSI_SER_CASE2');
1384: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1385: fnd_msg_pub.add;
1386: RAISE comp_error;
1387: END IF;
1388: END IF;
1389: END IF;
1409: IF l_temp IS NOT NULL THEN
1410: l_return_value := FALSE;
1411: fnd_message.set_name('CSI','CSI_SER_CASE3');
1412: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1413: fnd_msg_pub.add;
1414: RAISE comp_error;
1415: END IF;
1416: END IF; --l_return_value
1417: END IF; -- l_serial_type = 2
1434: IF l_temp IS NOT NULL THEN
1435: l_return_value := FALSE;
1436: fnd_message.set_name('CSI','CSI_SER_CASE3');
1437: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1438: fnd_msg_pub.add;
1439: RAISE comp_error;
1440: END IF;
1441: --
1442: IF l_return_value THEN
1451: WHEN TOO_MANY_ROWS THEN
1452: l_return_value := FALSE;
1453: fnd_message.set_name('CSI','CSI_SER_CASE3');
1454: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1455: fnd_msg_pub.add;
1456: RAISE comp_error;
1457: END;
1458: --
1459: IF l_item_id IS NOT NULL THEN
1460: IF l_item_id <> p_inv_item_id THEN
1461: l_return_value := FALSE;
1462: fnd_message.set_name('CSI','CSI_SER_CASE3');
1463: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1464: fnd_msg_pub.add;
1465: RAISE comp_error;
1466: END IF;
1467: END IF;
1468: END IF;
1522: WHEN NO_DATA_FOUND THEN
1523: l_return_value := FALSE;
1524: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1525: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1526: fnd_msg_pub.add;
1527: RAISE comp_error;
1528: END;
1529: --
1530: -- Lot Number uniqueness
1544: p_auto_lot_number => p_lot_number )
1545: THEN
1546: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1547: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1548: fnd_msg_pub.add;
1549: RAISE comp_error;
1550: ELSE
1551: -- Check for the fundamental uniqueness in Install Base
1552: BEGIN
1566: IF l_temp IS NOT NULL
1567: THEN
1568: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1569: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END IF;
1573: END IF; -- validate_unique_lot
1574: END IF; -- l_lot_type = 1
1617:
1618: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1619: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1620: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1621: FND_MSG_PUB.ADD;
1622: RAISE comp_error;
1623: ELSE
1624: l_return_value := TRUE;
1625: csi_gen_utility_pvt.put_line('Lot Number created successfully in MTL_LOT_NUMBERS..');
1685: THEN
1686: l_return_value := FALSE;
1687: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1688: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1689: FND_MSG_PUB.Add;
1690: ELSE
1691: p_creation_complete_flag := 'N';
1692: l_return_value := TRUE;
1693: END IF;
1702: THEN
1703: l_return_value := FALSE;
1704: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1705: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1706: FND_MSG_PUB.Add;
1707: ELSE
1708: l_return_value := TRUE;
1709: END IF;
1710: --
1714: l_return_value := FALSE;
1715: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1716: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1717: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1718: FND_MSG_PUB.Add;
1719: END IF;
1720: --
1721: END Validate_Lot_Number;
1722: --
1762: l_return_value := FALSE;
1763: IF (p_stack_err_msg = TRUE) THEN
1764: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1765: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1766: FND_MSG_PUB.Add;
1767: END IF;
1768: END IF;
1769: ELSE
1770: IF p_quantity < 0 THEN
1794: l_return_value := FALSE;
1795: IF (p_stack_err_msg = TRUE) THEN
1796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1797: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1798: FND_MSG_PUB.Add;
1799: END IF;
1800: END IF;
1801: ELSE -- Non-WIP Issue transactions
1802: l_return_value := FALSE;
1802: l_return_value := FALSE;
1803: IF (p_stack_err_msg = TRUE) THEN
1804: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1805: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1806: FND_MSG_PUB.Add;
1807: END IF;
1808: END IF;
1809: ELSE -- Qty is driven (+)ve
1810: l_return_value := TRUE;
1828: l_return_value := FALSE;
1829: IF (p_stack_err_msg = TRUE) THEN
1830: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1831: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1832: FND_MSG_PUB.Add;
1833: END IF;
1834: END IF;
1835: EXCEPTION
1836: WHEN NO_DATA_FOUND THEN
1842: l_return_value := FALSE;
1843: IF (p_stack_err_msg = TRUE) THEN
1844: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1845: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1846: FND_MSG_PUB.Add;
1847: END IF;
1848: END IF;
1849: END IF;
1850: RETURN l_return_value;
1962: EXCEPTION
1963: WHEN OTHERS THEN
1964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
1965: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1966: FND_MSG_PUB.Add;
1967: l_return_value := FALSE;
1968: END;
1969: -- if primary uom code exists, then check whether it is same as the uom code passed
1970: IF ((to_unit IS NOT NULL) AND (to_unit <> FND_API.G_MISS_CHAR)) THEN
1990: ELSE
1991: -- raise exception if uom class is invalid
1992: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
1993: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1994: FND_MSG_PUB.Add;
1995: l_return_value := FALSE;
1996: END IF;
1997: END IF;
1998: END Is_Valid_Uom;
2030: l_return_value := FALSE;
2031: IF ( l_stack_err_msg = TRUE ) THEN
2032: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2033: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2034: FND_MSG_PUB.Add;
2035: END IF;
2036: END;
2037: END IF;
2038: END Is_Valid_Condition;
2062: l_return_value := FALSE;
2063: IF ( l_stack_err_msg = TRUE ) THEN
2064: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2065: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2066: FND_MSG_PUB.Add;
2067: END IF;
2068: ELSE
2069: p_creation_complete_flag := 'N';
2070: l_return_value := TRUE;
2082: l_return_value := FALSE;
2083: IF ( l_stack_err_msg = TRUE ) THEN
2084: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2085: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2089: END;
2090: END IF;
2111: IF p_start_date > p_end_date THEN
2112: l_return_value := FALSE;
2113: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2114: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2115: FND_MSG_PUB.Add;
2116:
2117: ELSIF p_end_date < SYSDATE THEN
2118: l_return_value := FALSE;
2119: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2117: ELSIF p_end_date < SYSDATE THEN
2118: l_return_value := FALSE;
2119: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2120: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2121: FND_MSG_PUB.Add;
2122: ELSE l_return_value := TRUE;
2123: END IF;
2124:
2125: ELSE
2151: IF p_start_date > p_end_date THEN
2152: l_return_value := FALSE;
2153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2154: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2155: FND_MSG_PUB.Add;
2156:
2157: ELSIF p_end_date < SYSDATE THEN
2158: l_return_value := FALSE;
2159: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2157: ELSIF p_end_date < SYSDATE THEN
2158: l_return_value := FALSE;
2159: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2160: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2161: FND_MSG_PUB.Add;
2162:
2163: ELSE l_return_value := TRUE;
2164: End IF;
2165:
2205: WHEN NO_DATA_FOUND THEN
2206: IF ( p_stack_err_msg = TRUE ) THEN
2207: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2208: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2209: FND_MSG_PUB.Add;
2210: END IF;
2211: l_return_value := FALSE;
2212: END;
2213: END IF;
2249: WHEN NO_DATA_FOUND THEN
2250: IF ( p_stack_err_msg = TRUE ) THEN
2251: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2252: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2253: FND_MSG_PUB.Add;
2254: END IF;
2255: l_return_value := FALSE;
2256: END;
2257: END IF;
2293: WHEN NO_DATA_FOUND THEN
2294: IF ( p_stack_err_msg = TRUE ) THEN
2295: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2296: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2297: FND_MSG_PUB.Add;
2298: END IF;
2299: l_return_value := FALSE;
2300: END;
2301: END IF;
2335: EXCEPTION
2336: WHEN NO_DATA_FOUND THEN
2337: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2338: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2339: FND_MSG_PUB.Add;
2340: l_return_value := FALSE;
2341: END;
2342: END IF;
2343: RETURN l_return_value;
2372: EXCEPTION
2373: WHEN NO_DATA_FOUND THEN
2374: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2375: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2376: FND_MSG_PUB.Add;
2377: l_return_value := FALSE;
2378: END;
2379: END IF;
2380: RETURN l_return_value;
2405: ELSE
2406: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2407: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2408: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2409: FND_MSG_PUB.Add;
2410: l_return_value := FALSE;
2411: END IF;
2412: EXCEPTION
2413: WHEN NO_DATA_FOUND THEN
2413: WHEN NO_DATA_FOUND THEN
2414: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2415: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2417: FND_MSG_PUB.Add;
2418: l_return_value := FALSE;
2419: END;
2420: RETURN l_return_value;
2421: END is_status_updateable;
2498: -- AND b.relationship_type_code = 'OWNER';
2499:
2500: l_return_value := FALSE;
2501: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2502: FND_MSG_PUB.ADD;
2503:
2504: EXCEPTION
2505: WHEN NO_DATA_FOUND THEN
2506: l_return_value := TRUE;
2505: WHEN NO_DATA_FOUND THEN
2506: l_return_value := TRUE;
2507: WHEN TOO_MANY_ROWS THEN
2508: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2509: FND_MSG_PUB.ADD;
2510: l_return_value := FALSE;
2511: WHEN OTHERS THEN
2512: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2513: FND_MSG_PUB.ADD;
2509: FND_MSG_PUB.ADD;
2510: l_return_value := FALSE;
2511: WHEN OTHERS THEN
2512: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2513: FND_MSG_PUB.ADD;
2514: l_return_value := FALSE;
2515: END;
2516: END IF; -- end if for inventory check
2517: END IF; --end if for serial check
2558: WHEN NO_DATA_FOUND THEN
2559: IF ( p_stack_err_msg = TRUE ) THEN
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2561: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2562: FND_MSG_PUB.Add;
2563: END IF;
2564: l_return_value := FALSE;
2565: END;
2566: END IF;
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3279: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3280: FND_MSG_PUB.Add;
3281:
3282: END get_csi_item_instance_h_id;
3283:
3284: /*-----------------------------------------------------------*/
3406: l_return_value := FALSE;
3407: IF (p_stack_err_msg = TRUE) THEN
3408: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3409: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3410: FND_MSG_PUB.Add;
3411: END IF;
3412: ELSE
3413: l_return_value := TRUE;
3414: END IF;
3450: THEN
3451: l_return_value := FALSE;
3452: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3453: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3454: FND_MSG_PUB.Add;
3455: END IF;
3456: ELSE
3457: l_return_value := TRUE;
3458: END IF;
3462: l_return_value := FALSE;
3463: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3464: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3465: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3466: FND_MSG_PUB.Add;
3467: END IF;
3468: --
3469: IF l_return_value = TRUE
3470: THEN
3476: ,l_return_value => l_return_value
3477: );
3478: IF l_return_value = FALSE THEN
3479: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
3480: fnd_msg_pub.add;
3481: END IF;
3482: END IF;
3483: END Validate_srl_num_for_Inst_Upd;
3484:
3518: l_return_value := FALSE;
3519: IF (p_stack_err_msg = TRUE) THEN
3520: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3521: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3522: FND_MSG_PUB.Add;
3523: END IF;
3524: END IF;
3525: ELSE
3526: IF p_quantity < 0 THEN
3533: l_return_value := FALSE;
3534: IF (p_stack_err_msg = TRUE) THEN
3535: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3536: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3537: FND_MSG_PUB.Add;
3538: END IF;
3539: END IF;
3540: END IF;
3541: CLOSE C1;
3549: l_return_value := FALSE;
3550: IF (p_stack_err_msg = TRUE) THEN
3551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3552: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3553: FND_MSG_PUB.Add;
3554: END IF;
3555: END IF;
3556: EXCEPTION
3557: WHEN NO_DATA_FOUND THEN
3560: l_return_value := FALSE;
3561: IF (p_stack_err_msg = TRUE) THEN
3562: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3563: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3564: FND_MSG_PUB.Add;
3565: END IF;
3566: END;
3567: END IF;
3568: END IF;
3670: l_return_value := FALSE;
3671: IF ( p_stack_err_msg = TRUE ) THEN
3672: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3673: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3674: FND_MSG_PUB.Add;
3675: END IF;
3676: END;
3677: RETURN l_return_value;
3678: END Is_InstanceID_Valid;
3710: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3711: l_return_value := FALSE;
3712: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3713: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3714: FND_MSG_PUB.Add;
3715: RETURN l_return_value;
3716: csi_gen_utility_pvt.put_line('value of end date in ITEM_VLD_PVT before check for p_end_date < sysdate:'||to_char(p_end_date, 'DD-MON-YYYY HH24:MI:SS'));
3717: csi_gen_utility_pvt.put_line('value of sysdate:'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3718: ELSIF p_end_date < sysdate THEN -- srramakr
3739: l_return_value := FALSE;
3740: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3741: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3742: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3743: FND_MSG_PUB.ADD;
3744: RETURN l_return_value;
3745: END IF;
3746: END IF;
3747: CLOSE c1;
3904: WHEN NO_DATA_FOUND THEN
3905: IF ( p_stack_err_msg = TRUE ) THEN
3906: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3907: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3908: FND_MSG_PUB.Add;
3909: END IF;
3910: RETURN FALSE;
3911:
3912: END Val_and_get_inst_rec;
3933: WHEN NO_DATA_FOUND THEN
3934: IF ( p_stack_err_msg = TRUE ) THEN
3935: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
3936: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
3937: FND_MSG_PUB.Add;
3938: END IF;
3939: RETURN FALSE;
3940:
3941:
3962: THEN
3963: IF ( p_stack_err_msg = TRUE ) THEN
3964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
3965: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3966: FND_MSG_PUB.Add;
3967: END IF;
3968: RETURN FALSE;
3969: END IF;
3970:
3979: WHEN NO_DATA_FOUND THEN
3980: IF ( p_stack_err_msg = TRUE ) THEN
3981: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
3982: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3983: FND_MSG_PUB.Add;
3984: END IF;
3985: RETURN FALSE;
3986:
3987: END val_item_org;
4007: THEN
4008: IF ( p_stack_err_msg = TRUE ) THEN
4009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4010: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4011: FND_MSG_PUB.Add;
4012: END IF;
4013: RETURN FALSE;
4014: END IF;
4015:
4025: WHEN NO_DATA_FOUND THEN
4026: IF ( p_stack_err_msg = TRUE ) THEN
4027: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4028: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4029: FND_MSG_PUB.Add;
4030: END IF;
4031: RETURN FALSE;
4032:
4033: END val_bom_org;
4087: and rownum < 2;
4088: IF ( p_stack_err_msg = TRUE ) THEN
4089: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4090: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4091: FND_MSG_PUB.Add;
4092: END IF;
4093: RETURN TRUE;
4094:
4095: EXCEPTION
4126: IF p_start_date > p_end_date THEN
4127: l_return_value := FALSE;
4128: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4129: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4130: FND_MSG_PUB.Add;
4131: RETURN l_return_value;
4132: END IF;
4133: END IF;
4134:
4138: l_return_value := FALSE;
4139: IF ( p_stack_err_msg = TRUE ) THEN
4140: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4141: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4142: FND_MSG_PUB.Add;
4143: END IF;
4144: CLOSE c1;
4145: RETURN l_return_value;
4146: END IF;
4151: l_return_value := FALSE;
4152: IF ( p_stack_err_msg = TRUE ) THEN
4153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4154: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4155: FND_MSG_PUB.Add;
4156: END IF;
4157: END IF;
4158: RETURN l_return_value;
4159: END Is_Ver_StartDate_Valid;
4188: IF p_end_date < sysdate THEN
4189: l_return_value := FALSE;
4190: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4191: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4192: FND_MSG_PUB.Add;
4193: RETURN l_return_value;
4194: END IF;
4195: END IF;
4196:
4203: l_return_value := FALSE;
4204: IF ( p_stack_err_msg = TRUE ) THEN
4205: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4206: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4207: FND_MSG_PUB.Add;
4208: END IF;
4209: END IF;
4210: END IF;
4211: CLOSE c1;
4230: END IF;
4231: --
4232: IF csi_datastructures_pub.g_install_param_rec.fetch_flag = 'N' THEN
4233: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
4234: FND_MSG_PUB.ADD;
4235: l_return_value := FALSE;
4236: RETURN l_return_value;
4237: END IF;
4238: --
4247: IF ((p_location_source_table IS NULL) OR (p_location_source_table = FND_API.G_MISS_CHAR) OR
4248: (p_location_id IS NULL) OR (p_location_id = FND_API.G_MISS_NUM) )
4249: THEN
4250: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
4251: FND_MSG_PUB.ADD;
4252: l_return_value := FALSE;
4253: RETURN l_return_value;
4254: END IF;
4255:
4266: WHEN NO_DATA_FOUND THEN
4267: l_return_value := FALSE;
4268: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4269: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4270: FND_MSG_PUB.Add;
4271: RETURN l_return_value;
4272: END;
4273: -- End addition of code for R12
4274:
4282: EXCEPTION
4283: WHEN NO_DATA_FOUND THEN
4284: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_LOC_ID');
4285: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4286: FND_MSG_PUB.Add;
4287: l_return_value := FALSE;
4288: RETURN l_return_value;
4289: END;
4290: ELSIF (p_location_source_table = 'HZ_LOCATIONS') THEN
4297: EXCEPTION
4298: WHEN NO_DATA_FOUND THEN
4299: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_LOC_ID');
4300: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4301: FND_MSG_PUB.Add;
4302: l_return_value :=FALSE;
4303: RETURN l_return_value;
4304: END;
4305: ELSIF (p_location_source_table = 'VENDOR_SITE') THEN
4312: EXCEPTION
4313: WHEN NO_DATA_FOUND THEN
4314: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4315: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4316: FND_MSG_PUB.Add;
4317: l_return_value := FALSE;
4318: RETURN l_return_value;
4319: END;
4320: ELSIF (p_location_source_table = 'INVENTORY') THEN
4328: WHEN NO_DATA_FOUND THEN
4329: l_return_value := FALSE;
4330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4331: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4332: FND_MSG_PUB.Add;
4333: RETURN l_return_value;
4334: END;
4335: ELSIF (p_location_source_table = 'PROJECT') THEN
4336: -- srramakr PROJECT location could from HR or HZ. Since they share the same sequence,
4352: EXCEPTION
4353: WHEN NO_DATA_FOUND THEN
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4356: FND_MSG_PUB.Add;
4357: l_return_value := FALSE;
4358: RETURN l_return_value;
4359: END;
4360: END;
4368: EXCEPTION
4369: WHEN NO_DATA_FOUND THEN
4370: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4371: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4372: FND_MSG_PUB.Add;
4373: l_return_value := FALSE;
4374: RETURN l_return_value;
4375: END;
4376: ELSIF p_location_source_table IN ( 'HR_LOCATIONS') THEN
4383: EXCEPTION
4384: WHEN NO_DATA_FOUND THEN
4385: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4386: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4387: FND_MSG_PUB.Add;
4388: l_return_value := FALSE;
4389: RETURN l_return_value;
4390: END;
4391: ELSE
4391: ELSE
4392: l_return_value := FALSE;
4393: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4394: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4395: FND_MSG_PUB.Add;
4396: END IF;
4397: RETURN l_return_value;
4398: END Is_Valid_Location_ID;
4399: --
4432: l_return_value:= TRUE;
4433: ELSE
4434: l_return_value:= FALSE;
4435: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4436: FND_MSG_PUB.Add;
4437: RETURN l_return_value;
4438: END IF;
4439: END IF;
4440: --
4451: l_return_value:= TRUE;
4452: ELSE
4453: l_return_value:= FALSE;
4454: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4455: FND_MSG_PUB.Add;
4456: RETURN l_return_value;
4457: END IF;
4458: -----------
4459: IF ( (p_project_id IS NOT NULL AND p_project_id <> FND_API.G_MISS_NUM) OR
4470: WHEN NO_DATA_FOUND THEN
4471: l_return_value:= FALSE;
4472: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4473: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4474: FND_MSG_PUB.Add;
4475: RETURN l_return_value;
4476: END;
4477: ELSE
4478: l_return_value:= FALSE;
4476: END;
4477: ELSE
4478: l_return_value:= FALSE;
4479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4480: FND_MSG_PUB.Add;
4481: RETURN l_return_value;
4482: END IF; -- usage code = 'INSTALLED'
4483: END IF; -- Project id , task id provided
4484:
4497: l_return_value:= TRUE;
4498: ELSE
4499: l_return_value:= FALSE;
4500: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4501: FND_MSG_PUB.Add;
4502: RETURN l_return_value;
4503: END IF;
4504: END IF;
4505: --
4521: EXCEPTION
4522: WHEN NO_DATA_FOUND THEN
4523: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4524: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4525: FND_MSG_PUB.Add;
4526: l_return_value := FALSE;
4527: RETURN l_return_value;
4528: END;
4529: -- Validate Locator_ID srramakr
4540: EXCEPTION
4541: WHEN NO_DATA_FOUND THEN
4542: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4543: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4544: FND_MSG_PUB.Add;
4545: l_return_value := FALSE;
4546: RETURN l_return_value;
4547: END;
4548: END IF;
4548: END IF;
4549: ELSE
4550: l_return_value := FALSE;
4551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INVENTORY_LOC');
4552: FND_MSG_PUB.Add;
4553: RETURN l_return_value;
4554: END IF;
4555: END IF;
4556: END IF;
4563: l_return_value:= TRUE;
4564: ELSE
4565: l_return_value:= FALSE;
4566: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4567: FND_MSG_PUB.Add;
4568: RETURN l_return_value;
4569: END IF;
4570: END IF; -- INVENTORY
4571: --
4582: l_return_value:= TRUE;
4583: ELSE
4584: l_return_value:= FALSE;
4585: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4586: FND_MSG_PUB.Add;
4587: RETURN l_return_value;
4588: END IF;
4589: END IF;
4590: --
4605: l_return_value:= TRUE;
4606: ELSE
4607: l_return_value:= FALSE;
4608: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4609: FND_MSG_PUB.Add;
4610: RETURN l_return_value;
4611: END IF;
4612:
4613: EXCEPTION
4614: WHEN NO_DATA_FOUND THEN
4615: l_return_value:= FALSE;
4616: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4617: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4618: FND_MSG_PUB.Add;
4619: RETURN l_return_value;
4620: END;
4621: --
4622: ELSIF (p_location_source_table = 'PROJECT') THEN
4637: l_return_value:= TRUE;
4638: ELSE
4639: l_return_value:= FALSE;
4640: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4641: FND_MSG_PUB.Add;
4642: RETURN l_return_value;
4643: END IF;
4644:
4645: EXCEPTION
4646: WHEN NO_DATA_FOUND THEN
4647: l_return_value:= FALSE;
4648: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4649: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4650: FND_MSG_PUB.Add;
4651: RETURN l_return_value;
4652: END;
4653:
4654: ELSIF (p_location_source_table = 'IN_TRANSIT') THEN
4668: l_return_value:= TRUE;
4669: ELSE
4670: l_return_value:= FALSE;
4671: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4672: FND_MSG_PUB.Add;
4673: RETURN l_return_value;
4674: END IF;
4675:
4676: EXCEPTION
4677: WHEN NO_DATA_FOUND THEN
4678: l_return_value:= FALSE;
4679: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4680: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4681: FND_MSG_PUB.Add;
4682: RETURN l_return_value;
4683: END;
4684: --
4685: ELSIF (p_location_source_table = 'PO') THEN
4699: l_return_value:= TRUE;
4700: ELSE
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4703: FND_MSG_PUB.Add;
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END IF;
4707: EXCEPTION
4700: ELSE
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4703: FND_MSG_PUB.Add;
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END IF;
4707: EXCEPTION
4708: WHEN NO_DATA_FOUND THEN
4708: WHEN NO_DATA_FOUND THEN
4709: l_return_value:= FALSE;
4710: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4711: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4712: FND_MSG_PUB.Add;
4713: RETURN l_return_value;
4714: END;
4715: END IF;
4716: RETURN l_return_value;
5023: csi_datastructures_pub.g_install_param_rec.freeze_date);
5024:
5025: IF l_txn_seq_start_date IS NULL THEN
5026: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5027: FND_MSG_PUB.ADD;
5028: raise fnd_api.g_exc_error;
5029: END IF;
5030:
5031: IF p_instance_rec.last_txn_line_detail_id IS NULL OR
5111: IF l_pending_txn_tbl.count > 0 THEN
5112: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5113: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5114: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5115: fnd_msg_pub.add;
5116: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5117: raise fnd_api.g_exc_error;
5118: END IF;
5119: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5119: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5120: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5121: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5122: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5123: fnd_msg_pub.add;
5124: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5125: RAISE fnd_api.g_exc_error;
5126: END IF;
5127: END IF;
5160: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5161: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5162: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5163: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5164: fnd_msg_pub.add;
5165: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5166: RAISE fnd_api.g_exc_error;
5167: END IF;
5168: END IF;
5179: EXCEPTION
5180: WHEN no_data_found THEN
5181: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5182: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5183: fnd_msg_pub.add;
5184: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5185: RAISE fnd_api.g_exc_error;
5186: END;
5187: END IF;
5225: End;
5226: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5227: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5228: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5229: FND_MSG_PUB.Add;
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232: END IF; -- Item-srl# not null check
5233: EXCEPTION
5560: IF l_validation_status <> 0 THEN
5561: l_return_status := FND_API.G_RET_STS_ERROR;
5562: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5563: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5564: FND_MSG_PUB.ADD;
5565: END IF;
5566:
5567: IF (l_html_pieces.COUNT <= 0) THEN
5568: l_return_status := FND_API.G_RET_STS_ERROR;
5567: IF (l_html_pieces.COUNT <= 0) THEN
5568: l_return_status := FND_API.G_RET_STS_ERROR;
5569: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5570: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5571: FND_MSG_PUB.ADD;
5572: END IF;
5573:
5574:
5575: IF l_html_pieces.COUNT >0
5798: THEN
5799: l_return_status:=FND_API.G_RET_STS_ERROR;
5800: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5801: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
5802: FND_MSG_PUB.ADD;
5803: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
5804: END IF;
5805: */
5806:
5888: LOOP
5889: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
5890: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
5891: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
5892: fnd_msg_pub.add;
5893: RAISE fnd_api.g_exc_error;
5894: END LOOP;
5895:
5896: FOR oi_rec IN oi_cur
5895:
5896: FOR oi_rec IN oi_cur
5897: LOOP
5898: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_OI');
5899: fnd_msg_pub.add;
5900: RAISE fnd_api.g_exc_error;
5901: END LOOP;
5902:
5903: RETURN FALSE;
5970: THEN
5971: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
5972: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
5973: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
5974: fnd_msg_pub.add;
5975: RAISE fnd_api.g_exc_error;
5976: END IF;
5977: END IF;
5978:
5985: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
5986: LOOP
5987: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
5988: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
5989: fnd_msg_pub.add;
5990: RAISE fnd_api.g_exc_error;
5991: END LOOP;
5992:
5993: --uncommented the code and brought the code up for bug 6965008
6015: --
6016: IF l_rec_count > 0 THEN
6017: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6018: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6019: fnd_msg_pub.add;
6020: RAISE fnd_api.g_exc_error;
6021: END IF;
6022: END IF;
6023:
6032: --start of code fix for 6176621
6033: IF l_current_status <> 4 THEN
6034: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6035: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6036: fnd_msg_pub.add;
6037: RAISE fnd_api.g_exc_error;
6038: END IF;
6039: --code fix end for 6176621
6040: --
6041: FOR mog_rec IN mog_cur(l_gen_object_id)
6042: LOOP
6043: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6044: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6045: fnd_msg_pub.add;
6046: RAISE fnd_api.g_exc_error;
6047: END LOOP;
6048:
6049: -- check pending transaction in open interface and installation detail references
6075: l_current_txn_id)
6076: LOOP
6077: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6078: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6079: fnd_msg_pub.add;
6080: RAISE fnd_api.g_exc_error;
6081: END LOOP;
6082: END IF;
6083: ----uncommented code for 6965008
6083: ----uncommented code for 6965008
6084: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6085: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6086: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6087: fnd_msg_pub.add;
6088: --
6089: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6090: -- x_return_status := 'W';
6091: EXCEPTION
6172: END IF;
6173:
6174: IF l_txn_seq_start_date is null THEN
6175: fnd_message.set_name('CSI','CSI_API_UNINSTALLED_PARAMETER');
6176: fnd_msg_pub.add;
6177: raise fnd_api.g_exc_error;
6178: END IF;
6179:
6180: FOR unit_txn_rec IN unit_txn_cur