[Home] [Help]
686: WHERE SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID
687: AND OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
688: IF SQL%rowcount=0 THEN
689: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
690: Fnd_Msg_Pub.ADD;
691: END IF;
692: END UPDATE_ROW;
693: -- Delete procedure to remove record from schedule materials
694: PROCEDURE DELETE_ROW (
1427: END IF;
1428: -- Standard call to check for call compatibility.
1429: IF FND_API.to_boolean(l_init_msg_list)
1430: THEN
1431: FND_MSG_PUB.initialize;
1432: END IF;
1433: -- Initialize API return status to success
1434: x_return_status := FND_API.G_RET_STS_SUCCESS;
1435: -- Initialize message list if p_init_msg_list is set to TRUE.
1467: x_error_msg_code => l_msg_data);
1468: IF NVL(l_return_status,'x') <> 'S'
1469: THEN
1470: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_NOT_EXISTS');
1471: Fnd_Msg_Pub.ADD;
1472: END IF;
1473: --
1474: END IF;
1475: -- rroy
1487: );
1488: IF l_return_status = FND_API.G_TRUE THEN
1489: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_CRT_MTL_UNTLCKD');
1490: FND_MESSAGE.Set_Token('WO_NAME', l_workorder_name);
1491: FND_MSG_PUB.ADD;
1492: RAISE FND_API.G_EXC_ERROR;
1493: END IF;
1494: -- rroy
1495: -- ACL Changes
1506: x_error_msg_code => l_msg_data);
1507: IF NVL(l_return_status,'x') <> 'S'
1508: THEN
1509: Fnd_Message.SET_NAME('AHL','AHL_PP_VISIT_TASK_NOT_EXIST');
1510: Fnd_Msg_Pub.ADD;
1511: END IF;
1512: END IF;
1513: -- Assign
1514: p_x_req_material_tbl(i).visit_task_id := l_visit_task_id;
1527: );
1528: -- Validate for organization
1529: IF l_organization_id IS NULL THEN
1530: Fnd_Message.SET_NAME('AHL','AHL_PP_ORG_ID_NOT_EXISTS');
1531: Fnd_Msg_Pub.ADD;
1532: END IF;
1533: -- rroy
1534: -- ACL Changes
1535: /*--Get Job Number
1564: END IF;
1565:
1566: IF ( l_error_flag ) THEN
1567: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_STATUS_INVALID');
1568: Fnd_Msg_Pub.ADD;
1569: END IF;
1570: END IF;
1571: --
1572: CLOSE Check_wo_status_cur;
1608: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).mc_header_id );
1609: ELSE
1610: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).mc_name );
1611: END IF;
1612: Fnd_Msg_Pub.ADD;
1613: END IF;
1614: --Assign the returned value
1615: p_x_req_material_tbl(i).mc_header_id := l_mc_header_id;
1616: END IF;
1634: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).mc_position_key );
1635: ELSE
1636: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).mc_position );
1637: END IF;
1638: Fnd_Msg_Pub.ADD;
1639: END IF;
1640: --Assign the returned value
1641: p_x_req_material_tbl(i).mc_position_key := l_mc_position_key;
1642: END IF;
1659: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).item_group_id );
1660: ELSE
1661: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).item_group_name );
1662: END IF;
1663: Fnd_Msg_Pub.ADD;
1664: END IF;
1665: --Assign the returned value
1666: p_x_req_material_tbl(i).item_group_id := l_item_group_id;
1667: END IF;
1703: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).inventory_item_id );
1704: ELSE
1705: FND_MESSAGE.set_token( 'FIELD', p_x_req_material_tbl(i).concatenated_segments );
1706: END IF;
1707: Fnd_Msg_Pub.ADD;
1708: END IF;
1709: ELSE
1710: --validate item only againt organization id.
1711: Get_inventory_item_Id
1717: x_error_msg_code => l_msg_data);
1718: IF NVL(l_return_status,'x') <> 'S'
1719: THEN
1720: Fnd_Message.SET_NAME('AHL','AHL_PP_INVALID_ITEM');
1721: Fnd_Msg_Pub.ADD;
1722: END IF;
1723: END IF;
1724: ELSE
1725: Fnd_Message.SET_NAME('AHL','AHL_PP_INV_ID_REQUIRED');
1722: END IF;
1723: END IF;
1724: ELSE
1725: Fnd_Message.SET_NAME('AHL','AHL_PP_INV_ID_REQUIRED');
1726: Fnd_Msg_Pub.ADD;
1727: END IF;
1728: --Assign the returned value
1729: p_x_req_material_tbl(i).inventory_item_id := l_inventory_item_id;
1730: --validate record
1737: );
1738: IF NVL(l_return_status,'x') <> 'S'
1739: THEN
1740: Fnd_Message.SET_NAME('AHL',l_msg_data);
1741: Fnd_Msg_Pub.ADD;
1742: END IF;
1743: --ALSO ONLY IN CASE P_INTERFACE_FLAG IS NULL OR Y.
1744: l_uc_header_id := null;
1745: OPEN Get_Wo_Uc_Header_Id(p_x_req_material_tbl(i).workorder_id);
1754: (p_x_req_material_tbl(i).RT_OPER_MATERIAL_ID IS NULL OR p_x_req_material_tbl(i).RT_OPER_MATERIAL_ID = Fnd_Api.G_MISS_NUM) AND
1755: l_uc_header_id IS NOT NULL
1756: ) THEN
1757: --Following procedure valid position based requirement against SB rules and
1758: --insert error messages in Fnd_Msg_Pub... hence increase message count in case of error.
1759: AHL_SB_RULES_PVT.Evaluate_Rules_For_Pos (
1760: p_mc_header_id => p_x_req_material_tbl(i).mc_header_id,
1761: p_mc_pos_key => p_x_req_material_tbl(i).mc_position_key,
1762: p_inv_item_id => p_x_req_material_tbl(i).inventory_item_id,
1771: -- Validate for Requested Quantity
1772: IF (p_x_req_material_tbl(i).requested_quantity IS NULL OR
1773: p_x_req_material_tbl(i).requested_quantity = FND_API.G_MISS_NUM ) THEN
1774: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_REQUIRED');
1775: Fnd_Msg_Pub.ADD;
1776: ELSIF (p_x_req_material_tbl(i).requested_quantity IS NOT NULL AND
1777: p_x_req_material_tbl(i).requested_quantity <> FND_API.G_MISS_NUM) THEN
1778: -- Fix for FP bug# 6642084. -- Allow 0 quantity.
1779: IF p_x_req_material_tbl(i).requested_quantity < 0 THEN
1777: p_x_req_material_tbl(i).requested_quantity <> FND_API.G_MISS_NUM) THEN
1778: -- Fix for FP bug# 6642084. -- Allow 0 quantity.
1779: IF p_x_req_material_tbl(i).requested_quantity < 0 THEN
1780: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_INVALID');
1781: Fnd_Msg_Pub.ADD;
1782: END IF;
1783: END IF;
1784: --
1785:
1792: p_x_req_material_tbl(i).scheduled_quantity <> FND_API.G_MISS_NUM ) THEN
1793:
1794: IF ( p_x_req_material_tbl(i).scheduled_quantity < 0 ) THEN
1795: FND_MESSAGE.set_name('AHL', 'AHL_PP_SCHLD_QUANTITY_INVLD');
1796: FND_MSG_PUB.add;
1797: END IF;
1798:
1799: END IF;
1800:
1808: -- Validate for Requested Date
1809: IF (p_x_req_material_tbl(i).requested_date IS NULL OR
1810: p_x_req_material_tbl(i).requested_date = FND_API.G_MISS_DATE ) THEN
1811: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_REQUIRED');
1812: Fnd_Msg_Pub.ADD;
1813: ELSIF (p_x_req_material_tbl(i).requested_date IS NOT NULL AND
1814: p_x_req_material_tbl(i).requested_date <> FND_API.G_MISS_DATE) THEN
1815: IF p_x_req_material_tbl(i).requested_date < trunc(SYSDATE) THEN
1816: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_GT_SYSD');
1813: ELSIF (p_x_req_material_tbl(i).requested_date IS NOT NULL AND
1814: p_x_req_material_tbl(i).requested_date <> FND_API.G_MISS_DATE) THEN
1815: IF p_x_req_material_tbl(i).requested_date < trunc(SYSDATE) THEN
1816: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_GT_SYSD');
1817: Fnd_Msg_Pub.ADD;
1818: END IF;
1819: END IF;
1820: END IF;
1821: --
1834: OPEN Get_Operation_Seq_cur(p_x_req_material_tbl(i).workorder_operation_id);
1835: FETCH Get_Operation_Seq_cur INTO p_x_req_material_tbl(i).operation_sequence;
1836: IF Get_Operation_Seq_cur%NOTFOUND THEN
1837: Fnd_Message.SET_NAME('AHL','AHL_PP_OPER_SEQ_REQD');
1838: Fnd_Msg_Pub.ADD;
1839: END IF;
1840: CLOSE Get_Operation_Seq_cur;
1841: END IF;
1842: END IF;
1864: x_error_msg_code => l_msg_data);
1865: IF NVL(l_return_status,'x') <> 'S'
1866: THEN
1867: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_OP_ID_NOT_EXIST');
1868: Fnd_Msg_Pub.ADD;
1869: --
1870: END IF;
1871: END IF;
1872: END IF;
1906: FETCH Get_sch_dates_cur INTO l_dummy;
1907: --
1908: IF Get_sch_dates_cur%NOTFOUND THEN
1909: Fnd_Message.SET_NAME('AHL','AHL_PP_RE_DATE_SCH_DATE');
1910: Fnd_Msg_Pub.ADD;
1911: END IF;
1912: --
1913: CLOSE Get_sch_dates_cur;
1914: --
1933: --
1934: IF Check_unique_cur%FOUND THEN
1935: Fnd_Message.SET_NAME('AHL','AHL_MAT_RECORD_EXIST');
1936: FND_MESSAGE.SET_TOKEN('ITEM',p_x_req_material_tbl(i).concatenated_segments,false);
1937: Fnd_Msg_Pub.ADD;
1938: END IF;
1939: --
1940: CLOSE Check_unique_cur;
1941: --
1966: END IF;
1967: -- OGMA issue # 105 - end
1968: -- dbms_output.put_line( 'after uom conversion UOM:'||p_x_req_material_tbl(i).uom_code);
1969: -- Standard call to get message count and if count is get message info.
1970: l_msg_count := FND_MSG_PUB.count_msg;
1971: IF l_msg_count > 0 THEN
1972: X_msg_count := l_msg_count;
1973: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1974: RAISE FND_API.G_EXC_ERROR;
2070: AHL_DEBUG_PUB.debug('after wip job call:'||l_msg_count);
2071: AHL_DEBUG_PUB.debug('after wip job call:'||l_msg_data);
2072: END IF;
2073: --
2074: l_msg_count := FND_MSG_PUB.count_msg;
2075: --
2076: IF l_msg_count > 0 THEN
2077: X_msg_count := l_msg_count;
2078: X_msg_data := l_msg_data;
2088: --
2089: IF l_return_status ='S' THEN
2090: --Change made on Nov 17, 2005 by jeli due to bug 4742895.
2091: --Ignore messages in stack if return status is S after calls to EAM APIs.
2092: FND_MSG_PUB.initialize;
2093: -- dbms_output.put_line( 'inside return status success:');
2094: IF p_x_req_material_tbl.COUNT > 0 THEN
2095: --
2096: FOR i IN p_x_req_material_tbl.FIRST..p_x_req_material_tbl.LAST
2764: END IF;
2765: --sukhwsin::VCP Integration - Code Changes ends
2766: ------------------------End of Body---------------------------------------
2767: --Standard check to count messages
2768: l_msg_count := Fnd_Msg_Pub.count_msg;
2769: IF l_msg_count > 0 THEN
2770: X_msg_count := l_msg_count;
2771: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2772: RAISE Fnd_Api.G_EXC_ERROR;
2784: EXCEPTION
2785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2786: ROLLBACK TO create_material_reqst;
2787: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2788: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2789: p_count => x_msg_count,
2790: p_data => x_msg_data);
2791: IF G_DEBUG='Y' THEN
2792: AHL_DEBUG_PUB.log_app_messages (
2797: END IF;
2798: WHEN FND_API.G_EXC_ERROR THEN
2799: ROLLBACK TO create_material_reqst;
2800: X_return_status := FND_API.G_RET_STS_ERROR;
2801: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => X_msg_data);
2804: IF G_DEBUG='Y' THEN
2805: -- Debug info.
2811: END IF;
2812: WHEN OTHERS THEN
2813: ROLLBACK TO create_material_reqst;
2814: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2816: THEN
2817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
2818: p_procedure_name => 'CREATE_MATERIAL_REQST',
2819: p_error_text => SUBSTR(SQLERRM,1,240));
2813: ROLLBACK TO create_material_reqst;
2814: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2816: THEN
2817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
2818: p_procedure_name => 'CREATE_MATERIAL_REQST',
2819: p_error_text => SUBSTR(SQLERRM,1,240));
2820: END IF;
2821: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
2818: p_procedure_name => 'CREATE_MATERIAL_REQST',
2819: p_error_text => SUBSTR(SQLERRM,1,240));
2820: END IF;
2821: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2822: p_count => x_msg_count,
2823: p_data => X_msg_data);
2824: IF G_DEBUG='Y' THEN
2825: -- Debug info.
3020: END IF;
3021: -- Standard call to check for call compatibility.
3022: IF FND_API.to_boolean(p_init_msg_list)
3023: THEN
3024: FND_MSG_PUB.initialize;
3025: END IF;
3026: -- Initialize API return status to success
3027: x_return_status := FND_API.G_RET_STS_SUCCESS;
3028: -- Initialize message list if p_init_msg_list is set to TRUE.
3056: x_error_msg_code => l_msg_data);
3057: IF NVL(l_return_status,'x') <> 'S'
3058: THEN
3059: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_NOT_EXISTS');
3060: Fnd_Msg_Pub.ADD;
3061: END IF;
3062: --
3063: ELSE
3064: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_REQUIRED');
3061: END IF;
3062: --
3063: ELSE
3064: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_REQUIRED');
3065: Fnd_Msg_Pub.ADD;
3066: END IF;
3067: --
3068: p_x_req_material_tbl(i).workorder_id := l_workorder_id;
3069: -- rroy
3078: FETCH get_job_number INTO l_workorder_name;
3079: CLOSE get_job_number;
3080: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_UPD_MTL_UNTLCKD');
3081: FND_MESSAGE.Set_Token('WO_NAME', l_workorder_name);
3082: FND_MSG_PUB.ADD;
3083: RAISE FND_API.G_EXC_ERROR;
3084: END IF;
3085: -- rroy
3086: -- ACL Changes
3116: -- Validate for Requested Quantity
3117: IF (p_x_req_material_tbl(i).requested_quantity IS NULL OR
3118: p_x_req_material_tbl(i).requested_quantity = FND_API.G_MISS_NUM) THEN
3119: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_REQUIRED');
3120: Fnd_Msg_Pub.ADD;
3121: ELSIF (p_x_req_material_tbl(i).requested_quantity IS NOT NULL AND
3122: p_x_req_material_tbl(i).requested_quantity <> FND_API.G_MISS_NUM) THEN
3123: IF p_x_req_material_tbl(i).requested_quantity < 0 THEN
3124: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_INVALID');
3121: ELSIF (p_x_req_material_tbl(i).requested_quantity IS NOT NULL AND
3122: p_x_req_material_tbl(i).requested_quantity <> FND_API.G_MISS_NUM) THEN
3123: IF p_x_req_material_tbl(i).requested_quantity < 0 THEN
3124: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_INVALID');
3125: Fnd_Msg_Pub.ADD;
3126: END IF;
3127: -- added in R12: Serial Reservation project.
3128: -- If requested quantity changed -
3129: IF (p_x_req_material_tbl(i).requested_quantity <>
3140: THEN
3141: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_RESRV_QTY');
3142: Fnd_Message.SET_TOKEN('REQ_QTY',p_x_req_material_tbl(i).requested_quantity);
3143: Fnd_Message.SET_TOKEN('RRV_QTY',l_reserved_quantity);
3144: Fnd_Msg_Pub.ADD;
3145: END IF;-- p_x_req_material_tbl(i).requested_quantity <
3146: END IF; --p_x_req_material_tbl(i).requested_quantity <>
3147: END IF;
3148: IF G_DEBUG='Y' THEN
3154: p_x_req_material_tbl(i).scheduled_quantity <> FND_API.G_MISS_NUM ) THEN
3155:
3156: IF ( p_x_req_material_tbl(i).scheduled_quantity < 0 ) THEN
3157: FND_MESSAGE.set_name('AHL', 'AHL_PP_SCHLD_QUANTITY_INVLD');
3158: FND_MSG_PUB.add;
3159: END IF;
3160:
3161: -- If scheduled quantity is changed, then check for reservations if any.
3162: IF ( p_x_req_material_tbl(i).scheduled_quantity <> l_req_material_rec.scheduled_quantity ) THEN
3176: IF ( p_x_req_material_tbl(i).scheduled_quantity < l_reserved_quantity ) THEN
3177: FND_MESSAGE.set_name('AHL', 'AHL_PP_SCHLD_RESRV_QTY');
3178: FND_MESSAGE.set_token('SCHLD_QTY', p_x_req_material_tbl(i).scheduled_quantity);
3179: FND_MESSAGE.set_token('RRV_QTY' , l_reserved_quantity);
3180: FND_MSG_PUB.add;
3181: END IF;
3182:
3183: END IF; -- p_x_req_material_tbl(i).scheduled_quantity <> l_req_material_rec.scheduled_quantity
3184:
3192: -- Validate for Requested Date
3193: IF (p_x_req_material_tbl(i).requested_date IS NULL OR
3194: p_x_req_material_tbl(i).requested_date = FND_API.G_MISS_DATE) THEN
3195: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_REQUIRED');
3196: Fnd_Msg_Pub.ADD;
3197: ELSIF (p_x_req_material_tbl(i).requested_date IS NOT NULL AND
3198: P_X_REQ_MATERIAL_TBL(I).REQUESTED_DATE <> FND_API.G_MISS_DATE) THEN
3199:
3200: -- Included by sansatpa for bug - 14023722 - CERTAF: CANNOT UPDATE MATERIAL REQ WITH AOG FLAG WHEN REQ DATE < SYS DATE
3202: ( P_X_REQ_MATERIAL_TBL(I).REQUESTED_DATE < TRUNC(SYSDATE) ) AND
3203: (( P_X_REQ_MATERIAL_TBL(I).REQUESTED_QUANTITY <> L_REQ_MATERIAL_REC.REQUESTED_QUANTITY ) OR
3204: ( P_X_REQ_MATERIAL_TBL(I).REQUESTED_DATE <> L_REQ_MATERIAL_REC.REQUESTED_DATE ))) THEN
3205: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_GT_EQ_SYSD');
3206: Fnd_Msg_Pub.ADD;
3207: END IF;
3208: END IF;
3209: IF G_DEBUG='Y' THEN
3210: AHL_DEBUG_PUB.debug( 'DATE :'||p_x_req_material_tbl(i).requested_date);
3212: -- Validate for Schedule Material ID
3213: IF (p_x_req_material_tbl(i).schedule_material_id IS NULL AND
3214: p_x_req_material_tbl(i).schedule_material_id = FND_API.G_MISS_NUM) THEN
3215: Fnd_Message.SET_NAME('AHL','AHL_PP_SCH_MATRL_REQUIRED');
3216: Fnd_Msg_Pub.ADD;
3217: END IF;
3218: IF G_DEBUG='Y' THEN
3219: AHL_DEBUG_PUB.debug( 'SCHID :'||p_x_req_material_tbl(i).schedule_material_id);
3220: AHL_DEBUG_PUB.debug( 'OSID'||p_x_req_material_tbl(i).operation_sequence);
3232: ELSE
3233: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_STATUS_INVALID');
3234: END IF;
3235:
3236: Fnd_Msg_Pub.ADD;
3237: END IF;
3238: --
3239: CLOSE Check_wo_status_cur;
3240: --
3241: ELSE
3242: p_x_req_material_tbl(i).requested_date := l_req_material_rec.requested_date;
3243: END IF; --Module type
3244: --Standard check to count messages
3245: l_msg_count := Fnd_Msg_Pub.count_msg;
3246: IF l_msg_count > 0 THEN
3247: X_msg_count := l_msg_count;
3248: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3249: RAISE Fnd_Api.G_EXC_ERROR;
3683: END IF;
3684: --
3685: ------------------------End of Body---------------------------------------
3686: --Standard check to count messages
3687: l_msg_count := Fnd_Msg_Pub.count_msg;
3688: --Change made on Nov 17, 2005 by jeli due to bug 4742895.
3689: --Ignore messages in stack if return status is S after calls to EAM APIs.
3690: /*
3691: IF l_msg_count > 0 THEN
3707: EXCEPTION
3708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3709: ROLLBACK TO update_material_reqst;
3710: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3711: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3712: p_count => x_msg_count,
3713: p_data => x_msg_data);
3714: IF G_DEBUG='Y' THEN
3715: AHL_DEBUG_PUB.log_app_messages (
3720: END IF;
3721: WHEN FND_API.G_EXC_ERROR THEN
3722: ROLLBACK TO update_material_reqst;
3723: X_return_status := FND_API.G_RET_STS_ERROR;
3724: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3725: p_count => x_msg_count,
3726: p_data => X_msg_data);
3727: IF G_DEBUG='Y' THEN
3728: -- Debug info.
3734: END IF;
3735: WHEN OTHERS THEN
3736: ROLLBACK TO update_material_reqst;
3737: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3738: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3739: THEN
3740: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
3741: p_procedure_name => 'UPDATE_MATERIAL_REQST',
3742: p_error_text => SUBSTR(SQLERRM,1,240));
3736: ROLLBACK TO update_material_reqst;
3737: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3738: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3739: THEN
3740: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
3741: p_procedure_name => 'UPDATE_MATERIAL_REQST',
3742: p_error_text => SUBSTR(SQLERRM,1,240));
3743: END IF;
3744: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3740: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
3741: p_procedure_name => 'UPDATE_MATERIAL_REQST',
3742: p_error_text => SUBSTR(SQLERRM,1,240));
3743: END IF;
3744: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3745: p_count => x_msg_count,
3746: p_data => X_msg_data);
3747: IF G_DEBUG='Y' THEN
3748: -- Debug info.
3931: END IF;
3932: -- Standard call to check for call compatibility.
3933: IF Fnd_Api.to_boolean(p_init_msg_list)
3934: THEN
3935: Fnd_Msg_Pub.initialize;
3936: END IF;
3937: -- Initialize API return status to success
3938: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3939: -- Initialize message list if p_init_msg_list is set to TRUE.
3957: OPEN Get_job_details(p_x_req_material_tbl(i).workorder_id);
3958: FETCH Get_job_details INTO l_workorder_name;
3959: IF Get_job_details%NOTFOUND THEN
3960: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_NOT_EXISTS');
3961: Fnd_Msg_Pub.ADD;
3962: CLOSE Get_job_details;
3963: RAISE FND_API.G_EXC_ERROR;
3964: END IF;
3965: CLOSE Get_job_details;
3972: CLOSE c_get_wo_status;
3973: IF l_wo_status IN ('7', '5', '12')
3974: THEN
3975: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_STATUS_INVALID');
3976: Fnd_Msg_Pub.ADD;
3977: RAISE FND_API.G_EXC_ERROR;
3978: END IF;
3979: -- Bug # 6680137 - end
3980: END IF;
3988: p_item_instance_id => NULL);
3989: IF l_return_status = FND_API.G_TRUE THEN
3990: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_DEL_MTL_UNTLCKD');
3991: FND_MESSAGE.Set_Token('WO_NAME', l_workorder_name);
3992: FND_MSG_PUB.ADD;
3993: RAISE FND_API.G_EXC_ERROR;
3994: END IF;
3995: -- rroy
3996: -- ACL Changes
3997: -- Check for Schedule Material ID
3998: IF (p_x_req_material_tbl(i).schedule_material_id IS NULL OR
3999: p_x_req_material_tbl(i).schedule_material_id = FND_API.G_MISS_NUM) THEN
4000: Fnd_Message.SET_NAME('AHL','AHL_PP_SCH_MATRL_REQUIRED');
4001: Fnd_Msg_Pub.ADD;
4002: END IF;
4003: --
4004: IF G_DEBUG='Y' THEN
4005: Ahl_Debug_Pub.debug( 'Obj Number:'||p_x_req_material_tbl(i).object_version_number);
4016: FOR UPDATE OF STATUS NOWAIT;
4017: --
4018: IF p_x_req_material_tbl(i).object_version_number <> l_object_version_number THEN
4019: Fnd_Message.SET_NAME('AHL','AHL_PP_RECORD_CHANGED');
4020: Fnd_Msg_Pub.ADD;
4021: RAISE Fnd_Api.G_EXC_ERROR;
4022: END IF;
4023: --
4024: END IF;
4022: END IF;
4023: --
4024: END IF;
4025: --Standard check to count messages
4026: l_msg_count := Fnd_Msg_Pub.count_msg;
4027: IF l_msg_count > 0 THEN
4028: X_msg_count := l_msg_count;
4029: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4030: RAISE Fnd_Api.G_EXC_ERROR;
4149: --
4150: END IF; --Status
4151: ---------------------------End of Body---------------------------------------
4152: --Standard check to count messages
4153: l_msg_count := Fnd_Msg_Pub.count_msg;
4154: --Change made on Nov 17, 2005 by jeli due to bug 4742895.
4155: --Ignore messages in stack if return status is S after calls to EAM APIs.
4156: /*
4157: IF l_msg_count > 0 THEN
4173: EXCEPTION
4174: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4175: ROLLBACK TO remove_material_request;
4176: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4177: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
4178: p_count => x_msg_count,
4179: p_data => x_msg_data);
4180: IF G_DEBUG='Y' THEN
4181: Ahl_Debug_Pub.log_app_messages (
4186: END IF;
4187: WHEN Fnd_Api.G_EXC_ERROR THEN
4188: ROLLBACK TO remove_material_request;
4189: X_return_status := Fnd_Api.G_RET_STS_ERROR;
4190: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
4191: p_count => x_msg_count,
4192: p_data => X_msg_data);
4193: IF G_DEBUG='Y' THEN
4194: -- Debug info.
4200: END IF;
4201: WHEN OTHERS THEN
4202: ROLLBACK TO remove_material_request;
4203: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4204: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4205: THEN
4206: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4207: p_procedure_name => 'REMOVE_MATERIAL_REQUEST',
4208: p_error_text => SUBSTR(SQLERRM,1,240));
4202: ROLLBACK TO remove_material_request;
4203: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4204: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4205: THEN
4206: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4207: p_procedure_name => 'REMOVE_MATERIAL_REQUEST',
4208: p_error_text => SUBSTR(SQLERRM,1,240));
4209: END IF;
4210: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
4206: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4207: p_procedure_name => 'REMOVE_MATERIAL_REQUEST',
4208: p_error_text => SUBSTR(SQLERRM,1,240));
4209: END IF;
4210: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
4211: p_count => x_msg_count,
4212: p_data => X_msg_data);
4213: IF G_DEBUG='Y' THEN
4214: -- Debug info.
4369:
4370: -- Standard call to check for call compatibility.
4371: IF FND_API.to_boolean(p_init_msg_list)
4372: THEN
4373: FND_MSG_PUB.initialize;
4374: END IF;
4375: -- Initialize API return status to success
4376: x_return_status := FND_API.G_RET_STS_SUCCESS;
4377: -- Initialize message list if p_init_msg_list is set to TRUE.
4393: -- Check for Schedule Material ID
4394: IF (l_schedule_material_id IS NULL OR
4395: l_schedule_material_id = FND_API.G_MISS_NUM) THEN
4396: Fnd_Message.SET_NAME('AHL','AHL_PP_SCH_MATRL_REQUIRED');
4397: Fnd_Msg_Pub.ADD;
4398: RAISE FND_API.G_EXC_ERROR;
4399: END IF;
4400:
4401: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4415: OPEN Get_job_details_for_exe(l_material_req_rec.workorder_id);
4416: FETCH Get_job_details_for_exe INTO l_workorder_name;
4417: IF Get_job_details_for_exe%NOTFOUND THEN
4418: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_NOT_EXISTS');
4419: Fnd_Msg_Pub.ADD;
4420: CLOSE Get_job_details_for_exe;
4421: RAISE FND_API.G_EXC_ERROR;
4422: END IF;
4423: CLOSE Get_job_details_for_exe;
4426: OPEN Get_job_details(l_material_req_rec.workorder_id);
4427: FETCH Get_job_details INTO l_workorder_name;
4428: IF Get_job_details%NOTFOUND THEN
4429: Fnd_Message.SET_NAME('AHL','AHL_PP_WO_ORD_NOT_EXISTS');
4430: Fnd_Msg_Pub.ADD;
4431: CLOSE Get_job_details;
4432: RAISE FND_API.G_EXC_ERROR;
4433: END IF;
4434: CLOSE Get_job_details;
4442: -- Check whether the item is issued
4443: IF (l_material_req_rec.completed_quantity > 0 ) THEN
4444: Fnd_Message.SET_NAME('AHL','AHL_PP_TXN_ISSUED_ITEM'); -- Issued item cannot be changed.
4445: FND_MESSAGE.Set_Token('ITEM', l_item_name);
4446: Fnd_Msg_Pub.ADD;
4447: END IF;
4448:
4449: -- Check whether the item is reserved
4450: IF (l_material_req_rec.reserved_quantity > 0 ) THEN
4449: -- Check whether the item is reserved
4450: IF (l_material_req_rec.reserved_quantity > 0 ) THEN
4451: Fnd_Message.SET_NAME('AHL','AHL_PP_RESERVED_ITEM'); -- Reserved item cannot be changed.
4452: FND_MESSAGE.Set_Token('ITEM', l_item_name);
4453: Fnd_Msg_Pub.ADD;
4454: END IF;
4455:
4456: --Check whether the item is locked.
4457: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked
4462: p_item_instance_id => NULL);
4463: IF l_return_status = FND_API.G_TRUE THEN
4464: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_DEL_MTL_UNTLCKD');
4465: FND_MESSAGE.Set_Token('WO_NAME', l_workorder_name);
4466: FND_MSG_PUB.ADD;
4467: RAISE FND_API.G_EXC_ERROR;
4468: END IF;
4469:
4470: --sukhwsin::Marshling Enhancements - Reseting l_return_status to S as it is used while calling AHL_EAM_JOB_PVT.process_material_req
4474: IF (p_x_req_material_tbl(i).requested_quantity IS NULL OR (p_x_req_material_tbl(i).requested_quantity = FND_API.G_MISS_NUM)) THEN
4475: p_x_req_material_tbl(i).requested_quantity := l_material_req_rec.old_requested_quantity;
4476: ELSIF p_x_req_material_tbl(i).requested_quantity < 0 THEN
4477: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_QUANTITY_INVALID');
4478: Fnd_Msg_Pub.ADD;
4479: END IF;
4480:
4481: -- Check for valid requested date
4482: IF (p_x_req_material_tbl(i).requested_date IS NULL OR (p_x_req_material_tbl(i).requested_date = FND_API.G_MISS_DATE)) THEN
4482: IF (p_x_req_material_tbl(i).requested_date IS NULL OR (p_x_req_material_tbl(i).requested_date = FND_API.G_MISS_DATE)) THEN
4483: p_x_req_material_tbl(i).requested_date := l_material_req_rec.old_requested_date;
4484: ELSIF p_x_req_material_tbl(i).requested_date < trunc(SYSDATE) THEN
4485: Fnd_Message.SET_NAME('AHL','AHL_PP_REQ_DATE_GT_EQ_SYSD');
4486: Fnd_Msg_Pub.ADD;
4487: END IF;
4488:
4489: --Standard check to count messages
4490: l_msg_count := Fnd_Msg_Pub.count_msg;
4486: Fnd_Msg_Pub.ADD;
4487: END IF;
4488:
4489: --Standard check to count messages
4490: l_msg_count := Fnd_Msg_Pub.count_msg;
4491: IF l_msg_count > 0 THEN
4492: X_msg_count := l_msg_count;
4493: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4494: RAISE Fnd_Api.G_EXC_ERROR;
4592: FETCH Get_Item_Name_Cur INTO l_item_name;
4593: CLOSE Get_Item_Name_Cur;
4594: Fnd_Message.SET_NAME('AHL','AHL_PP_WIP_REQ_EXISTS'); -- WIP requirement already exists for the new item
4595: FND_MESSAGE.Set_Token('ITEM', l_item_name);
4596: Fnd_Msg_Pub.ADD;
4597: RAISE FND_API.G_EXC_ERROR;
4598: ELSE
4599: -- If no WIP requirement exists for the new item then create a WIP requirement.
4600: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL INTO l_wo_operation_txn_id FROM DUAL;
4648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4649: AHL_DEBUG_PUB.debug( 'Invalid Scedule Material Id: '||l_schedule_material_id);
4650: END IF;
4651: Fnd_Message.SET_NAME('AHL','AHL_RSV_INVALID_MTRLREQ'); -- Material Requirement is Invalid.
4652: Fnd_Msg_Pub.ADD;
4653: END IF; -- End of existance of ASM requirement for the original item check.
4654: END LOOP; -- End of p_x_req_material_tbl loop
4655: IF (l_material_req_re_tbl.COUNT > 0 ) THEN
4656: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4757: x_msg_count => l_msg_count,
4758: x_msg_data => l_msg_data);
4759: END IF;
4760: END IF;
4761: l_msg_count := Fnd_Msg_Pub.count_msg;
4762: -- Check the return status of API call.
4763: IF (l_return_status <> 'S' OR l_msg_count > 0) THEN
4764: X_msg_count := l_msg_count;
4765: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4777: EXCEPTION
4778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4779: ROLLBACK TO Change_Requirement_Item;
4780: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4781: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4782: p_count => x_msg_count,
4783: p_data => x_msg_data);
4784: WHEN FND_API.G_EXC_ERROR THEN
4785: ROLLBACK TO Change_Requirement_Item;
4783: p_data => x_msg_data);
4784: WHEN FND_API.G_EXC_ERROR THEN
4785: ROLLBACK TO Change_Requirement_Item;
4786: X_return_status := FND_API.G_RET_STS_ERROR;
4787: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4788: p_count => x_msg_count,
4789: p_data => X_msg_data);
4790: WHEN OTHERS THEN
4791: ROLLBACK TO Change_Requirement_Item;
4789: p_data => X_msg_data);
4790: WHEN OTHERS THEN
4791: ROLLBACK TO Change_Requirement_Item;
4792: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4794: THEN
4795: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4796: p_procedure_name => 'Change_Requirement_Item',
4797: p_error_text => SUBSTR(SQLERRM,1,240));
4791: ROLLBACK TO Change_Requirement_Item;
4792: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4794: THEN
4795: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4796: p_procedure_name => 'Change_Requirement_Item',
4797: p_error_text => SUBSTR(SQLERRM,1,240));
4798: END IF;
4799: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4795: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
4796: p_procedure_name => 'Change_Requirement_Item',
4797: p_error_text => SUBSTR(SQLERRM,1,240));
4798: END IF;
4799: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4800: p_count => x_msg_count,
4801: p_data => X_msg_data);
4802: END Change_Requirement_Item;
4803:
4883: END IF;
4884: -- Standard call to check for call compatibility.
4885: IF FND_API.to_boolean(p_init_msg_list)
4886: THEN
4887: FND_MSG_PUB.initialize;
4888: END IF;
4889: -- Initialize API return status to success
4890: x_return_status := FND_API.G_RET_STS_SUCCESS;
4891: -- Initialize message list if p_init_msg_list is set to TRUE.
4974: x_msg_count => l_msg_count,
4975: x_msg_data => l_msg_data
4976: ) ;
4977: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4978: l_msg_count := FND_MSG_PUB.count_msg;
4979: IF l_msg_count > 0 THEN
4980: RAISE FND_API.G_EXC_ERROR;
4981: END IF;
4982: END IF;
5020: x_msg_count => l_msg_count,
5021: x_msg_data => l_msg_data
5022: );
5023: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5024: l_msg_count := FND_MSG_PUB.count_msg;
5025: IF l_msg_count > 0 THEN
5026: RAISE FND_API.G_EXC_ERROR;
5027: END IF;
5028: END IF;
5042: x_msg_count => l_msg_count,
5043: x_msg_data => l_msg_data
5044: );
5045: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5046: l_msg_count := FND_MSG_PUB.count_msg;
5047: IF l_msg_count > 0 THEN
5048: RAISE FND_API.G_EXC_ERROR;
5049: END IF;
5050: END IF;
5064: x_msg_count => l_msg_count,
5065: x_msg_data => l_msg_data
5066: );
5067: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5068: l_msg_count := FND_MSG_PUB.count_msg;
5069: IF l_msg_count > 0 THEN
5070: RAISE FND_API.G_EXC_ERROR;
5071: END IF;
5072: END IF;
5091: x_msg_count => l_msg_count,
5092: x_msg_data => l_msg_data
5093: );
5094: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5095: l_msg_count := FND_MSG_PUB.count_msg;
5096: IF l_msg_count > 0 THEN
5097: RAISE FND_API.G_EXC_ERROR;
5098: END IF;
5099: END IF;
5100: END IF;
5101:
5102: ------------------------End of Body---------------------------------------
5103: --Standard check to count messages
5104: l_msg_count := Fnd_Msg_Pub.count_msg;
5105: IF l_msg_count > 0 THEN
5106: X_msg_count := l_msg_count;
5107: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5108: RAISE Fnd_Api.G_EXC_ERROR;
5121: EXCEPTION
5122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5123: ROLLBACK TO process_material_request;
5124: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5125: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5126: p_count => x_msg_count,
5127: p_data => x_msg_data);
5128: IF G_DEBUG='Y' THEN
5129: AHL_DEBUG_PUB.log_app_messages (
5134: END IF;
5135: WHEN FND_API.G_EXC_ERROR THEN
5136: ROLLBACK TO process_material_request;
5137: X_return_status := FND_API.G_RET_STS_ERROR;
5138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5139: p_count => x_msg_count,
5140: p_data => X_msg_data);
5141: IF G_DEBUG='Y' THEN
5142: -- Debug info.
5149: END IF;
5150: WHEN OTHERS THEN
5151: ROLLBACK TO process_material_request;
5152: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5154: THEN
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
5156: p_procedure_name => 'PROCESS_MATERIAL_REQUEST',
5157: p_error_text => SUBSTR(SQLERRM,1,240));
5151: ROLLBACK TO process_material_request;
5152: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5154: THEN
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
5156: p_procedure_name => 'PROCESS_MATERIAL_REQUEST',
5157: p_error_text => SUBSTR(SQLERRM,1,240));
5158: END IF;
5159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5155: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
5156: p_procedure_name => 'PROCESS_MATERIAL_REQUEST',
5157: p_error_text => SUBSTR(SQLERRM,1,240));
5158: END IF;
5159: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5160: p_count => x_msg_count,
5161: p_data => X_msg_data);
5162: IF G_DEBUG='Y' THEN
5163: -- Debug info.
5693: SAVEPOINT Process_Wo_Op_Materials;
5694: -- Standard call to check for call compatibility.
5695: IF FND_API.to_boolean(p_init_msg_list)
5696: THEN
5697: FND_MSG_PUB.initialize;
5698: END IF;
5699: -- Initialize API return status to success
5700: x_return_status := FND_API.G_RET_STS_SUCCESS;
5701: -- Initialize message list if p_init_msg_list is set to TRUE.
6003: AHL_DEBUG_PUB.debug( 'x_req_material_tbl.count'||x_req_material_tbl.count);
6004: END IF;
6005: ------------------------End of Body---------------------------------------
6006: --Standard check to count messages
6007: l_msg_count := Fnd_Msg_Pub.count_msg;
6008: IF l_msg_count > 0 THEN
6009: X_msg_count := l_msg_count;
6010: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6011: RAISE Fnd_Api.G_EXC_ERROR;
6026: EXCEPTION
6027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6028: ROLLBACK TO Process_Wo_Op_Materials;
6029: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6030: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6031: p_count => x_msg_count,
6032: p_data => x_msg_data);
6033: WHEN FND_API.G_EXC_ERROR THEN
6034: ROLLBACK TO Process_Wo_Op_Materials;
6032: p_data => x_msg_data);
6033: WHEN FND_API.G_EXC_ERROR THEN
6034: ROLLBACK TO Process_Wo_Op_Materials;
6035: X_return_status := FND_API.G_RET_STS_ERROR;
6036: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6037: p_count => x_msg_count,
6038: p_data => X_msg_data);
6039: WHEN OTHERS THEN
6040: ROLLBACK TO Process_Wo_Op_Materials;
6038: p_data => X_msg_data);
6039: WHEN OTHERS THEN
6040: ROLLBACK TO Process_Wo_Op_Materials;
6041: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6042: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6043: THEN
6044: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6045: p_procedure_name => 'PROCESS_WO_OP_MATERIALS',
6046: p_error_text => SUBSTR(SQLERRM,1,240));
6040: ROLLBACK TO Process_Wo_Op_Materials;
6041: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6042: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6043: THEN
6044: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6045: p_procedure_name => 'PROCESS_WO_OP_MATERIALS',
6046: p_error_text => SUBSTR(SQLERRM,1,240));
6047: END IF;
6048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6044: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6045: p_procedure_name => 'PROCESS_WO_OP_MATERIALS',
6046: p_error_text => SUBSTR(SQLERRM,1,240));
6047: END IF;
6048: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6049: p_count => x_msg_count,
6050: p_data => X_msg_data);
6051: END Process_Wo_Op_Materials;
6052: --
6183: SAVEPOINT Material_Notification;
6184: -- Initialize message list if p_init_msg_list is set to TRUE.
6185: IF FND_API.to_boolean(p_init_msg_list)
6186: THEN
6187: FND_MSG_PUB.initialize;
6188: END IF;
6189: -- Initialize API return status to success
6190: x_return_status := FND_API.G_RET_STS_SUCCESS;
6191: -- Standard call to check for call compatibility.
6325: EXCEPTION
6326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6327: ROLLBACK TO Material_Notification;
6328: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6329: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
6330: p_count => x_msg_count,
6331: p_data => x_msg_data);
6332: WHEN FND_API.G_EXC_ERROR THEN
6333: ROLLBACK TO MATERIAL_NOTIFICATION;
6331: p_data => x_msg_data);
6332: WHEN FND_API.G_EXC_ERROR THEN
6333: ROLLBACK TO MATERIAL_NOTIFICATION;
6334: X_return_status := FND_API.G_RET_STS_ERROR;
6335: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
6336: p_count => x_msg_count,
6337: p_data => X_msg_data);
6338: WHEN OTHERS THEN
6339: ROLLBACK TO Material_Notification;
6337: p_data => X_msg_data);
6338: WHEN OTHERS THEN
6339: ROLLBACK TO Material_Notification;
6340: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6342: THEN
6343: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6344: p_procedure_name => 'MATERIAL_NOTIFICATION',
6345: p_error_text => SUBSTR(SQLERRM,1,240));
6339: ROLLBACK TO Material_Notification;
6340: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6342: THEN
6343: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6344: p_procedure_name => 'MATERIAL_NOTIFICATION',
6345: p_error_text => SUBSTR(SQLERRM,1,240));
6346: END IF;
6347: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
6343: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
6344: p_procedure_name => 'MATERIAL_NOTIFICATION',
6345: p_error_text => SUBSTR(SQLERRM,1,240));
6346: END IF;
6347: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
6348: p_count => x_msg_count,
6349: p_data => X_msg_data);
6350: END Material_Notification;
6351: PROCEDURE get_dff_default_values
6520:
6521: -- Standard call to check for call compatibility.
6522: IF FND_API.to_boolean(p_init_msg_list)
6523: THEN
6524: FND_MSG_PUB.initialize;
6525: END IF;
6526: -- Initialize API return status to success
6527: x_return_status := FND_API.G_RET_STS_SUCCESS;
6528: -- Initialize message list if p_init_msg_list is set to TRUE.
6538: FETCH Get_WO_Mat_Details INTO l_current_mat_dtl_rec;
6539: IF (Get_WO_Mat_Details%NOTFOUND) THEN
6540: CLOSE Get_WO_Mat_Details;
6541: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_MAT_ID_INVALID');
6542: FND_MSG_PUB.ADD;
6543: RAISE FND_API.G_EXC_ERROR;
6544: END IF;
6545: CLOSE Get_WO_Mat_Details;
6546:
6546:
6547: --Check old and new items are same or different. If same Items then Raise Error.
6548: IF (p_alternate_item_id = l_current_mat_dtl_rec.inventory_item_id) THEN
6549: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_ALT_ITEM_SAME'); --Old and New Items are same.
6550: FND_MSG_PUB.ADD;
6551: RAISE FND_API.G_EXC_ERROR;
6552: END IF;
6553:
6554: --Item validation based upon requirement type.
6566: IF NVL(l_return_status,'x') <> 'S' THEN
6567: --If alternate item is not a valid item in item group, then raise exception.
6568: Fnd_Message.SET_NAME('AHL',l_msg_data);
6569: FND_MESSAGE.set_token( 'FIELD', p_alternate_item_id ); -- Invalid Item 1
6570: Fnd_Msg_Pub.ADD;
6571: RAISE FND_API.G_EXC_ERROR;
6572: END IF;
6573: ELSIF(l_current_mat_dtl_rec.position_key IS NOT NULL) THEN
6574: --Perform Position based validation check.
6584: IF NVL(l_return_status,'x') <> 'S' THEN
6585: --If alternate item is not a valid item in item group, then raise exception.
6586: Fnd_Message.SET_NAME('AHL',l_msg_data);
6587: FND_MESSAGE.set_token( 'FIELD', p_alternate_item_id ); -- Invalid Item 1
6588: Fnd_Msg_Pub.ADD;
6589: RAISE FND_API.G_EXC_ERROR;
6590: END IF;
6591: --Get UC associated with workorder
6592: OPEN Get_Wo_Uc_Header_Id(l_current_mat_dtl_rec.workorder_id);
6617: CLOSE Get_Item_Uom_Code;
6618: IF (l_uom_code IS NULL) THEN
6619: Fnd_Message.SET_NAME('AHL','AHL_ITEM_UOM_MISSING'); --Missing UOM at Item Setup for Item 1
6620: FND_MESSAGE.set_token( 'ITEM', l_item_name );
6621: Fnd_Msg_Pub.ADD;
6622: RAISE FND_API.G_EXC_ERROR;
6623: END IF;
6624: --After Validation of item under item group or position. call item change procedure.
6625: --Constructor table of item change
6642: x_msg_count => l_msg_count,
6643: x_msg_data => l_msg_data
6644: );
6645: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
6646: l_msg_count := FND_MSG_PUB.count_msg;
6647: IF l_msg_count > 0 THEN
6648: RAISE FND_API.G_EXC_ERROR;
6649: END IF;
6650: END IF;
6650: END IF;
6651:
6652: ------------------------End of Body---------------------------------------
6653: --Standard check to count messages
6654: l_msg_count := Fnd_Msg_Pub.count_msg;
6655: IF l_msg_count > 0 THEN
6656: X_msg_count := l_msg_count;
6657: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6658: RAISE Fnd_Api.G_EXC_ERROR;
6668: EXCEPTION
6669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6670: ROLLBACK TO Wo_Mat_Req_Item_Change;
6671: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6672: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6673: p_count => x_msg_count,
6674: p_data => x_msg_data);
6675: IF G_DEBUG='Y' THEN
6676: AHL_DEBUG_PUB.log_app_messages (
6681: END IF;
6682: WHEN FND_API.G_EXC_ERROR THEN
6683: ROLLBACK TO Wo_Mat_Req_Item_Change;
6684: X_return_status := FND_API.G_RET_STS_ERROR;
6685: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6686: p_count => x_msg_count,
6687: p_data => X_msg_data);
6688: IF G_DEBUG='Y' THEN
6689: -- Debug info.
6695: END IF;
6696: WHEN OTHERS THEN
6697: ROLLBACK TO Wo_Mat_Req_Item_Change;
6698: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6700: THEN
6701: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6702: p_procedure_name => 'Wo_Mat_Req_Item_Change',
6703: p_error_text => SUBSTR(SQLERRM,1,240));
6697: ROLLBACK TO Wo_Mat_Req_Item_Change;
6698: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6700: THEN
6701: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6702: p_procedure_name => 'Wo_Mat_Req_Item_Change',
6703: p_error_text => SUBSTR(SQLERRM,1,240));
6704: END IF;
6705: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6701: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_MATERIALS_PVT',
6702: p_procedure_name => 'Wo_Mat_Req_Item_Change',
6703: p_error_text => SUBSTR(SQLERRM,1,240));
6704: END IF;
6705: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
6706: p_count => x_msg_count,
6707: p_data => X_msg_data);
6708: IF G_DEBUG='Y' THEN
6709: -- Debug info.