cQVGB ;Beheer schema's ;cQVGB; [ 05/30/01  4:30 PM ]
 ;
T0 ;Beheer schema's ;
T1 ;Keuze\"C[] = checksum   V[] = compare   E[]= centraal   -[] = einde programma";
T2 ;Keuze\"R[] = programma's   G[] = bestanden";
T3 ;Nr;Schema;Namespaces;Home;Vergelijken;
T4 ;programma's;bestanden;
T5 ;Keuze;W[] = wijzigen   A[] = toevoegen   V[] = verwijderen   [] = vervolg;S[] = special;
T6 ;Nummer\"xx[] = nummer van de lijn";
T7 ;DIT NUMMER STAAT NIET OP HET SCHERM;
T8 ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T9 ;Verwijderen DEFINITIEF\"V[] = definitief verwijderen   ,[] = hernemen";
T10 ;Schema\"omschrijving van het schema";
T11 ;Home\"Namespace voor het logbestand (vb. DATAM1)";
T12 ;Namespaces\"Vb.: DATAM1,PC-1 DATAM1,PC-2  of  *,PC-1 *,PC=2";
T13 ;Vergelijking van;
T14 ;* = alles, BA* = alles beginnend met BA, *YZ = alles eindigend op YZ;ABC XYZ DEF = vergelijk ABC, XYZ en DEF;
T15 ;DIT SCHEMA BESTAAT AL;
T16 ;BESTAND IS IN GEBRUIK;
T17 ;op;
T18 ;'Vergelijken' voor dit schema moet 'special' zijn;
T19 ;Checksum;Compare;Centraal schema;
 ;
T0F ;Gestion des schemas ;
T1F ;Choix\"C[] = checksum   V[] = compare   E[] = central   -[] = fin du programme";
T2F ;Choix\"R[] = programmes   G[] = fichiers";
T3F ;No;Schema;Namespaces;Home;Comparer;
T4F ;programmes;fichiers;
T5F ;Choix;W[] = modifiér   A[] = ajouter   V[] = radiér   [] = suite;S[] = special;
T6F ;Numéro\"xx[] = numéro de la ligne";
T7F ;CE NUMERO N'EST PAS SUR L'ECRAN;
T8F ;Radier\"V[] = radiér   ,[] = á reprendre";
T9F ;Radier DEFINITIVEMENT\"V[] = radier definitivement   ,[] = á reprendre";
T10F ;Schema\"description du schema";
T11F ;Home\"namespace pour de fichier avec le résultat (ex. DATAM1)";
T12F ;Namespaces\"Vb.: DATAM1,PC-1 DATAM1,PC-2  of  *,PC-1 *,PC=2";
T13F ;Comparaison de;
T14F ;* = tout, BA* = tout commençant par BA, *YZ = tout ce-qui finisse avec YZ;ABC XYZ DEF = comparer ABC, XYZ et DEF;
T15F ;LE SCHEMA EXISTE DEJA;
T16F ;FICHIER EST EN USAGE;
T17F ;sur;
T18F ;'Comparer' pour cet schema doit etre 'special';
T19F ;Checksum;Compare;Schema centrale;
 ;
T0E ;Beheer schema's ;
T1E ;Keuze\"C[] = checksum   V[] = compare   E[]= centraal   -[] = einde programma";
T2E ;Keuze\"R[] = programma's   G[] = bestanden";
T3E ;Nr;Schema;Namespaces;Home;Vergelijken;
T4E ;programma's;bestanden;
T5E ;Keuze;W[] = wijzigen   A[] = toevoegen   V[] = verwijderen   [] = vervolg;S[] = special;
T6E ;Nummer\"xx[] = nummer van de lijn";
T7E ;DIT NUMMER STAAT NIET OP HET SCHERM;
T8E ;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T9E ;Verwijderen DEFINITIEF\"V[] = definitief verwijderen   ,[] = hernemen";
T10E ;Schema\"omschrijving van het schema";
T11E ;Namespace\"namespace voor het logbestand (vb. DATAM1)";
T12E ;Namespaces\"Vb.: DATAM1,PC-1 DATAM1,PC-2  of  *,PC-1 *,PC=2";
T13E ;Vergelijking van;
T14E ;* = alles, BA* = alles beginnend met BA, *YZ = alles eindigend op YZ;ABC XYZ DEF = vergelijk ABC, XYZ en DEF;
T15E ;DIT SCHEMA BESTAAT AL;
T16E ;BESTAND IS IN GEBRUIK;
T17E ;op;
T18E ;'Vergelijken' voor dit schema moet 'special' zijn;
T19E ;Checksum;Compare;Centraal schema;
 ;
