cICHKB1 ;Beheer 'special' schema ;%ICHKB; [ 06/13/97  9:55 AM ]
 ;
T0 ;Beheer 'special' schema ;
T1 ;Schema: ;
T2 ;Vnr;Global;Routine;
T3 ;Volgnummer\"[] = vervolg   xxx[] = nummer   A[] = toevoegen";
T4 ;DIT NUMMER STAAT NIET OP HET SCHERM;
T5 ;Global\"naam van de global";
 ;
T0F ;Gestion du schema 'special' ;
T1F ;Schema: ;
T2F ;Num;Global;Routine;
T3F ;Numéro\"[] = suite   xxx[] = numéro   A[] = Ajouter";
T4F ;CE NUMERO N'EST PAS SUR L'ECRAN;
T5F ;Global\"nom du global";
 ;
1 S FP=303 W @F,@F1,@F92,$P($T(@("T1"_QT)),U,2),A(LINE,"S")," -> ",A(LINE,"U"),@F93
 S R=403_D_2279,RH="603#679",RV="410#2210\" D ^cA319
 S K="\505\512\",FP=505 W @F,$P($T(@("T2"_QT)),U,2)
 S FP=512 W @F,$P($T(@("T2"_QT)),U,W="R"+3)
 ;
2 S I=0 K ^HULP($J),B
 F  S I=$O(@%LOG@(A(LINE,"S"),WF,I)) Q:I=""  S K=^(I),^HULP($J,K)="" K @%LOG@(A(LINE,"S"),WF,I)
 F J=1:1 S I=$O(^HULP($J,I)) Q:I=""  S @%LOG@(A(LINE,"S"),WF,J)=I
 ;
3 S I=0,XP=705,K=""
31 F  S I=$O(@%LOG@(A(LINE,"S"),WF,I)) Q:I=""  D  Q:K="-"
 . S K=^(I),FP=XP,B(I)=FP_D_K,XP=XP+100 W @F,$J(I,4)
 . S FP=FP+5 W @F,@F7,@$P(FG,D,10),@F8 S FP=FP+2 W @F,K,@F2
 . S FP=FP+67 W @F,@F7,@$P(FG,D,10),@F8 I XP>2200 S K="-"
 F  Q:XP>2200  S FP=XP,XP=XP+100 W @F,$J("",4) S FP=FP+7 W @F,@F2 S FP=FP+67 W @F,@F7,@$P(FG,D,10),@F8
 ;
4 S R="N\23\3\"_$P($T(@("T3"_QT)),U,2)_"\4\\""-A""[K!(K?1.N)\\\1\\" D R0
 G YZ:K="-" I K="" S XP=705 K B G 31
 I K?1.N S N=+N I '$D(B(N)) S R=$P($T(@("T4"_QT)),U,2) D MS G 4
 I N="A" S R="B\23\3\"_$P($T(@("T5"_QT)),U,2)_"\50\\K?.E\",N=.99 D R0
 I N?1.N S B=$P(B(N),D,2),R="B\"_(B(N)\100)_D_(B(N)+4#100)_"\\\50\\K?.E\\\\\1" D R0
 F  Q:$E(K,$L(K))'=" "  S K=$E(K,1,$L(K)-1)
 I '$L(K) K @%LOG@(A(LINE,"S"),WF,N)
 I $L(K) S @%LOG@(A(LINE,"S"),WF,N)=K
 S XP=705 K B G 2
 ;
YZ 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 ^cQ1000 Q  ; v11 30.05.94
 ;
ZZ ; 28.08.97 - 11 u 02 * V6.3.02