KF10 G 1 ;REGISTRATIE UITLEVERINGEN (SELEKTIE MODULES) ;Quit naar %F30 - Do naar modules [ 02/22/94  4:36 PM ]
 ;
ER S %1=0 G ^II:$ZE["<INTERRUPT>",^cER
 ;
K1 S FP=$P(R,D,2)*100+1 W @F F I=1:1:3 W:$L($P(USC,U,I)) !,?2,$P(USC,U,I)
K1Z Q
 ;
HELP I USC="" S USC=@("^"_Q_UGL_"(0,US,""USC"")")
 D S0
 Q
 ;
PRINT S FP=USM*100+1 W @F,@F1
 D EXTERN^DCPRINT($S(UGL="OD":"O",UGL="UL":"L",UGL="OFKL":"A",1:""),UR)
 K @("^"_Q_UGB_"(UR,US)")
 S SW13=0
 Q
 ;
S0 S SW12=1
S0Z Q
 ;
S1 F I=UTEL-($P(UD,D,2)-$P(UD,D,1)):1:UTEL S:$D(UTA(UTB(I))) UTA(UTB(I))=UTA(UTB(I))-1
S1A K UTA(UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))),UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))
S1Z Q
 ;
1 I UGL="OD" G ^FLOWORD
 I UGL="UL" G ^FLOWBON
 I UGL="OFKL",$P(@("^"_Q_"OFKL(KC,US,UR,1)"),D,9) D ^FLOWOFF Q:'$D(@("^"_Q_"OFKL(KC,US,UR)"))  Q:$P(@("^"_Q_"OFKL(KC,US,UR,1)"),D,9)
 K A,B,U7 G YZ:K="," S @%Q1=1,UZ=@("^"_Q_UGL_"(KC,US,UR,0)")-100,SW12=0,FP=$P(UD,D,2)+1*100+1,UUV=""
3 S R="UMM\"_+USM_"\3\"_$P(USM,U,3)_"\K1^KF10\"_$P(USM,U,2)_"\\"_$P(USM,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 UMM=$P(USM,D,(K?1N.N1"D")*4+($L(K)'=1&(K'?1N.N1"D")!(K?1N)*3)+$F($P(USM,"""",2),K)),FP=$P(UD,D,2)+1*100+1 W @F,@F1 D @UMM G YZ:K=",",1:K="-"!(SW12),15:UUV'=""
10 I UL>$P(UD,D,2) S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=UD*100+1 W @F,@FDL D S1
11 S X=0,FP=UL*100+1 W @F,@F1 I $D(UC),$D(@("^"_Q_"PR(UC,0)")) S UC=$P(^(0),D,1)
12 S X=X+1,UP=$P(UUM,D,X) G 14:UP="",12:'$D(@$P(UP,U,1)) I $L($P(UP,U,4)) X "S @$P(UP,U,1)="_$P(UP,U,4)
120 S FP=UL*100+1+$P(UVV,",",$P(UP,U,2)) W @F 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 UV S UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UTA(UVN-100)=UL,UL=UL+1,UTEL=UTEL+1,UTB(UTEL)=UVN-100
15 S (T,@%Q1)=0
16 S T=T+100 G 1:$N(B(T))=-1 S UVN=@("^"_Q_UGL_"(KC,US,UR,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_"(KC,US,UR,UVN)")=U7 G 16
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 07.07.86 - 16 u 43