cT66E8	;Overschrijvingen ;%T66 ;Go uit %T66E4 ; [ 04/28/98  12:15 PM ]
	G 1
	;
T0	;Overschrijvingen ;
T1	;Begunstigde\Woonplaats\Banknummer\Munt\Bedrag ;1\Referte;
	;
T0F	;Virements ;
T1F	;Destinateur\Localité\N° bancair\Mon.\Montant ;1\Référence;
	;
T0E	;Overschrijvingen ;
T1E	;Begunstigde\Woonplaats\Banknummer\Munt\Bedrag ;1\Referte;
	;
	; controlelijst
1	S (BLZ,LN)=0
11	S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C",HD(3)=D
13	S TAB="34\55\90\95\110\131",TIT(1)=$P($T(@("T1"_QT)),U,2,99)
	;
	; gegevens van ^HULP naar lijst
2	S (I1,VM,J1)=""
21	S I1=$O(^HULP(boot,$J,I1)) I I1="" G 9
23	S VM=$O(^HULP(boot,$J,I1,VM)) I VM="" G 21
25	S J1=$O(^HULP(boot,$J,I1,VM,J1)) I J1="" G 23
27	S B=^(J1)
	;
	; printen lijn
3	S TXT(1)=$P(B,D,2),$P(TXT(1),D,10)=1
31	S TXT(2)=$P(B,D,5),$P(TXT(2),D,10)=1
33	S TXT(3)=$$BANK^cAFO1($P(B,D,8)),$P(TXT(3),D,10)=1
35	S TXT(4)=VM,$P(TXT(4),D,10)=1
37	S TXT(5)=$P(B,D,11)_"\\\\1\2"
39	S TXT(6)=$P(B,D,13)
	;
4	I TXT(6)="" S TXT(6)="("_$P(B,D,14)_")"
41	D ^cA334 G 25
	;
	; afsluiting
9	S END=1 D ^cA334
	;
YZ	Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84