KVDKB G 1 ;DRUKKEN KONTAKTKODES ;KVDKB; [ 08/07/2002   4:17 PM ]
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S BLZ=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
2 S FP=403 W @F,@F1,"VANAF KONTAKTKODE :"
20 S IVW="",FP=501
3 S IVW=$N(@("^"_Q_"BA(162,IVW)")),VVE=1 G 5:IVW=-1 S X=^(IVW),FP=FP+100 W @F,$C(13),?2,IVW,": ",$P(X,D,1) I $P(X,D,2) W ?25,"+ VERPLAATSING"
4 G 3:FP<1600 S VVE=$N(@("^"_Q_"BA(162,IVW)"))=-1
5 S R="FBK\21\3\VANAF KONTAKTKODE\C1\2\\""-.""[K!($E(K,1)'="" ""&($E(K,2)'="" "")&($L(K)=2))\" D R0 G YZ:K="-"
6 I K="" S FP=501 W @F,@F1 G 20:VVE,3
7 S FBK=FBK_" ",FP=423 W @F,@F1,$S(K=".":"BEGIN",1:FBK)
8 S FP=503 W @F,@F1,"TOT KONTAKTKODE   :"
9 S IVW="",FP=601
11 S IVW=$N(@("^"_Q_"BA(162,IVW)")),VVE=1 G 15:IVW=-1 S X=^(IVW),FP=FP+100 W @F,$C(13),?2,IVW,": ",$P(X,D,1) I $P(X,D,2) W ?25,"+ VERPLAATSING"
13 G 11:FP<1600 S VVE=$N(@("^"_Q_"BA(162,IVW)"))=-1
15 S R="LBK\21\3\TOT KONTAKTKODE\C2\2\\""-.I""[K!($E(K,1)'="" ""&($E(K,2)'="" "")&($L(K)=2))\" D R0 G 2:K="-"
17 I K="" S FP=601 W @F,@F1 G 9:VVE,11
19 S:K="." LBK="ZZ" S:K="I" LBK=FBK S LBK=LBK_" ",FP=523 W @F,@F1,$S(K=".":"EINDE",1:LBK)
21 D INIT^vhPRINTER(80) G 8:'$D(Print)
23 D HD G 27:$D(@("^"_Q_"BA(162,FBK)"))
25 S FBK=$N(@("^"_Q_"BA(162,FBK)")) I FBK=-1!(FBK]LBK) G 33
27 I LN>49 W # D HD
28 S X=^(FBK),LN=LN+2 W !,"KONTAKTKODE : ",FBK,?16,"= ",$P(X,D,1) I $P(X,D,2) W ?38,"+ VERPLAATSING"
31 W ! G 25
33 W # D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?72,"BLZ: ",$J(BLZ,3),!,NM2,?32,$P($T(+1)," ",5),?72,DT
HD1 W !,NM3,?73,TD,!!
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
C1 W !?2,".[] = vanaf het begin" W:'VVE "   [] = vervolg" W "   -[] = einde programma" Q
C2 W !?2,".[] = tot het einde" W:'VVE "   [] = vervolg" W "   I[] = idem als vorige" Q
C3 W !?2,"[] = ok" Q
 ;