cI23 ;KONTROLE LINK KOSTENPLAATSEN EN -SOORTEN ;%I23 ; [ 04/21/94  11:21 AM ]
 G 1
 ;
T1 ;DE KOSTENPLAATS\KOSTENPLAATSEN\NUMERIEKE\numerieke\;
T2 ;VAN MAAND\"onder de vorm JJJJ.MM";
T3 ;TOT MAAND\"onder de vorm JJJJ.MM";
T4 ;BEVESTIGING\".[] = ok   ,[] = hernemen";
 ;
 ; opzetten link ARA -> AR
S3 S VNR=0
S3A S VNR=VNR+.01 I $D(@("^"_Q_"ARA(I1,J2_(VNR+.01))")) G S3A
S3B I '$D(^(J2_VNR)) S ^(J2_VNR)=""
S3C I ^(J2_VNR)[HV G S3Z
S3D I $L(^(J2_VNR))+$L(HV)>254 G S3A
S3E S ^(J2_VNR)=^(J2_VNR)_HV_D W "."
S3Z Q
 ;
 ; aflopen ventilaties
S2 S FNX=FNR
S2A S FNX=FNX+.01 G S2Z:'$D(@("^"_Q_G_"(BP,FNX)")),S2Z:FNX\1>FNR
S2B S VN=^(FNX)
S2C S VV=$P(VN,D),VN=$P(VN,D,2,999) I VV="" G S2A
S2D I $P(VV,S,9)=I1 S J2=2_$E($P(VV,S)_$J("",7),1,7)_$E(I2,2,7) D S3
S2E G S2C
S2Z Q
 ;
 ; aflopen detailhistorieken
S1 S BP=$E(I2,2,5)_"."_$E(I2,6,7),FP=2303 W @F,BP,@F1
S1A S HN=^(I2)
S1B S HV=$P(HN,D),HN=$P(HN,D,2,999) I HV="" G S1Z
S1C I $E(HV)="A" S FNR=$E(HV,2,7),G="AA" D S2
S1D I $E(HV)="V" S FNR=$E(HV,2,7),G="VE" D S2
S1E I $E(HV)="B" S VN=@("^"_Q_"FI(BP,$P($E(HV,2,99),S),$P(HV,S,2))"),J2=2_$E($P($P(VN,D,8),S)_$J("",7),1,7)_$E(I2,2,7) D S3
S1F G S1B
S1Z Q
 ;
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)_"ARA\RA1\1" D ^cA306 G YZ:K="-"!(K=",")
13 S R="BP1\22\3\"_$P($T(T2),U,2)_"\7\PCTR" D R0 G 11:K="-",11:K=","
15 S FP=1603 W @F,@F1,$P($P($T(T2),U,2),D)," : ",BP1
17 S R="BP2\22\3\"_$P($T(T3),U,2)_"\7\PCTR" D R0 G 13:K="-",11:K=","
19 S FP=1803 W @F,@F1,$P($P($T(T3),U,2),D)," : ",BP2
 ;
2 I BP2<BP1 G 17
21 S R="K\22\3\"_$P($T(T4),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 17:K="-",11:K=","
 ;
3 S I1="",S="#"
31 S R="I1\ARA" D ^cA327 I I1="" L  G YZ
33 S FP=2203 W @F,I1," ",$P(^(0),D,2),@F1 L @("^"_Q_"ARA(I1)")
35 S I2=2E7
37 S I2=$O(^(I2)) I $E(I2)=2,I2?1N7E6N1"."1N.N,$E(I2,9,14)/100'<BP1,$E(I2,9,14)/100'>BP2 K ^(I2)
39 I $L(I2) G 37
 ;
4 S I2=1_BP1*100,I2Z=1_BP2*100+.9999
41 S I2=$O(@("^"_Q_"ARA(I1,I2)"))
43 I $E(I2)=1,I2?7N1"."1N.N,I2<I2Z D S1 G 41
45 G 31
 ;
YZ Q
 ;
PCTR ;K="-"!(K=",")!(K?4N1"."2N&(K#1)&(K#1<.13)&(K>1980))
 ;
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
 ;
F1 S R=250
F2 X ^cTXT(0,"N",R) R K
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 18.05.94 - 15 u 26 * V5.4.07