cA252 ;BEHEER KODES (TONEN DETAIL) ;%A250 ; Quit naar %A250 [ 12/29/00  4:47 PM ]
 G 1
 ;
T0 ;Beheer codes (tonen detail) ;
T1 ;[] = vervolg   -[] = terug naar selectie;
 ;
T0F ;Gestion codes (montrer détail) ;
T1F ;[] = suite   -[] = retour a la sélection;
 ;
T0E ;Codes (summary) ;
T1E ;[] = next   -[] = back to selection;
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
1 S RRZ="",SW12=1,SW=0,RRL=+RRD,Z=$P(RRD,D,2)-RRD+1 K RTA
 ;
2 S RRZ=$O(@Q1) G YZ:RRZ="" S R22=^(RRZ)
21 I 'Z D S4:SW S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\1\\"",-""[K" D R0 S Z=$P(RRD,D,2)-RRD+1,SW=1 I K="-"!(K=",") S SW=0 G YZ
23 I RRL>$P(RRD,D,2) S RRL=RRL-1,FP=$P(RRD,D,2)+1*100+1 W @F,@F1 S FP=RRD*100+1 W @F,@FDL D S1
25 S:$E(RRZ,$L(RRZ))=" " RRZ=$E(RRZ,1,$L(RRZ)-1) S RTA(RRL)=RRZ I SW S FP=RRL*100+$P(RRV,U) W @F,@F7,@$P(FG,D,10),@F8
27 F I=1:1 S X=$P(RRM,D,I) Q:'$L(X)  D S2
29 S RRL=RRL+1,Z=Z-1 G 2
 ;
YZ D S4:SW,S3 K SW,Z Q
 ;
S1 S X="" K:$O(RTA(X))=+RRD RTA($O(RTA(X))) F I=1:1 S X=$O(RTA(X)) Q:X=""  S RTA(X-1)=RTA(X) K RTA(X)
S1Z Q
 ;
S2 F II=1:1:4 S @("RS"_II)=$P(X,U,II)
S2A S FP=RRL*100+$P(RRV,U,RS2)+2,K=$S('RS1:@RS1,1:$P(R22,D,RS1#100)) X:$L(RS4) RS4
S2B I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
S2C E  S FP=FP-1 W @F,$J(K,$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-1)
S2D I SW S FP=RRL*100+$P(RRV,U,RS2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z K RS1,RS2,RS3,RS4 Q
 ;
S3 F I=RRL:1:$P(RRD,D,2) F J=1:1 Q:'$L($P(RRV,U,J+1))  S FP=I*100+$P(RRV,U,J)+1 W @F,$J("",$P(RRV,U,J+1)-$P(RRV,U,J)-1)
S3Z Q
 ;
S4 S FP=$P(RRD,D,2)+1*100+$P(RRV,U) W @F,@F7,@$P(FG,D,3)
S4A F I=1:1 Q:'$L($P(RRV,U,I+1))  S FP=$P(RRD,D,2)+1*100+$P(RRV,U,I) W:I'=1 @F,@$P(FG,D,8) F J=$P(RRV,U,I)+2:1:$P(RRV,U,I+1) W @$P(FG,D,9)
S4Z W @$P(FG,D,4),@F8 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84