Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r36555 -r45045
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 36555)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 45045)
@@ -578,6 +578,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RemoveCharsFromPalletID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PalletID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (##class(TECH.StringUtils).StartsWith(PalletID,"O1"))&&($L(PalletID)>8)
+	{
+		Quit $E(PalletID,1,3)_$E(PalletID,$L(PalletID)-4,$L(PalletID))
+	}
+	Quit PalletID
+]]></Implementation>
+</Method>
+
 <Method name="RemoveControleCharsFromPalletID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PalletID:%String</FormalSpec>