cAN211	;Teksten ;%AN210 ; [ 01/04/01  8:55 AM ]
	G 1
	;
T0	;Teksten ;
	;
T0F	;Textes ;
	;
T0E	;Text ;
	;
	; indeling kolommen detail
S1	W /WSCROFF F I=USCR-1:1:$P(USCR,D,2) W /CUP(I,1),/SGR(7),/WCML
S1A	N S1,S2 K RSM M RSM=^DMH(UQH,USH,"DET",UDET)
S1B	W /WWR(1) S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  D
	. W /CUP(USCR-1,$P(RSM(S1,1),D,2)),$E($P(RSM(S1,0),D,QTU)_$J("",$P(RSM(S1,1),D,3)),1,$P(RSM(S1,1),D,3))
S1C	F S2=1:1:$L(RSM(0,0),D) S S1=$P(RSM(0,0),D,S2) I S1 W /CUP(USCR-1,S1),@USEP
S1Z	W /SGR(27) D Y^cA612 Q
	;
	; kopiëren teksten naar hulpbestand
S2	N I,J
S2A	S J="" F  S J=$O(^HULP("SORT",RSORT,J)) Q:J=""  K ^(J)
S2B	S J="" F I=1:10 S J=$O(@TXTREF@(J)) Q:J=""  S ^HULP("SORT",RSORT,I)=@TXTREF@(J)
S2C	I I=1 S ^HULP("SORT",RSORT,I)=""
S2Z	Q
	;
	; algemene initialisatie
1	N AUTO,RSD,RSINS,RSL,RSM,RSV,SW4,UDET,ULEN
	;
	; selectie detail
2	S UDET=^DMH(UQH,USH,"DET",0),SW4=$O(^(""),-1)
	I $G(UDDET) S UDET=UDDET  ; indien er via de parameters een default detail meegegeven wordt
21	D S1
	;
	; definitie bijkomende functies
3	S (RSKEYS,I)=""
31	I UFU="W" F  S I=$O(^DMC(UQC,USC,"SYN",0,0,I)) Q:I=""  S RSKEYS=RSKEYS_D_I
	;
	; gebruik hulpbestand
4	N RSORT S RSORT=$$GETSORT^cAFA1 D S2
	;
	; scroll in detail
5	I UFU="W" D ^cAN2111
51	I UFU="R" D ^cAN2121
	;
	; update data
6	I UFU="W" K @TXTREF S J="" F I=1:1 S J=$O(^HULP("SORT",RSORT,J)) Q:J=""  S @TXTREF@(I)=^(J)
61	D RELSORT^cAFA1(RSORT)
	;
	; einde
Y	I $L($G(^DMH(UQH,USH,0,"WIN"))) D C^cA612
YY	I $G(^("COM")) X $P(^("COM"),D,3)
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8