cA242 ;BEHEER VRIJE VELDEN ;%A242; [ 07/20/95   2:16 PM ]
 G 1
 ;
 ; VB S R=";PW;34[K&$L(K);K>5&(K<30);K>305&(K<330)!(K>405&(K<430)); EXCUTE VELD;"
 ;
T0 ;Beheer vrije velden ;
T1 ;Schermnummer\"beschikbare schermen : ;
T2 ;scherm ;
T3 ;Wijzigen rubrieknummer\"-[] = einde";
T4 ;Type rubriek\" [] = blanco lijn   1[] = input-lijn";
T6 ;Omschrijving\;"[] = ;
T7 ;Keuze;-[] = einde programma;
 ;
T0F ;Gestion des champs libres ;
T1F ;No de l'écran\"écrans disponibles : ;
T2F ;écran ;
T3F ;N° de rubrique à modifier\"-[] = fin";
T4F ;Type de rubrique\" [] = ligne blanche   1[] = ligne d'entrée";
T6F ;Description\;"[] = ;
T7F ;Choix;-[] = fin de programme;
 ;
T0E ;Beheer vrije velden ;
T1E ;Schermnummer\"beschikbare schermen : ;
T2E ;scherm ;
T3E ;Wijzigen rubrieknummer\"-[] = einde";
T4E ;Type rubriek\" [] = blanco lijn   1[] = input-lijn";
T6E ;Omschrijving\;"[] = ;
T7E ;Keuze;-[] = einde programma;
 ;
S1 S FP=$P(K,U,2)*100+$P(K,U,3) W:$P(K,U,22) @F,$J(Y1,2) S FP=FP+3 I '$P(K,U,23) W @F,$J("",15),@F,$P(K,U,1) S FP=$P(K,U,5)*100+$P(K,U,6)-2 W @F,": "
S1Z S FP=$P(K,U,5)*100+$P(K,U,6),R="-",I=$P(K,U,9) W @F D S2 S R="*",I=$P(K,U,13)
 ;
S2 S $P(R,R,I+1)="" W $E(R,1,I) Q
 ;
1 I '$D(@("^"_Q_"BA(""%A"",6)")) G YZ
 
11 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=202+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 D 9 G YZ:K="-"
110 S K=$P($T(@("T0"_QT)),U,2)_" "_$P(@(Q2_"(0,0)"),U,1)_" "_QN_" ",FP=202+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
114 S (K,AS)=$P(CTRLS,"[") I $L(K)=1 G 13
116 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_$TR($E("A,B,C,D,E,F,G,H,I",1,$L(AS)*2-1),$E("ABCDEFGHI",1,$L(AS)),AS)_"""\1\\"_CTRLS_"!(K=""-"")" D R0 G 11:K="-"
13 S Y1=0,I2=K*100 S:K>1 Y1=2 S:'K I2=99 G 11:$O(^(I2))\100'=(I2\100)
15 S FP=270 W @F,$P($T(@("T2"_QT)),U,2),I2\100 K A S FP=601 W @F,@F1
17 I I2\100-1 S Y1=1,K=^(101) D S1 S Y1=2,K=^(102) D S1 S FP=FP\100+1*100 W @F,@F1
 ;
2 S K=$O(^(I2)) I K\100=(I2\100) S Y1=Y1+1,I2=K,A(Y1)=K,K=^(K) D S1 G 2
21 S R="Y1\22\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\"_CTRLR_"!(K=""-"")" D R0 I K="-" G 11:$L(AS)=1,116
23 G 21:'$D(A(K)) S I2=A(K),U2=@(Q2_"(0,"_I2_")")
25 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-1""[K" D R0 G 21:K="-",3:K=1
27 S $P(U2,U,1)="",$P(U2,U,19)="S K=""""",$P(U2,U,20)=1,^(I2)=U2
29 S K=U2 D S1 I $L(EXC) X EXC
 G 21
 ;
3 S I=$P(U2,U),R="I\22\3\"_$P($T(@("T6"_QT)),U,2)_"\10\\$L(K)\\\\\1" D R0 G 21:K="-"!(K=",")
31 S $P(U2,U)=K,$P(U2,U,19)="",$P(U2,U,20)=""
37 S @(Q2_"(0,I2)")=U2 S K=U2 D S1 I $L(EXC) X EXC
 G 21
 ;
9 S Q1="",U1=0
91 S Q1=$O(@("^"_Q_"BA(""%A"",6,Q1)")) G 95:Q1="" S U1=U1+1,A(U1)=Q1,FP=U1+3*100+2 I U1>17 S FP=U1-14*100+40
93 W @F,$J(U1,2),". ",$P(@("^"_Q_Q1_"(0,0)"),U,1) G 91
95 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\"""_$P($T(@("T7"_QT)),U,3)_"""\"_$L(U1)_"\\K?.N&K!(K=""-"")" D R0 I K="-" Q
97 G 95:'$D(A(K)) S Q1=A(K),R=@("^"_Q_"BA(""%A"",6,Q1)")
99 S Q1=$P(R,U,2),CTRLS=$P(R,U,3),CTRLR=$P(R,U,4),Q2="^"_Q_Q1,CTRLB="'("_$P(R,U,5)_")",EXC=$P(R,U,6) Q
 ;
KL G YZ:'$D(@("^"_Q_"BA(""%A"",6,""KL"")")) S R=^("KL") G 10
 ;
YZ K Y1,SW,A 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84
 
10 w "Fout in routine cA242 van DATAM, verwittig ICT" r k