Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r5060 -r7495
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 5060)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 7495)
@@ -580,7 +580,10 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Quit:(..PalletIDHasControlChars(PalletID)) $E(PalletID,2,9)
-	
+	If (##class(TECH.StringUtils).StartsWith(PalletID,"O1"))
+	{
+		Quit $E(PalletID,1,16)
+	}
 	Quit $E(PalletID,1,8)
 ]]></Implementation>
 </Method>