cAN3223(TIT,KEU,BR,KR0) ;Keuze scherm/printer/file en "Plaats ..." ;%AN3223 [ 11/21/97  10:23 AM ]
 ;
 ; Ingang :
 ;     TIT = titel : indien niet ingevuld : "Informatie"
 ;           ?1.N : keuze zoals in %A345
 ;     KEU = mogelijkheden (niet ingevuld = alles)
 ;       vb : 1#3 = printer en fax
 ;     mogelijke keuzes (del #) : 1 = printer
 ;                                2 = scherm
 ;                                3 = fax
 ;                                4 = bestand
 ;                                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
 ;           . : later printen
 ;
1 S TIT=$G(TIT,$P($T(@("T1"_QT)),U,2)),KEU=$G(KEU),BR=$G(BR,80),KR0=$G(KR0)
 ;
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#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 ; 05.02.01 - 16 u 23 * V7.84