Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r1074 -r1204
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 1074)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 1204)
@@ -379,15 +379,14 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	#define DCsDefaultXALL   $LB("S","I","B","F","MA")
-	#define DCsDefaultS      $LB("S","B")
+	#define DCsDefaultXALL   $LB("S","I","F","MA")
+	#define DCsDefaultS      $LB("S")
 	#define DCsDefaultI      $LB("I")
 	#define DCsDefaultA      $LB("A")
- ;	#define DCsDefaultX      $LB("S","B","F","MA")
-	#define DCsDefaultX      $LB("S","B","I","MA")
-	#define DCsDefaultXI     $LB("S","B","I","MA")
- ;	#define DCsDefault       "S:S\B~I:I~X:S\I\B\F\MA"
-	#define DCsDefault       "S:S\B~I:I~X:S\B\I\MA"
+ ;	#define DCsDefaultX      $LB("S","F","MA")
+	#define DCsDefaultX      $LB("S","I","MA")
+	#define DCsDefaultXI     $LB("S","I","MA")
+	#define DCsDefault       "S:S~I:I~A:A~X:S\I\MA"
 	#define Delim1           "~"
 	
 	//Set:(DCM'?1(1"S",1"I",1"X")) DCM="S"
@@ -410,7 +409,7 @@
 	Quit $CASE(DCM, "S":$$$DCsDefaultS, "I":$$$DCsDefaultI, "A":$$$DCsDefaultA, "X":$$$DCsDefaultX,  :ERROR)   ; ERROR will not occur 
 	
 gdcGetDCsList(sDomVERW,KLNr)
-	Set KlantDCs=$G($$$GlobalKLData(0,sDomVERW,KLNr,"DESIGNCHOICES"))   ; contains e.g. "S:S\B~I:I~X:S\I\B\F\MA" 
+	Set KlantDCs=$G($$$GlobalKLData(0,sDomVERW,KLNr,"DESIGNCHOICES"))   ; contains e.g. "S:S\F~I:I~X:S\I\F\MA" 
 	Set lbDCs=""
 	For i=1:1:$L(KlantDCs,$$$Delim1) Set:($P($P(KlantDCs,$$$Delim1,i),":",1)=DCM) lbDCs=$$PiecesToList^vhLib($P($P(KlantDCs,$$$Delim1,i),":",2),"\")  Quit:($L(lbDCs))
 	Quit lbDCs