KTAPP1 G 1 ;AFDRUKKEN AANEENGESCHAKELDE PRINTPROGRAMMA'S ;KTAPP1;Go naar KTAPP2 [ 03/29/2001  8:30 AM ]
 ;
T1 ;ALLEEN DE LISTINGS VAN DE EIGEN TERMINAL, OF DEZE VAN DE ANDERE OOK\
T2 ;"-[] = einde programma   .[] = alle terminals   [] = alleen eigen terminal"
T3 ;ALLE TERMINALS;EIGEN TERMINAL
T4 ;OVERZICHT\
T5 ;"[] = neen   .[] = ja"
T6 ;NR   EX   VERW   LISTINGS VOOR : 
T7 ;JA;NEEN
T8 ;WIJZIGEN LISTING NUMMER   .[] = einde
T9 ;   [] = vervolg
T10 ;LISTING NR.
T11 ;AANT. EXEMPL.\\2\\K?.N!(K="-")&$L(K)
T12 ;VERW. NA AFDRUK\SC1\1\\"-1"[K
T13 ;NUMMER ELEMENT
T14 ;[] = ja   1[] = neen
 ;
S2 K T S LN=7,X=0,K=$P($T(T6),U,2)_I,K=K_$J("",77-$L(K)),FP=679 W @F,@F1,@F5 S FP=602 W @F,@F4,K,@F5
S2A W @F7 S FP=601 W @F,@$P(FG,D,10) S FP=501 W @F,@$P(FG,D,1) F K=1:1:78 W @$P(FG,D,9)
S2B W @$P(FG,D,2) S FP=680 W @F,@$P(FG,D,10) F FP=506,511,518 W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
S2C W @F8 S X=$N(@("^"_Q_"PP(I,X)")) G S2I:X=-1 S R=^(X) X "ZL @$P(R,D,1) S R=$P($T(+1),U,2) ZL KTAPP1"
S2D S K=1 S:$D(^(X,1)) K=^(1) S T(X)=LN_D_R_D
S2E S FP=LN*100+1 W @F,@F7,@$P(FG,D,10),@F8,$J(X,3)," ",@F7,@$P(FG,D,10),@F8,$J($P(K,D,1),3)
S2F W " ",@F7,@$P(FG,D,10),@F8," ",$J($P($T(T7),U,$P(K,D,2)+2),4)
S2G S FP=LN*100+18 W @F,@F7,@$P(FG,D,10),@F8," ",$E(R,1,60) S FP=LN*100+80 W @F,@F7,@$P(FG,D,10),@F8
S2H S LN=LN+1 G S2C:LN<19
S2I S R="KT\24\3\"_$P($T(T8),U,2) I X'=-1,$N(@("^"_Q_"PP(I,X)"))'=-1 S R=R_$P($T(T9),U,2)
S2J S R=R_"\\2\\""-.""[K!(K?.N)" D R0
S2K G S2Z:K="-"!(K=".") I K="" S:X=-1!($N(^(X))=-1) X=0 K T S LN=7,FP=701+F60 W @F,@F1 G S2C
S2L G S2I:'$D(T(K)) S T=1 I $D(@("^"_Q_"PP(I,KT,1)")) S T=^(1)
S2M S FP=2003+F60 W @F,@F1,$P($T(T10),U,2),$J(K,3)," : ",$P(T(K),D,2)
S2N S FP=2220+F60 W @F,@F5,":" S FP=2203+F60 W @F,1,@F6,$P($P($T(T11),U,2),D,1),@F5 S FP=2223+F60 W @F,$P(T,D,1)
S2O S FP=2320+F60 W @F,@F5,":" S FP=2303+F60 W @F,2,@F6,$P($P($T(T12),U,2),D,1),@F5 S FP=2323+F60 W @F,$P($T(T7),U,$P(T,D,2)+2)
S2P S FP=2340+F60 W @F,@F1 S R="NE\23\40\"_$P($T(T13),U,2)_"\\1\\""-12""[K&$L(K)" D R0 G S2S:K="-"
S2Q S FP=2340+F60 W @F,@F1 S R="K\23\40\"_$P($T(@("T"_(NE+10))),U,2) D R0 G S2P:K="-"
S2R S FP=21+NE*100+23 W @F,@F2 W:NE=1 K W:NE=2 $P($T(T7),U,K+2) S $P(T,D,NE)=K G S2P
S2S S ^(1)=T,FP=$P(T(KT),D,1)*100+7 W @F,$J($P(T,D,1),3) S FP=FP+6 W @F,$J($P($T(T7),U,$P(T,D,2)+2),4)
S2T S FP=2001+F60 W @F,@F1 G S2I
S2Z Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,"ER ZIJN GEEN LISTINGS KLAAR VOOR AFDRUK  [] = ok ",@F5,@F0 R K
S1Z Q
 ;
1 S QP=0,U=";" S:'$D(DEV) DEV=$I
11 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
13 I '$D(@("^"_Q_"PP")) D S1 G YZ
15 S FP=403 W @F,@F1 S R="QP(0)\23\3\"_$P($T(T1),U,2)_$P($T(T2),U,2)_"\1\\"".-""[K\\" D R0 G YZ:K="-"
17 S FP=403 W @F,@F1,$P($T(T3),U,(K="")+2)
19 I K="",'$D(@("^"_Q_"PP(DEV)")) D S1 G YZ
 ;
2 S R="K\23\3\"_$P($T(T4),U,2)_$P($T(T5),U,2)_"\1\\""-.""[K" D R0 G 15:K="-",3:K=""
21 S I=0 I QP(0)="" S I=DEV D S2 S FP=501 W @F,@F1 G 3:K=".",2
23 S I=$N(@("^"_Q_"PP(I)")) I I'=-1 D S2 S FP=501 W @F,@F1 G 2:K="-",23
 ;
3 D INIT^vhPRINTER(132) G 2:'$D(Print)
31 G ^KTAPP2
 ;
YZ K QP S QP=1 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
 ;
SC1 S FP=2440+F60 W @F,$P($T(T14),U,2) Q
 ;