[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: -- Bug 9744517 (FP 9691025)
100: RETURN l_return_value;
101: EXCEPTION
172: FROM csi_item_instances
173: WHERE instance_number=p_instance_number;
174: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
175: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
176: FND_MSG_PUB.Add;
177: l_return_value := FALSE;
178: EXCEPTION
179: WHEN NO_DATA_FOUND THEN
180: l_return_value := TRUE;
180: l_return_value := TRUE;
181: WHEN TOO_MANY_ROWS THEN
182: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
183: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
184: FND_MSG_PUB.Add;
185: l_return_value := FALSE;
186: END;
187: -- End addition for eam integration
188: -- Start commentation for eam integration
190: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
191: IF ( p_stack_err_msg = TRUE ) THEN
192: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
193: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
194: FND_MSG_PUB.Add;
195: l_return_value := FALSE;
196: END IF;
197: END IF;
198: */
209: WHERE instance_number = p_instance_number
210: AND instance_id <> p_item_instance_id;
211: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
212: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
213: FND_MSG_PUB.Add;
214: l_return_value := FALSE;
215: EXCEPTION
216: WHEN NO_DATA_FOUND THEN
217: l_return_value := TRUE;
217: l_return_value := TRUE;
218: WHEN TOO_MANY_ROWS THEN
219: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
220: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
221: FND_MSG_PUB.Add;
222: l_return_value := FALSE;
223: END;
224: -- End addition for eam integration
225: END IF;
270: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
272: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
273:
274: FND_MSG_PUB.Add;
275: END IF;
276: else
277: l_return_value := TRUE;
278: end if;
292: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
293: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
294: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
295: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
296: FND_MSG_PUB.Add;
297: END IF;
298: END IF;
299:
300:
304: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
305: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
306: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
307: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
308: FND_MSG_PUB.Add;
309: End IF;
310: END IF;
311:
312:
426: l_return_value := FALSE;
427: IF ( l_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
429: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
430: FND_MSG_PUB.Add;
431: END IF;
432: ELSE
433: p_creation_complete_flag := 'N';
434: l_return_value := TRUE;
448: l_return_value := FALSE;
449: IF ( l_stack_err_msg = TRUE ) THEN
450: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
451: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
452: FND_MSG_PUB.Add;
453: END IF;
454: END;
455: END IF;
456: ELSE
469: l_return_value := FALSE;
470: IF ( l_stack_err_msg = TRUE ) THEN
471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
472: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
473: FND_MSG_PUB.Add;
474: END IF;
475: END;
476: ELSE
477: l_return_value := TRUE;
482: l_return_value := FALSE;
483: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
485: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
486: FND_MSG_PUB.Add;
487: END IF;
488: END Validate_Revision;
489:
490: /*------------------------------------------------------------*/
532: l_return_value := FALSE;
533: IF ( l_stack_err_msg = TRUE ) THEN
534: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
535: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
536: FND_MSG_PUB.Add;
537: END IF;
538: ELSE
539: BEGIN
540: SELECT 1
549: l_return_value := FALSE;
550: IF ( l_stack_err_msg = TRUE ) THEN
551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
552: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
553: FND_MSG_PUB.Add;
554: END IF;
555: END;
556: END IF;
557: ELSE
570: l_return_value := FALSE;
571: IF ( l_stack_err_msg = TRUE ) THEN
572: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
573: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
574: FND_MSG_PUB.Add;
575: END IF;
576: END;
577: ELSE
578: l_return_value := TRUE;
582: l_return_value := FALSE;
583: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
585: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
586: FND_MSG_PUB.Add;
587: END IF;
588: END Update_Revision;
589:
590: /*----------------------------------------------------*/
725: WHEN no_data_found THEN
726: l_return_value := FALSE;
727: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
728: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
729: fnd_msg_pub.add;
730: RAISE comp_error;
731: END;
732: --
733: -- srramakr IB should just check for serial number existence in MSN and if it does not exist
848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
849: l_return_value := FALSE;
850: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
851: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
852: FND_MSG_PUB.ADD;
853: RAISE comp_error;
854: ELSE
855: l_return_value := TRUE;
856: csi_gen_utility_pvt.put_line('Serial Number updated successfully in MTL_SERIAL_NUMBERS..');
899: IF l_temp IS NOT NULL THEN
900: l_return_value := FALSE;
901: fnd_message.set_name('CSI','CSI_SER_CASE4');
902: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
903: fnd_msg_pub.add;
904: RAISE comp_error;
905: END IF;
906: END IF; -- base model exists
907: END IF; -- case 1
927: l_temp := 'x';
928: l_return_value := FALSE;
929: fnd_message.set_name('CSI','CSI_SER_CASE2');
930: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
931: fnd_msg_pub.add;
932: RAISE comp_error;
933: END;
934: --
935: IF l_item_id IS NOT NULL THEN
937: IF l_item_id <> p_inv_item_id THEN
938: l_return_value := FALSE;
939: fnd_message.set_name('CSI','CSI_SER_CASE2');
940: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
941: fnd_msg_pub.add;
942: RAISE comp_error;
943: ELSE
944: RAISE Process_next;
945: END IF;
965: IF l_temp IS NOT NULL THEN
966: l_return_value := FALSE;
967: fnd_message.set_name('CSI','CSI_SER_CASE3');
968: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
969: fnd_msg_pub.add;
970: RAISE comp_error;
971: END IF;
972: END IF; --l_return_value
973: END IF; -- l_serial_type = 2
987: l_temp := 'x';
988: l_return_value := FALSE;
989: fnd_message.set_name('CSI','CSI_SER_CASE3');
990: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
991: fnd_msg_pub.add;
992: RAISE comp_error;
993: END;
994: --
995: IF l_item_id IS NOT NULL THEN
997: IF l_item_id <> p_inv_item_id THEN
998: l_return_value := FALSE;
999: fnd_message.set_name('CSI','CSI_SER_CASE3');
1000: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1001: fnd_msg_pub.add;
1002: RAISE comp_error;
1003: ELSE
1004: RAISE Process_next;
1005: END IF;
1060: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1061: l_return_value := FALSE;
1062: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1063: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1064: FND_MSG_PUB.ADD;
1065: ELSE
1066: l_return_value := TRUE;
1067: p_ins_flag := FND_API.G_TRUE;
1068: csi_gen_utility_pvt.put_line('Serial Number created successfully in MTL_SERIAL_NUMBERS..');
1166: l_return_value := FALSE;
1167: IF (p_stack_err_msg = TRUE) THEN
1168: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1169: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1170: FND_MSG_PUB.Add;
1171: END IF;
1172: ELSE
1173: p_creation_complete_flag := 'N';
1174: l_return_value := TRUE;
1209: THEN
1210: l_return_value := FALSE;
1211: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1212: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1213: FND_MSG_PUB.Add;
1214: END IF;
1215: ELSE
1216: l_return_value := TRUE;
1217: END IF;
1221: l_return_value := FALSE;
1222: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1223: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1224: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1225: FND_MSG_PUB.Add;
1226: END IF;
1227:
1228: IF l_return_value = TRUE AND
1229: p_serial_number IS NOT NULL AND
1238: );
1239: --Commented out code for bug 7657438, no need to raise more than one error message
1240: /*IF l_return_value = FALSE THEN
1241: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
1242: fnd_msg_pub.add;
1243: END IF;*/
1244: END IF;
1245:
1246: END Validate_Serial_Number;
1297: WHEN no_data_found THEN
1298: l_return_value := FALSE;
1299: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1300: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1301: fnd_msg_pub.add;
1302: RAISE comp_error;
1303: END;
1304: --
1305: IF l_serial_type IS NOT NULL
1320: IF l_temp IS NOT NULL THEN
1321: l_return_value := FALSE;
1322: fnd_message.set_name('CSI','CSI_SER_CASE1');
1323: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1324: fnd_msg_pub.add;
1325: RAISE comp_error;
1326: END IF;
1327: --
1328: -- case1 Unique Serial Number within Models and Inventory Items
1368: IF l_temp IS NOT NULL THEN
1369: l_return_value := FALSE;
1370: fnd_message.set_name('CSI','CSI_SER_CASE4');
1371: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1372: fnd_msg_pub.add;
1373: RAISE comp_error;
1374: END IF;
1375: END IF; -- Base Model check
1376: END IF; -- Case1
1397: IF l_temp IS NOT NULL THEN
1398: l_return_value := FALSE;
1399: fnd_message.set_name('CSI','CSI_SER_CASE2');
1400: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1401: fnd_msg_pub.add;
1402: RAISE comp_error;
1403: END IF;
1404: --
1405: IF l_return_value THEN
1416: WHEN TOO_MANY_ROWS THEN
1417: l_return_value := FALSE;
1418: fnd_message.set_name('CSI','CSI_SER_CASE2');
1419: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1420: fnd_msg_pub.add;
1421: RAISE comp_error;
1422: END;
1423: --
1424: IF l_item_id IS NOT NULL THEN
1425: IF l_item_id <> p_inv_item_id THEN
1426: l_return_value := FALSE;
1427: fnd_message.set_name('CSI','CSI_SER_CASE2');
1428: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1429: fnd_msg_pub.add;
1430: RAISE comp_error;
1431: END IF;
1432: END IF;
1433: END IF;
1453: IF l_temp IS NOT NULL THEN
1454: l_return_value := FALSE;
1455: fnd_message.set_name('CSI','CSI_SER_CASE3');
1456: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1457: fnd_msg_pub.add;
1458: RAISE comp_error;
1459: END IF;
1460: END IF; --l_return_value
1461: END IF; -- l_serial_type = 2
1478: IF l_temp IS NOT NULL THEN
1479: l_return_value := FALSE;
1480: fnd_message.set_name('CSI','CSI_SER_CASE3');
1481: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1482: fnd_msg_pub.add;
1483: RAISE comp_error;
1484: END IF;
1485: --
1486: IF l_return_value THEN
1495: WHEN TOO_MANY_ROWS THEN
1496: l_return_value := FALSE;
1497: fnd_message.set_name('CSI','CSI_SER_CASE3');
1498: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1499: fnd_msg_pub.add;
1500: RAISE comp_error;
1501: END;
1502: --
1503: IF l_item_id IS NOT NULL THEN
1504: IF l_item_id <> p_inv_item_id THEN
1505: l_return_value := FALSE;
1506: fnd_message.set_name('CSI','CSI_SER_CASE3');
1507: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1508: fnd_msg_pub.add;
1509: RAISE comp_error;
1510: END IF;
1511: END IF;
1512: END IF;
1566: WHEN NO_DATA_FOUND THEN
1567: l_return_value := FALSE;
1568: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1569: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END;
1573: --
1574: -- Lot Number uniqueness
1588: p_auto_lot_number => p_lot_number )
1589: THEN
1590: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1591: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1592: fnd_msg_pub.add;
1593: RAISE comp_error;
1594: ELSE
1595: -- Check for the fundamental uniqueness in Install Base
1596: BEGIN
1610: IF l_temp IS NOT NULL
1611: THEN
1612: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1613: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1614: fnd_msg_pub.add;
1615: RAISE comp_error;
1616: END IF;
1617: END IF; -- validate_unique_lot
1618: END IF; -- l_lot_type = 1
1661:
1662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1663: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1664: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1665: FND_MSG_PUB.ADD;
1666: RAISE comp_error;
1667: ELSE
1668: l_return_value := TRUE;
1669: csi_gen_utility_pvt.put_line('Lot Number created successfully in MTL_LOT_NUMBERS..');
1730: THEN
1731: l_return_value := FALSE;
1732: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1733: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1734: FND_MSG_PUB.Add;
1735: ELSE
1736: p_creation_complete_flag := 'N';
1737: l_return_value := TRUE;
1738: END IF;
1747: THEN
1748: l_return_value := FALSE;
1749: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1750: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1751: FND_MSG_PUB.Add;
1752: ELSE
1753: l_return_value := TRUE;
1754: END IF;
1755: --
1759: l_return_value := FALSE;
1760: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1761: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1762: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1763: FND_MSG_PUB.Add;
1764: END IF;
1765: --
1766: END Validate_Lot_Number;
1767: --
1807: l_return_value := FALSE;
1808: IF (p_stack_err_msg = TRUE) THEN
1809: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1810: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1811: FND_MSG_PUB.Add;
1812: END IF;
1813: END IF;
1814: ELSE
1815: IF p_quantity < 0 THEN
1839: l_return_value := FALSE;
1840: IF (p_stack_err_msg = TRUE) THEN
1841: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1842: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1843: FND_MSG_PUB.Add;
1844: END IF;
1845: END IF;
1846: ELSE -- Non-WIP Issue transactions
1847: l_return_value := FALSE;
1847: l_return_value := FALSE;
1848: IF (p_stack_err_msg = TRUE) THEN
1849: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1850: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1851: FND_MSG_PUB.Add;
1852: END IF;
1853: END IF;
1854: ELSE -- Qty is driven (+)ve
1855: l_return_value := TRUE;
1873: l_return_value := FALSE;
1874: IF (p_stack_err_msg = TRUE) THEN
1875: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1876: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1877: FND_MSG_PUB.Add;
1878: END IF;
1879: END IF;
1880: EXCEPTION
1881: WHEN NO_DATA_FOUND THEN
1887: l_return_value := FALSE;
1888: IF (p_stack_err_msg = TRUE) THEN
1889: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1890: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1891: FND_MSG_PUB.Add;
1892: END IF;
1893: END IF;
1894: END IF;
1895: RETURN l_return_value;
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
2010: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2011: FND_MSG_PUB.Add;
2012: l_return_value := FALSE;
2013: END;
2014: -- if primary uom code exists, then check whether it is same as the uom code passed
2015: IF ((to_unit IS NOT NULL) AND (to_unit <> FND_API.G_MISS_CHAR)) THEN
2035: ELSE
2036: -- raise exception if uom class is invalid
2037: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
2038: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2039: FND_MSG_PUB.Add;
2040: l_return_value := FALSE;
2041: END IF;
2042: END IF;
2043: END Is_Valid_Uom;
2075: l_return_value := FALSE;
2076: IF ( l_stack_err_msg = TRUE ) THEN
2077: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2078: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2079: FND_MSG_PUB.Add;
2080: END IF;
2081: END;
2082: END IF;
2083: END Is_Valid_Condition;
2107: l_return_value := FALSE;
2108: IF ( l_stack_err_msg = TRUE ) THEN
2109: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2110: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2111: FND_MSG_PUB.Add;
2112: END IF;
2113: ELSE
2114: p_creation_complete_flag := 'N';
2115: l_return_value := TRUE;
2127: l_return_value := FALSE;
2128: IF ( l_stack_err_msg = TRUE ) THEN
2129: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2130: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2131: FND_MSG_PUB.Add;
2132: END IF;
2133:
2134: END;
2135: END IF;
2156: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2157: l_return_value := FALSE;
2158: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2159: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2160: FND_MSG_PUB.Add;
2161:
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2163: l_return_value := FALSE;
2164: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2163: l_return_value := FALSE;
2164: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2165: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2166: FND_MSG_PUB.Add;
2167: ELSE l_return_value := TRUE;
2168: END IF;
2169:
2170: ELSE
2196: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2197: l_return_value := FALSE;
2198: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2199: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2200: FND_MSG_PUB.Add;
2201:
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2203: l_return_value := FALSE;
2204: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2203: l_return_value := FALSE;
2204: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2205: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2206: FND_MSG_PUB.Add;
2207:
2208: ELSE l_return_value := TRUE;
2209: End IF;
2210:
2250: WHEN NO_DATA_FOUND THEN
2251: IF ( p_stack_err_msg = TRUE ) THEN
2252: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2253: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2254: FND_MSG_PUB.Add;
2255: END IF;
2256: l_return_value := FALSE;
2257: END;
2258: END IF;
2294: WHEN NO_DATA_FOUND THEN
2295: IF ( p_stack_err_msg = TRUE ) THEN
2296: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2297: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2298: FND_MSG_PUB.Add;
2299: END IF;
2300: l_return_value := FALSE;
2301: END;
2302: END IF;
2338: WHEN NO_DATA_FOUND THEN
2339: IF ( p_stack_err_msg = TRUE ) THEN
2340: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2341: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2342: FND_MSG_PUB.Add;
2343: END IF;
2344: l_return_value := FALSE;
2345: END;
2346: END IF;
2380: EXCEPTION
2381: WHEN NO_DATA_FOUND THEN
2382: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2383: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2384: FND_MSG_PUB.Add;
2385: l_return_value := FALSE;
2386: END;
2387: END IF;
2388: RETURN l_return_value;
2417: EXCEPTION
2418: WHEN NO_DATA_FOUND THEN
2419: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2420: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2421: FND_MSG_PUB.Add;
2422: l_return_value := FALSE;
2423: END;
2424: END IF;
2425: RETURN l_return_value;
2450: ELSE
2451: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2452: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2453: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2454: FND_MSG_PUB.Add;
2455: l_return_value := FALSE;
2456: END IF;
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2458: WHEN NO_DATA_FOUND THEN
2459: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2460: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2461: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2462: FND_MSG_PUB.Add;
2463: l_return_value := FALSE;
2464: END;
2465: RETURN l_return_value;
2466: END is_status_updateable;
2550: -- AND b.relationship_type_code = 'OWNER';
2551:
2552: l_return_value := FALSE;
2553: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2554: FND_MSG_PUB.ADD;
2555:
2556: EXCEPTION
2557: WHEN NO_DATA_FOUND THEN
2558: l_return_value := TRUE;
2557: WHEN NO_DATA_FOUND THEN
2558: l_return_value := TRUE;
2559: WHEN TOO_MANY_ROWS THEN
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2561: FND_MSG_PUB.ADD;
2562: l_return_value := FALSE;
2563: WHEN OTHERS THEN
2564: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2565: FND_MSG_PUB.ADD;
2561: FND_MSG_PUB.ADD;
2562: l_return_value := FALSE;
2563: WHEN OTHERS THEN
2564: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2565: FND_MSG_PUB.ADD;
2566: l_return_value := FALSE;
2567: END;
2568: END IF; -- end if for inventory check
2569: END IF; --end if for serial check
2610: WHEN NO_DATA_FOUND THEN
2611: IF ( p_stack_err_msg = TRUE ) THEN
2612: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2613: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2614: FND_MSG_PUB.Add;
2615: END IF;
2616: l_return_value := FALSE;
2617: END;
2618: END IF;
3328: EXCEPTION
3329: WHEN OTHERS THEN
3330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3331: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3332: FND_MSG_PUB.Add;
3333:
3334: END get_csi_item_instance_h_id;
3335:
3336: /*-----------------------------------------------------------*/
3483: l_return_value := FALSE;
3484: IF (p_stack_err_msg = TRUE) THEN
3485: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3486: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3487: FND_MSG_PUB.Add;
3488: END IF;
3489: ELSE
3490: l_return_value := TRUE;
3491: END IF;
3528: THEN
3529: l_return_value := FALSE;
3530: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3531: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3532: FND_MSG_PUB.Add;
3533: END IF;
3534: ELSE
3535: l_return_value := TRUE;
3536: END IF;
3540: l_return_value := FALSE;
3541: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3542: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3543: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3544: FND_MSG_PUB.Add;
3545: END IF;
3546: --
3547: IF l_return_value = TRUE
3548: THEN
3555: );
3556: --Commented out code for bug 7657438, no need to raise more than one error message
3557: /*IF l_return_value = FALSE THEN
3558: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
3559: fnd_msg_pub.add;
3560: END IF;*/
3561: END IF;
3562: END Validate_srl_num_for_Inst_Upd;
3563:
3597: l_return_value := FALSE;
3598: IF (p_stack_err_msg = TRUE) THEN
3599: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3600: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3601: FND_MSG_PUB.Add;
3602: END IF;
3603: END IF;
3604: ELSE
3605: IF p_quantity < 0 THEN
3612: l_return_value := FALSE;
3613: IF (p_stack_err_msg = TRUE) THEN
3614: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3615: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3616: FND_MSG_PUB.Add;
3617: END IF;
3618: END IF;
3619: END IF;
3620: CLOSE C1;
3628: l_return_value := FALSE;
3629: IF (p_stack_err_msg = TRUE) THEN
3630: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3631: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3632: FND_MSG_PUB.Add;
3633: END IF;
3634: END IF;
3635: EXCEPTION
3636: WHEN NO_DATA_FOUND THEN
3639: l_return_value := FALSE;
3640: IF (p_stack_err_msg = TRUE) THEN
3641: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3642: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3643: FND_MSG_PUB.Add;
3644: END IF;
3645: END;
3646: END IF;
3647: END IF;
3749: l_return_value := FALSE;
3750: IF ( p_stack_err_msg = TRUE ) THEN
3751: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3752: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3753: FND_MSG_PUB.Add;
3754: END IF;
3755: END;
3756: RETURN l_return_value;
3757: END Is_InstanceID_Valid;
3790: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3791: l_return_value := FALSE;
3792: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3793: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3794: FND_MSG_PUB.Add;
3795: RETURN l_return_value;
3796: 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'));
3797: csi_gen_utility_pvt.put_line('value of sysdate:'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3798: ELSIF p_end_date < sysdate THEN -- srramakr
3821: l_return_value := FALSE;
3822: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3823: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3824: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3825: FND_MSG_PUB.ADD;
3826: RETURN l_return_value;
3827: END IF;
3828: END IF;
3829: CLOSE c1;
3988: WHEN NO_DATA_FOUND THEN
3989: IF ( p_stack_err_msg = TRUE ) THEN
3990: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3991: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3992: FND_MSG_PUB.Add;
3993: END IF;
3994: RETURN FALSE;
3995:
3996: END Val_and_get_inst_rec;
4017: WHEN NO_DATA_FOUND THEN
4018: IF ( p_stack_err_msg = TRUE ) THEN
4019: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
4020: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
4021: FND_MSG_PUB.Add;
4022: END IF;
4023: RETURN FALSE;
4024:
4025:
4046: THEN
4047: IF ( p_stack_err_msg = TRUE ) THEN
4048: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4049: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4050: FND_MSG_PUB.Add;
4051: END IF;
4052: RETURN FALSE;
4053: END IF;
4054:
4063: WHEN NO_DATA_FOUND THEN
4064: IF ( p_stack_err_msg = TRUE ) THEN
4065: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
4066: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4067: FND_MSG_PUB.Add;
4068: END IF;
4069: RETURN FALSE;
4070:
4071: END val_item_org;
4091: THEN
4092: IF ( p_stack_err_msg = TRUE ) THEN
4093: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4094: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4095: FND_MSG_PUB.Add;
4096: END IF;
4097: RETURN FALSE;
4098: END IF;
4099:
4109: WHEN NO_DATA_FOUND THEN
4110: IF ( p_stack_err_msg = TRUE ) THEN
4111: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4112: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4113: FND_MSG_PUB.Add;
4114: END IF;
4115: RETURN FALSE;
4116:
4117: END val_bom_org;
4171: and rownum < 2;
4172: IF ( p_stack_err_msg = TRUE ) THEN
4173: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4174: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4175: FND_MSG_PUB.Add;
4176: END IF;
4177: RETURN TRUE;
4178:
4179: EXCEPTION
4211: IF To_Date(p_start_date,'DD-MM-RRRR HH24:MI') > To_Date(p_end_date,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4212: l_return_value := FALSE;
4213: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4214: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4215: FND_MSG_PUB.Add;
4216: RETURN l_return_value;
4217: END IF;
4218: END IF;
4219:
4223: l_return_value := FALSE;
4224: IF ( p_stack_err_msg = TRUE ) THEN
4225: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4226: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4227: FND_MSG_PUB.Add;
4228: END IF;
4229: CLOSE c1;
4230: RETURN l_return_value;
4231: END IF;
4236: l_return_value := FALSE;
4237: IF ( p_stack_err_msg = TRUE ) THEN
4238: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4239: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4240: FND_MSG_PUB.Add;
4241: END IF;
4242: END IF;
4243: RETURN l_return_value;
4244: END Is_Ver_StartDate_Valid;
4274: IF To_Date(p_end_date,'DD-MM-RRRR HH24:MI') < To_Date(sysdate,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4275: l_return_value := FALSE;
4276: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4277: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4278: FND_MSG_PUB.Add;
4279: RETURN l_return_value;
4280: END IF;
4281: END IF;
4282:
4289: l_return_value := FALSE;
4290: IF ( p_stack_err_msg = TRUE ) THEN
4291: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4292: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4293: FND_MSG_PUB.Add;
4294: END IF;
4295: END IF;
4296: END IF;
4297: CLOSE c1;
4316: END IF;
4317: --
4318: IF csi_datastructures_pub.g_install_param_rec.fetch_flag = 'N' THEN
4319: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
4320: FND_MSG_PUB.ADD;
4321: l_return_value := FALSE;
4322: RETURN l_return_value;
4323: END IF;
4324: --
4333: IF ((p_location_source_table IS NULL) OR (p_location_source_table = FND_API.G_MISS_CHAR) OR
4334: (p_location_id IS NULL) OR (p_location_id = FND_API.G_MISS_NUM) )
4335: THEN
4336: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
4337: FND_MSG_PUB.ADD;
4338: l_return_value := FALSE;
4339: RETURN l_return_value;
4340: END IF;
4341:
4352: WHEN NO_DATA_FOUND THEN
4353: l_return_value := FALSE;
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4356: FND_MSG_PUB.Add;
4357: RETURN l_return_value;
4358: END;
4359: -- End addition of code for R12
4360:
4368: EXCEPTION
4369: WHEN NO_DATA_FOUND THEN
4370: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_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 = 'HZ_LOCATIONS') THEN
4383: EXCEPTION
4384: WHEN NO_DATA_FOUND THEN
4385: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_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: ELSIF (p_location_source_table = 'VENDOR_SITE') THEN
4398: EXCEPTION
4399: WHEN NO_DATA_FOUND THEN
4400: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4401: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4402: FND_MSG_PUB.Add;
4403: l_return_value := FALSE;
4404: RETURN l_return_value;
4405: END;
4406: ELSIF (p_location_source_table = 'INVENTORY') THEN
4414: WHEN NO_DATA_FOUND THEN
4415: l_return_value := FALSE;
4416: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4417: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4418: FND_MSG_PUB.Add;
4419: RETURN l_return_value;
4420: END;
4421: ELSIF (p_location_source_table = 'PROJECT') THEN
4422: -- srramakr PROJECT location could from HR or HZ. Since they share the same sequence,
4438: EXCEPTION
4439: WHEN NO_DATA_FOUND THEN
4440: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4441: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4442: FND_MSG_PUB.Add;
4443: l_return_value := FALSE;
4444: RETURN l_return_value;
4445: END;
4446: END;
4454: EXCEPTION
4455: WHEN NO_DATA_FOUND THEN
4456: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4457: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4458: FND_MSG_PUB.Add;
4459: l_return_value := FALSE;
4460: RETURN l_return_value;
4461: END;
4462: ELSIF p_location_source_table IN ( 'HR_LOCATIONS') THEN
4469: EXCEPTION
4470: WHEN NO_DATA_FOUND THEN
4471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4472: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4473: FND_MSG_PUB.Add;
4474: l_return_value := FALSE;
4475: RETURN l_return_value;
4476: END;
4477: ELSE
4477: ELSE
4478: l_return_value := FALSE;
4479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4480: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4481: FND_MSG_PUB.Add;
4482: END IF;
4483: RETURN l_return_value;
4484: END Is_Valid_Location_ID;
4485: --
4518: l_return_value:= TRUE;
4519: ELSE
4520: l_return_value:= FALSE;
4521: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4522: FND_MSG_PUB.Add;
4523: RETURN l_return_value;
4524: END IF;
4525: END IF;
4526: --
4537: l_return_value:= TRUE;
4538: ELSE
4539: l_return_value:= FALSE;
4540: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4541: FND_MSG_PUB.Add;
4542: RETURN l_return_value;
4543: END IF;
4544: -----------
4545: IF ( (p_project_id IS NOT NULL AND p_project_id <> FND_API.G_MISS_NUM) OR
4556: WHEN NO_DATA_FOUND THEN
4557: l_return_value:= FALSE;
4558: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4559: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4560: FND_MSG_PUB.Add;
4561: RETURN l_return_value;
4562: END;
4563: ELSE
4564: l_return_value:= FALSE;
4562: END;
4563: ELSE
4564: l_return_value:= FALSE;
4565: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4566: FND_MSG_PUB.Add;
4567: RETURN l_return_value;
4568: END IF; -- usage code = 'INSTALLED'
4569: END IF; -- Project id , task id provided
4570:
4583: l_return_value:= TRUE;
4584: ELSE
4585: l_return_value:= FALSE;
4586: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4587: FND_MSG_PUB.Add;
4588: RETURN l_return_value;
4589: END IF;
4590: END IF;
4591: --
4607: EXCEPTION
4608: WHEN NO_DATA_FOUND THEN
4609: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4610: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4611: FND_MSG_PUB.Add;
4612: l_return_value := FALSE;
4613: RETURN l_return_value;
4614: END;
4615: -- Validate Locator_ID srramakr
4626: EXCEPTION
4627: WHEN NO_DATA_FOUND THEN
4628: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4629: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4630: FND_MSG_PUB.Add;
4631: l_return_value := FALSE;
4632: RETURN l_return_value;
4633: END;
4634: END IF;
4634: END IF;
4635: ELSE
4636: l_return_value := FALSE;
4637: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INVENTORY_LOC');
4638: FND_MSG_PUB.Add;
4639: RETURN l_return_value;
4640: END IF;
4641: END IF;
4642: END IF;
4649: l_return_value:= TRUE;
4650: ELSE
4651: l_return_value:= FALSE;
4652: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4653: FND_MSG_PUB.Add;
4654: RETURN l_return_value;
4655: END IF;
4656: END IF; -- INVENTORY
4657: --
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: END IF;
4676: --
4691: l_return_value:= TRUE;
4692: ELSE
4693: l_return_value:= FALSE;
4694: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4695: FND_MSG_PUB.Add;
4696: RETURN l_return_value;
4697: END IF;
4698:
4699: EXCEPTION
4700: WHEN NO_DATA_FOUND THEN
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4703: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END;
4707: --
4708: ELSIF (p_location_source_table = 'PROJECT') THEN
4723: l_return_value:= TRUE;
4724: ELSE
4725: l_return_value:= FALSE;
4726: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4727: FND_MSG_PUB.Add;
4728: RETURN l_return_value;
4729: END IF;
4730:
4731: EXCEPTION
4732: WHEN NO_DATA_FOUND THEN
4733: l_return_value:= FALSE;
4734: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4735: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4736: FND_MSG_PUB.Add;
4737: RETURN l_return_value;
4738: END;
4739:
4740: ELSIF (p_location_source_table = 'IN_TRANSIT') THEN
4754: l_return_value:= TRUE;
4755: ELSE
4756: l_return_value:= FALSE;
4757: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4758: FND_MSG_PUB.Add;
4759: RETURN l_return_value;
4760: END IF;
4761:
4762: EXCEPTION
4763: WHEN NO_DATA_FOUND THEN
4764: l_return_value:= FALSE;
4765: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4766: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4767: FND_MSG_PUB.Add;
4768: RETURN l_return_value;
4769: END;
4770: --
4771: ELSIF (p_location_source_table = 'PO') THEN
4785: l_return_value:= TRUE;
4786: ELSE
4787: l_return_value:= FALSE;
4788: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4789: FND_MSG_PUB.Add;
4790: FND_MSG_PUB.Add;
4791: RETURN l_return_value;
4792: END IF;
4793: EXCEPTION
4786: ELSE
4787: l_return_value:= FALSE;
4788: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4789: FND_MSG_PUB.Add;
4790: FND_MSG_PUB.Add;
4791: RETURN l_return_value;
4792: END IF;
4793: EXCEPTION
4794: WHEN NO_DATA_FOUND THEN
4794: WHEN NO_DATA_FOUND THEN
4795: l_return_value:= FALSE;
4796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4797: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4798: FND_MSG_PUB.Add;
4799: RETURN l_return_value;
4800: END;
4801: END IF;
4802: RETURN l_return_value;
5194: csi_datastructures_pub.g_install_param_rec.freeze_date);
5195:
5196: IF l_txn_seq_start_date IS NULL THEN
5197: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5198: FND_MSG_PUB.ADD;
5199: raise fnd_api.g_exc_error;
5200: END IF;
5201:
5202: IF p_instance_rec.last_txn_line_detail_id IS NULL OR
5354: IF l_pending_txn_tbl.count > 0 THEN
5355: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5356: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5357: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5358: fnd_msg_pub.add;
5359: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5360: raise fnd_api.g_exc_error;
5361: END IF;
5362: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5362: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5363: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5364: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5365: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5366: fnd_msg_pub.add;
5367: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5368: RAISE fnd_api.g_exc_error;
5369: END IF;
5370: END IF;
5403: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5404: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5405: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5406: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5407: fnd_msg_pub.add;
5408: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5409: RAISE fnd_api.g_exc_error;
5410: END IF;
5411: END IF;
5432: EXCEPTION
5433: WHEN no_data_found THEN
5434: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5435: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5436: fnd_msg_pub.add;
5437: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5438: RAISE fnd_api.g_exc_error;
5439: END;
5440: END IF;
5478: End;
5479: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5480: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5481: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5482: FND_MSG_PUB.Add;
5483: RAISE fnd_api.g_exc_error;
5484: END IF;
5485: END IF; -- Item-srl# not null check
5486: EXCEPTION
5813: IF l_validation_status <> 0 THEN
5814: l_return_status := FND_API.G_RET_STS_ERROR;
5815: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5816: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5817: FND_MSG_PUB.ADD;
5818: END IF;
5819:
5820: IF (l_html_pieces.COUNT <= 0) THEN
5821: l_return_status := FND_API.G_RET_STS_ERROR;
5820: IF (l_html_pieces.COUNT <= 0) THEN
5821: l_return_status := FND_API.G_RET_STS_ERROR;
5822: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5823: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5824: FND_MSG_PUB.ADD;
5825: END IF;
5826:
5827:
5828: IF l_html_pieces.COUNT >0
6051: THEN
6052: l_return_status:=FND_API.G_RET_STS_ERROR;
6053: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
6054: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
6055: FND_MSG_PUB.ADD;
6056: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
6057: END IF;
6058: */
6059:
6155: ELSE
6156: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6157: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6158: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6159: fnd_msg_pub.add;
6160: RAISE fnd_api.g_exc_error;
6161: END IF;
6162: EXCEPTION
6163: WHEN OTHERS THEN
6163: WHEN OTHERS THEN
6164: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6165: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6166: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6167: fnd_msg_pub.add;
6168: RAISE fnd_api.g_exc_error;
6169: END;
6170: -- End of Bug#12599234
6171: ELSE
6171: ELSE
6172: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6173: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6174: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6175: fnd_msg_pub.add;
6176: RAISE fnd_api.g_exc_error;
6177: END IF;
6178: END LOOP;
6179:
6179:
6180: FOR oi_rec IN oi_cur
6181: LOOP
6182: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_OI');
6183: fnd_msg_pub.add;
6184: RAISE fnd_api.g_exc_error;
6185: END LOOP;
6186:
6187: RETURN FALSE;
6254: THEN
6255: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
6256: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
6257: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
6258: fnd_msg_pub.add;
6259: RAISE fnd_api.g_exc_error;
6260: END IF;
6261: END IF;
6262:
6269: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
6270: LOOP
6271: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
6272: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6273: fnd_msg_pub.add;
6274: RAISE fnd_api.g_exc_error;
6275: END LOOP;
6276:
6277: --uncommented the code and brought the code up for bug 6965008
6299: --
6300: IF l_rec_count > 0 THEN
6301: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6302: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6303: fnd_msg_pub.add;
6304: RAISE fnd_api.g_exc_error;
6305: END IF;
6306: END IF;
6307:
6316: --start of code fix for 6176621
6317: IF l_current_status <> 4 THEN
6318: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6319: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6320: fnd_msg_pub.add;
6321: RAISE fnd_api.g_exc_error;
6322: END IF;
6323: --code fix end for 6176621
6324: --
6325: FOR mog_rec IN mog_cur(l_gen_object_id)
6326: LOOP
6327: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6328: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6329: fnd_msg_pub.add;
6330: RAISE fnd_api.g_exc_error;
6331: END LOOP;
6332:
6333: -- check pending transaction in open interface and installation detail references
6359: l_current_txn_id)
6360: LOOP
6361: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6362: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6363: fnd_msg_pub.add;
6364: RAISE fnd_api.g_exc_error;
6365: END LOOP;
6366: END IF;
6367: ----uncommented code for 6965008
6367: ----uncommented code for 6965008
6368: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6369: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6370: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6371: fnd_msg_pub.add;
6372: --
6373: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6374: -- x_return_status := 'W';
6375: EXCEPTION
6459: END IF;
6460:
6461: IF l_txn_seq_start_date is null THEN
6462: fnd_message.set_name('CSI','CSI_API_UNINSTALLED_PARAMETER');
6463: fnd_msg_pub.add;
6464: raise fnd_api.g_exc_error;
6465: END IF;
6466:
6467: FOR unit_txn_rec IN unit_txn_cur
6519: -- Added for bug 8549651 (FP of 8507649)
6520: EXCEPTION
6521: WHEN NO_DATA_FOUND THEN
6522: fnd_message.set_name('CSI','CSI_API_NOT_LOT_CONTROLLED');
6523: fnd_msg_pub.add;
6524: END;
6525: -- End bug 8549651 (FP of 8507649)
6526:
6527: l_mtl_txn_tbl(l_ind).serial_control_code := unit_txn_rec.serial_number_control_code;