Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r320 -r484
--- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 320)
+++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 484)
@@ -5,6 +5,7 @@
PRGACNTs,BL.EC.Common
0
BL.Lib.BaseObj
+0
75
@@ -532,10 +533,10 @@
Set:(OneDS?1(1"*",1"GF")) arKlrDfl("GF")=$LB("MG","LG","MG","MG","FG","F")
Set:(OneDS?1(1"*",1"AF")) arKlrDfl("AF")=$LB("AL","LG","AL","AL","FG","F")
Set:(OneDS?1(1"*",1"GMA")) arKlrDfl("GMA")=$LB("MG","LG","MG","MG","FG","MA")
- Set:(OneDS?1(1"*",1"WA")) arKlrDfl("WA")=$LB("SW","WI","SW","SW","-","A")
- Set:(OneDS?1(1"*",1"GA")) arKlrDfl("GA")=$LB("MG","LG","MG","MG","-","A")
- Set:(OneDS?1(1"*",1"ZA")) arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","-","A")
- Set:(OneDS?1(1"*",1"IA")) arKlrDfl("IA")=$LB("IN","DG","IN","IN","GRI8","A")
+ Set:(OneDS?1(1"*",1"WA")) arKlrDfl("WA")=$LB("SW","WI","SW","SW","ALU.SW","A")
+ Set:(OneDS?1(1"*",1"GA")) arKlrDfl("GA")=$LB("MG","LG","MG","MG","ALU.MG","A")
+ Set:(OneDS?1(1"*",1"ZA")) arKlrDfl("ZA")=$LB("BZ","BZ","BZ","BZ","ALU.BZ","A")
+ Set:(OneDS?1(1"*",1"IA")) arKlrDfl("IA")=$LB("IN","DG","IN","IN","-","A")
Quit $S(OneDS="*":"", 1:$G(arKlrDfl(OneDS)))
]]>