VJT106 ;AFDRUKKEN HERINNERINGEN ;VJT46 ;go uit VJT46 ;do naar VJT107,VJT105 [ 10/16/2001  3:21 PM ]
 G 1
 ;
T1 ;OVERZICHT HERINNERINGEN - PLAATS BREED BLANCO PAPIER OP DE PRINTER\"[] = ok   ,[] = hernemen"
T2 ;H[] = herinneringen niet ok  'herdrukken';O[] = herinneringen ok met ophogen volgnummer der gedrukte herinneringen;V[] = verminderen (-1) volgnummer der gedrukte herinneringen
T3 ;Z[] = herinneringen ok  'zonder'  ophogen van het volgnummer
 ;
1 S R=DV D XT S VVD=R,R1=0 G 51:'$D(@("^"_Q_"BA(74)")) S K=$P(^(74),D,3) G 51:'$L(K)
2 S R1=$N(@("^"_Q_"KH(R1)")) G 5:R1=-1!(R1]4) S R=^(R1,FTL,1),R=0
4 S R=$N(^(R)) G 2:R=-1 S V(R1,FTL,R)=^(R) G 4
5 X K Q:$G(Exit)  G 6
51 D ^VJT107
6 G 7:OVER'=""
61 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
62 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\"",-""[K" D R0 G 2^VJT46:K="-"!(K=",") D ^VJT105
 ;  terugkeer na drukken herinneringen
 ;
7 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
71 S R="KEU\19\3\"_$P($T(T3),U,2)_"\OP1\1\\""VHOZ""[K&$L(K)" D R0
72 G Y:K="Z",2^VJT46:K="H" B 0 S @%Q1=0,I1=-1,I2=-1,KEU=KEU="O"*2-1
73 S I1=$N(@("^"_Q_"KX(I1)")) G Y:I1=-1
75 S I2=$N(@("^"_Q_"KX(I1,I2)")),I4=99999 G 73:I2=-1,75:'$P(^(I2),D,7) S I4=$N(@("^"_Q_"KL(I2,I4)")) G 77
76 S I4=$N(^(I4)) I I4=-1!(I4>990000) G 75
77 S FP=1969+F60 W @F,$P(I2," ",2) S A=^(I4),R=$P(A,D,3) D XT S VVF=R
78 I $P(A,D)'="C",VVF'>VVD S K=$P(A,D,8)+KEU S:K<0 K=0 S $P(^(I4),D,8)=K
79 G 76
 ;
Y S @%Q1=1 K @("^"_Q_"KX")
YZ Q
 ;
R0 S R7=1 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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
OP1 S K=$T(T2) W !,?2,$P(K,U,2),!,?2,$P(K,U,3),!,?2,$P(K,U,4) Q
 ;
Z X ^cZ Q
ZZ ; 22.06.88 - 13 u 37