28:
29: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30: THEN
31:
32: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
33: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sr_Receipt_Id');
34: FND_MSG_PUB.Add;
35:
36: END IF;
29: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30: THEN
31:
32: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
33: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sr_Receipt_Id');
34: FND_MSG_PUB.Add;
35:
36: END IF;
37:
113: AND sr_receipt_id <> p_Receiving_Org_rec.sr_receipt_id;
114:
115: IF l_count = 0 THEN
116: dbms_output.put_line ('This is the only rec. org for the s rule');
117: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
118: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
119: FND_MESSAGE.SET_TOKEN('ENTITY','Receiving_Org');
120: FND_MESSAGE.SET_TOKEN('DETAILS',
121: 'There is only one Receiving Organization for the Sourcing Rule');
114:
115: IF l_count = 0 THEN
116: dbms_output.put_line ('This is the only rec. org for the s rule');
117: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
118: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
119: FND_MESSAGE.SET_TOKEN('ENTITY','Receiving_Org');
120: FND_MESSAGE.SET_TOKEN('DETAILS',
121: 'There is only one Receiving Organization for the Sourcing Rule');
122: FND_MSG_PUB.Add;
115: IF l_count = 0 THEN
116: dbms_output.put_line ('This is the only rec. org for the s rule');
117: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
118: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
119: FND_MESSAGE.SET_TOKEN('ENTITY','Receiving_Org');
120: FND_MESSAGE.SET_TOKEN('DETAILS',
121: 'There is only one Receiving Organization for the Sourcing Rule');
122: FND_MSG_PUB.Add;
123: l_return_status := FND_API.G_RET_STS_ERROR;
116: dbms_output.put_line ('This is the only rec. org for the s rule');
117: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
118: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
119: FND_MESSAGE.SET_TOKEN('ENTITY','Receiving_Org');
120: FND_MESSAGE.SET_TOKEN('DETAILS',
121: 'There is only one Receiving Organization for the Sourcing Rule');
122: FND_MSG_PUB.Add;
123: l_return_status := FND_API.G_RET_STS_ERROR;
124: END IF;
839: THEN
840: RETURN TRUE;
841: ELSIF p_Disable_Date < p_Effective_Date THEN
842: dbms_output.put_line ('Val_Disable_Date Error');
843: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
844: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Disable_Date');
845: FND_MESSAGE.SET_TOKEN('DETAILS',
846: 'Disable_Date Cannot be Less than Effective_Date');
847: FND_MSG_PUB.Add;
840: RETURN TRUE;
841: ELSIF p_Disable_Date < p_Effective_Date THEN
842: dbms_output.put_line ('Val_Disable_Date Error');
843: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
844: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Disable_Date');
845: FND_MESSAGE.SET_TOKEN('DETAILS',
846: 'Disable_Date Cannot be Less than Effective_Date');
847: FND_MSG_PUB.Add;
848: RETURN FALSE;
841: ELSIF p_Disable_Date < p_Effective_Date THEN
842: dbms_output.put_line ('Val_Disable_Date Error');
843: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
844: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Disable_Date');
845: FND_MESSAGE.SET_TOKEN('DETAILS',
846: 'Disable_Date Cannot be Less than Effective_Date');
847: FND_MSG_PUB.Add;
848: RETURN FALSE;
849: END IF;
863: IF p_Effective_Date IS NULL OR
864: p_Effective_Date = FND_API.G_MISS_DATE
865: THEN
866: dbms_output.put_line ('Val_Effective_Date Error');
867: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
868: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Effective_Date');
869: FND_MSG_PUB.Add;
870: RETURN FALSE;
871: ELSE
864: p_Effective_Date = FND_API.G_MISS_DATE
865: THEN
866: dbms_output.put_line ('Val_Effective_Date Error');
867: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
868: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Effective_Date');
869: FND_MSG_PUB.Add;
870: RETURN FALSE;
871: ELSE
872: IF p_Effective_Date < trunc(SYSDATE) THEN
870: RETURN FALSE;
871: ELSE
872: IF p_Effective_Date < trunc(SYSDATE) THEN
873: dbms_output.put_line ('Val_Effective_Date Error');
874: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
875: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Effective_Date');
876: FND_MESSAGE.SET_TOKEN('DETAILS',
877: 'Effective_Date Cannot be less than Current Date');
878: FND_MSG_PUB.Add;
871: ELSE
872: IF p_Effective_Date < trunc(SYSDATE) THEN
873: dbms_output.put_line ('Val_Effective_Date Error');
874: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
875: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Effective_Date');
876: FND_MESSAGE.SET_TOKEN('DETAILS',
877: 'Effective_Date Cannot be less than Current Date');
878: FND_MSG_PUB.Add;
879: RETURN FALSE;
872: IF p_Effective_Date < trunc(SYSDATE) THEN
873: dbms_output.put_line ('Val_Effective_Date Error');
874: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
875: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Effective_Date');
876: FND_MESSAGE.SET_TOKEN('DETAILS',
877: 'Effective_Date Cannot be less than Current Date');
878: FND_MSG_PUB.Add;
879: RETURN FALSE;
880: END IF;
1018: Fetch cur_sr_org INTO l_organization_id;
1019:
1020: IF l_organization_id is not NULL THEN
1021: dbms_output.put_line ('Val_Receipt_Organization_Id Error');
1022: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1023: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Organization_Id');
1024: FND_MSG_PUB.Add;
1025: RETURN FALSE;
1026: ELSE
1019:
1020: IF l_organization_id is not NULL THEN
1021: dbms_output.put_line ('Val_Receipt_Organization_Id Error');
1022: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1023: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Organization_Id');
1024: FND_MSG_PUB.Add;
1025: RETURN FALSE;
1026: ELSE
1027: RETURN TRUE;
1036: WHERE organization_id = p_Receipt_Organization_Id;
1037:
1038: IF l_count = 0 THEN
1039: dbms_output.put_line ('Val_Receipt_Organization_Id Error');
1040: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1041: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Organization_Id');
1042: FND_MSG_PUB.Add;
1043: RETURN FALSE;
1044: END IF;
1037:
1038: IF l_count = 0 THEN
1039: dbms_output.put_line ('Val_Receipt_Organization_Id Error');
1040: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1041: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Organization_Id');
1042: FND_MSG_PUB.Add;
1043: RETURN FALSE;
1044: END IF;
1045: END IF;