Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r41396 -r41774
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41396)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41774)
@@ -1746,12 +1746,6 @@
 	Set NewDK=""
 	If BM="I" Do
 	. If LD = 600 Set NewDK=$S(DK'=65:65, 1:"")
-	Else  If BM="T" Do
-	. ; Tipon is DEPRECATED ! 
-	. ;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:"")
 	Else  Do
 	. Set NewDK=$S(DK=20:30, 1:"")
 	Quit NewDK