Index: cA601.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA601.mac.rou	(.../cA601.mac.rou)	(revision 734)
+++ cA601.mac.rou	(.../cA601.mac.rou)	(revision 3542)
@@ -1,28 +1,29 @@
-cA601 ;GEJOBD PRINTPROGRAMMA ;%A602 ;job uit %A602 ; [ 02/21/00  3:37 PM ]
- ;
-T0 ;Gejobd printprogramma ;
- ;
-T0F ;Imprimer par job ;
- ;
-T0E ;Gejobd printprogramma ;
- ;
-1 S $ZT="^cA407" D S1
-11 S Q=^(0) X $P(^(1)," ",1,4) D ^cA600,MASTER^cQ5
-12 D S1 S K=^(4),UCI="MGR",UCI2=$ZU($ZV'["MSM"*5) D UCI
- S $P(^cLOG(boot,"DEV",$I),D)=$P(^cLOG(boot,"DEV",K),D),UCI=UCI2
- D UCI,^cA600,^cA105,^cA106
-13 D S1 S F70=^(1),F71=^(2),R=^(3),K=^(4) D  K ^HULP(boot,"JOB")
- . I $L($G(^(5))) S ISO=^(5)
-15 S QP=1,QD=$S($D(@("^"_Q_"BA(34)")):+^(34),1:0),%Q1="^"_Q_"BA(""%1"",$I)"
-17 S F70="C "_K_" "_F70_" S ^HULP(boot,""OP"",$J)=$I I $D(^cLOG(boot,""TERMINAL"",$I)),$L(^($I)) X ^($I)",F71=$P(F71," ",3,99)_" K ^HULP(boot,""OP"",$J)"
-19 O K U K D @$P(R,U) X F71
- ;
-YZ H
- ;
-S1 I '$D(^HULP(boot,"JOB",0)) H
-S1Z Q
- ;
-UCI I $ZV["MSM" D INT^cQMSMSW
- Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cA601	;GEJOBD PRINTPROGRAMMA ;%A602 ;job uit %A602 ; [ 02/07/02  10:10 AM ]
+	;
+T0	;Gejobd printprogramma ;
+	;
+T0F	;Imprimer par job ;
+	;
+T0E	;Gejobd printprogramma ;
+	;
+1	S $ZT="^cA407" D S1
+11	S Q=^(0) X $P(^(1)," ",1,4) D ^cA600,MASTER^cQ5
+12	D S1 S K=^(4),UCI="MGR",UCI2=$ZU($ZV'["MSM"*5) D UCI
+	S $P(^cLOG(boot,"DEV",$I),D)=$P(^cLOG(boot,"DEV",K),D),UCI=UCI2
+	D UCI,^cA600,^cA105,^cA106
+13	D S1 S F70=^(1),F71=^(2),R=^(3),K=^(4) D  K ^HULP(boot,"JOB")
+	. I $L($G(^(5))) S ISO=^(5)
+15	S QP=1,QD=$S($D(@("^"_Q_"BA(34)")):+^(34),1:0),%Q1="^TEMP(""%1"",$J)"
+17	S F70="C "_K_" "_F70_" S ^HULP(boot,""OP"",$J)=$I I $D(^cLOG(boot,""TERMINAL"",$I)),$L(^($I)) X ^($I)",F71=$P(F71," ",3,99)_" K ^HULP(boot,""OP"",$J)"
+19	O K U K D @$P(R,U) X F71
+	;
+YZ	H
+	;
+S1	I '$D(^HULP(boot,"JOB",0)) H
+S1Z	Q
+	;
+UCI	I $ZV["MSM" D INT^cQMSMSW
+	Q
+	;
+ZZ	; 15.04.03 -  9 u 31 * V7.94
+