Index: cA603.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA603.mac.rou	(.../cA603.mac.rou)	(revision 734)
+++ cA603.mac.rou	(.../cA603.mac.rou)	(revision 3542)
@@ -1,52 +1,53 @@
-cA603 ;STOPPEN ONAFHANKELIJKE PRINTERS ;%A603; Do van %QMSMSY [ 02/21/00  3:39 PM ]
- 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 ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+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
+