Index: cA600.mac.rou
===================================================================
diff -u -r2415 -r3542
--- cA600.mac.rou	(.../cA600.mac.rou)	(revision 2415)
+++ cA600.mac.rou	(.../cA600.mac.rou)	(revision 3542)
@@ -1,35 +1,35 @@
-cA600 ;INITIALISATIE ;%A600; [ 12/22/00  5:33 PM ]
- ;
-T0 ;Initialisatie ;
- ;
-T0F ;Initialisation ;
- ;
-T0E ;Initialisatie ;
- ;
-1 K (Q,QM,QO,QRVG,QT,QTU,QU,QW,QZ,QL)
- S D="\",U=";",%Q1="%1",Q=$G(Q),QM=$G(QM,0),QL=$G(QL),S1=$$UCILIB^cQ5($ZU($ZV'["MSM"*5)) D QT^cQ5
- D:'$D(boot) MASTER^cQ5
- I $P($G(^cLOG(boot,"DAM",2)),D) G ^cAN600  ; nieuwe datastructuur + printkeuze
- S (QN,QS)="",QZ=$P($G(^cLOG(boot,"DDB",$$CONFIG^cQ9,$I)),D,2) S:'QZ QZ=5
- I $ZU($ZV'["MSM"*5)'=S1 S QN=$G(@("^"_QS_Q_"BA(99,1)")),%Q1="^"_Q_"BA(""%1"",$I)"
- E  S L=$G(^cLOG(boot,"MUX",$I)) I $L(L),$L($ZU($P(L,","),$P(L,",",2))) D
- . S K=$P($G(^cLOG(boot,"QQM",$I,L)),D) S:$L(K) QN=$G(@("^[L]"_K_"BA(99,1)"))
- S S2=$G(^cLOG(boot,"DEV",$I)," V") I $G(QW) S S2="ZW" I $ZV'["MSM" S S2="ZC"
- S S1=$P(S2,D),S2=$O(^cDEV(S1)) S:$E(S2,1,2)'=S1 S1=" V" S S2=S1
- ;
-2 S S1=$O(^cDEV(S1)) I $E(S1,1,2)=S2 S @$E(S1,3,99)=^cDEV(S1) G 2
- I $G(QW) S F1="/WCMD",F2="/WCML"
- K S1,S2,F701,F711,F702,F712 S F70=F70_" D ^cA605",F71=F71_" D ^cA606"
- I $D(^cLOG(boot,"BELL",$I)),$L(^($I)) S F0=^($I)
- I $G(QP,1) S F70="D ^cA322"
- ;
-3 I '$D(U("D")) D DRV^cAFA0
- I '$D(U("T")),$L($G(QU)) D USR^cA5000(QU):'$D(QU(0,2)) I $D(QU(0,2)) D
- . S U("T",0)=$P(QU(0,2),D,35)*60   ; time-out $C(0)
- . S U("T",1)=$P(QU(0,2),D,36)*60   ; time-out F3
- . I $P($G(^cLOG(boot,"DEV",$I)),D,15) S U("T",0)=0,U("T",1)=0 ; dial-up
- ;
-YZ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
- 
\ No newline at end of file
+cA600	;INITIALISATIE ;%A600; [ 12/22/00  5:33 PM ]
+	;
+T0	;Initialisatie ;
+	;
+T0F	;Initialisation ;
+	;
+T0E	;Initialisatie ;
+	;
+1	K (Q,QM,QO,QRVG,QT,QTU,QU,QW,QZ,QL)
+	S D="\",U=";",%Q1="%1",Q=$G(Q),QM=$G(QM,0),QL=$G(QL),S1=$$UCILIB^cQ5($ZU($ZV'["MSM"*5)) D QT^cQ5
+	D:'$D(boot) MASTER^cQ5
+	I $P($G(^cLOG(boot,"DAM",2)),D) G ^cAN600  ; nieuwe datastructuur + printkeuze
+	S (QN,QS)="",QZ=$P($G(^cLOG(boot,"DDB",$$CONFIG^cQ9,$I)),D,2) S:'QZ QZ=5
+	I $ZU($ZV'["MSM"*5)'=S1 S QN=$G(@("^"_QS_Q_"BA(99,1)")),%Q1="^TEMP(""%1"",$J)"
+	E  S L=$G(^cLOG(boot,"MUX",$I)) I $L(L),$L($ZU($P(L,","),$P(L,",",2))) D
+	. S K=$P($G(^cLOG(boot,"QQM",$I,L)),D) S:$L(K) QN=$G(@("^[L]"_K_"BA(99,1)"))
+	S S2=$G(^cLOG(boot,"DEV",$I)," V") I $G(QW) S S2="ZW" I $ZV'["MSM" S S2="ZC"
+	S S1=$P(S2,D),S2=$O(^cDEV(S1)) S:$E(S2,1,2)'=S1 S1=" V" S S2=S1
+	;
+2	S S1=$O(^cDEV(S1)) I $E(S1,1,2)=S2 S @$E(S1,3,99)=^cDEV(S1) G 2
+	I $G(QW) S F1="/WCMD",F2="/WCML"
+	K S1,S2,F701,F711,F702,F712 S F70=F70_" D ^cA605",F71=F71_" D ^cA606"
+	I $D(^cLOG(boot,"BELL",$I)),$L(^($I)) S F0=^($I)
+	I $G(QP,1) S F70="D ^cA322"
+	;
+3	I '$D(U("D")) D DRV^cAFA0
+	I '$D(U("T")),$L($G(QU)) D USR^cA5000(QU):'$D(QU(0,2)) I $D(QU(0,2)) D
+	. S U("T",0)=$P(QU(0,2),D,35)*60   ; time-out $C(0)
+	. S U("T",1)=$P(QU(0,2),D,36)*60   ; time-out F3
+	. I $P($G(^cLOG(boot,"DEV",$I)),D,15) S U("T",0)=0,U("T",1)=0 ; dial-up
+	;
+YZ	Q
+	;
+ZZ	; 15.04.03 -  9 u 31 * V7.94
+