Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r40041 -r41776
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 40041)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41776)
@@ -1796,11 +1796,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set NewDK=""
-	If BM="T" Do
-	. If ('LD) Set NewDK=""
-	. Else  If LD<350 Set NewDK=$S(DK'=20:20, 1:"")
-	. Else  If LD<450 Set NewDK=$S(DK'=30:30, 1:"")
-	. Else  If 1 Set NewDK=$S(DK'=50:50, 1:"")
+	If BM="I" Do
+	. If LD = 600 Set NewDK=$S(DK'=65:65, 1:"")
 	Else  Do
 	. Set NewDK=$S(DK=20:30, 1:"")
 	Quit NewDK