cAN600	;Initialisatie : nieuw ;%AN600; [ 01/04/01  11:26 AM ]
	;
T0	;Initialisatie ;
	;
T0F	;Initialisation ;
	;
T0E	;Initialisation ;
	;
1	K (Q,QM,QO,QRVG,QT,QTU,QU,QW,QZ,QL)
	N S1,S2,L
	S D="\",U=";",%Q1="%1",Q=$G(Q),QM=$G(QM,0),QL=$G(QL),S1=$$UCILIB^cQ5($ZU($ZV'["MSM"*5)),io=$$IO^cQ5 D QT^cQ5
	S (QN,QS)="",QZ=$P($G(^cLOG(boot,"DDB",$$CONFIG^cQ9,io)),D,2)
	I $L($G(QU(1))) S QZ=$$SIG^cAFA1("USR",QU(1),226)
	I 'QZ S 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",io)) I $L(L),$L($ZU($P(L,","),$P(L,",",2))) D
	. S K=$P($G(^cLOG(boot,"Q",L),$P($G(^cLOG(boot,"Q")),D,2)),D) S:$L(K) QN=$G(@("^[L]"_K_"BA(99,1)"))
	S S2=$P($G(^cLOG(boot,"DEV",io)," V"),D) I $G(QW) S S2="ZW" I $ZV'["MSM" S S2="ZC"
	D VAR("VID",S2)
	;
2	I $G(QW) S F1="/WCMD",F2="/WCML"
	K F701,F711,F702,F712 S F70=F70_" D ^cA605",F71=F71_" D ^cA606"
	I $D(^cLOG(boot,"BELL",io)),$L(^(io)) S F0=^(io)
	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",io)),D,15) S U("T",0)=0,U("T",1)=0 ; dial-up
	;
YZ	Q
	;
VAR(SRT,TYPE,EX,INH)	; ophalen variabelen uit %DATA(0,"DEV."_SRT
	; SRT = "VID" (scherm)  of "PRT" (printer)
	; TYPE = type scherm of printer
	; EX = 1 : geen var. F70... of F71...
	; INH = bevat de inhoud voor de F-var. : zie vb printen naar scherm %A611
	N R
	I $P($G(^cLOG(boot,"DAM",2)),D) D  G VARZ
	. S R=0 F  S R=$O(^cDATA(0,"DEV."_SRT,TYPE,R)) Q:R=""  I '$G(EX)!($G(EX)&($E(R,1,3)'="F70")&($E(R,1,3)'="F71")) S @R=^(R) I $L($G(INH)) S @R=INH
	E  D
	. S R=TYPE F  S R=$O(^cDEV(R)) Q:$E(R,1,$L(TYPE))'=TYPE  I '$G(EX)!($G(EX)&($E(R,$L(TYPE)+1,$L(TYPE)+3)'="F70")&($E(R,$L(TYPE)+1,$L(TYPE)+3)'="F71")) S @R=^(R) I $L($G(INH)) S @R=INH
VARZ	Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94