cA324 ;BEHEER SCHERMEN EN PRINTERS ;%A323; [ 05/06/97  2:41 PM ]
 ;
T0 ;Beheer schermen en printers ;
T1 ;Nr;POORT;OMSCHRIJVING;SCHERM(EN) MET TOEGANG;
T2 ;Uw keuze\"[] = vervolg   W[] = wijzigen   .[] = openen   V[] = verwijderen   -[] = einde";
T3 ;Nummer\;
T4 ;Poortnummer\;
T5 ;Omschrijving\;
T6 ;Scherm(en) met toegang\"xx[] = scherm ingeven   xx-[] = scherm verwijderen   .[] = alle schermen";
T7 ;alle schermen;
T8 ;Bevestiging\",[] = hernemen   V[] = definitief verwijderen";
T9 ;Wijzigen\"1[] = poortnummer   2[] = positie op switchbox   3[] = omschrijving             4[] = schermen met toegang";
T10 ;Positie op switchbox\"1, 2 of 3   [] = 1";
T11 ;De bestanden zijn in gebruik  [] = ok ;
T12 ;Deze poort is definieerd als volgnummer ;
 ;
T0F ;Gestion des écrans et des imprimantes ;
T1F ;No;PORTE;DESCRIPTION;DISPONIBLE POUR ECRAN(S);
T2F ;Votre choix\"[] = suite   W[] = modifier   .[] = créer   V[] = radier   -[] = fin";
T3F ;Numéro\;
T4F ;No DE PORTE\;
T5F ;Description\;
T6F ;Disponible pour écran(s)\"xx[] = ajouter écran   xx-[] = radier écran   .[] = tous les écrans";
T7F ;tous les écrans;
T8F ;Confirmation\",[] = reprendre   V[] = radier definitivement";
T9F ;Modifier\"1[] = no de porte   2[] = position de l'interupteur   3[] = description         4[] = disponibilite";
T10F ;Position de l'interupteur\"1, 2 ou 3   [] = 1";
T11F ;Le fichier est en consultation  [] = ok ;
T12F ;Cette porte a ete defini comme numéro ;
 ;
T0E ;Beheer schermen en printers ;
T1E ;Nr;POORT;OMSCHRIJVING;SCHERM(EN) MET TOEGANG;
T2E ;Uw keuze\"[] = vervolg   W[] = wijzigen   .[] = openen   V[] = verwijderen   -[] = einde";
T3E ;Nummer\;
T4E ;Poortnummer\;
T5E ;Omschrijving\;
T6E ;Scherm(en) met toegang\"xx[] = scherm ingeven   xx-[] = scherm verwijderen   .[] = alle schermen";
T7E ;alle schermen;
T8E ;Bevestiging\",[] = hernemen   V[] = definitief verwijderen";
T9E ;Wijzigen\"1[] = poortnummer   2[] = positie op switchbox   3[] = omschrijving             4[] = schermen met toegang";
T10E ;Positie op switchbox\"1, 2 of 3   [] = 1";
T11E ;De bestanden zijn in gebruik  [] = ok ;
T12E ;Deze poort is definieerd als volgnummer ;
 ;
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 R=403_D_2079,RH="603#679",RV="408#2008\416#2016\431#2031" D ^cA319
13 S K=$T(@("T1"_QT)),FP=505 W @F,$P(K,U,2) S FP=510 W @F,$P(K,U,3) S FP=518 W @F,$P(K,U,4) S FP=533 W @F,$P(K,U,5)
15 S APR=$G(^cLOG(boot,"CP",0)),VLNR=1
16 D S0,S11 S VLNR=$O(B(""),-1)+1
17 L ^cLOG(boot,"CP"):2 E  S FP=2403 W @F,@F4,$P($T(@("T11"_QT)),U,2),@F5,@F2,@F0 R K G YZ
 ;
