KDSEKT G 1 ;DRUKKEN SEKTOREN ;KDSEKT; [ 08/05/2002  10:33 AM ]
 ;
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 SEKTORKODE :"
20 S ISEKT="",FP=501
3 S ISEKT=$N(@("^"_Q_"SEKT(ISEKT)")),VVE=1 G 5:ISEKT=-1 S FP=FP+100 W @F,$C(13),?2,ISEKT,": ",^(ISEKT)
4 G 3:FP<1600 S VVE=$N(@("^"_Q_"SEKT(ISEKT)"))=-1
5 S R="FSK\21\3\VANAF SEKTORKODE\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 FSK=FSK_" ",FP=426 W @F,@F1,$S(K=".":"BEGIN",1:FSK)
8 S FP=503 W @F,@F1,"TOT SEKTORKODE   :"
9 S ISEKT="",FP=601
11 S ISEKT=$N(@("^"_Q_"SEKT(ISEKT)")),VVE=1 G 15:ISEKT=-1 S FP=FP+100 W @F,$C(13),?2,ISEKT,": ",^(ISEKT)
13 G 11:FP<1600 S VVE=$N(@("^"_Q_"SEKT(ISEKT)"))=-1
15 S R="LSK\21\3\TOT SEKTORKODE\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="." LSK="ZZ" S:K="I" LSK=FSK S LSK=LSK_" ",FP=526 W @F,@F1,$S(K=".":"EINDE",1:LSK)
21 D INIT^vhPRINTER(80) G 8:'$D(Print)
23 D HD G 27:$D(@("^"_Q_"SEKT(FSK)"))
25 S FSK=$N(@("^"_Q_"SEKT(FSK)")) I FSK=-1!(FSK]LSK) G 33
27 I LN>49 W # D HD
28 S LN=LN+2 W !,"SEKTORKODE : ",FSK,?16,"= ",^(FSK)
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
 ;