cA325 ;BEHEER SCHERMEN EN PRINTERS ;%A323; [ 05/06/97  2:37 PM ]
 ;
T0 ;Beheer schermen en printers ;
T1 ;Schermnummer ;
T2 ;Aant printers\"0, 1, 2 of 3";
T3 ;Aansluiting  \"[] = rechtstreeks aan scherm   .[] = via switchbox";
T4 ;Rechtstreeks aan scherm;via switchbox;
T5 ;Maximaal aantal rechtstreekse poorten voor dit scherm = ;   [] = ok ;
T6 ;De ;' printer;
T7 ;Uw keuze\SC1;
T8 ;Omschrijving van ;
T9 ;Bladlengte van ;
T10 ;"[] = 66   .[] = 72   xx[] = getal tussen 10 en 99";
T11 ;N[] = aantal printers   x.[] = omschrijv. printer x   T[] = type aansluiting;
T12 ;x[] = type printer x    xL[] = bladlengte printer x;
 ;
T0F ;Gestion des écrans et des imprimantes ;
T1F ;N° D'ECRAN ;
T2F ;Nombre d'imprim.\"0, 1, 2 ou 3";
T3F ;Type connection \"[] = directement à l'écran   .[] = par switchbox";
T4F ;Directement a l'écran;par switchbox;
T5F ;Nombre maximal de portes directes pour cet écran = ;   [] = ok ;
T6F ;La ;' imprimante;
T7F ;Choix\SC1;
T8F ;Description de ;
T9F ;Longueur de page pour ;
T10F ;"[] = 66   .[] = 72   xx[] = chiffre entre 10 et 99";
T11F ;N[] = nombre d'imprim.   x.[] = description impr. x   T[] = type connection;
T12F ;x[] = type imprim. x    xL[] = longueur de page impr. x;
 ;
T0E ;Beheer schermen en printers ;
T1E ;Schermnummer ;
T2E ;Aant printers\"0, 1, 2 of 3";
T3E ;Aansluiting  \"[] = rechtstreeks aan scherm   .[] = via switchbox";
T4E ;Rechtstreeks aan scherm;via switchbox;
T5E ;Maximaal aantal rechtstreekse poorten voor dit scherm = ;   [] = ok ;
T6E ;De ;' printer;
T7E ;Uw keuze\SC1;
T8E ;Omschrijving van ;
T9E ;Bladlengte van ;
T10E ;"[] = 66   .[] = 72   xx[] = getal tussen 10 en 99";
T11E ;N[] = aantal printers   x.[] = omschrijv. printer x   T[] = type aansluiting;
T12E ;x[] = type printer x    xL[] = bladlengte printer x;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S L=L(A),APR=$P(L,D,9),AAN=$P(L,D,10),SCR=^cDEV(0,"VID",$P(L,D)),MAX=$P(SCR,D,3) S:APR="" APR=1,$P(L,D,9)=APR S:'MAX MAX=1
13 S FP=403 W @F,$P($T(@("T1"_QT)),U,2)," : ",A
 ;
2 W " - ",$P(SCR,D,2) S TXT=$P($T(@("T2"_QT)),U,2) D S1 S TXT=$P($T(@("T3"_QT)),U,2) D S2
21 S R="NPR\22\3\"_$P($T(@("T7"_QT)),U,2)_"\2\\""-NT""[K&($L(K)=1)!(K?1N.""."".""L""&K&(K'>APR))\\\1" D R0 G 5:K="-",3:K="N",4:K="T",6:K[".",7:K["L"
23 S TXT=$T(@("T6"_QT)),R="PRT\1800\"_$P(TXT,U,2)_NPR_$P(TXT,U,3) D S5^cA323
25 I K'="-" S $P(L,D,NPR+1)=PRT D S3
27 G 21
 ;
3 S TXT=$P($T(@("T2"_QT)),U,2),R="K\22\3\"_TXT_"\1\\K=""-""!(K?1N&(K<4))" D R0 G 21:K="-"
31 I 'AAN,K>MAX D F1 G 3
33 S $P(L,D,9)=K,APR=$P(L,D,9) D S1 G 21
 ;
4 S TXT=$P($T(@("T3"_QT)),U,2),R="K\22\3\"_TXT_"\1\\""-.""[K" D R0
41 I K'="-" S $P(L,D,10)=$L(K),AAN=$P(L,D,10) D S2
43 I 'AAN,APR>MAX D F1 G 4
45 G 21
 ;
5 I 'AAN,APR>MAX D F1 G 21
51 S ^cLOG(boot,"DEV",A)=L,L(A)=L,FP=401 S:A=ZDEV ^($I)=L W @F,@F1 I APR>1,'$D(^cLOG(boot,"CP",0)) S ^(0)=0
53 G YZ
 ;
6 S NPR=+K,TXT=$T(@("T6"_QT)),R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_$P(TXT,U,2)_NPR_$P(TXT,U,3)_"\\12\\" D R0 I K'="-" S $P(L,D,NPR+4)=K D S3
61 G 21
 ;
7 S NPR=+K,TXT=$T(@("T6"_QT)),R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_$P(TXT,U,2)_NPR_$P(TXT,U,3)_D_$P($T(@("T10"_QT)),U,2)_"\2\\""-.""[K!(K>9)"
71 D R0 I K'="-" S:K="" K=66 S:K="." K=72 S $P(L,D,NPR+10)=K D S3
73 G 21
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z K R0,R1 D ^cA100 Q
 ;
SC1 W !?2,$P($T(@("T11"_QT)),U,2),!?2,$P($T(@("T12"_QT)),U,2) Q
 ;
S1 S FP=603 W @F,$P(TXT,D)," : ",@F2,APR S TXT=$T(@("T6"_QT)),FP=1001 W @F,@F1 F NPR=1:1:APR D S3
S1Z Q
 ;
S2 S FP=803 W @F,$P(TXT,D)," : ",@F2,$P($T(@("T4"_QT)),U,2+AAN) Q
 ;
S3 S FP=NPR+9*100+3 W @F,$P(TXT,U,2),NPR,$P(TXT,U,3)," : ",@F2
S3A S K=$P(L,D,NPR+1) S:K="" K=" P" W $P(^cDEV(0,"PRT",K),D,2)
S3B S K=$P(L,D,NPR+4),FP=FP+50 W @F,@F2,"   ",K
S3C S K=$P(L,D,NPR+10),FP=FP+20 I K W @F,$J(K,2)," ln."
S3Z Q
 ;
F1 S FP=2403+F60 W @F,@F4,$P($T(@("T5"_QT)),U,2),MAX,$P($T(@("T5"_QT)),U,3),@F5,@F2,@F0 R K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84