cA323 ;BEHEER SCHERMEN EN PRINTERS ;%A323; Go naar %A324,%A325 [ 01/02/97  2:09 PM ]
 ;
T0 ;Beheer schermen en printers ;
T1 ;Nr.;scherm;bel;printer;a.p;
T2 ;Ja ;Nee;   ;
T3 ;Schermnummer;Orig. scherm;
T4 ;Afkorting van ;   [] = vervolg;
T5 ; is onbekend;
T6 ;Het scherm;de printer;
T7 ;".[] = beheer centrale printers   [] = vervolg   -[] = einde programma";
T8 ; [] = scherm   1[] = bel   2[] = beheer printers;   3[] = beheer kleuren;V[] = verwijderen;
T9 ;De bel moet hoorbaar zijn bij iedere vraag\"[] = ja   .[] = neen";
T10 ;De bestanden zijn in gebruik  [] = ok ;
 ;
T0F ;Gestion des écrans et des imprimantes ;
T1F ;No.;ECRAN;SON;IMPRIMANTE;N.I;
T2F ;Oui;Non;   ;
T3F ;Ecran numéro;Ecran orig. ;
T4F ;Abreviation de ;   [] = suite;
T5F ; est inconnue;
T6F ;L'écran;l'imprimante;
T7F ;".[] = gestion imprimantes centrales  [] = suite   -[] = fin du progr.";
T8F ; [] = écran   1[] = son   2[] = gestion des imprim.;   3[] = gestion des coul.;V[] = radier;
T9F ;Bip sonore a chaque question\"[] = oui   .[] = non";
T10F ;Le fichier est en usage  [] = ok ;
 ;
T0E ;Beheer schermen en printers ;
T1E ;Nr.;scherm;bel;printer;a.p;
T2E ;Ja ;Nee;   ;
T3E ;Schermnummer;Orig. scherm;
T4E ;Afkorting van ;   [] = vervolg;
T5E ; is onbekend;
T6E ;Het scherm;de printer;
T7E ;".[] = beheer centrale printers   [] = vervolg   -[] = einde programma";
T8E ; [] = scherm   1[] = bel   2[] = beheer printers;   3[] = beheer kleuren;V[] = verwijderen;
T9E ;De bel moet hoorbaar zijn bij iedere vraag\"[] = ja   .[] = neen";
T10E ;De bestanden zijn in gebruik  [] = ok ;
 ;
1 D INI^cQ6 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 S UCI2=$ZU(5) D UCI("MGR")
11 K A S CFG=$$CONFIG^cQ9,(I3,ZDEV)="",XP=704 D MASTER^cQ5
12 S (I3,ZDEV)=$$IO^cQ5 I 'I3 D ^cQ3 S (I3,ZDEV)=$$IO^cQ5
 F  S I3=$O(^|"MGR",boot|SYS(CFG,"DDB",I3)) Q:I3=""  D
 . I '$D(^cLOG(boot,"DEV",I3)) S ^cLOG(boot,"DEV",I3)="RW\BR\\\\\ \0",^cLOG(boot,"BELL",I3)="*0"
 F  S I3=$O(^|"MGR",boot|QSYS(CFG,"DDB",I3)) Q:I3=""  D
 . I '$D(^cLOG(boot,"DEV",I3)) S ^cLOG(boot,"DEV",I3)="RW\BR\\\\\ \0",^cLOG(boot,"BELL",I3)="*0"
 F  S I3=$O(^cLOG(boot,"DEV",I3)) Q:I3=""  I '$D(^|"MGR",boot|SYS(CFG,"DDB",I3)),'$D(^|"MGR",boot|QSYS(CFG,"DDB",I3)),'$L($ZDEV(+I3)) K ^cLOG(boot,"DEV",I3)
