cA218 ;OPZETTEN INDEX ;%A200; [ 09/01/95   1:53 PM ]
 ;
T0 ;Opzetten index ;
 ;
T0F ;Déterminer index ;
 ;
T0E ;Opzetten index ;
 ;
1 S I=$$DI^cAN000($P(B(1),D,2),$P(B(1),D))
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84