cA322	;KEUZE PRINTER ;%A322; [ 05/22/00  1:49 PM ]  ; Compiled December 8, 2011 08:24:57
	;
T0	;Keuze printer ;
T1	;Keuze printer\SC1;
T2	;pr. aan scherm;
T3	;printer ;
T4	;De printer werd niet gedefinieerd ;
T5	;Dit scherm is aangesloten op een poort voor een centrale printer ;
T6	;De gekozen printer is in gebruik ;
T7	;  Printer gestart, druk Ctrl-C om te stoppen ... ;
	;
T0F	;Choix d'imprimante ;
T1F	;Sélection de l'imprimante\SC1;
T2F	;imp. à l'écran;
T3F	;imprimante ;
T4F	;L'imprimante n'a pas été definie ;
T5F	;Cet écran est connecté sur un port prévue pour une imprimante centr. ;
T6F	;L'imprimante sélectionnée n'est pas disponible ;
T7F	;  Impression en cours, tapez 'Ctrl-C' pour interrompre ... ;
	;
T0E	;Keuze printer ;
T1E	;Keuze printer\SC1;
T2E	;pr. aan scherm;
T3E	;printer ;
T4E	;De printer werd niet gedefinieerd ;
T5E	;Dit scherm is aangesloten op een poort voor een centrale printer ;
T6E	;De gekozen printer is in gebruik ;
T7E	;  Printer gestart, druk Ctrl-C om te stoppen ... ;
	;
1	; indien reeds nieuw printerbeheer
	I $P($G(^cLOG(boot,"DAM",2)),D) D  G YZ
	. D ^cAN322("",1_$S($G(FAX):"#3",1:""),"",$G(KR0),$S($D(%S3):"",1:1),$G(%S3))
	. I '$D(%S3),$D(F70) X F70
	;
	B 1 K RR D MASTER^cQ5 S io=$$IO^cQ5($I)
	S K=^cLOG(boot,"DEV",io),RR(1)=$P(K,D,9),RR(2)=$P(K,D,10) S:RR(1)="" RR(1)=1 F R=1:1:RR(1) D S1
