cAN2211 ;WIJZIGEN ;%AN221 ; [ 01/04/01  9:08 AM ]
 G 1
 ;
T0 ;Wijzigen ;
T1 ;Niet wijzigbaar;
T2 ;Rubriek;" [] = vaste waarde toekennen   ?[] = vragen bij het openen";
T3 ;"![] = overnemen uit catalog";
 ;
T0F ;Modification ;
T1F ;Non modifiable;
T2F ;Rubrique;"[] = assigner valeur fixe   ?[] = remplir lors de la création";
T3F ;"![] = prendre du cataloge";
 ;
T0E ;Modification ;
T1E ;Cannot be modified;
T2E ;Element;" [] = fixed value   ?[] = ask on creation";
T3E ;"![] = take from catalog";
 ;
 ; data per rubriek
S3 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) D
 . S K=$P(B(U7\100),D,U7#100) I U7#100>$L(B(U7\100),D) S K="?"
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 S:K="?"!(K="!"&$G(CTLG))!'U7 U2(8)="" D S3^cAN000(K)
S1Z S SW5=0 K REFRESH Q
 ;
 ; ophalen data + pagina tonen
1 S J=USL F I=1:1:$L(J,D) S $P(J,D,I)="?"
11 K B F I=1:1:SW3 S B(I)=$G(@IREF@(UP,I-1),J)
13 K A M A=B S:'SW2 SW2=1 D S1
 ;
 ; nummer element
2 D ^cAN006("",22,UQM,USM,UFU,SW4,"","")
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)="."_$TR(K,"-",",")
 ;
 ; uitvoeren keuze
3 I $E(K)="." S U1=$E(K,2,$L(K)),K="-" G 2:U1>SW4!($E(U1)=0)!(U1=SW2),7:$L(U1),2
31 S U1=+K G 2:'$D(C(U1)) D M^cAN000(U1) S U7=U2(16)
33 I $L(U2(15)),@U2(15) S U7=""
35 I 'U7 D ER^cAN000($P($T(@("T1"_QT)),U,2)) G 2
37 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_" "_U1_" = "_$P(U2(1),D,QTU)_D_$P($T(@("T2"_QT)),U,3)_$S($G(CTLG):",!?2,"_$P($T(@("T3"_QT)),U,2),1:"")_"\1\\""-?""[K!(K=""!""&$G(CTLG))" D R0 G 51:$L(K)
 ;
 ; wijzigen rubriek
4 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100) I K="?" S K=""
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
 ;
 ; X na input + output
6 I K'="?"!(K'="!"&$G(CTLG)),$L(U2(12)) X U2(12) I K="-" G 51
61 D B^cAN000(U7,K) S:K="?"!(K="!"&$G(CTLG)) U2(8)="" D S3^cAN000(K) I $G(REFRESH) D S1
63 G 2
 ;         
 ; einde pagina
7 F I=1:1:SW3 S @IREF@(UP,I-1)=B(I)
71 M A=B
 ;
 ; keuze pagina/module
8 D ^cAN001("",22,UQM,USM,UFU,SW4,"S SW2=K D S1",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 G YZ
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84