KTO10 G 1 ;REGISTRATIE TOELEVERINGEN (SELEKTIE MODULES) ;Quit naar KTO30 - Do naar modules [ 02/18/94  11:15 AM ]
 ;
K1 F I=1:1:3 W:$L($P(TSC,U,I)) !,?2,$P(TSC,U,I)
K1Z Q
 ;
HELP I TSC="" S TSC=@("^"_Q_UGL_"(0,""TSC"")")
 D S0
 Q
 ;
PRINT S FP=TSM*100+1 W @F,@F1
 D EXTERN^DCPRINT("T",TR)
 K @("^"_Q_UGB_"(TR)")
 S SW13=0
 Q
 ;
S0 S SW12=1
S0Z Q
 ;
S1 F I=UTEL-($P(TD,D,2)-$P(TD,D,1)):1:UTEL S:$D(UTA(UTB(I))) UTA(UTB(I))=UTA(UTB(I))-1
S1A K UTA(UTB(UTEL-($P(TD,D,2)-$P(TD,D,1)))),UTB(UTEL-($P(TD,D,2)-$P(TD,D,1)))
S1Z Q
 ;
1 G ^FLOWTOE
 K A,B,U7 G YZ:K="," S UZ=@("^"_Q_UGL_"(LC,TR,0)")-100,SW12=0,FP=$P(TD,D,2)+1*100+1,UUV=""
3 S R="TMM\"_+TSM_"\3\"_$P(TSM,U,3)_"\K1^KTO10\"_$P(TSM,U,2)_"\\"_$P(TSM,D,2)_"\\" W @F,@F1 D ^READ G YZ:K="-"!(K=",")
 I K="?" D HELP G 1
 I K="p" D PRINT G 1
9 S TMM=$P(TSM,D,$L(K)'=1!(K?1N)*3+$F($P(TSM,"""",2),K)),FP=$P(TD,D,2)+1*100+1 W @F,@F1 D @TMM G YZ:K=",",1:K="-"!(SW12),15:UUV'=""
10 I UL>$P(TD,D,2) S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=TD*100+1 W @F,@FDL D S1
11 S X=0,FP=UL*100+1 W @F,@F1 I $D(UC) S UC=$P(@("^"_Q_"PR(UC,0)"),D,1)
12 S X=X+1,UP=$P(TUM,D,X) G 14:UP="",12:'$D(@$P(UP,U,1)) S FP=UL*100+1+$P(UVV,",",$P(UP,U,2)) W @F
120 I $P(UP,U,3)="L" W @$P(UP,U,1) K @$P(UP,U,1) G 12
13 W $J(@$P(UP,U,1),$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1) K @$P(UP,U,1) G 12
14 X TV S UVN=@("^"_Q_UGL_"(LC,TR,0)"),UTA(UVN-100)=UL,UL=UL+1,UTEL=UTEL+1,UTB(UTEL)=UVN-100
15 S T=0
16 S T=T+100 G 1:$N(B(T))=-1 S UVN=@("^"_Q_UGL_"(LC,TR,0)"),^(0)=UVN+1 S:T>100 B(T+19)=UVN-1 S:$N(B(T+100))'=-1 B(T+18)=UVN+1
17 S U7="" F I=1:1:35 S:$D(B(T+I)) U7=U7_B(T+I) S U7=U7_D
18 S @("^"_Q_UGL_"(LC,TR,UVN)")=U7 G 16
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36