cTU6 ;UITVOERING SELECTIES ;%TU6 ;%TU6* ; [ 08/01/94  10:00 AM ]
 G 1
 ;
T1 ;DE SELEKTIE;
T2 ;SELEKTIE OPNIEUW UITVOEREN;
T3 ;\",[] = hernemen   [] = onmiddellijk   .[] = later uitvoeren                      V[] = verwijderen selektie met behoud van de definitie";
T4 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE ;
T5 ;EVEN GEDULD .. ; uur ; min ; sec ;
T6 ;PASWOORD;
T7 ;HOOFDGROEP,GROEP,SUBGROEP;
T8 ;ENKEL SORTEREN VOLGENS HOOFDKLASSIFICATIE\"0[] = neen   1[] = ja";
 ;
1 B 1 I QP=2!'QP S K=PP(2) G YZ:'$D(@("^"_Q_"LIS1(K)")) S I2=^(K) G 21
11 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="I2\2000\"_$P($T(T1),U,2)_"\LIS\LIS1" D ^cA101 G YZ:K="-" K HKL
21 S K=@("^"_Q_"LIS(I2,0)"),NR=+K,Q1=$P(K,D,3),Q1X=$P(K,D,6),FP=403
 F AS=0:1 Q:'$D(^(AS+1))  S A(AS+1)=^(AS+1) I $T(T7)[$P(A(AS+1),U) S HKL=1
22 G 25:'QP W @F,$P(K,D,2),@F1 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D),34) G 24:QP=2
23 I $D(^("PW")) S FP=2203+F60 W @F,@F92,$P($T(T6),U,2),@F93,": ",@F0 U 0:(::::1) R R:30 U 0:(:::::1) G 2:^("PW")'=R
24 I $L($P(K,D,9)) D S9
25 S K=$P(K,D,4) S:'K K=1 S T=0,K=@("^"_Q_"LI(Q1,K)"),NXT=$P(K,D,2),K1=0,I1=0,FP=1503 G 27:'QP W @F,$P(K,D) G 27:QP=2
26 S R="K\22\3\"_$P($T(T2),U,2)_$P($T(T3),U,2)_"\1\\""-,.V""[K\\\1" D R0,S8:K="." G 2:K="-"!(K=",")!(K=".")
27 L @("^"_Q_"LIS1(NR)"):2 E  G YZ:QP=2!'QP X ^cTXT(0,"N",14) R K G 2
28 I K="V" K @("^"_Q_"LIH(NR)") S ^(0)=$P(@("^"_Q_"LIS(I2,0)"),D,1,7) G 2
29 I QP=1,$D(HKL) S R="K\22\3\"_$P($T(T8),U,2)_"\1\\""01-""[K" D R0 G 26:K="-" I K=0 K HKL
 ;
3 S TIME=$H,FP=2003,K=$P($T(T5),U,2) W:QP @F,K S FP=FP+$L(K) K ^HULP($J) S:$L(Q1X) Q1Y=Q1,Q1=Q1X D ^cTU60
 ;
7 S K=$H
71 I +K'=+TIME S K=K-1_","_($P(K,",",2)+86400) G 71
73 S S4=$T(T5),K=$P(K,",",2)-$P(TIME,",",2),S1=K\3600,K=K-(S1*3600),S2=K\60,S3=K-(S2*60),K="" I 'S1,'S2,'S3 S S3=1
75 S:S1 K=S1_$P(S4,U,3) S:S2 K=K_S2_$P(S4,U,4) S:S3 K=K_S3_$P(S4,U,5)
77 S S1=@("^"_Q_"LIS(I2,0)")_"\\\\\\\",K=$P(S1,D,1,7)_D_K_D_DT_D_TD_D_T_D_K1,^(0)=K
79 I QP=1 D S9 X ^cTXT(0,"N",4) R K:300
 ;
YZ K A,HKL Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
S8 S R=NR D ^cTU61 Q
 ;
S9 S I=$T(T4),FP=803 W @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10),@F2
S9A S FP=1003 W @F,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12),@F2
S9B S FP=1203 W @F,$P(I,U,5),$P(K,D,8),@F1
S9Z Q
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5