cAN3223(TIT,KEU,BR,KR0)	;Keuze scherm/printer/file en "Plaats ..." ;%AN3223 [ 01/28/02  12:14 PM ]
	;
	; Ingang :
	;     TIT = titel : indien niet ingevuld : "Informatie"
	;           ?1.N : keuze zoals in %A345
	;                  0=smal papier   -> wordt vertaald als ""
	;                  1=breed papier  -> wordt vertaald als ">80"
	;                  2=facturen
	;                  3=overschrijvingen
	;                  4=blanco formulieren
	;                  5=voorbedrukte formulieren
	;                  6=etiketten
	;                  7=documenten
	;     KEU = mogelijkheden (niet ingevuld = alles)
	;       vb : 1#3 = printer en fax
	;     mogelijke keuzes (del #) : 1 = printer
	;                                2 = scherm
	;                                3 = fax
	;                                4 = bestand
	;                                5 = naar bestand via Reflection
	;                                9 = later printen
	;     BR = breedte : niet ingevuld = 80
	;     KR0 = 1 : keuze printer via R0-routine
	;
	; Uitgang :
	;    PTS = "" : printer
	;           1 : scherm
	;           2 : fax
	;           3 of F : file
	;           4  = Naar bestand via Reflection
	;           . : later printen
	;
T0	;Keuze scherm/printer/file;
T1	;facturen;overschrijvingen;blanco formulieren;voorbedrukte formulieren;etiketten;documenten;
	;
T0F	;Choix écran/imprimante/fichier;
T1F	;factures;virements;formulaires blancs;formulaires préimprimés;étiquettes;documents;
	;
T0E	;Choice screen/printer/file;
T1E	;invoices;payments;blanc forms;pre-printed forms;labels;documents;
	;
T0D	;Wahl Schirm/Printer/Dossier;
T1D	;Faktura;Überweisungen;Blankoformulare;Vorbedruckte Formulare;Etiketten;Dokumente;
	;
1	S TIT=$G(TIT),KEU=$G(KEU),BR=$G(BR,80),KR0=$G(KR0)
	I TIT=1 S TIT="",BR=">80"     ; VJ 28.01.02
	I TIT>1 S TIT=$P($T(@("T1"_QT)),U,TIT)
	;
2	; nieuwe printerkeuze        
	I $P($G(^cLOG(boot,"DAM",2)),D) D ^cAN322($S(TIT?1.N:"",1:TIT),KEU,BR,KR0) G YZ
	;
3	S PTS="" I '$L(KEU) S KEU="1#2#3#4#5#9"
	I KEU[2,KEU'[4 D ^cA347 G 4
	I KEU[2,KEU[4 D F^cA347 G 4
	;
4	I PTS="F"!PTS S K="" G YZ
	S R=$S(TIT?1.N:TIT,$L(TIT):"99#"_TIT,1:BR>80)_D_'(KEU[9&'PTS)
	D ^cA345
	I KEU[2!(KEU[4) G 3:K="-"
	I K="." S PTS="."  ; later printen
	;
YZ	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8