cTE6 ;LIJST BUDGET-PATRONEN ;%TE6; [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Lijst budget-patronen ;
T1 ;Van patrooncode\"-[] = einde programma   .[] = vanaf het begin   [] = specifieke code";
T2 ;eerste code;
T3 ;Tot patrooncode\"I[] = zelfde code   .[] = laatste code   [] = specifieke code";
T4 ;laatste code;
T5 ;Patrooncode;
T6 ;   [] = vervolg;
T8 ;: Patroon;
T9 ;Blz :;
 ;
T0F ;Liste codes modèles ;
T1F ;Depuis code modèle\"-[] = fin du programme   .[] = depuis le début   [] = code spécifique";
T2F ;premier code;
T3F ;Jusque code modèle\"I[] = même code   .[] = dernier code   [] = code spécifique";
T4F ;dernier code;
T5F ;Code modèle;
T6F ;   [] = suite;
T8F ;: Modèle;
T9F ;Page:;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V2 20.11.86
 ;
1 S PAT="",K=@("^"_Q_"BA(2)"),I=$P(K,D,2),I=I\1*12+(I#1*100),K=K-1,NM1=QN,NM2=^(99,2),NM3=^(3),BLZ=0
11 S K=K+1 I K<I S PAT=PAT_^cBA(2,$E(QT_"N"),K#12+1)_D G 11
12 I 'QP S I1X=PP(1),I2X=PP(2) G 31
15 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
19 F K=1,2 S FP=K*200+703 W @F,$P($P($T(@("T"_(K*2-1)_QT)),U,2),D,1) S FP=FP+18 W @F,":"
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-"
21 I K="." S I1X=-1,K=$P($T(@("T2"_QT)),U,2)
22 E  D S1 G 2:K="-" S I1X=K,K=K_$J("",6-$L(K))_$P(^(K),D,2)
24 S FP=923 W @F,K,@F2
25 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K!(K=""I""&(I1X'=-1))\\\1" D R0 G 2:K="-"
26 I K="." S I2X="~",K=$P($T(@("T4"_QT)),U,2) G 29
27 I K="I" S I2X=I1X,K=I1X,K=K_$J("",6-$L(K))_$P(^(K),D,2) G 29
28 D S1 G 25:K="-",28:I1X]K S I2X=K,K=K_$J("",6-$L(K))_$P(^(K),D,2)
29 S FP=1123 W @F,K,@F2
3 S R=1 D ^cA345 G 25:K="-",2:K="," I K="." S PP(1)=I1X,PP(2)=I2X D S9 G 2
 ;
31 X F70 W @F80 S BLZ=0 D 8 I I1X'=-1 G 35:$D(@("^"_Q_"BA(81,I1X)"))
32 S I1X=$N(@("^"_Q_"BA(81,I1X)")) I I1X=-1!(I1X]I2X) D 85 W $$FF^cA334 G YZ
35 S LN=LN+1 I LN>50 D 85 W $$FF^cA334 D 8
36 S K=^(I1X) W !,": ",I1X,?8,$P(K,D,2),?25,":"
37 F I=1:1 Q:'$L($P(PAT,D,I))!(I>12)  S R=$P(K,D,I+2)_D_7_D_D_2 S:R'["." R=$P(R,D,1,2) D R3 W ?I*9+25,":"
39 G 32
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?126,$P($T(@("T9"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?126,DT,!,NM3,?127,TD,!
81 D 85 W !,$P($T(@("T8"_QT)),U,2) F I=1:1 S K=$E($P(PAT,D,I),1,8) Q:'$L(K)!(I>12)  W ?I*9+16,":",$J("",$L(K)+1\-2+4),K
82 W ?I*9+16,":"
85 S K=":------------------------" W !,K S K=$E(K,1,9) F I=1:1 Q:'$L($P(PAT,D,I))!(I>12)  W K
86 W ":" Q
 ;
YZ X F71 Q
 ;
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
 ;
S1 D ^cAN105("K",18,0,"KODE.PAT") Q
 ;
S9 S QPT=$T(+0) D ^cA109
S9Z Q
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3