11	S RR(0)=$D(^cLOG(boot,"CP",0)),RR(8)=0 I RR(0) S RR(0)=^(0) F R=1:1:RR(0) D S2
12	I $D(%S1) S K=%S1,%S2="1&("_$P($T(INCTR),U,2,99)_")" I @%S2 G 2
13	I $ZV["MSM",$I=1,RR(8)=1,RR(1)<2 S RR(1)=0
14	I RR(8)=1,'RR(1) S K=$O(RR(7,0)) G 2
15	I 'RR(8),RR(1)=1 S K=0 G 2
17	I 'RR(8),'RR(1) D E3 H 2 G 1
19	B 1 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\3\INCTR\" D R0 G YZ:K="-"
	;
2	B 0 S (%S99,RP)=K G 3:K<1 I '$D(RR(7,K)) D E3 G 19
21	S %S1=RR(5,K),K=+RR(7,K) I $G(FAX),$P(^cLOG(boot,"DEV",K),D)="AA" S FAX=K G ^cA3220
210	S CFG=$$CONFIG^cQ9,E=0
	;I $ZV["MSM",'$D(^|"MGR",boot|SYS(CFG,"DDB",K)),$D(^|"MGR",boot|QSYS(CFG,"DDB",K)) S R=^(K) D  U 0 G 19:E,Y
	. I $P(R,",",1)="LPD" D  I E D E2
	.. S IPP=$P($P(R,",",2),"^",2),IPA=$P($P(R,",",2),"^",1)
	.. C 56 O 56::2 E  S E=1 Q
	.. U 56:(:1+32):"TCP" W /SOCKET(IPA,IPP) S ZC=$ZC I ZC C 56 U $P S E=1 Q
	.. S FAX=0,F70="C 56 O 56 U 56:(:1+32):""TCP"" W /SOCKET("""_IPA_""","""_IPP_""")",F71="H 1 C 56",%LNMAX=RR(9,RP)
22	O K::2 E  D E2 G 19
23	S FAX=0,F70="O "_K_" U "_K_":0",F71="H 2 C "_K,%LNMAX=RR(9,RP) G Y
	;
3	S FAX=0,K=K*10 S:'K K=1 I '$D(RR(3,K)) D E3 G 19
31	S %S1=RR(3,K),%LNMAX=$P(^cLOG(boot,"DEV",io),D,K+10),%S2=$P(^(io),D),F70=%S2_"F70",F71=%S2_"F71"
33	I K>1,'RR(2) S F70=F70_(K-1),F71=F71_(K-1)
35	S F70=^cDEV(F70),F71=^(F71)
	;
Y	S:%LNMAX F70=F70_" S %LNMAX="_%LNMAX K %LNMAX
YA	S F70=F70_" S %S1="""_%S1_""" D ^cA605",F71=F71_" D ^cA606" I $D(QP),QP,'$D(%S3) S F71=F71_" S F70=""D ^cA322"""
YB	I $D(%S3),$L(%S3) D  X %S3,F71 G YZ
	. I $G(QW) S F70="D X^cA612 "_F70,F71=F71_" D W^cA612"
YC	D  X F70 I $L($G(^cLOG(boot,"TERMINAL",$I))) X ^($I)
	. I '$G(QW) S FP=2201+F60 W @F,@F1,$P($T(@("T7"_QT)),U,2)
	. I $G(QW) D
	.. D X^cA612 W /CUP(22,1),/ED(0),$P($T(@("T7"_QT)),U,2)
	.. I QP,F71'[" D W^cA612" S F71=F71_" W /CUP(22,1),/ED(0) D W^cA612 S F71=$P(F71,"" D W^cA612"")"
YZ	K %S1,%S2,%S3,RP,RR Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	K R0,R1 D ^cA100 Q
	;
S1	I $L($P(K,D,R+1))=2 S RR(3,R)=$P(K,D,R+1),RR(4,R)=$P(K,D,R+4)
S1Z	Q
	;
S2	G S2Z:'$D(^cLOG(boot,"CP",R)) S K=^(R) G S2Z:'$D(^cLOG(boot,"DEV",+K))
	G S2Z:$P(K,D,3)'[(U_io_U)&$P($P(K,D,3),U,2)
S2A	S RR(6,R)=$P(K,D,2),RR(9)=$P(K,D,4),K=+K,RR(7,R)=K,RR(8)=RR(8)+1 I 'RR(9) S RR(9)=1
S2B	S RR(5,R)="" I $D(^cLOG(boot,"DEV",K)) S RR(5,R)=$P(^(K),D,1+RR(9)),RR(9,R)=$P(^(K),D,10+RR(9))
S2C	I $L(RR(5,R))'=2!($P(^(K),D)="AA"&'$G(FAX)) K RR(5,R),RR(6,R),RR(7,R),RR(9,R) S RR(8)=RR(8)-1 G S2Z
S2D	I RR(7,R)=$I D E1 K RR(5,R),RR(6,R),RR(7,R),RR(9,R) S RR(8)=RR(8)-1
S2Z	Q
	;
SC1	W ! W:$G(QW) /WWR(1) F K=1:1:RR(1) I $D(RR(4,K)) W "  ",$S(K=1:0,1:K/10),"[]=",RR(4,K)," " I RR(4,K)="" W $C(8) W:RR(1)>1 K,"' " W $P($T(@("T2"_QT)),U,2)," "
SC1A	S K=1,RP=0
SC1B	I $X>70 G SC1Z:RP S RP=1 W !
SC1C	I $D(RR(6,K)) W "  ",K,"[]=",RR(6,K)," " I RR(6,K)="" W $C(8),$P($T(@("T3"_QT)),U,2),K," "
SC1D	S K=K+1 I K'>RR(0) G SC1B
SC1Z	K RP W:$G(QW) /WWR(0) Q
	;
INCTR	;K?1.N&(K'>RR(0))&(K!RR(1))!(K?1"."1N&(RR(1)>1)&(K*10'>RR(1))&(K'=.1))!(K="-"&$D(%S3))
	;
E1	S K=$P($T(@("T5"_QT)),U,2)_R_" " D F1 Q
E2	S K=$P($T(@("T6"_QT)),U,2) D F1 Q
E3	S K=$P($T(@("T4"_QT)),U,2) D F1 Q
	;
F1	N R S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84