cAN2131 ;Scrolling ;%AN213 ; [ 02/25/00  10:19 AM ]
 G 1
 ;
T0 ;Scrolling ;
 ;
T0F ;'Scrolling' ;
 ;
T0E ;Scrolling ;
 ;
 ; volgende (1) of vorige (-1) index
S1(UI1,S2)         I $P(USCR,D,3) S S2=$S(S2<0:1,1:-1)
S1A K J S J=$O(@RSD,S2)
S1Z Q
 ;
 ; tonen van de lijn
S2 N K,S1,S2,UI1,VAN,LEN,TOT,MAX,ZZ S $ZT="TRAP^cAN000"
S2A S MAX=$P(QW(QW),D,4)-($P(QW(QW),D,5)*2),ZZ=$J("",MAX)
S2B S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  S S2=RSM(S1,1) D
 . N U3 S UI1=RSL(I)
 . I UDD<5 S K=$P($G(@UREF@($P(S2,D)\100-1)),D,$P(S2,D)#100)
 . I UDD=5 S K=$P($G(@UREF),D,$P(S2,D)#100)
 . S VAN=$P(S2,D,2),LEN=$P(S2,D,3),TOT=VAN+LEN-1
 . I $L($P(S2,D,5)) X $P(S2,D,5)    ; wat ipv K
 . S U3=$G(U3,K)     ; dit heeft te maken met totalen op listing
 . I $P(S2,D,4) S U3=$J(U3,LEN)     ; rechts
 . E  S U3=$E(U3_$J("",LEN),1,LEN)  ; links
 . S ZZ=$S(VAN>1:$E(ZZ,1,VAN-1),1:"")_U3_$S(TOT<MAX:$E(ZZ,TOT+1,MAX),1:"")
S2X W /CUP(I+USCR-1,1),/WWR(1),ZZ S RSL(I,9)=ZZ
S2Y F S2=1:1:$L(RSM(0,0),D) S S1=$P(RSM(0,0),D,S2) I S1 W /CUP(I+USCR-1,S1),@USEP
S2Z Q
 ;
 ; test op filter
S3() N S1,S2 S S1=1
S3A I $L($P(UFLT,D)) S S1=0,S2=$P(UFLT,D) D
 . I S2=+S2,J>S2 S S1=1 Q
 . I S2'=+S2,J]S2 S S1=1
S3B I S1,$L($P(UFLT,D,2)) S S1=0,S2=$P(UFLT,D,2) D
 . I S2=+S2,J<S2 S S1=1 Q
 . I S2'=+S2,S2]J S S1=1 Q
 . S J="~" ; einde bestand
S3C I S1,$L($P(UFLT,D,3)) X $P(UFLT,D,3) S S1=$T
S3Z Q S1
 ;
1 W /WSCROFF F I=USCR:1:$P(USCR,D,2) W /CUP(I,1),/WCML
11 S RSD=UREF
15 S II=1,J=$P(UFLT,D,1+$P(USCR,D,3)),JJ=$P(USCR,D,2)-$P(USCR,D)+1,RK=0
17 K RSL S I=0 F  Q:I=JJ  D S1(J,1) Q:J=""  I $$S3 S I=I+1 S RSL(I)=J D S2
 ;
 ; vraagstelling onderaan
2 S RSV=RK D Y^cA612 W /WDSP K EXIT,REFRESH
21 D ^cAN001($P(UTX,D,QTU),22,UQM,USM,UFU,SW4_"#1","D DET","")
 ;
3 ; speciale funkties
323 I RK=23 D  G 2                                              ; Home
 . I '$D(RSL(1)) D BEL Q
 . I '$D(RSL(JJ)) Q
 . K RSL F I=USCR:1:$P(USCR,D,2) W /CUP(I,1),/WCML
 . S I=0,J=$P(UFLT,D,1+$P(USCR,D,3)) F  Q:I=JJ  D S1(J,1) Q:J=""  I $$S3 S I=I+1 D
 .. S RSL(I)=J
 . F I=JJ:-1:1 I $D(RSL(I)) D S2
324 I RK=24 D  G 2                                              ; End
 . I '$D(RSL(1)) D BEL Q
 . I '$D(RSL(JJ)) Q
 . K RSL F I=USCR:1:$P(USCR,D,2) W /CUP(I,1),/WCML
 . S I=0,J=$P(UFLT,D,2-$P(USCR,D,3)) F  Q:I=JJ  D S1(J,-1) Q:J=""  I $$S3 S I=I+1 D
 .. F II=I:-1:2 M RSL(II)=RSL(II-1) K RSL(II-1)
 .. S RSL(1)=J
 . F I=1:1:JJ I $D(RSL(I)) D S2
325 I RK=25 D  G 2                                              ; PgUp
 . I '$D(RSL(1)) D BEL Q
 . I '$D(RSL(JJ)) Q
 . S I=1,J=RSL(1) F  Q:I=JJ  D S1(J,-1) Q:J=""  I $$S3 S I=I+1 D
 .. F II=JJ:-1:2 K RSL(II) M RSL(II)=RSL(II-1)
 .. K RSL(1) S RSL(1)=J
 . F I=JJ:-1:1 D S2
326 I RK=26 D  G 2                                              ; PgDn
 . I '$D(RSL(JJ)) D BEL Q
 . S I=1,J=RSL(JJ) F  Q:I=JJ  D S1(J,1) Q:J=""  I $$S3 S I=I+1 D
 .. F II=1:1:JJ-1 K RSL(II) M RSL(II)=RSL(II+1)
 .. K RSL(JJ) S RSL(JJ)=J
 . F I=1:1:JJ D S2
327 I RK=27 G Y                                                 ; Esc
328 I RK=28 G Y:K="-"!(K=",") D  G Y:'OK!$G(EXIT),17:$G(REFRESH),2  ; Enter
 . S OK=1 X X Q:'OK!'$G(REFRESH)
 . F I=USCR:1:$P(USCR,D,2) W /CUP(I,1),/WCML
 . I $D(RSL(1)) D S1(RSL(1),-1)
 . I '$D(RSL(JJ)) S J=$P(UFLT,D,1+$P(USCR,D,3))
331 I RK=31 D  G 2                                              ; Pijl ^
 . I '$D(RSL(1)) D BEL Q
 . S I=0,J=RSL(1)
 . F  Q:I  D S1(J,-1) Q:J=""  I $$S3 S I=I+1 D
 .. F II=JJ:-1:2 I $D(RSL(II-1)) M RSL(II)=RSL(II-1)
 .. S RSL(1)=J
 . F I=1:1:JJ Q:'$D(RSL(I))  D S2
332 I RK=32 D  G 2                                              ; Pijl v
 . I '$D(RSL(JJ)) D BEL Q
 . S I=0,J=RSL(JJ)
 . F  Q:I  D S1(J,1) Q:J=""  I $$S3 S I=I+1 D
 .. F II=2:1:JJ I $D(RSL(II)) M RSL(II-1)=RSL(II)
 .. S RSL(JJ)=J
 . F I=1:1:JJ Q:'$D(RSL(I))  D S2
 ;
39 D BEL G 21
 ;
Y K RSD,RSL
YZ Q
 ;
 ; wijzigen detail
DET S UDET=K D S1^cAN213 F I=1:1 Q:'$D(RSL(I))  D S2
DETZ Q
 ;
BEL W $C(7) Q     
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84