cA605 ;PRINTERVARIABELEN ;%A605; [ 12/01/97  7:45 PM ]
 ;
T0 ;Printervariabelen ;
 ;
T0F ;Variables d'impression ;
 ;
T0E ;Printervariabelen ;
 ;
1 I '$D(boot) D MASTER^cQ5
 I $P($G(^cLOG(boot,"DAM",2)),D) G ^cAN605  ; nieuwe datastructuur + printkeuze
 B 0 K F,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9,F11,F12,F55,F56,F57,F58,F60,F61,F62,F90,F91,F92,F93,F94,F95,FDL,FIN,FG,FS
11 D ^cA105,^cA106,MASTER^cQ5
 ;
2 I $D(%S1),$L(%S1)=2 G 4
 ;
3 S %S2=$S($D(^cLOG(boot,"DEV",$I)):^($I),1:"") I '$L(%S2) S %S2=" P"
31 S %S1=$P(%S2,D,2)
 ;
4 S %S2=$O(^cDEV(%S1)) S:$E(%S2,1,2)'=%S1 %S1=" P" S %S2=%S1
41 S %S1=$O(^cDEV(%S1)) I $E(%S1,1,2)=%S2 S @$E(%S1,3,99)=^(%S1) G 41
 ;
5 I $D(%LNMAX) S FP=%LNMAX,LNMAX=FP-16
51 E  S FP=$P($S($D(^cLOG(boot,"DEV",$I)):^($I),1:""),D,11),LNMAX=50 I FP S LNMAX=FP-16
52 I FP>0 W @F32
53 W @F80
 ;
YZ K %S1,%S2,%LNMAX B 1 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84