cA606 ;SCHERMVARIABELEN ;%A606; [ 09/04/00  2:06 PM ]
 ;
T0 ;Schermvariabelen ;
 ;
T0F ;Variables d'écran ;
 ;
T0E ;Schermvariabelen ;
 ;
1 I '$D(boot) D MASTER^cQ5
 I $P($G(^cLOG(boot,"DAM",2)),D) G ^cAN606 ; nieuwe datastructuur + printkeuze
 B 0 K F80,F81,F82,F83,F84,F85,F86,F87,F88,F89,F30,F31,F32,F33
11 D ^cA105,^cA106,MASTER^cQ5
 ;
2 S %S2=$G(^cLOG(boot,"DEV",$I)," V") I $G(QW) S %S2="ZW" I $ZV'["MSM" S %S2="ZC"
21 S %S1=$P(%S2,D),%S2=$O(^cDEV(%S1)) S:$E(%S2,1,2)'=%S1 %S1=" V" S %S2=%S1
22 S %S1=$O(^(%S1)) I $E(%S1,1,2)=%S2 S:%S1'["F70"&(%S1'["F71") @$E(%S1,3,99)=^(%S1) G 22
23 I $D(^cLOG(boot,"BELL",$I)),$L(^($I)) S F0=^($I)
24 I $G(QP,1) S F70="D ^cA322"
25 I $G(QW) S F1="/WCMD",F2="/WCML"
 ;
3 I '$D(U("D")) D DRV^cA1000
 ;
YZ K %S1,%S2,LNMAX Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84