2 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.VW""[K\\\1" D R0 I K="-" G YZ
21 G 5:K="",3:K="W",4:K=".",2:K'="V" D S5 G 2:'VNR
23 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" D NOST G 2
24 F K=VNR:1:APR-1 S ^(K)=^cLOG(boot,"CP",K+1)
25 K ^cLOG(boot,"CP",APR) S APR=APR-1,^cLOG(boot,"CP",0)=APR D NOST
26 K B(VNR) S VLNR=$O(B("")) G 16
 ;
3 D S5 I K="-" G 2
31 S R="C\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-1234""[K&$L(K)" D R0 I K="-" D S10,NOST G 2
33 D S6:C=1,S9:C=2,S7:C=3,S8:C=4 G 31
 ;
4 S VLNR=APR-2 D S0,S11 S APR=APR+1,VNR=APR,L(VNR)="",B(VNR)=B,B=B+100 D S1
41 D S6 I K="-" S FP=B(VNR)+5 W @F,$J("",3) S L(VNR)="" D S2,S3 S FP=B(VNR)+34 W @F,$J("",45) K L(VNR) S APR=APR-1 G 2
42 D S9 I K="-" G 41
43 D S7 I K="-" G 42
45 D S8 I $P(L(VNR),D,3)="" G 43
47 D S10 S ^(0)=VNR G 2
 ;
5 D S0 S:VLNR>$G(^cLOG(boot,"CP",0)) VLNR=1 G 16
 ;
YZ K B S FP=401 W @F,@F1 G INT^cA323
 ;
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
 ;
S0 F I=7:1:19 D S00
S0Z Q
 ;
S00 S FP=I*100+5 W @F,$J("",3) S FP=I*100+10 W @F,$J("",5) S FP=I*100+18 W @F,$J("",12) S FP=I*100+33 W @F,$J("",45)
S00Z Q
 ;
NOST S FP=B(VNR)+1 W @F," " Q
 ;
STER S FP=B(VNR)+1 W @F,"*" Q
 ;
MS S FP=2403+F60 W @F,@F2,@F4,R,"  [] = ok ",@F5,@F0 R K
 ;
S1 S FP=B(VNR)+5 W @F,$J(VNR,2) Q
 ;
S2 S FP=B(VNR)+10 W @F,$J("",5) W:$P(L(VNR),D) @F,$J($P(L(VNR),D),3),"-",$P(L(VNR),D,4) Q
 ;
S3 S FP=B(VNR)+18 W @F,$J("",12),@F,$E($P(L(VNR),D,2),1,12) Q
 ;
S4 S FP=B(VNR)+33 W @F,$J("",45),@F I '$P($P(L(VNR),D,3),U,2) W $P($T(@("T7"_QT)),U,2) G S4Z
S4A S T=$TR($P(L(VNR),D,3),U," ") S:$E(T)=" " T=$E(T,2,$L(T)) S:$E(T,$L(T))=" " T=$E(T,1,$L(T)-1)
S4B S R=45 I $L(T)>45 S R=$F(T," ",42) S:'R R=45
S4C W $E(T,1,R-1) S T=$E(T,R,$L(T))
 I $L(T) D  W @F G S4B
 . S B=B+100,FP=FP+100 W @F,$J("",45)
 . S S=$O(B(VNR)) I S,FP\100=(B(S)\100) F I=FP\100:1:19 N FP D S00
S4Z K S,T Q
 ;
S5 S R="VNR\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$L(APR)_"\\K=""-""!(K?1.3N&$D(L(+K)))" D R0 I K'="-" D STER
S5Z Q
 ;
S6 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\4\\K=""-""!(K?1.N&K)" D R0 G S6Z:K="-"
S6A G S6:K=$I,S6:'$D(^cLOG(boot,"DEV",K)) S $P(L(VNR),D)=K D S2
S6Z Q
 ;
S7 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\12" D R0 I K'="-" S $P(L(VNR),D,2)=K D S3
S7Z Q
 ;
S8 K X F S=2:1 Q:$P($P(L(VNR),D,3),U,S)=""  S X($P($P(L(VNR),D,3),U,S))=""
S8A K S S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\4\\K?.N1""-""!(K?1.3N)!(K=""."")" D R0 G S8Z:K="-" I K="." K X S X(K)="" G S8D
S8B I K["-" S K=+K G S8A:'$D(X(K)) K X(K) G S8D
S8C G S8A:$D(X(K)),S8A:K=$P(L(VNR),D),S8A:'$D(^cLOG(boot,"DEV",K)) S X(K)=""
S8D S S=U,X="" F K=1:1 S X=$O(X(X)) Q:X=""  S S=S_X_U K X(".")
S8E S $P(L(VNR),D,3)=S D S4 G S8
S8Z K X Q
 ;
S9 S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-123""[K" D R0 I K'="-" S:K="" K=1
S9A F I=1:1:APR S R=$G(^cLOG(boot,"CP",I)) I $P(R,D)=$P(L(VNR),D),$P(R,D,4)=K S R=$P($T(@("T12"_QT)),U,2)_I D MS G S9
S9B S $P(L(VNR),D,4)=K D S2
S9Z Q
 ;
S10 S ^cLOG(boot,"CP",VNR)=L(VNR)
S10Z Q
 ;
S11 K L,B S:VLNR<1 VLNR=1 S B=700
 F VNR=VLNR:1:APR I $D(^cLOG(boot,"CP",VNR)) D  Q:B>1999
 . S L(VNR)=^cLOG(boot,"CP",VNR) S:'$P(L(VNR),D,4) $P(L(VNR),D,4)=1
 . S T=$TR($P(L(VNR),D,3),U," ") I $L(T)/45+.99\1-1*100+B>1999 K L(VNR),T S B=2000 Q
 . S B(VNR)=B,B=B+100 D S1,S2,S3,S4
S11Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84