cI11	;OVERZETTEN ^TXT UIT EIGEN UCI NAAR ^%TXT IN MGR ;%I11 [ 02/07/02  10:10 AM ]
	;
1	W !,$P($T(+1),";",2),!
11	R !,"TAALKODE > ",TL G YZ:"-^"[TL,11:"FHN"'[TL
13	S (I1,I2)="",UCI2=$ZU($ZV'["MSM"*5),X=$P(UCI2,","),X=$S(X="MGR":"",1:"["""_X_"""]")
15	S UCI="MGR" D UCI
	;
2	S I1=$O(@("^"_X_"TXT(I1)")) G Y:I1="" W !,I1 S J1=I1 S:$E(J1)'="%" J1="%"_J1 K ^cTXT(J1,TL) W ?10,J1,?20
21	S I2=$O(@("^"_X_"TXT(I1,TL,I2)")) G 2:I2="" S L=^(I2),^cTXT(J1,TL,I2)=L W "." G 21
	;
Y	S UCI=UCI2 D UCI W !!,"Gelieve ^TXT te verwijderen.",!!
YZ	Q
	;
UCI	D INT^cQMSMSW Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91