Global: ^AUTTLANG

1)= S ^AUTTLANG("B",$E(X,1,30),DA)=""

2)= K ^AUTTLANG("B",$E(X,1,30),DA)

1)= S ^AUTTLANG("C",$E(X,1,30),DA)=""

2)= K ^AUTTLANG("C",$E(X,1,30),DA)

1)= S ^AUTTLANG("ISO1",$E(X,1,30),DA)=""

2)= K ^AUTTLANG("ISO1",$E(X,1,30),DA)

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTLANG("ISO2",I,DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I " "[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTLANG("ISO2",I,DA)