cTU62 ;UITVOEREN UITGESTELDE SELEKTIES ;%TU62 ;go naar %TU63 ; [ 09/26/94  12:07 PM ]
 G 1
 ;
T1 ;ALLEEN DE SELEKTIES VAN DE EIGEN TERMINAL, OF DEZE VAN DE ANDERE OOK\;
T2 ;"-[] = einde programma   .[] = alle terminals   [] = alleen eigen terminal";
T3 ;ALLE TERMINALS;EIGEN TERMINAL;
T4 ;OVERZICHT\;
T5 ;"[] = neen   .[] = ja";
T6 ;NR   UITV   VERW   SELEKTIES VOOR : ;
T7 ;JA;NEEN;
T8 ;WIJZIGEN SELEKTIE NUMMER   .[] = einde;
T9 ;   [] = vervolg;
T10 ;SELEKTIE NR.;
T11 ;UITVOEREN SELEKTIE\SC1\1\\"-1"[K;
T12 ;VERW. NA UITVOEREN\SC1\1\\"-1"[K;
T13 ;NUMMER ELEMENT;
T14 ;[] = ja   1[] = neen;
T15 ;BEVESTIGING\;
T16 ;".[] = uitvoeren selekties   ,[] = hernemen";
T17 ;ER ZIJN GEEN UITGESTELDE SELEKTIES KLAARGESTELD  [] = ok ;
 ;
S2 K T S LN=7,X=0,K=$P($T(T6),U,2)_I,K=K_$J("",77-$L(K)),FP=679 W @F,@F1,@F5 S FP=602 W @F,@F4,K,@F5
S2A W @F7 S FP=601 W @F,@$P(FG,D,10) S FP=501 W @F,@$P(FG,D,1) F K=1:1:78 W @$P(FG,D,9)
S2B W @$P(FG,D,2) S FP=680 W @F,@$P(FG,D,10) F FP=506,513,520 W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
S2C W @F8 S X=$O(@("^"_Q_"TUPP(I,X)")) G S2I:X="" S R=^(X),K=$P(R,D) G S2C:'$L(K),S2C:'$D(@("^"_Q_"LIS1(K)"))
S2D S K=^(K) G S2C:'$D(@("^"_Q_"LIS(K,0)")) S T(X)=$P(R,D,2,3)_D_$P(^(0),D,2)_D_$P(^(0),D,5)_D_LN_D
S2E S FP=LN*100+1 W @F,@F7,@$P(FG,D,10),@F8,$J(X,3)," ",@F7,@$P(FG,D,10),@F8," ",$J($P($T(T7),U,$P(T(X),D)+2),4)
S2F W " ",@F7,@$P(FG,D,10),@F8," ",$J($P($T(T7),U,$P(T(X),D,2)+2),4)
S2G W " ",@F7,@$P(FG,D,10),@F8," ",$E($P(T(X),D,3)_$J("",30),1,30)_" "_$P(T(X),D,4) S FP=LN*100+80 W @F,@F7,@$P(FG,D,10),@F8
S2H S LN=LN+1 G S2C:LN<19
S2I S R="KT\24\3\"_$P($T(T8),U,2) I X'="",$O(@("^"_Q_"TUPP(I,X)"))'="" S R=R_$P($T(T9),U,2)
S2J S R=R_"\\4\\""-.""[K!(K?.N)" D R0
S2K G S2Z:K="-"!(K=".") I K="" S:X=""!($O(^(X))="") X=0 K T S LN=7,FP=701+F60 W @F,@F1 G S2C
S2L G S2I:'$D(T(K))
S2M S FP=2003+F60 W @F,@F1,$P($T(T10),U,2),$J(K,3)," : ",$P(T(K),D,3)," / ",$P(T(K),D,4)
S2N S FP=2223+F60 W @F,@F9,":" S FP=2203+F60 W @F,1,@F6,$P($P($T(T11),U,2),D),@F9 S FP=2226+F60 W @F,$P($T(T7),U,$P(T(KT),D)+2)
S2O S FP=2323+F60 W @F,@F9,":" S FP=2303+F60 W @F,2,@F6,$P($P($T(T12),U,2),D),@F9 S FP=2326+F60 W @F,$P($T(T7),U,$P(T(KT),D,2)+2)
S2P S FP=2340+F60 W @F,@F1 S R="NE\23\40\"_$P($T(T13),U,2)_"\\1\\""-12""[K&$L(K)" D R0 G S2S:K="-"
S2Q S FP=2340+F60 W @F,@F1 S R="K\23\40\"_$P($T(@("T"_(NE+10))),U,2) D R0 G S2P:K="-"
S2R S FP=21+NE*100+26+F60 W @F,@F2,$P($T(T7),U,K+2) S $P(T(KT),D,NE)=K G S2P
S2S S ^(KT)=$P(^(KT),D)_D_$P(T(KT),D,1,2),FP=$P(T(KT),D,5)*100+8 W @F,$J($P($T(T7),U,$P(T(KT),D)+2),4) S FP=FP+7 W @F,$J($P($T(T7),U,$P(T(KT),D,2)+2),4)
S2T S FP=2001+F60 W @F,@F1 G S2I
S2Z K LN,T,X Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,$P($T(T17),U,2),@F5,@F0 R K
S1Z Q
 ;
1 S QP=0 S:'$D(DEV) DEV=$I
11 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 I '$D(@("^"_Q_"TUPP")) D S1 G YZ
15 S FP=403 W @F,@F1 S R="QP(0)\22\3\"_$P($T(T1),U,2)_$P($T(T2),U,2)_"\1\\"".-""[K\\" D R0 G YZ:K="-"
17 S FP=403 W @F,@F1,$P($T(T3),U,(K="")+2)
19 I K="",'$D(@("^"_Q_"TUPP(DEV)")) D S1 G YZ
 ;
2 S R="K\22\3\"_$P($T(T4),U,2)_$P($T(T5),U,2)_"\1\\""-.""[K" D R0 G 15:K="-",3:K=""
21 S I=0 I QP(0)="" S I=DEV D S2 S FP=501 W @F,@F1 G 3:K=".",2
23 S I=$O(@("^"_Q_"TUPP(I)")) I I'="" D S2 S FP=501 W @F,@F1 G 2:K="-",23
 ;
3 S R="K\22\03\"_$P($T(T15),U,2)_$P($T(T16),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 15:K=",",2:K="-"
31 G ^cTU63
 ;
YZ K QP S QP=1 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 S FP=2440+F60 W @F,$P($T(T14),U,2) Q
 ;
 Q
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7