cA603	;STOPPEN ONAFHANKELIJKE PRINTERS ;%A603; Do van %QMSMSY [ 02/07/02  10:10 AM ]
	I $ZV'["MSM" Q
	;
T0	;Stoppen onafhankelijke printers ;
T1	;Er zijn geen andere jobs actief;
T2	;Geen onafhankelijke printers is actief;
T3	;Te stoppen printer\"xx[] = jobnummer printer   -[] = einde programma";
T4	;Job ;, printer ; mag gestopt worden;\".[] = ja   ,[] = nee";
T5	; is gestopt;
	;
T0F	;Arret des imprimantes independantes ;
T1F	;Il n'y a pas d'autres jobs actifs;
T2F	;Il n'y a aucune imprimante active ;
T3F	;Imprimante a arreter\"xx[] = n° job imprimante   -[] = fin du programme";
T4F	;Job ;, imprimante ; peut etre arrete;\".[] = oui   ,[] = non";
T5F	; a ete arrete;
	;
T0E	;Stoppen onafhankelijke printers ;
T1E	;Er zijn geen andere jobs actief;
T2E	;Geen onafhankelijke printers is actief;
T3E	;Te stoppen printer\"xx[] = jobnummer printer   -[] = einde programma";
T4E	;Job ;, printer ; mag gestopt worden;\".[] = ja   ,[] = nee";
T5E	; is gestopt;
	;
1	D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S %UCO=$ZU($ZV'["MSM"*5) D UCILIB^cQMSMSW S PRTY=$V(20,$J,2) D HIGH^cHL
12	K JOB D INT^cQMSMSY K JOB($J) I '$D(JOB) S R=$P($T(@("T1"_QT)),U,2) D MS G 4
13	S J="" F  S J=$O(JOB(J)) Q:J=""  D
	. I '$D(^[%UCO]HULP("OP",J)) K JOB(J)
	. E  S FP=$P(JOB(J),D,4)*100+1 W @F,"P->"
14	I $O(JOB(""))="" S R=$P($T(@("T2"_QT)),U,2) D MS G 4
15	S R="%JO\22\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\K?.N&$D(JOB(+K))!(K=""-"")\" D R0 G 4:K="-"
	;
2	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_%JO_$P($T(@("T4"_QT)),U,3)_+$P(JOB(%JO),D,2)_$P($T(@("T4"_QT)),U,4)
21	S R=R_$P($T(@("T4"_QT)),U,5)_"\1\\"".,-""[K&$L(K)\" D R0 I K="-"!(K=",") G 12
	;
3	S $ZT="^cA405" D KILL^cQMSMKJ S FP=2101 W @F,@F1
31	S R=$P($T(@("T4"_QT)),U,2)_%JO_$P($T(@("T4"_QT)),U,3)_$P(JOB(%JO),D,2)_$P($T(@("T5"_QT)),U,2) D MS
	;
4	S UCI=%UCO D INT^cQMSMSW
41	S %P=PRTY D INT^cHL
	;
YZ	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
	;
MS	S FP=2403+F60 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R K
MSZ	Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91