cAN606 ;Schermvariabelen : nieuw ;%A606; [ 01/04/01  11:26 AM ]
 ;
T0 ;Schermvariabelen ;
 ;
T0F ;Variables d'écran ;
 ;
T0E ;Screenvariabels ;
 ;
1 B 0
 K F80,F81,F82,F83,F84,F85,F86,F87,F88,F89,F30,F31,F32,F33,F34
 D ^cA105,^cA106 D:'$D(boot) MASTER^cQ5 S io=$G(io,$$IO^cQ5)
 ;
2 S %S2=$P($G(^cLOG(boot,"DEV",io)," V"),D) I $G(QW) S %S2="ZW" I $ZV'["MSM" S %S2="ZC"
 D VAR^cAN600("VID",%S2,1)
 ;
3 I $G(QP,1) S F70="D ^cA322"
 I $G(QW) S F1="/WCMD",F2="/WCML"
 ;
4 I '$D(U("D")) D DRV^cA1000
 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 K %S2,LNMAX Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84