KF13 G 1 ;MODULE WIJZIGEN HOOFDING ;Quit naar %F10 [ 08/05/2003  4:42 PM ]
 ;
1 N BTemp
 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
 S (X,K)=100,Y=$D(@("^"_Q_UGL_"(0,US,0)"))
20 S X=$N(^(X)) G 30:X=-1!(X'?.N) S K=K+1,A(K)=^(X) G 20
30 K B S SW12=1,B(1)=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:6 I $D(^(I)) S B(I)=^(I)
 M BTemp=B
40 S U1=100,U4=0
50 S U1=$N(A(U1)) G 90:U1<0 S U2=A(U1)
70 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F S U4=U4+1
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G 50
 W:U4<10 " " W U4 G 50
90 S FP=2201+F60 W @F,@F1,"NUMMER ELEMENT : ",@F0 R K G 90:K?.E1C.E!(K="")!($L(K)>2),180:"-,"[K,90:'$D(A(K+100)) S U2=A(K+100)
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G 90
100 I $P(U2,U,12),@$P(U2,U,15) D  G 90
 .S FP=2403+F60 W @F,@F2,@F4
 .I $P(U2,U,16)=125,'$D(LEVOD) W "U BENT EEN FOEFELAAR !!! "
 .W """",$P(U2,U),""" NIET WIJZIGBAAR [] = ok ",@F5,@F0 R K
 S K=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
112 I $L($P(U2,U,19)),@$P(U2,U,20) S U3=$P(U2,U,19) X U3 S U3=K G 90:K="-",180:K=",",160
120 S K=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)
 S K=$$ASK^vhINP($P(U2,U)_" : ",$P(U2,U,9),K,$P(U2,U,10),"","","","","B")
 G 120:K?.E1C.E,90:K="-",180:K=","
140 S X=$P(U2,U,11)_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")" I @X G 160
150 G 120
160 S U3=K I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
163 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$E(BLA,1,$P(U2,U,9)),$E(BLA,1,$P(U2,U,13)),@F,U3,@FMTi,@FMTb,@FMTu,@FMTk
165 I $P(U2,U,16)'?.N!($P(U2,U,16)<101) G 90:$P(U2,U,16)?.N S @$P(U2,U,16)=K G 90
170 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G 90
180 K U2,U3 S U1=100,X="^"_Q_UGL_"(KC,US,UR,1)=B(1)",@X F I=2:1:6 I $D(^(I)) S ^(I)=B(I)
185 I K="," S K="-"
190 S U1=$N(A(U1)) G YZ:U1=-1 S U2=A(U1)
 I UGL="OD",$G(AD(13))="FLOWORDADJ",$P(U2,U,16)=127 G 190
200 I '$P(U2,U,22) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
201 G 190
 ;
YZ
 Set FP=2201+F60 W @F,@F1
 Do:UGL'="OFKL"
 .If UGL="OD" Do
 ..Do INITDOMVKP^FLOWORD2(KC,UR)
 ..Set:$P(BTemp(1),D,7)'=$P(B(1),D,7) Input="AL"
 .If UGL="UL" Do INITDOMVKP^FLOWBON(KC,UR)
 Kill A,B Quit
 ;
DCTR ;$$DCTR^vhRtn2(.K)
 ;