cANU205 ;Ingave kolom ;%ANU20 ; [ 02/22/00  5:57 PM ]
 G 1
 ;
T0 ;Ingave kolom ;
T1 ;Aantal posities;
T2 ;Omschrijving kolom;
T3 ;Subtotaal berekenen\"[] = neen   .[] = ja";
T4 ;U kan slechts ;x doorschakelen naar een onderliggend bestand ;
T5 ; : pag. ;
T6 ;U heeft geen toegang tot dit bestand ;
 ;
T0F ;Création colonne ;
T1F ;Nombre de positions;
T2F ;En-tête colonne;
T3F ;Totaliser la colonne\"[] = non   .[] = oui";
T4F ;Vous ne pouvez passer que ; fois à un fichier inférieur ;
T5F ; : page ;
T6F ;Vous n'avez pas d'accès à ce fichier ;
 ;
 ; opbouw scherm
S1(SW2) N UQA,USA S UQA=UQAA,USA=USAA D S1^cAN000(SW2)
S1A N I S I=OMA I SW4A>1 S I=I_$P($T(@("T5"_QT)),U,2)_SW2_"/"_SW4A
S1B W /CUP(1,KMAX-$L(I)-1),I,/WCML
S1Z Q
 ;
 ; tonen nummer + omschrijving rubriek
S2(R) N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R) D
 . I $L(U2(24)) S U2(22)=U2(24)
 . I $L(U2(25)) S U2(23)=U2(25)
S2A I U2(22) W /CUP(U2(2),U2(3)),$J(R,2)
S2B I U2(23) W /CUP(U2(2),U2(3)+3),/SGR(4),$P(U2(1),D,QTU),/SGR(0),/CUP(U2(2),U2(6)-2),":"
S2Z Q
 ;
 ; uitkuisen U2
S3 N I F I=2,3,5:1:7,9,11,12,14,15,19:1:25 K U2(I)
S3Z Q
 ;
 ; tonen nieuwe gegevens         
S4 D O^cA612(22,1,1,80,0,0,0,0)
S4A W /CUP(1,3),OMS I POS W " (",POS,")"
S4Z Q
 ;
 ; merge
M(R) N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R)
MZ Q
 ;
 ; startbestand
1 K SWA,SWB S SWA=0,SWB(0)=Q1
10 S Q1A=Q1,SW4A=SW4,OMA=OM,UQAA=UQA,USAA=USA S:SW2>SW4A!'SW2 SW2=1
11 K C D S1(SW2)
13 S I="" F  S I=$O(C(I)) Q:I=""  D S2(I) I 'U2(22)!'U2(23) K C(I)
 ;
 ; nummer element
2 D ^cAN006("",22,0,"LIS","U",SW4A,"","")
23 I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
25 I RK=26,SW2<SW4A 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)) G 2:U1>SW4A!($E(U1)=0)!(U1=SW2),8:$L(U1),2
31 S U1=+K G 2:'$D(C(U1)) D M(U1)
 ;
 ; doorschakelen ?
4 I $L(U2(18)) S OK=0 D  G 11:OK,2
 . I '$$SEC^cANU50(U2(18)) S K=$P($T(@("T6"_QT)),U,2) D TXT^cAFA1(250) Q
 . I SWA=3 S K=$P($T(@("T4"_QT)),U,2)_SWA_$P($T(@("T4"_QT)),U,3) D TXT^cAFA1(250) Q
 . S OK=1,SWA=SWA+1 D S3 M SWA(SWA)=U2 S Q1A=U2(18),SWB(SWA)=Q1A D S1^cANU202
 ;
 ; aantal posities & omschrijving
5 S OMS=$P(U2(1),D,QTU),POS=U2(13) I SWA S OMS=OMS_" / "_$P(SWA(SWA,1),D,QTU)
50 S COM=OMS
51 S R="POS\23\3\"_$P($T(@("T1"_QT)),U,2)_"\\2\\K=""-""!(K?.N&K)\\\\\1" D S4,R0,C^cA612 G 2:K="-"
53 S R="OMS\23\3\"_$P($T(@("T2"_QT)),U,2)_"\\"_POS_"\\$L(K)!'U1\\\\\1" D S4,R0,C^cA612 G 5:K="-"
 ;
 ; totalisatie ?
6 S TOT=0 I U2(4)=1 D  I K="-" G 53
 . S R="K\23\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D S4,R0,C^cA612
 . S TOT=$L(K)
 ;
 ; opbouw kolom
7 D S3 S U2(1)=OMS,U2(10)=COM,U2(13)=POS,SWA=SWA+1 M SWA(SWA)=U2
71 K U2 M U2=SWA(1) S U2("TOT")=TOT
73 F I=2:1:SWA M U2("LINK",I-1)=SWA(I)
75 K @UREF@(UZA,UZB) M @UREF@(UZA,UZB)=U2 G YZ
 ;
 ; input via .x
8 I U1 S SW2=U1 G 11
81 I U1="." D  G 5
 . F I=1,4,8,13,16:1:18 S U2(I)=""
 S K="-"
 ;
YZ K I,J,SWA,U2,OMS,POS,TOT Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3