cPE115 G 1 ;REGISTRATIE TOELEVERINGEN (SELEKTIE MODULES) ;Quit naar %PE112 - Do naar modules
 ;
ER S %1="0" G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
K1 F I=1:1:3 W:$L($P(TSC,U,I)) !,?2,$P(TSC,U,I)
K1Z Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ 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 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\"_$P(TSM,U,2)_"\\"_$P(TSM,D,2)_"\\" W @F,@F1 D R0 G YZ:K="-"!(K=",")
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 I $L($P(UP,U,4)) X "S @$P(UP,U,1)="_$P(UP,U,4)
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 ; 05.05.86 - 14 u 31