13 K L S A=0 D S2,S3
14 L  S R="A\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T7"_QT)),U,2)_"\5\\""-.""[K!(K?1.4N)!(K?1.4N1""-"")\\\1"
15 D R0 G YZ:K="-",5:K="." I K="" K A,L S A=$S(K="":VV-1,1:0),XP=704 D S3 G 14
16 I A>50,A<55 S K=$E(A,$L(A))="-" K:K ^cLOG(boot,"DEV",+A) S:'K ^cLOG(boot,"DEV",+A)="HF\ZA\\\\\\\1\",^cLOG(boot,"BELL",+A)="*0"  G 13
17 I K,'$D(A(+K)) K A,L S B=K,A=K-1,XP=704 D S3 D:$O(A(""))="" S3 S (A,K)=B
18 I '$D(A(+K)) G 14:$ZV["MSM-PC" S C=11,L(+K)="RW\ P\\\\\\\ \",A(+K)=C+6*100+5 G 24
19 I $D(A(+K)) S A=+A,FP=A(A)-3 W @F,"*" L ^cLOG(boot,"DEV",A):2 E  S FP=2403 W @F,@F4,$P($T(@("T10"_QT)),U,2),@F5,@F2,@F0 R K G 14
 ;
2 S SW=0,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_" "_A_"\SC1\1\\""-12""[K!(K=3&($I=1))!(K=""V""&SW)\" D R0 G 3:K=1,4:K=2
21 I K="V" K ^cLOG(boot,"DEV",A) S FP=302 W @F,@F1 G 11
22 I K=3 S ^cLOG(boot,"DEV",A)=L(A) D ^cA340 G 2:K="X" D UCI(UCI2) G 1
23 I K="-" S ^cLOG(boot,"DEV",A)=L(A),FP=$G(A(A),2404)-3 W @F," " S:A=ZDEV ^($I)=L(A) G 14
24 S R="VID\2000\"_$P($T(@("T6"_QT)),U,2) D S5
25 I K'="-" S $P(L(A),D)=VID,K=$P(^(K),D,3) S:'K K=1 S:K<$P(L(A),D,9) $P(L(A),D,9)=K S ^cLOG(boot,"DEV",A)=L(A) S:A=ZDEV ^($I)=L(A) K U("D") D ^cA606 S XP=A(A) D S1
26 G 2
 ;
