cANU102 ;Beheer selecties ;%ANU10 ; [ 09/30/98 11:58 AM ] G 1 ; T0 ;Beheer selecties ; T1 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op; T2 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op; T3 ;Vervolg\"[] = ok -[] = einde"; T4 ;en ;of; ; T0F ;Gestion des sélections ; T1F ;supérieur à;supérieur ou égal à;égal à;inférieur à;inférieur ou égal à;différent de;commençant par;contient;finissant par; T2F ;<11>;<12>;<13>;<14>;<15>;<16>;ne pas commençant par;ne contient pas;ne pas finissant par; T3F ;Suite\"[] = ok -[] = fin"; T4F ;et ;ou; ; T0D ;Selektionenverwaltung ; T1D ;grosser als;grosser oder identisch an;identisch an;kleiner dan;kleiner oder identisch an;differiert von;anfangend mit;enthalt;endet auf; T2D ;<11>;<12>;<13>;<14>;<15>;<16>;nicht anfangend mit;enthalt nicht;endet nich auf; T3D ;Nächste\"[] = ok -[] = Ende"; T4D ;und ;oder; ; ; omschrijving + aantal pagina's gekoppeld bestand S1 I $L(Q1A)&$$SEC^cANU50(Q1A) D . I Q1A=Q1 S SW4A=SW4,UQAA=UQA,USAA=USA . I Q1A'=Q1 D .. N UQC,USC D DMS^cAN000("UQC","USC",Q1A) Q:UQC=""!(USC="") .. N UQA,USA S I=$G(^DMS(Q,Q1A,0),$G(^DMS(0,Q1A,0))),UQA=$P(I,D,3),USA=$P(I,D,4) Q:UQA=""!(USA="")!'$P(I,D,2) .. I $G(^DMA(UQA,USA,0,"DMS"))'=Q1A Q .. S UQAA=UQA,USAA=USA,SW2=1 F SW4A=1:1 Q:'$D(^DMA(UQAA,USAA,SW4A+1)) . S OMA=OM F I=1:1 Q:'$D(SWB(I)) D .. N UQC,USC D DMS^cAN000("UQC","USC",SWB(I)) .. S OMA=OMA_" -> "_$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2),SW2=1 S1Z Q ; ; omschrijving + test + testwaarde S2(UZB) N I,U2,X,Y,Z,%ZR S %ZR=$ZR S2A M U2=^(UZB) S X=$P(U2(1),D,QTU) I $D(@%ZR) S2B F I=1:1 Q:'$D(U2("LINK",I)) S X=$P(U2("LINK",I,1),D,QTU)_" / "_$P(X," / ") S2C S Y=$G(U2("SEL",1)),Z=$G(U2("SEL",2)) D S3 S2Z Q X ; ; test + testwaarde bij prompt S3 I Y S X=X_" "_$P($T(@("T"_(Y\10+1)_QT)),U,Y#10+1)_" """_Z_""" " S3Z Q ; ; detail lijn UZA S4 W /CUP(LN,1),$J(UZA,3),". ",/WCMD S KO=KMIN,UZB=0 S4A S UZB=UZB+1 I '$D(@UREF@(UZA,UZB)) G S4Z S4B S K="",X=$$S2(UZB) S4C I UZB>1 D . N X S X=$P($T(@("T4"_QT)),U,2) . D S5 W /SGR(1),$P($T(@("T4"_QT)),U,2),/SGR(0) S KO=KO+$L(X) S4G D S5 W X S KO=KO+$L(X) G S4A S4Z Q ; ; test volgende lijn S5 I KO+$L(X)>KMAX S LN=LN+1,KO=KMIN W /CUP(LN,KO) S5Z Q ; 1 S LMIN=2,LMAX=$P(QW(QW),D,3)-($P(QW(QW),D,5)*2) 11 S KMIN=6,KMAX=$P(QW(QW),D,4)-($P(QW(QW),D,5)*2) 13 S SW2=0 W /CUP(1,KMAX-$L(OM)-1),OM ; 2 S UZA=1,LN=LMIN 21 D S4 S UZA=UZA+1 I '$D(@UREF@(UZA)) G YZ 23 S LN=LN+1 I LN'>LMAX W /CUP(LN,3),/SGR(1),$P($T(@("T4"_QT)),U,3),/SGR(0) 25 S LN=LN+1 I LN