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))) ]]>