3 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-.""[K" D R0
31 I K="" K ^cLOG(boot,"BELL",A) K:A=ZDEV ^($I) S XP=A(A) D S1 I A=$I!(A=ZDEV) S F0="*7"
33 I K="." S ^cLOG(boot,"BELL",A)="*0" S:A=ZDEV ^($I)="*0" S XP=A(A) D S1 I A=$I!(A=ZDEV) S F0="*0"
35 G 2
 ;
4 D ^cA325 S A="",L=$O(A(A)) K A S A=L-1,XP=704 K L D S2,S3
41 G 14
 ;
5 S FP=2203 W @F,@F1 R "Give the code : ",K G ^cA324:(DD_DM_DJ#$H)=K,14
 ;
YZ D UCI(UCI2) 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 S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
SC1 W !?2,$P($T(@("T8"_QT)),U,2) I A=1,$I=1,$P(L(1),D)="OC" W $P($T(@("T8"_QT)),U,3)
SC1A I $ZV["UNIX",A'=$I,'$D(^|"MGR",boot|SYS(CFG,"DDB",A)) W !?2,$P($T(@("T8"_QT)),U,4) S SW=1
SC1Z Q
 ;
S1 S FP=XP W @F,$J(A,4) S FP=FP+7,S=$P(L(A),D) S:'$L(S) S=" V"
S1A S K=$S($D(^cDEV(0,"VID",S)):^(S),1:"") S:$L(K) S=$E($P(^(S),D,2),1,26) S:'$L(K) S="?",$P(L(A),D)=" V",$P(^cLOG(boot,"DEV",A),D)=" V"
S1B W @F,S,$J("",26-$L(S)) S FP=FP+29 W @F,$P($T(@("T2"_QT)),U,$S(A:2+$D(^cLOG(boot,"BELL",A)),1:4))
S1C S FP=FP+6 W @F,$J("",26) S FP=FP+29,S=$P(L(A),D,9) W @F,$J("",4),@F,$S(S=""!(S=0):" ",1:S) W:S " ",$S($P(L(A),D,10):"S",1:"")
 I '$P(L(A),D,9) S XP=XP+100
S1D F SS=1:1:3 I '(SS>$P(L(A),D,9)) D
 . S S=$P(L(A),D,SS+1) S:'$L(S) S="?" S K=$G(^cDEV(0,"PRT",S)) S:$L(K) S=$E($P(^(S),D,2),1,26)
 . S:'$L(K) S="?",$P(L(A),D,SS+1)=" P",$P(^cLOG(boot,"DEV",A),D,SS+1)=" P" 
 . I SS>1 S FP=XP W @F,$J("",4) S FP=FP+7 W @F,$J("",26) S FP=FP+29 W @F,$J("",3) S FP=FP+35 W @F,$J("",3)
 . S FP=XP+42,XP=XP+100 W @F,S,$J("",26-$L(S))
S1Z K S,SS Q
 ;
S2 S R=403_D_1879,RH="603#679",RV="409#1809\438#1838\444#1844\473#1873" D ^cA319
S2A F K=1:1:5 S FP=$P("505\511\540\546\575",D,K) W @F,$P($T(@("T1"_QT)),U,K+1)
S2B S K=$P($T(@("T3"_QT)),U,2)_": "_$J($I,4),FP=279-$L(K) W @F," ",K
S2C I ZDEV S K=$P($T(@("T3"_QT)),U,3)_": "_$J(ZDEV,4),FP=379-$L(K) W @F," ",K
S2Z Q
 ;
S3 S Z1=$O(^cLOG(boot,"DEV",A)),XS=0
S3A F  S A=$O(^cLOG(boot,"DEV",A)) Q:A=""  S K=^(A) D  Q:XP\100>17!XS
 . I A<50,A>54,'$D(^|"MGR",boot|SYS(CFG,"DDB",A))&'$D(^|"MGR",boot|QSYS(CFG,"DDB",A)) Q
 . I XP\100+$P(K,D,9)>18 S XS=1,A=$O(^cLOG(boot,"DEV",A),-1) Q
 . S L(A)=K,A(A)=XP D S1
S3B S Z2=A F XP=XP:100:1800 S FP=XP W @F,$J("",4) S FP=FP+7 W @F,$J("",26) S FP=FP+29 W @F,$J("",3) S FP=FP+6 W @F,$J("",26) S FP=FP+29 W @F,$J("",3)
S3C S VV=A?1.4N I VV D
 . S VV=$O(^|"MGR",boot|SYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
 . I 'VV S VV=$O(^|"MGR",boot|QSYS(CFG,"DDB",A)) I VV'?1.4N S VV=0
S3Z S XP=704 Q
 ;
S5 S S4=$P(R,D,2)+1,S0=0,SA=$P(R,D,3),S3=$P(R,D,1),FP=S4 W @F,@F1
S5A S FP=2403+F60 W @F,@F1,$P($T(@("T4"_QT)),U,2),SA W:S0 $P($T(@("T4"_QT)),U,3) W " : ",@F0
S5B R K S:K?.E1L.E K=$$TOUPPER^cQ9(K) G S5A:K?.E1C.E!(K?20N.N)!(K=" V")!(K=" P") S:$L(K) S0=0 S FP=S4 W @F,@F1 G S5Z:K="-" I K="" S S1=S4 G S5E:S0,S5D
S5C G S5G:'$D(^cDEV(0,S3,K)) S S3=K G S5I
S5D S S2=" Z"
S5E S S2=$O(^cDEV(0,S3,S2)) G S5H:S2="" S FP=S1 W @F,$J($P(^(S2),D,1),6)," = ",$P(^(S2),D,2)
S5F S S1=S1+100 G S5E:S1<(2300+F60) S S0=1 G S5A
S5G S FP=2403+F60 W @F,@F4,SA,$P($T(@("T5"_QT)),U,2)," [] = ok ",@F5,@F2,@F0 R K
S5H S (S2,S0)=0 G S5A
S5I S (@$P(R,D,1),K)=S3
S5Z K S0,S1,S2,S3,S4,SA Q
 ;
INT G 13
 ;
UCI(UCI) D INT^cQMSMSW Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84