cI26 ;VERGELIJKENDE LIJST T-LABELS ;%I26 ;do naar %RSEL ; [ 02/22/00  11:29 AM ]
 ;
1 W !,$P($T(+1),";",2),!!,"Huidige UCI = ",$ZU($ZV'["MSM"*5),! D ^cRSEL G YZ:'$D(%GO),YZ:'%GO
11 S:'$D(Q) Q="" D ^cA604
12 R !,"Taalkodes (bvb NF[]) > ",TL G 1:TL="-"!(TL="^"),12:TL'?1U.U W !!!! D ^cA322 S $ZT="ER^cI26"
13 S A(1)="ZL @A X A(2) ZL %I26"
15 S A(2)="S K=$P($T(+1),U,1,2) S L=0 X A(3),A(4) H 2"
17 S A(3)="W ! S I2="""" X A(5) F T=1:1:$L(TL) S I2=$E(TL,T),K=$S($D(^cTXT(A,I2,L)):^(L),1:""""),K=L_U_K X A(5)"
19 S A(4)="F L=1:1:50 S K=$T(@(""T""_L)) I $L(K) X A(3) H 2"
21 S A(5)="W !,$P(K,U),?5,I2,?10,""~"",$P(K,U,2,999),""~"""
23 S A="" F  S A=$O(^UTILITY($J,A)) Q:A=""  X A(1)
25 W # X F71
 ;
YZ Q
 ;
ER S $ZT="" W # X F71 W !!,"ERROR : ",$ZE G YZ
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3