cANU202 ;Beheer listings ;%ANU20 ; [ 02/21/00 4:02 PM ] G 1 ; T0 ;Beheer listings ; T1 ;Vervolg\"[] = ok -[] = einde"; ; T0F ;Gestion des listings ; T1F ;Suite\"[] = ok -[] = fin"; ; T0D ;Listenverwaltung ; T1D ;Nächste\"[] = ok -[] = Ende"; ; ; 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 op lengte S2(UZB) N I,U2,X,%ZR S %ZR=$ZR S2A M U2=^(UZB) S X="" I $D(@%ZR) S2B S X=$E(U2(1)_$J("",U2(13)),1,U2(13)) S2C F I=1:1 Q:'$D(U2("LINK",I)) S X=$E(U2("LINK",I,1)_$J("",U2("LINK",I,13)),1,U2("LINK",I,13)) S2Z Q X ; ; detail lijn UZA S4 W /CUP(LN,1),/WWR(0),/WCMD,$C(124) S KO=1,UZB=0 S4A S UZB=UZB+1 I '$D(@UREF@(UZA,UZB)) G S4Y S4B S K="",X=$$S2(UZB) W " ",X," ",$C(124) S KO=KO+$L(X)+3 G S4A S4Y W /CUP(LN,1),/SGR(1),UZA,/SGR(0),/WWR(1) S LN=KO-1\KMAX+LN+1 S4Z Q ; 1 S LMIN=2,LMAX=$P(QW(QW),D,3)-($P(QW(QW),D,5)*2) 11 S KMIN=1,KMAX=$P(QW(QW),D,4)-($P(QW(QW),D,5)*2) 13 S SW2=0 W /CUP(1,KMAX-$L(OM)-1),OM 15 W /CUP(LMIN,KMIN) F I=1:1:8 W ".........",I ; 2 S UZA=1,LN=LMIN+1 21 D S4 S UZA=UZA+1 I '$D(@UREF@(UZA)) G YZ 25 S LN=LN+1 I LN