cAFO7	; Algemene functies output ; cAFO7
	;
YZ	Q
	;
OUTPUT(VAL,NRTEXT,ALL)	;  ophalen output
	; VAL    = waarde
	; NRTEXT = nummer tekstlabel (zonder "T")
	;          nummer tekst^prog  -> tekst wordt in ander programma opgehaald
	; ALL    = 1   : volledige tekst doorgeven
	; 
	; Teks zit er steeds alsvolgt uit :
	;      Output1\Output2\...         : output is steeds $P(tekst,D,VAL+1)
	;        of
	;      Output1~id1\Output2~id2\... : idx stemt overeen met VAL en output wordt binnen tekst opgezocht
	; 
	S $ZT="TRAP^cAN000"
	N R,i
OUTPUTA	S R=$P($T(@("T"_$P(NRTEXT,"^")_QT_$S(NRTEXT["^":"^"_$P(NRTEXT,"^",2),1:""))),U,2)
	I $G(ALL) G OUTPUTZ
OUTPUTB	I R'["~" S R=$P(R,D,VAL+1) G OUTPUTZ
	F i=1:1:$L(R,D) I $P($P(R,D,i),"~",2)=VAL S R=$P($P(R,D,i),"~")
OUTPUTZ	Q R
	;
ZZ	; 17.01.06 - KU