cI21 ;KONTROLE OP DUBBELE HISTORIEKEN ;%I21 [ 01/26/95   6:07 PM ]
 ;
T1 ;DE REKENING\REKENINGEN\NUMERIEKE\numerieke\AR\R1;
T2 ;VAN MAAND;TOT MAAND;\"JJJJ.MM[] = bepaalde maand;   I[] = idem als voorgaande;
T3 ;BEVESTIGING\"[] = ok   ,[] = hernemen";
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S TXT=$P($T(T1),U,2) D ^cA306 G YZ:K="-"
13 S TXT=$P($T(T2),U,2),R="BP1\22\3\"_TXT_$P($T(T2),U,4)_"""\7\BPCTR1"
15 D R0 G 11:K="-" S FP=1603 W @F,TXT," : ",BP1
17 S TXT=$P($T(T2),U,3),R="BP2\22\3\"_TXT_$P($T(T2),U,4)_$P($T(T2),U,5)_"""\7\BPCTR2"
19 D R0 G 13:K="-" S:K="I" BP2=BP1 S FP=1803 W @F,TXT," : ",BP2
 ;
2 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-,""[K" D R0 G 17:K="-",11:K=","
21 S I1=LIM1 L (@("^"_Q_"AR"),@("^"_Q_"BA"),@("^"_Q_"KL"),@("^"_Q_"LE")):5 E  X ^cTXT(0,"N",14) R K G 2
23 I LIM2="" S I1=$O(^HULP(boot,$J,I1)) G Y:I1="",3
25 I I1]LIM1!(I1=" ") S I1=$O(@("^"_Q_"AR(I1)")) G Y:I1=""!(I1]LIM2)
 ;
3 S FP=2203 W @F,I1,@F1 S BP=BP1
31 K ^HULP(boot,$J+(100/10000)) S SW=0,VNR=0,I2=1_BP*100,I2A=I2,X="" W "."
33 S I2=$O(@("^"_Q_"AR(I1,I2)")) G 4:I2=""!($E(I2,1,7)'=I2A),33:I2'["." S L=^(I2)
35 S A=$P(L,D),L=$P(L,D,2,99) I A="" G 33:L="",35
37 S:A=X SW=1 I A'=X S VNR=VNR+1,^HULP(boot,$J+(100/10000),VNR)=A,X=A
39 G 35
 ;
4 G 5:'SW S I2=I2A F K=1:1 S I2=$O(@("^"_Q_"AR(I1,I2)")) Q:I2=""!($E(I2,1,7)'=I2A)  I I2["." K ^(I2)
41 S A="",L="",VNR="",I2=I2A
43 S VNR=$O(^HULP(boot,$J+(100/10000),VNR)) I VNR'="" S A=^(VNR) I $L(L)+$L(A)<254 S L=L_A_D,A="" G 43
45 I L'="" S I2=I2+.01,@("^"_Q_"AR(I1,I2)")=L,L="" S:A'="" L=L_A_D,A="" G 43:VNR'="",45
47 W "!"
 ;
5 I BP<BP2 S BP=$J(BP+.01,7,2) S:(BP#1>.12) BP=BP+.88 G 31
51 S LIM1=" " G 23
 ;
Y L  X ^cTXT(0,"N",4) R K
YZ 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
 ;
BPCTR1 ;K="-"!(K?4N1"."2N&(K#1)&(K#1<.13))
BPCTR2 ;K="-"!(K?4N1"."2N&(K#1)&(K#1<.13)&(K'<BP1))!(K="I")
 ;
Z X ^cZ Q
ZZ ; 07.04.89 - 16 u 41