1 D INI^cQ6,MASTER^cQ5
 S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=247 W @F,@F1 S R=303_D_1979,RH="603#679",RV="306#1906\332#1932" D ^cA319
 S K="\404\408\434\508\534\" F I=2:1:$L(K,D) S FP=$P(K,D,I) W @F,$P($T(@("T3"_QT)),U,I)
 ;
2 S R="CV\20\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""VCE-""[K&$L(K)\\\1\\1" D R0 G YZ:K="-"
 S %LOG="^cLOG(cs,"""_$S(CV="V":"COMPARE",CV="C":"CHECK",CV="E":"CENTRAL",1:"WHAT")_""",W)",S="",L=0
 ;
3 I CV="V" G 2:K="-" S W="G" G 31
 S R="W\20\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""RG-""[K&$L(K)\\\1\\1" D R0 G 2:K="-"
31 S K=$S(CV="C":2,CV="V":3,CV="E":4,1:5)
 S FP=247 W @F,@F2,@F92,$P($T(@("T19"_QT)),U,K)," ",$P($T(@("T4"_QT)),U,W="G"+2)," ",$P($T(@("T17"_QT)),U,2)," ",cs,@F93
 S WF=$S(W="R":"ROUTINES",1:"GLOBALS")
 ;
4 S XP=604,SO=S K A
 F  S S=$O(@%LOG@(S)) Q:S=""!(XP>1800)  D
 . Q:'$D(@%LOG@(S,WF))  I CV'="E" Q:'$D(^("HOME"))  Q:'$D(^("UCI"))
 . S T=$TR(@%LOG@(S,WF),D," "),home="",UCI="" I CV'="E" S home=^("HOME"),UCI=$TR(^("UCI"),D," ")
 . S L=L+1,(FP,XP)=XP+100,A(L)=XP,A(L,"S")=S,A(L,"H")=home,A(L,"U")=UCI,A(L,"T")=T
 . W @F,$J(L,2) S FP=FP+4 W @F,$E(S,1,23) S FP=FP+26 W @F,UCI
 . S (FP,XP)=XP+100 S FP=FP+4 W @F,home S FP=FP+26 W @F,$E(T,1,45)
 S VV=0,K=L,L=0 I S'="" S VV=1,S=$O(@%LOG@(S),-1),L=K
 ;
5 S R="K\20\3\"_$P($T(@("T5"_QT)),U,2)_"\SC0\1\\""WAVS-""[K\\\1" D R0
 I K="-" L -@%LOG@(S) D CLS G 3
 G WIJZ:K="W",AAN:K="A",VERW:K="V",SPEC:K="S" I K="" D CLS G 4
 D STERN
51 G 5
 ;
WIJZ D S1 G 5:K="-",WIJZ:K="," D STERJ S OS=A(LINE,"S") K C
 L +@%LOG@(OS):5 E  S R=$P($T(@("T16"_QT)),U,2) D MS G 5
WIJZ1 S B=OS,R="B\20\3\"_$P($T(@("T10"_QT)),U,2)_"\23\\$L(K)!(""-,""[K)\\\1\\1" D R0 G 51:K="-",WIJZ:K=","
 I K'=OS,$D(@%LOG@(K)) S R=$P($T(@("T15"_QT)),U,2) D MS G WIJZ1
 S C("S")=K I CV="E" G WIJZ4
WIJZ2 S B=A(LINE,"H"),R="B\20\43\"_$P($T(@("T11"_QT)),U,2)_"\11\CS1\\\\1\\1" D R0 G WIJZ1:K="-",51:K="," S C("H")=K
WIJZ3 S B=A(LINE,"U"),R="B\21\3\"_$P($T(@("T12"_QT)),U,2)_"\64\CS2\\\\1\\1" D R0 G WIJZ2:K="-",51:K=","
 S:$E(K,$L(K))'=" " K=K_" " S C("U")=K
WIJZ4 S B=A(LINE,"T"),R="B\22\3\"_$P($T(@("T13"_QT)),U,2)_"\SC3\58\CS3\\\\\\1" D R0 G WIJZ3:K="-",51:K=","
 S C("T")=K I $L(OS),OS'=C("S") K @%LOG@(OS)
 S @%LOG@(C("S"),WF)=$TR(C("T")," ",D) I CV'="E" S ^("HOME")=C("H"),^("UCI")=$TR(C("U")," ",D)
 I '($D(A(LINE))#10) S A(LINE)=$G(A(+$O(A(LINE),-1)))+200
WIJZ9 L -@%LOG@(OS) K C D STERN,CLS S S=SO,L=$O(A(""))-1 G 4
 ;
AAN S LINE=$O(A(""),-1)+1,(OS,A(LINE,"S"),A(LINE,"H"),A(LINE,"U"),A(LINE,"T"))="" G WIJZ1
 ;
VERW D S1 G 5:K="-",VERW:K="," D STERJ
VERW1 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I "-,"[K D STERN G VERW:K="-",5:K=","
 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G VERW1:K="-" I K="," G 51
VERW9 K @%LOG@(A(LINE,"S")) S OS=S G WIJZ9
 ;
SPEC D S1 G 5:K="-",SPEC:K="," D STERJ
 H 10 G SPEC9
 I @%LOG@(A(LINE,"S"),WF)'="special" S R=$P($T(@("T18"_QT)),U,2) D MS G SPEC9
 S OS=A(LINE,"S") L +@%LOG@(OS)
 D ^cQICHKB1
 L -@%LOG@(OS) K C S S=SO,L=$O(A(""))-1 G 11
SPEC9 G WIJZ9
 ;
YZ Q
 ;
NOS I $ZE["<NOSYS>"!$ZE["<NAMESPACE>" S $ZT=ZT Q
 G @ZT Q
 ;
MS U $P S FP=2403 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R K
MSZ 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
 ;
S1 S R="K\21\3\"_$P($T(@("T6"_QT)),U,2)_"\2\\K?1.2N&K!(K=""-"")\\\" D R0 G S1Z:K="-"
 I '$D(A(+K)) S R=$P($T(@("T7"_QT)),U,2) D MS S K="," G S1Z
 S LINE=+K
S1Z Q
 ;
SC0 W !?2,$P($T(@("T5"_QT)),U,3),!?2,$P($T(@("T5"_QT)),U,4) Q
 ;
CS1 ;"-,"[K&$L(K)!(K?3A1","3A)!(K?1.7A1.2N)
 ;"-,"[K&$L(K)!(K?3A1","3A)
 ;
CS2 ;"-,"[K&$L(K)!(K_$S($E(K,$L(K))=" ":"",1:" ")?.E&$L(K))
 ;"-,"[K&$L(K)!(K_$S($E(K,$L(K))=" ":"",1:" ")?.(3A1","3A1" ")&$L(K))
 ;
SC3 W !?2,$P($T(@("T14"_QT)),U,2),!?2,$P($T(@("T14"_QT)),U,3) Q
 ;
CLS F XP=700:100:1800 S FP=XP+4 W @F,$J("",2) S FP=FP+4 W @F,$J("",24) S FP=FP+26 W @F,$J("",45)
 Q
 ;
STERN S FP=A(LINE)-2 W @F," " Q
 ;
STERJ S FP=A(LINE)-2 W @F,"*" Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8