136: RETURN(v_unit_of_measure);
137:
138: EXCEPTION
139: WHEN uom_deleted THEN
140: FND_MESSAGE.Set_Name('RLM', 'RLM_UOM_INACTIVE');
141: FND_MESSAGE.Set_Token('UOM_CODE',x_opm_um_code);
142: APP_EXCEPTION.Raise_Exception;
143: WHEN OTHERS THEN
144: po_message_s.sql_error('get_apps_uom_code',v_progress,sqlcode);
137:
138: EXCEPTION
139: WHEN uom_deleted THEN
140: FND_MESSAGE.Set_Name('RLM', 'RLM_UOM_INACTIVE');
141: FND_MESSAGE.Set_Token('UOM_CODE',x_opm_um_code);
142: APP_EXCEPTION.Raise_Exception;
143: WHEN OTHERS THEN
144: po_message_s.sql_error('get_apps_uom_code',v_progress,sqlcode);
145: raise;
1010: l_rcpt_status := NULL ;
1011:
1012: END ;
1013:
1014: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1015: FND_MESSAGE.SET_TOKEN('S1',cr_intorg_tran_rec.lot_status);
1016: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1017:
1018: l_msg_data := FND_MESSAGE.GET ;
1011:
1012: END ;
1013:
1014: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1015: FND_MESSAGE.SET_TOKEN('S1',cr_intorg_tran_rec.lot_status);
1016: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1017:
1018: l_msg_data := FND_MESSAGE.GET ;
1019:
1012: END ;
1013:
1014: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1015: FND_MESSAGE.SET_TOKEN('S1',cr_intorg_tran_rec.lot_status);
1016: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1017:
1018: l_msg_data := FND_MESSAGE.GET ;
1019:
1020: -- end bug 3590359
1014: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1015: FND_MESSAGE.SET_TOKEN('S1',cr_intorg_tran_rec.lot_status);
1016: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1017:
1018: l_msg_data := FND_MESSAGE.GET ;
1019:
1020: -- end bug 3590359
1021:
1022: x_return_status := '-61';
1249: l_rcpt_status := NULL ;
1250:
1251: END ;
1252:
1253: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1254: FND_MESSAGE.SET_TOKEN('S1',l_ship_status);
1255: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1256:
1257: l_msg_data := FND_MESSAGE.GET ;
1250:
1251: END ;
1252:
1253: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1254: FND_MESSAGE.SET_TOKEN('S1',l_ship_status);
1255: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1256:
1257: l_msg_data := FND_MESSAGE.GET ;
1258:
1251: END ;
1252:
1253: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1254: FND_MESSAGE.SET_TOKEN('S1',l_ship_status);
1255: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1256:
1257: l_msg_data := FND_MESSAGE.GET ;
1258:
1259: -- end bug 3590359
1253: FND_MESSAGE.SET_NAME('GMI', 'GMI_INTORD_LOTSTS_ERROR');
1254: FND_MESSAGE.SET_TOKEN('S1',l_ship_status);
1255: FND_MESSAGE.SET_TOKEN('S2',l_rcpt_status);
1256:
1257: l_msg_data := FND_MESSAGE.GET ;
1258:
1259: -- end bug 3590359
1260: x_return_status := '-92';
1261: raise ex_exception_found;
1446: ELSIF x_return_status = '-50' THEN
1447: l_error_message := x_return_Status||' No data found in MTL_ITEM_LOCATIONS for locator with id '||to_char(l_locator_id);
1448: -- Bug 3597203 following condition added.
1449: ELSIF x_return_status = '-55' THEN
1450: FND_MESSAGE.SET_NAME('PO','RCV_LOCATOR_CONTROL_INVALID');
1451: l_error_message := x_return_status||' : '||FND_MESSAGE.GET;
1452: ELSIF x_return_status = '-60' THEN
1453: l_error_message := x_return_Status||' No data found in CURSOR CR_INTORG_TRAN for direct shipment in Internal Orders';
1454: -- bug 3590359
1447: l_error_message := x_return_Status||' No data found in MTL_ITEM_LOCATIONS for locator with id '||to_char(l_locator_id);
1448: -- Bug 3597203 following condition added.
1449: ELSIF x_return_status = '-55' THEN
1450: FND_MESSAGE.SET_NAME('PO','RCV_LOCATOR_CONTROL_INVALID');
1451: l_error_message := x_return_status||' : '||FND_MESSAGE.GET;
1452: ELSIF x_return_status = '-60' THEN
1453: l_error_message := x_return_Status||' No data found in CURSOR CR_INTORG_TRAN for direct shipment in Internal Orders';
1454: -- bug 3590359
1455: ELSIF x_return_status = '-61' THEN