26:
27: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28: THEN
29:
30: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
31: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sr_Source_Id');
32: FND_MSG_PUB.Add;
33:
34: END IF;
27: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28: THEN
29:
30: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
31: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sr_Source_Id');
32: FND_MSG_PUB.Add;
33:
34: END IF;
35:
54: IF (p_Shipping_Org_rec.source_type = 1 OR
55: p_Shipping_Org_rec.source_type = 2) AND
56: p_Shipping_Org_rec.source_organization_id IS NULL THEN
57: dbms_output.put_line ('Error -source_organization_id required');
58: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
59: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Organization_Id');
60: FND_MSG_PUB.Add;
61: l_return_status := FND_API.G_RET_STS_ERROR;
62: END IF;
55: p_Shipping_Org_rec.source_type = 2) AND
56: p_Shipping_Org_rec.source_organization_id IS NULL THEN
57: dbms_output.put_line ('Error -source_organization_id required');
58: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
59: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Organization_Id');
60: FND_MSG_PUB.Add;
61: l_return_status := FND_API.G_RET_STS_ERROR;
62: END IF;
63:
63:
64: IF p_Shipping_Org_rec.source_type = 3 AND
65: p_Shipping_Org_rec.vendor_id IS NULL THEN
66: dbms_output.put_line ('Error - vendor_id required');
67: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
68: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
69: FND_MSG_PUB.Add;
70: l_return_status := FND_API.G_RET_STS_ERROR;
71: END IF;
64: IF p_Shipping_Org_rec.source_type = 3 AND
65: p_Shipping_Org_rec.vendor_id IS NULL THEN
66: dbms_output.put_line ('Error - vendor_id required');
67: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
68: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
69: FND_MSG_PUB.Add;
70: l_return_status := FND_API.G_RET_STS_ERROR;
71: END IF;
72:
76:
77: IF p_Shipping_Org_rec.source_type = 2 AND
78: p_Shipping_Org_rec.ship_method <> NULL THEN
79: dbms_output.put_line ('error - ship_method shd be null');
80: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
81: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
82: FND_MESSAGE.SET_TOKEN('DETAILS',
83: 'Ship method should be NULL for this Source type');
84: FND_MSG_PUB.Add;
77: IF p_Shipping_Org_rec.source_type = 2 AND
78: p_Shipping_Org_rec.ship_method <> NULL THEN
79: dbms_output.put_line ('error - ship_method shd be null');
80: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
81: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
82: FND_MESSAGE.SET_TOKEN('DETAILS',
83: 'Ship method should be NULL for this Source type');
84: FND_MSG_PUB.Add;
85: l_return_status := FND_API.G_RET_STS_ERROR;
78: p_Shipping_Org_rec.ship_method <> NULL THEN
79: dbms_output.put_line ('error - ship_method shd be null');
80: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
81: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
82: FND_MESSAGE.SET_TOKEN('DETAILS',
83: 'Ship method should be NULL for this Source type');
84: FND_MSG_PUB.Add;
85: l_return_status := FND_API.G_RET_STS_ERROR;
86: END IF;
87:
88: IF p_Shipping_Org_rec.vendor_site_id IS NOT NULL AND
89: p_Shipping_Org_rec.vendor_id IS NULL THEN
90: dbms_output.put_line ('error - vendor_id not specified');
91: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
92: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
93: FND_MSG_PUB.Add;
94: l_return_status := FND_API.G_RET_STS_ERROR;
95: END IF;
88: IF p_Shipping_Org_rec.vendor_site_id IS NOT NULL AND
89: p_Shipping_Org_rec.vendor_id IS NULL THEN
90: dbms_output.put_line ('error - vendor_id not specified');
91: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
92: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
93: FND_MSG_PUB.Add;
94: l_return_status := FND_API.G_RET_STS_ERROR;
95: END IF;
96:
145: AND sr_source_id <> p_Shipping_Org_rec.sr_source_id;
146:
147: IF l_count = 0 THEN
148: dbms_output.put_line ('This is the only shp org for the rec org');
149: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
150: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
151: FND_MESSAGE.SET_TOKEN('ENTITY','Shipping_Org');
152: FND_MESSAGE.SET_TOKEN('DETAILS', 'There is only one Source ' ||
153: 'Organization for this Receiving Organization');
146:
147: IF l_count = 0 THEN
148: dbms_output.put_line ('This is the only shp org for the rec org');
149: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
150: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
151: FND_MESSAGE.SET_TOKEN('ENTITY','Shipping_Org');
152: FND_MESSAGE.SET_TOKEN('DETAILS', 'There is only one Source ' ||
153: 'Organization for this Receiving Organization');
154: FND_MSG_PUB.Add;
147: IF l_count = 0 THEN
148: dbms_output.put_line ('This is the only shp org for the rec org');
149: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
150: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
151: FND_MESSAGE.SET_TOKEN('ENTITY','Shipping_Org');
152: FND_MESSAGE.SET_TOKEN('DETAILS', 'There is only one Source ' ||
153: 'Organization for this Receiving Organization');
154: FND_MSG_PUB.Add;
155: l_return_status := FND_API.G_RET_STS_ERROR;
148: dbms_output.put_line ('This is the only shp org for the rec org');
149: FND_MESSAGE.SET_NAME('MRP','MRP_OPERATION_ERROR');
150: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
151: FND_MESSAGE.SET_TOKEN('ENTITY','Shipping_Org');
152: FND_MESSAGE.SET_TOKEN('DETAILS', 'There is only one Source ' ||
153: 'Organization for this Receiving Organization');
154: FND_MSG_PUB.Add;
155: l_return_status := FND_API.G_RET_STS_ERROR;
156: END IF;
595: IF p_Allocation_Percent IS NULL OR
596: p_Allocation_Percent = FND_API.G_MISS_NUM
597: THEN
598: dbms_output.put_line ('Val_Allocation_Percent Error ');
599: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
600: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
601: FND_MSG_PUB.Add;
602: RETURN FALSE;
603: ELSIF p_Allocation_Percent > 100 THEN
596: p_Allocation_Percent = FND_API.G_MISS_NUM
597: THEN
598: dbms_output.put_line ('Val_Allocation_Percent Error ');
599: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
600: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
601: FND_MSG_PUB.Add;
602: RETURN FALSE;
603: ELSIF p_Allocation_Percent > 100 THEN
604: dbms_output.put_line ('Val_Allocation_Percent Error ');
601: FND_MSG_PUB.Add;
602: RETURN FALSE;
603: ELSIF p_Allocation_Percent > 100 THEN
604: dbms_output.put_line ('Val_Allocation_Percent Error ');
605: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
606: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
607: FND_MESSAGE.SET_TOKEN('DETAILS',
608: 'Allocation_Percent cannot be greater than 100');
609: FND_MSG_PUB.Add;
602: RETURN FALSE;
603: ELSIF p_Allocation_Percent > 100 THEN
604: dbms_output.put_line ('Val_Allocation_Percent Error ');
605: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
606: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
607: FND_MESSAGE.SET_TOKEN('DETAILS',
608: 'Allocation_Percent cannot be greater than 100');
609: FND_MSG_PUB.Add;
610: RETURN FALSE;
603: ELSIF p_Allocation_Percent > 100 THEN
604: dbms_output.put_line ('Val_Allocation_Percent Error ');
605: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
606: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
607: FND_MESSAGE.SET_TOKEN('DETAILS',
608: 'Allocation_Percent cannot be greater than 100');
609: FND_MSG_PUB.Add;
610: RETURN FALSE;
611: END IF;
1130: WHERE sr_receipt_id = p_sr_receipt_id);
1131:
1132: IF l_count = 0 THEN
1133: dbms_output.put_line ('Val_Ship_Method Error');
1134: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1135: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
1136: FND_MSG_PUB.Add;
1137: RETURN FALSE;
1138: END IF;
1131:
1132: IF l_count = 0 THEN
1133: dbms_output.put_line ('Val_Ship_Method Error');
1134: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1135: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
1136: FND_MSG_PUB.Add;
1137: RETURN FALSE;
1138: END IF;
1139:
1165: WHERE organization_id = p_Source_Organization_Id;
1166:
1167: IF l_count = 0 THEN
1168: dbms_output.put_line ('Val_Source_Organization_Id Error');
1169: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1170: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Organization_Id');
1171: FND_MSG_PUB.Add;
1172: RETURN FALSE;
1173: END IF;
1166:
1167: IF l_count = 0 THEN
1168: dbms_output.put_line ('Val_Source_Organization_Id Error');
1169: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1170: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Organization_Id');
1171: FND_MSG_PUB.Add;
1172: RETURN FALSE;
1173: END IF;
1174: END IF;
1188: IF p_Source_Type IS NULL OR
1189: p_Source_Type = FND_API.G_MISS_NUM
1190: THEN
1191: dbms_output.put_line ('Val_Source_Type Error ');
1192: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1193: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Type');
1194: FND_MSG_PUB.Add;
1195: RETURN FALSE;
1196: ELSIF (p_Source_Type <> 1) AND (p_Source_Type <> 2) AND
1189: p_Source_Type = FND_API.G_MISS_NUM
1190: THEN
1191: dbms_output.put_line ('Val_Source_Type Error ');
1192: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1193: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Type');
1194: FND_MSG_PUB.Add;
1195: RETURN FALSE;
1196: ELSIF (p_Source_Type <> 1) AND (p_Source_Type <> 2) AND
1197: (p_Source_Type <> 3) THEN
1194: FND_MSG_PUB.Add;
1195: RETURN FALSE;
1196: ELSIF (p_Source_Type <> 1) AND (p_Source_Type <> 2) AND
1197: (p_Source_Type <> 3) THEN
1198: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1199: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Type');
1200: FND_MSG_PUB.Add;
1201: dbms_output.put_line ('Val_Source_Type Error ');
1202: RETURN FALSE;
1195: RETURN FALSE;
1196: ELSIF (p_Source_Type <> 1) AND (p_Source_Type <> 2) AND
1197: (p_Source_Type <> 3) THEN
1198: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1199: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Type');
1200: FND_MSG_PUB.Add;
1201: dbms_output.put_line ('Val_Source_Type Error ');
1202: RETURN FALSE;
1203: END IF;
1246: WHERE vendor_id = p_Vendor_Id;
1247:
1248: IF l_count = 0 THEN
1249: dbms_output.put_line ('Val_Vendor_Id Error');
1250: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1251: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
1252: FND_MSG_PUB.Add;
1253: RETURN FALSE;
1254: END IF;
1247:
1248: IF l_count = 0 THEN
1249: dbms_output.put_line ('Val_Vendor_Id Error');
1250: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1251: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
1252: FND_MSG_PUB.Add;
1253: RETURN FALSE;
1254: END IF;
1255: END IF;
1282: AND vendor_site_id = p_vendor_site_id;
1283:
1284: IF l_count = 0 THEN
1285: dbms_output.put_line ('Val_Vendor_Site_Id Error');
1286: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1287: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Site_Id');
1288: FND_MSG_PUB.Add;
1289: RETURN FALSE;
1290: END IF;
1283:
1284: IF l_count = 0 THEN
1285: dbms_output.put_line ('Val_Vendor_Site_Id Error');
1286: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
1287: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Site_Id');
1288: FND_MSG_PUB.Add;
1289: RETURN FALSE;
1290: END IF;
1291: END IF;