cAN201 ;OPENEN ;%AN200 ; [ 01/04/01 8:28 AM ] G 1 ; T0 ;Openen ; T1 ;Volgende pagina\"[] = volgende pagina .[] = volgend(e) ;; T2 ;Opening ok\"[] = ok ,[] = hernemen xx[] = wijzigen rubriek xx"; ; T0F ;Création ; T1F ;Page suivante\"[] = page suivante .[] = ; suivant(e); T2F ;Création ok\"[] = ok ,[] = reprendre xx[] = modifier rubrique xx"; ; T0E ;Creation of ; T1E ;Next page\"[] = next page .[] = next ;; T2E ;Creation ok\"[] = ok ,[] = retry xx[] = modify element xx"; ; ; variabelen leeg + scherm 1 1 K B F I=1:1:SW3 S B(I)=USL 11 K A M A=B S SW2=1,UI1="" ; ; scherm per scherm 2 K C D S1^cAN000(SW2) S SW5=1 21 W /WSCROFF F I=1:1 Q:'$D(C(I)) D S2^cAN000(I) 23 W /WSCRON S SW5=0 25 S (SW1,U1)=0 27 S U1=$O(C(U1)),RK=28 I U1="" G 6 ; ; merge + uitvoeren rubriek 3 D M^cAN000(U1) 31 S K="",U7=U2(16) I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100) 33 I $L(U2(7)) X U2(7) 35 I $L(U2(19)) X U2(19) I $L(U2(11)),@U2(11) G 39 37 I $L(U2(19)),$L(U2(11)) S K="-" 39 I $L(U2(19)) G 41 ; ; manuele input 4 D ^cAN100 41 I K="-" S U1=$O(C(U1),-1),RK=31 G 6:SW1,3:U1,25:SW2>1,YZ 43 I K="," G 6:SW1,21 ; ; X na input + output 5 I $L(U2(12)) X U2(12) 51 D B^cAN000(U7,K),S3^cAN000(K) 53 G 27:'SW1 ; ; einde scherm 6 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\""-,""[K!$D(C(+K))" D R0 G 7:K="",25:K="," I K="-" S SW1=0,U1=$O(C(""),-1),RK=31 G 3 61 S SW1=1,U1=+K G 3 ; ; nieuwe index1 7 I SW2>1!$L(UI1) G 8 71 S UI1=$$NR^cAN000 73 L +@UREF ; ; schrijven na elk scherm 8 S OK=0 I $L($P(UXX,D)) X $P(UXX,D) I 'OK G 6 81 I OK'=1 D U^cAN000 83 I SW2=SW4 S K="." 85 I SW2