cAN1040 ;SORTEREN ;%AN104 ; [ 01/04/01  8:21 AM ]
 ;
T0 ;Sorteren ;
 ;
T0F ;Triage ;
 ;
T0E ;Sorting ;
 G 1
 ;
 ; volgende (1) of vorige (-1) index
S1(S1,S2)          K J S J=$O(@RSD@(S1),S2) I $L(J) S J(0)=^(J)
S1A I $E(J,1,$L(RSJ(1)))'=RSJ(1) S J=""
S1B I J="",S2<0 S J=0
S1Z Q
 ;
 ; test op niveau & 2° input
S3() N S1,S2,UI1 S S1=1
S3A S UI1=J(0),S2=+$P($G(@RSREF@(0)),D,30) I S2'=RSN S S1=0
S3B I S1,$L(RSJ(2)),$G(RSB2) D
 . S S2=$P($G(^(RSB2\100-1)),D,RSB2#100)
 . S S2=$$DP^cAFA1($$UC^cAFA1(S2)) I $E(S2,1,$L(RSJ(2)))'=RSJ(2) S S1=0
S3Z Q S1
 ;
 ; ophalen nieuwe input
S4(S1) N S2,UI1
 S UI1=J(0),S2=$P($G(^(S1\100-1)),D,S1#100)
S4Z Q S2
 ;
1 W /WDSP
11 S RSJ(1)=$$DP^cAFA1($$UC^cAFA1(RSI))_" ",RSJ(2)=$$DP^cAFA1($$UC^cAFA1($G(RSI2)))
13 S RSD=$NA(@RSQ2@(RSB),$L(RSQ2,",")+1)
15 S J=RSJ(1)
17 F  D S1(J,1) Q:J=""  I $$S3 S ^HULP("SORT",RSORT,$$DI^cAN000($$S4(RSO),J(0)))=J(0)
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84