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