130: --Check for Instance Exists
131: OPEN Instance_Id_Cur;
132: FETCH Instance_Id_Cur INTO l_instance_id;
133: IF Instance_Id_Cur%NOTFOUND THEN
134: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_ATP_INS_ENABLE' );
135: FND_MSG_PUB.add;
136: CLOSE Instance_Id_Cur;
137: RAISE FND_API.G_EXC_ERROR;
138: END IF;
510: --Validation for schedule visit
511: OPEN Check_Sch_Visit_cur(p_x_material_avl_tbl(1).visit_id);
512: FETCH Check_Sch_Visit_cur INTO l_dummy;
513: IF Check_Sch_Visit_cur%FOUND THEN
514: Fnd_Message.SET_NAME('AHL','AHL_VISIT_UNSCHEDULED');
515: Fnd_Msg_Pub.ADD;
516: CLOSE Check_Sch_Visit_cur;
517: RAISE Fnd_Api.G_EXC_ERROR;
518: END IF;
539: --Check for schedule mat rec
540: OPEN Schedule_Matrl_cur(p_x_material_avl_tbl(i).schedule_material_id);
541: FETCH Schedule_Matrl_cur INTO l_Schedule_Matrl_Rec;
542: IF Schedule_Matrl_cur%NOTFOUND THEN
543: Fnd_Message.SET_NAME('AHL','AHL_LTP_ORG_ID_NOT_EXISTS');
544: Fnd_Msg_Pub.ADD;
545: CLOSE Schedule_Matrl_cur;
546: RAISE Fnd_Api.G_EXC_ERROR;
547: END IF;
548: CLOSE Schedule_Matrl_cur;
549:
550: --Added by sowsubra - starts
551: IF l_Schedule_Matrl_Rec.status = 'IN-SERVICE' THEN
552: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
553: Fnd_Msg_Pub.ADD;
554: RAISE Fnd_Api.G_EXC_ERROR;
555: END IF;
556: --Added by sowsubra - ends
1062: --Check for Instance Id
1063: OPEN Instance_Id_Cur;
1064: FETCH Instance_Id_Cur INTO l_instance_id;
1065: IF Instance_Id_Cur%NOTFOUND THEN
1066: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_ATP_INS_ENABLE' );
1067: FND_MSG_PUB.add;
1068: CLOSE Instance_Id_Cur;
1069: RAISE FND_API.G_EXC_ERROR;
1070: END IF;
1114: -- End Changes by surrkuma on 14-JUL-2010 for bug 9901811
1115:
1116: --Added by sowsubra - start
1117: IF l_Planned_Order_Rec.status = 'IN-SERVICE' THEN
1118: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
1119: Fnd_Msg_Pub.ADD;
1120: RAISE Fnd_Api.G_EXC_ERROR;
1121: END IF;
1122: --Added by sowsubra - end
1519: END IF;
1520:
1521: --Added by sowsubra - starts
1522: IF l_planned_matrl_tbl(i).mat_status = 'IN-SERVICE' THEN
1523: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
1524: Fnd_Msg_Pub.ADD;
1525: RAISE Fnd_Api.G_EXC_ERROR;
1526: END IF;
1527: --Added by sowsubra - ends
2004: OPEN Instance_Id_Cur;
2005: FETCH Instance_Id_Cur INTO l_instance_id;
2006: IF Instance_Id_Cur%NOTFOUND THEN
2007: l_atp_instance_flag := FALSE;
2008: -- FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_ATP_INS_ENABLE' );
2009: -- FND_MSG_PUB.add;
2010: -- CLOSE Instance_Id_Cur;
2011: -- RAISE FND_API.G_EXC_ERROR;
2012: END IF;
2026: OPEN Get_Item_ATP_Flag(p_deleted_matrl_tbl(i).inventory_item_id, p_deleted_matrl_tbl(i).organization_id);
2027: FETCH Get_Item_ATP_Flag INTO l_ATP_flag;
2028: CLOSE Get_Item_ATP_Flag;
2029: IF (l_ATP_flag <> 'N') THEN
2030: FND_MESSAGE.Set_Name('AHL','AHL_LTP_ATP_INS_ENABLE');
2031: FND_MSG_PUB.add;
2032: RAISE FND_API.G_EXC_ERROR;
2033: END IF;
2034: END IF;