cAN2060 ;SEQUENTIEEL WIJZIGEN ;%AN200 ; [ 11/07/95  10:32 AM ]
 G 0
 ;
T1 ;NUMMER ELEMENT;
T2 ;,[] = selektie   +[] = volgende ;   .x[] = pagina x;
T3 ;NIET WIJZIGBAAR;
T4 ;DE BESTANDEN ZIJN IN GEBRUIK;
 ;
T1F ;NUMERO D'ELEMENT;
T2F ;,[] = sélection   +[] = ; suivant(e)   .x[] = page x;
T3F ;NE PEUT PAS ETRE MODIFIE;
T4F ;LES FICHIERS SONT EN CONSULTATION;
 ;
 ; data per rubriek
S3 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
S3Z Q
 ;
 ; pagina tonen
S1 S SW5=1 K C D S1^cAN000(SW2)
S1A S U1=0 F  S U1=$O(C(U1)) Q:U1=""  D S2^cAN000(U1),S3,S3^cAN000(K)
S1Z S SW5=0 K REFRESH Q
 ;
 ; selektie
0 W /CUP($P(UTIT,D,2)+1,1),/WCMD
01 D ^cAN003(2,^DMA(UQA,USA,0,"DMS")) I K="-" G YZ
03 S UI1="" K U1(0)
 ;
 ; ophalen data + pagina tonen
1 K A,B D ^cAN004("UI1",^DMA(UQA,USA,0,"DMS")) G YZ:UI1=""
11 D R^cAN000 M A=B S SW1=1
13 S:'SW2 SW2=1 D S1
15 I SW1 S SW1=0 L +@UREF:2 E  D ER^cAN000($P($T(@("T4"_QT)),U,2)) G 1
17 I $D(U1(0)) S (K,U1)=U1(0) G 3
 ;
 ; nummer element
2 S R="U1\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T2"_QT)),U,2)_$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D)
21 S R=R_$P($T(@("T2"_QT)),U,3)_"""\2\\$L(K)\\\1\\\1" D R0
23 I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
25 I RK=26,SW2<SW4 S (K,U1)="."_(SW2+1) G 3
27 I RK'=28 G 2
29 I "-,+"[K S (K,U1)="."_K
 ;
 ; uitvoeren keuze
3 I $E(K)="." S U1=$E(K,2) G 2:U1>SW4!(U1=0)!(U1=SW2),7:$L(U1),2
31 S U1=+U1 G 2:'$D(C(U1)) D M^cAN000(U1) S U1(0)=U1
33 I $L(U2(15)),@U2(15) D ER^cAN000($P($T(@("T3"_QT)),U,2)) G 2
 ;
 ; wijzigen rubriek
4 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
41 I $L(U2(7)) X U2(7)
43 I $L(U2(19)) X U2(19) I $L(U2(11)),@U2(11) G 51
45 I $L(U2(19)),$L(U2(11)) S K="-"
47 I $L(U2(19)) G 51
 ;
 ; manuele input
5 D ^cAN100
51 I K="-" G 2
53 I K="," G 2
55 I $E(K)="+",$E(K,2,999)=$E($P(A(U7\100),D,U7#100),2,999) S K="+" G 29
 ;
 ; X na input + output
6 I $L(U2(12)) X U2(12) I K="-"!(K=",") G 51
61 D B^cAN000(U7,K),S3^cAN000(K) I $G(REFRESH) D S1
63 G 2
 ;         
 ; einde pagina
7 S OK=0 I $L($P(UXX,D)) X $P(UXX,D) G 2:'OK
71 I OK'=1 D U^cAN000 M A=B
73 I U1="+" G X
 ;
 ; keuze pagina/module
8 D ^cAN001(UTX,22,UQM,USM,UFU,SW4,"S SW2=K D S1 K U1(0)",U1)
81 I RK=25,SW2>1 S SW2=SW2-1 G 13
83 I RK=26,SW2<SW4 S SW2=SW2+1 G 13
85 I RK=27 G X
87 I RK'=28 G 8
 ;
 ; uitvoeren pagina/module
9 I K="-"!(K=",") G X
91 X X I $G(REFRESH) D S1
93 G 2
 ;
 ; Xecute op 't einde
X I $L($P(UXX,D,2)) X $P(UXX,D,2)
X1 L -@UREF G 0:K="-"!(K=",")!(U1=","),1
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 08.11.95 - 14 u 35 * V6.1