1126: PrintLn('End Procedure get_result_match_for_spec');
1127:
1128: EXCEPTION
1129: WHEN REQ_FIELDS_MISSING THEN
1130: PrintLn('GMD_REQ_FIELD_MIS , PACKAGE , GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC');
1131: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC');
1132: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: WHEN INVALID_LOT THEN
1127:
1128: EXCEPTION
1129: WHEN REQ_FIELDS_MISSING THEN
1130: PrintLn('GMD_REQ_FIELD_MIS , PACKAGE , GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC');
1131: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC');
1132: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: WHEN INVALID_LOT THEN
1135: PrintLn('GMD_INVALID_LOT , LOT_NUMBER = '||p_lots(l_lot_counter).lot_number);
1136: gmd_api_pub.log_message('GMD_INVALID_LOT','LOT',to_char(p_lots(l_lot_counter).lot_number));
1137: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1138: x_return_status := FND_API.G_RET_STS_ERROR ;
1139: WHEN OTHERS THEN
1140: PrintLn('GMD_API_ERROR , PACKAGE , GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC , ERROR '||SUBSTR(SQLERRM,1,100)||' l_position = '||l_position);
1141: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1142: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1144: END get_result_match_for_spec ;
1137: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1138: x_return_status := FND_API.G_RET_STS_ERROR ;
1139: WHEN OTHERS THEN
1140: PrintLn('GMD_API_ERROR , PACKAGE , GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC , ERROR '||SUBSTR(SQLERRM,1,100)||' l_position = '||l_position);
1141: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPEC_MATCH_GRP.GET_RESULT_MATCH_FOR_SPEC','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1142: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1144: END get_result_match_for_spec ;
1145:
1203: SELECT text_code
1204: FROM gmd_specifications
1205: WHERE spec_id = l_spec_id;
1206:
1207: p_customer_spec_rec GMD_SPEC_MATCH_GRP.customer_spec_rec_type;
1208: p_inventory_spec_rec GMD_SPEC_MATCH_GRP.inventory_spec_rec_type;
1209: x_return_flag BOOLEAN;
1210: x_spec_id NUMBER;
1211: x_spec_vr_id NUMBER;
1204: FROM gmd_specifications
1205: WHERE spec_id = l_spec_id;
1206:
1207: p_customer_spec_rec GMD_SPEC_MATCH_GRP.customer_spec_rec_type;
1208: p_inventory_spec_rec GMD_SPEC_MATCH_GRP.inventory_spec_rec_type;
1209: x_return_flag BOOLEAN;
1210: x_spec_id NUMBER;
1211: x_spec_vr_id NUMBER;
1212: l_return_status VARCHAR2(1000);
1243: PrintLn('p_customer_spec_rec.organization_id = '||p_customer_spec_rec.organization_id); --INVCONV
1244: PrintLn('p_customer_spec_rec.look_in_other_orgn = '||p_customer_spec_rec.look_in_other_orgn);
1245: PrintLn('p_customer_spec_rec.ship_to_site_id = '||p_customer_spec_rec.ship_to_site_id); --Bug 4166529 added.
1246:
1247: PrintLn('Calling GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC');
1248: x_return_flag := FALSE;
1249: x_return_flag := GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC(p_customer_spec_rec,
1250: x_spec_id,
1251: x_spec_vr_id,
1245: PrintLn('p_customer_spec_rec.ship_to_site_id = '||p_customer_spec_rec.ship_to_site_id); --Bug 4166529 added.
1246:
1247: PrintLn('Calling GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC');
1248: x_return_flag := FALSE;
1249: x_return_flag := GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC(p_customer_spec_rec,
1250: x_spec_id,
1251: x_spec_vr_id,
1252: l_return_status,
1253: x_message_data);
1252: l_return_status,
1253: x_message_data);
1254: IF x_return_flag THEN -- cust spec found
1255: PrintLn('CUSTOMER SPEC FOUND');
1256: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , Spec_id '||x_spec_id);
1257: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_spec_vr_id '||x_spec_vr_id);
1258: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , l_return_status '||l_return_status);
1259: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_message_data '||x_message_data);
1260: END IF;
1253: x_message_data);
1254: IF x_return_flag THEN -- cust spec found
1255: PrintLn('CUSTOMER SPEC FOUND');
1256: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , Spec_id '||x_spec_id);
1257: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_spec_vr_id '||x_spec_vr_id);
1258: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , l_return_status '||l_return_status);
1259: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_message_data '||x_message_data);
1260: END IF;
1261:
1254: IF x_return_flag THEN -- cust spec found
1255: PrintLn('CUSTOMER SPEC FOUND');
1256: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , Spec_id '||x_spec_id);
1257: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_spec_vr_id '||x_spec_vr_id);
1258: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , l_return_status '||l_return_status);
1259: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_message_data '||x_message_data);
1260: END IF;
1261:
1262: IF (x_return_flag = FALSE) THEN
1255: PrintLn('CUSTOMER SPEC FOUND');
1256: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , Spec_id '||x_spec_id);
1257: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_spec_vr_id '||x_spec_vr_id);
1258: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , l_return_status '||l_return_status);
1259: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_CUSTOMER_SPEC , x_message_data '||x_message_data);
1260: END IF;
1261:
1262: IF (x_return_flag = FALSE) THEN
1263: PrintLn('CUSTOMER SPEC NOT FOUND');
1277: PrintLn('p_inventory_spec_rec.subinventory = '||p_inventory_spec_rec.subinventory); --INVCONV
1278: PrintLn('p_inventory_spec_rec.locator_id = '||p_inventory_spec_rec.locator_id); --INVCONV
1279: PrintLn('p_inventory_spec_rec.grade_code = '||p_inventory_spec_rec.grade_code); --INVCONV
1280: PrintLn('p_inventory_spec_rec.exact_match = '||p_inventory_spec_rec.exact_match); --INVCONV
1281: PrintLn('Calling GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC');
1282:
1283: x_return_flag := GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC(p_inventory_spec_rec ,
1284: x_spec_id ,
1285: x_spec_vr_id,
1279: PrintLn('p_inventory_spec_rec.grade_code = '||p_inventory_spec_rec.grade_code); --INVCONV
1280: PrintLn('p_inventory_spec_rec.exact_match = '||p_inventory_spec_rec.exact_match); --INVCONV
1281: PrintLn('Calling GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC');
1282:
1283: x_return_flag := GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC(p_inventory_spec_rec ,
1284: x_spec_id ,
1285: x_spec_vr_id,
1286: l_return_status,
1287: x_message_data);
1286: l_return_status,
1287: x_message_data);
1288: IF x_return_flag THEN
1289: PrintLn('INVENTORY SPEC FOUND');
1290: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1291: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_spec_vr_id '||x_spec_vr_id);
1292: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1293: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1294: END IF;
1287: x_message_data);
1288: IF x_return_flag THEN
1289: PrintLn('INVENTORY SPEC FOUND');
1290: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1291: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_spec_vr_id '||x_spec_vr_id);
1292: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1293: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1294: END IF;
1295:
1288: IF x_return_flag THEN
1289: PrintLn('INVENTORY SPEC FOUND');
1290: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1291: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_spec_vr_id '||x_spec_vr_id);
1292: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1293: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1294: END IF;
1295:
1296: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1289: PrintLn('INVENTORY SPEC FOUND');
1290: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1291: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_spec_vr_id '||x_spec_vr_id);
1292: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1293: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1294: END IF;
1295:
1296: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1297: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1293: PrintLn('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1294: END IF;
1295:
1296: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1297: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1298: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1299: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1300: log_msg('The parameters for inventory=>inventory_item_id, lot_number, subinventory '||
1301: p_inventory_spec_rec.inventory_item_id||' '||
1294: END IF;
1295:
1296: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1297: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1298: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1299: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1300: log_msg('The parameters for inventory=>inventory_item_id, lot_number, subinventory '||
1301: p_inventory_spec_rec.inventory_item_id||' '||
1302: p_inventory_spec_rec.lot_number||' '||p_inventory_spec_rec.subinventory);
1295:
1296: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1297: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , Spec_id '||x_spec_id);
1298: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , x_message_data '||x_message_data);
1299: log_msg('call_spec_match, GMD_SPEC_MATCH_GRP.FIND_INVENTORY_SPEC , l_return_status '||l_return_status);
1300: log_msg('The parameters for inventory=>inventory_item_id, lot_number, subinventory '||
1301: p_inventory_spec_rec.inventory_item_id||' '||
1302: p_inventory_spec_rec.lot_number||' '||p_inventory_spec_rec.subinventory);
1303: END IF;