cAN2142	;Printen ;%AN214 ; [ 01/04/01  8:58 AM ]
	G 1
	;
T0	;Printen ;
T1	;Printen is momenteel niet toegestaan ;
	;
T0F	;Impression ;
T1F	;Il n'est pas permi d'imprimer maintenant ;
	;
T0E	;Print ;
T1E	;Print is not allowed ;
	;
	; volgende (1) of vorige (-1) index
S1(UI1,S2)	        I $P(USCR,D,3) S S2=$S(S2<0:1,1:-1)
S1A	K J S J=$O(@RSD,S2) I $L(J) S J(0)=$S(UIND:^(J),1:J)
S1Z	Q
	;
S2	; printen van de lijn
S2A	N K,S1,S2,UI1
S2B	S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  S S2=RSM(S1,1) D
	. S UI1=J(0) D
	.. I UDD<5 S K=$P($G(@UREF@($P(S2,D)\100-1)),D,$P(S2,D)#100)
	.. I UDD=5 S K=$P($G(@UREF),D,$P(S2,D)#100)
	. I $L($P(S2,D,5)) X $P(S2,D,5)
	. I "\F\3\4\"['(D_PTS_D),'$P(S2,D,4) S K=$E(K,1,$P(S2,D,3))
	. s U3=$g(U3,K) I "\F\3\4\"['(D_PTS_D),'$P(S2,D,4) S U3=$E(K,1,$P(S2,D,3))
	. S TXT(S1)=K_D_$P(S2,D,4)_D_($P(S2,D,2)-1-$S(S1>1:$P(TAB,D,S1-1),1:0))_D
	. s $p(TXT(S1),D,8)=$p(CUM,D,S1)    ; automatische cumul
	. i $p(CUM,D,S1) s $p(TXT(S1),D,1)=K,$p(TXT(S1),D,5)=1    ; berekening zonder outputform
	. D FORM^cANR11(K,S1,,TXT(S1)) ; opzetten formaat voor Print to File via Reflection
	. k U3
S2Z	D ^cA334 Q
	;
	; test op filter
S3()	N S1,S2,UI1 S S1=1,UI1=J(0)
S3A	I $L($P(UFLT,D)) S S1=0,S2=$P(UFLT,D) D
	. I S2=+S2,J>S2 S S1=1 Q
	. I S2'=+S2,J]S2 S S1=1
S3B	I S1,$L($P(UFLT,D,2)) S S1=0,S2=$P(UFLT,D,2) D
	. I S2=+S2,J<S2 S S1=1 Q
	. I S2'=+S2,S2]J S S1=1 Q
	. S J="~" ; einde bestand
S3C	I S1,$L($P(UFLT,D,3)) X $P(UFLT,D,3) S S1=$T
S3Z	Q S1
	;
1	I $D(%Q1),$D(@%Q1),'@%Q1 S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
10	N ZONDERIP
	W /WSCRON D ^cAN3223("","1#4#5","","") G YZ:K="-"
11	S HD(1)=D,HD(2)=D_$$UC^cAFA1($$TIT^cAN210($G(^DMH(UQH,USH,0,"TIT"))))_";C",HD(3)=D
	D PAR^cANR11(2,$P($P(HD(2),D,2),U))
	n CUM s CUM=RSM(0,1)
 	I "\3\F\4\"[(D_$G(PTS)_D) S ZONDERIP=1  ; Indien print to file of print to file via Reflection KU - 28.04.03
13	S (TAB,TIT(1))="" D
	. N S1,S2
	. S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  D
	.. S TIT(1)=TIT(1)_$P(RSM(S1,0),D,QTU)_D
	.. S TAB=TAB_($P(RSM(S1,1),D,2)+$P(RSM(S1,1),D,3)+1)_D
	. F S2=1:1:$L(RSM(0,0),D) S S1=$P(RSM(0,0),D,S2) I S1 S $P(TAB,D,S2)=S1
	. S $P(TAB,D,$L(TIT(1),D)-1)=79,TAB=$P(TAB,D,1,$L(TIT(1),D)-1)
	. S S1=0 F  S S1=$O(RSM(S1)) Q:S1=""  D
	.. S S2=$P(RSM(S1,1),D,2)-1 I S1>1 S S2=S2-$P(TAB,D,S1-1)
	.. I S2 S $P(TIT(1),D,S1)=$J("",S2)_$P(TIT(1),D,S1)
	. S S1=0 F  S S1=$O(UTOP(S1)) Q:S1=""  D
	.. S S2=UTOP(S1),TOP($P(S2,D),$P(S2,D,2))=$P(S2,D,3)_U_($P(S2,D,2)-1)
	I '$D(TOP) D PAR^cANR11(3,1)
15	S J=$P(UFLT,D,1+$P(USCR,D,3)) F  D S1(J,1) Q:J=""  I $$S3 D S2
	;
Y	S END=1 D ^cA334
YZ	Q
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03