KTRAV2 G 1 ;VOORBEREIDEN BESTANDENTRANSFERT ;KTRAV1; Do naar KTRAV3 - Quit naar KTRAV1 [ 02/05/2001  4:14 PM ]
 ;
SG S TEL=TEL+1,@("^"_Q_"TRANS($P(BST,"","",1),TEL)")=K,K=""
SGZ Q
 ;
SI S I=FBP-.01 S:$P(I,".",2)="" I=I_".00" S:$P(I,".",2)=1 I=I_0 S I=I_" "
SIZ Q
 ;
SP S @S=$$ROUND^KPRIJS(@S) Q
 ;
S1 K B S B(1)=@("^"_Q_"PR(PR,0)") F I=1:1:9 I $D(^(I)) S B(I+1)=^(I)
S1A S (B("I"),B("J"))="",I=$N(^("I")) S:$E(I,1)="I" B("I")=^(I) S I=$N(^("J")) S:$E(I,1)="J" B("J")=^(I)
S1B F I=325,101,102,111 S K=K_$P(B(I\100),D,I#100)_D
S1C S K=K_$P("Y\N",D,$P(B(2),D,25)+1)_D F I=1:1:3 S K=K_$P(B("I"),D,I)_D
S1D S K=K_$P(B("J"),D,1)_D,PLP=$P(B("J"),D,25),AFR=$E($P(B(2),D,14),2),S="PLP" D SP S K=K_PLP_D
S1E S K=K_$P("N\Y",D,$P(B(2),D,20)+1)_D F I=7,16,6 S K=K_$P(B("J"),D,I)_D
S1F F I=214,215,216 S K=K_$E($P(B(I\100),D,I#100),1)_D
S1G D SG
S1Z K I,PLP,AFR Q
 ;
S2 G S2Z:'$D(@("^"_Q_"STPR(PR)")) S R=$P(@("^"_Q_"PR(PR,2)"),D,25)
S2A S I=@("^"_Q_"STPR(PR,0,0)") D SI
S2B S I=$N(@("^"_Q_"STPR(PR,0,I)")) G S2Z:I=-1!(I]LBP)
S2C S X=^(I),K=K_R_","_$E(I,3,7)_","_$P(X,D,1)_","_$P(X,D,2)_","_$P(X,D,3)_","_$P(X,D,4)_","_$P(X,D,5)_"," D SG G S2B
S2Z K R,I Q
 ;
S3 G S3Z:'$D(@("^"_Q_"STPR(PR)")) S KC=0,R=$P(@("^"_Q_"PR(PR,1)"),D,20) G S3Z:R'=PSN&(PSN'=".") S R=$P(^(2),D,25)
S3A S KC=$N(@("^"_Q_"STPR(PR,KC)")) G S3G:KC=-1 D SI S TYK=0 S:$L(KTY) TYK=$E(KTY,1) I $D(@("^"_Q_"K1(KC)")) S TYK=$P(@("^"_Q_"KL(^(KC),1)"),D,25)
S3B S I=$N(@("^"_Q_"STPR(PR,KC,I)")) G S3A:I=-1!(I]LBP)
S3C S X=^(I),K=K_R_","_KC_","_$E(I,3,7)_","_$P(X,D,1)_","_$P(X,D,2)_","_$P(X,D,3)_","_$P(X,D,4)_","_$P(X,D,5)_","
S3D I KTY'[TYK D SG G S3B
S3E S:'$D(TA($P(K,",",3))) TA($P(K,",",3))="" F X=1:1:5 S $P(TA($P(K,",",3)),",",X)=$P(TA($P(K,",",3)),",",X)+$P(K,",",X+3)
S3F S K="" G S3B
S3G S I=""
S3H S I=$N(TA(I)) I I'=-1 S K=R_",99999,"_I_","_TA(I)_"," D SG G S3H
S3Z K KC,R,I,TYK,TA Q
 ;
1 S Q="K",%="%"
11 S %=$N(@("^"_Q_"HULP(""TRA"",%)")) I %'=-1 S @%=^(%) G 11
13 K @("^"_Q_"HULP(""TRA"")") L @("^"_Q_"TRANS")
 ;
2 S K="",$ZT="^cER"
21 G YZ:'$L($P(BST,",",1)) K @("^"_Q_"TRANS($P(BST,"","",1))") S TEL=0
23 I $P(BST,",",1)=5 D S5^KTRAV4 G 41
25 I $P(BST,",",1)>9 D @("S"_$P(BST,",",1)_"^KTRAV5") G 41
27 I $P(BST,",",1)>3 D @("S"_$P(BST,",",1)_"^KTRAV3") G 41
 ;
3 S HG=-1
31 S HG=$N(@("^"_Q_"PH(HG)")) G 4:HG=-1 S GR=-1
33 S GR=$N(@("^"_Q_"PH(HG,GR)")) G 31:GR=-1 S SG=-1
35 S SG=$N(@("^"_Q_"PH(HG,GR,SG)")) G 33:SG=-1 S PCC=-1
37 S PCC=$N(@("^"_Q_"PH(HG,GR,SG,""  "",PCC)")) G 35:PCC=-1 S PR=+^(PCC) D @("S"_$P(BST,",",1)) G 37
 ;
4 K HG,GR,SG,PCC,PR
41 S:$P(BST,",",1)'=10 @("^"_Q_"TRANS($P(BST,"","",1),0)")=DT_D S BST=$P(BST,",",2,99) G 21
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.01.88 - 15 u 20