KTRAV3 G YZ ;VOORBEREIDEN BESTANDENTRANSFERT ;KTRAV1; Quit naar KTRAV2 [ 02/21/2001  11:43 AM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
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
 ;
S0 S HG=-1
S0A S HG=$N(@("^"_Q_"HULP($J,HG)")) G S0Z:HG=-1 S GR=-1
S0B S GR=$N(@("^"_Q_"HULP($J,HG,GR)")) G S0A:GR=-1 S SG=-1
S0C S SG=$N(@("^"_Q_"HULP($J,HG,GR,SG)")) G S0B:SG=-1 S PCC=-1
S0D S PCC=$N(@("^"_Q_"HULP($J,HG,GR,SG,PCC)")) G S0C:PCC=-1 S I=-1
S0E S I=$N(@("^"_Q_"HULP($J,HG,GR,SG,PCC,I)")) G S0D:I=-1 S K=^(I) D SG G S0E
S0Z K HG,GR,SG,PCC,PR,ID,R,I,@("^"_Q_"HULP($J)") Q
 ;
S4 S KC=0
S4A K B S KC=$N(@("^"_Q_"K1(KC)")) G S4Z:KC=-1 S KI1=^(KC),B(1)=@("^"_Q_"KL(KI1,0)") F I=1:1:9 I $D(^(I)) S B(I+1)=^(I)
S4B F I=1:1:7 S K=K_$P(B(1),D,I)_D
S4C S R=$P(B(1),D,8),R=$$LAND^vhRtn1(R,2),K=K_R_D_$P(B(1),D,9)_D
S4D F I=13,14,16 S K=K_$P(B(1),D,I)_D
S4E D SG F I=225,214,111 S K=K_$P(B(I\100),D,I#100)_D
S4F S K=K_$P("Y\N",D,$P(B(3),D,10)+1)_D_$P("N\Y",D,$P(B(2),D,15)+1)_D_$P(B(3),D,3)
S4G S:$D(^KLPUTZ("N",$P(B(1),D,1))) K=K_"+" S K=K_D F I=311,312,404 S K=K_$P(B(I\100),D,I#100)_D
S4H S K=K_$P("N\Y",D,$P(B(1),D,19)+1)_D_$P(B(4),D,3)_D,R=D G S4M:'$D(@("^"_Q_"STKL($P(B(1),D,1))"))
S4I S R=0,I=$N(^($P(B(1),D,1),0,0)),I=DJ-1_".00 "
S4J S I=$N(^(I)) I $P(I,".",1)=(DJ-1) S R=R+$P(^(I),D,3) G S4J
S4K S:R=0 R="" S K=K_R_D,R=0,I=DJ_".00 "
S4L S I=$N(^(I)) I $P(I,".",1)=DJ S R=R+$P(^(I),D,3) G S4L
S4M S:R=0 R="" S K=K_R_D S:$D(@("^"_Q_"SEKT($P(B(1),D,20)_"" "")")) K=K_^($P(B(1),D,20)_" ") S K=K_D_$P(KI1," ",1)_D
S4N S @("^"_Q_"TRANS($P(BST,"","",1),TEL+.1)")=K,K="" G S4A
S4Z K KC,KI1,I Q
 ;
S6 S KC=0
S6A S KC=$N(@("^"_Q_"STKL(KC)")) G S6Z:KC=-1,S6A:'$L($P(^(KC,0,0),D,1)) D SI
S6B S I=$N(@("^"_Q_"STKL(KC,0,I)")) G S6A:I=-1!(I]LBP)
S6C S X=^(I),K=K_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)_"," D SG G S6B
S6Z K KC,I Q
 ;
S7 S KC=0
S7A S KC=$N(@("^"_Q_"STKL(KC)")) G S7Z:KC=-1 S PR=0 K @("^"_Q_"HULP($J)")
S7B S PR=$N(@("^"_Q_"STKL(KC,PR)")) G S7H:PR=-1,S7B:'$L($P(^(PR,0),D,1)),S7B:'$D(@("^"_Q_"PR(PR)"))
S7C S PC=$P(^(PR,0),D,1),ID=$P(^(2),D,25),I=" \ \ " S:$E($N(^("I")),1)="I" I=^($N(^("I")))
S7D S HG=$P(I,D,1)_" ",GR=$P(I,D,2)_" ",SG=$P(I,D,3)_" " D SC,SI
S7E S I=$N(@("^"_Q_"STKL(KC,PR,I)")) G S7B:I=-1!(I]LBP)
S7F S X=^(I),K=K_KC_","_ID_","_$E(I,3,7)_","_$P(X,D,1)_","_$P(X,D,2)_","_$P(X,D,3)_","_$P(X,D,4)_","_$P(X,D,5)_","
S7G S @("^"_Q_"HULP($J,HG,GR,SG,PCC,I)")=K,K="" G S7E
S7H D S0 G S7A
S7Z K KC Q
 ;
S8 S KC=0
S8A S KC=$N(@("^"_Q_"K1(KC)")) G S8Z:KC=-1 S KI1=^(KC),KI2="L"
S8B S KI2=$N(@("^"_Q_"KL(KI1,KI2)")) G S8A:$E(KI2,1)'="L" S R=^(KI2),I=$P(R,D,19)
S8C I I'=".",$D(@("^"_Q_"K1(I)")) S R=$P(R,D,1)_D_$P(@("^"_Q_"KL(^(I),0)"),D,2,13)_D_$P(R,D,14,99)
S8D S K=K_KC_D_$P(R,D,1)_D F I=5:1:7 S K=K_$P(R,D,I)_D
S8E S I=$P(R,D,8),I=$$LAND^vhRtn1(I,2),K=K_I_D_$P(R,D,9)_D F I=13,24,25 S K=K_$P(R,D,I)_D
S8F D SG G S8B
S8Z K KC,R,I Q
 ;
S9 S KC=0
S9A S KC=$N(^KLPUTZ("N",KC)) G S9Z:KC=-1 S HG=-1
S9B S (HG,HGR)=$N(^KLPUTZ("N",KC,HG)) G S9A:HG=-1 S GR=-1 S:HG=0 HGR=""
S9C S (GR,GRR)=$N(^KLPUTZ("N",KC,HG,GR)) G S9B:GR=-1 S SG=-1 S:GR=0 GRR=""
S9D S (SG,SGR)=$N(^KLPUTZ("N",KC,HG,GR,SG)) G S9C:SG=-1 S PR=-1 S:SG=0 SGR=""
S9E S PR=$N(^KLPUTZ("N",KC,HG,GR,SG,PR)) G S9D:PR=-1 S NXT=-1
S9F S NXT=$N(^KLPUTZ("N",KC,HG,GR,SG,PR,NXT)) G S9D:NXT=-1
S9G S R=D_$P(^(NXT),D,1,3) I PR,$D(@("^"_Q_"PR(PR)")) S R=$P(^(PR,2),D,25)_R
S9H S K=K_KC_","_HGR_","_GRR_","_SGR_","_$P(R,D,1)_"," S:$P(R,D,2) K=K_$J($P(R,D,2),0,1) S K=K_","
S9I S:$P(R,D,3) K=K_$J($P(R,D,3),0,1) S K=K_","_$P(R,D,4)_"," D SG G S9E
S9Z K KC,HG,HGR,GR,GRR,SG,SGR,PR,R,NXT Q
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.09.87 - 16 u 25