cAN001(UTX,ULN,UQM,USM,UFU,USW,UXS,UK)	;SEL. PAG/MOD ; [ 12/06/01  3:41 PM ]
	G 1
	;
	; UTX = tekst vraagstelling
	; ULN = lijnnummer vraag
	; UQM = index1 voor ^M
	; USM = index2 voor ^M
	; UFU = letter functionaliteit
	; USW = aantal schermen / details
	; UXS = Xecute igv scherm / detail
	; UK  = input via .x
	;
T0	;Sel. pag/mod ;
T1	;Keuze;
T2	;pagina 1;detail 1;
T3	;verder com.;verder commentaar;
	;
T0F	;Sél. page/mod ;
T1F	;Choix;
T2F	;page 1;détail 1;
T3F	;info compl.;info complément.;
	;
T0E	;Sel. pag/mod ;
T1E	;Choice;
T2E	;page 1;detail 1;
T3E	;next comm.;next comment;
	;
T0D	;Sel. pag/mod ;
T1D	;Wahl;
T2D	;pagina 1;detail 1;
T3D	;weiterer Kom.;weiterer Kommentar;
	;
	; oplijnen commentaar
S1	N S0,S1,S2,S3,SX W /WWR(1)
S10	S S0=ULN+1,SX=0 W !?2 I USW,J="" S S1=1,S2=$P($T(@("T2"_QT)),U,2+$P(USW,"#",2)) S:USW>1 S1="x",S2=S2_"-"_+USW G S1B
S1A	S S3=J,J=$O(UCOM(J)) G S1H:J="" S S1=J,S2=UCOM(J)
S1B	S S1=$J(S1,UH1)_"[] = "_$E(S2_$J("",UH2),1,UH2)
S1C	G S1F:S0=24 I $X+$L(S1)<81 D S2,S3 G S1A
S1D	S S0=S0+1 I S0<25 W !?2 D S3 G S1A
S1E	S J=S3 G S1Z
S1F	I $X<SX!('UVV&'$L($O(UCOM(J)))) D S3 G S1A
S1G	S UVV=1
S1H	I UVV W:S0<24 !?2 W:$X'>SX ?SX,$J("",UH1),"[] = ",$P($T(@("T3"_QT)),U,$S(UH2>11:3,1:2)) G S1E:$L(J)
S1Z	Q
	;
	; positie voor [] = vervolg
S2	I S0=ULN+1,SX<$X S SX=$X
S2Z	Q
	;
	; printen commentaar
S3	W S1 I $X<75 W "   "
S3Z	Q
	;
	; voorbereiden vraagstelling
1	S:UTX="" UTX=$P($T(@("T1"_QT)),U,2) S:'ULN ULN=22
	;
2	S $ZT="TRAP^cAN000"
	N I,J,UH1,UH2,UVV,UCOM,USEL,OK
	;
	; voorbereiden commentaar
3	S (UH1,UH2)=1,UVV=0,I=""
31	I USW D  F J=1:1:USW S USEL(J)=UXS
	. S J=$P($T(@("T2"_QT)),U,2+$P(USW,"#",2)) S:USW>1 J=J_"-"_+USW S UH1=$L(+USW),UH2=$L(J)
33	I $L(UQM),$L(USM) F  S I=$O(^DMM(UQM,USM,I)) Q:I=""  K J M J=^(I) D
	. I $L(UFU),$D(J(UFU)) S OK=0 X J(UFU,2) I $T D
	.. S J(0,1)=$$UC^cAFA1(J(0,1))
	.. S UCOM(J(0,1))=$P(J(0,2),D,QTU),USEL(J(0,1))=J(UFU,1)
	.. I $L(J(0,1))>UH1 S UH1=$L(J(0,1))
	.. I OK K UCOM(J(0,1)) Q
	.. I $L(UCOM(J(0,1)))>UH2 S UH2=$L(UCOM(J(0,1)))
35	S J=$P($T(@("T3"_QT)),U,$S(UH2>11:3,1:2)) S:$L(J)>UH2 UH2=$L(J)
37	I USW<2 S USW=0
	;
	; vraagstelling
4	S (J,X)="" I $L(UK),UK'="-" S K=UK,RK=28 G 43
41	S R="K\"_ULN_"\3\"_UTX_"\S1\"_UH1_"\\$L(K)!UVV\\\1\\\1" D R0
43	I RK=28,K'="-",K'="," G 41:K="",41:'$D(USEL(K)) S X=USEL(K)
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8