cI54 ;WIJZIGEN 'Q'_WAARDE MAGAZIJN ; [ 07/20/95   2:16 PM ]
 G 1
 ;
T1 ;OORSPR. 'Q'-WAARDE;
T2 ;NIEUWE  'Q'-WAARDE;
T3 ;GEGEVENS OK\".[] = ok   ,[] = hernemen";
 ;
1 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
11 S R="QO\20\3\"_$P($T(T1),U,2)_"\\2\\$L(K)" D ^cA100 G YZ:K="-"
13 S R="QN\21\3\"_$P($T(T2),U,2)_"\\2\\$L(K)" D ^cA100 G 11:K="-"
15 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\"",-.""[K&$L(K)" D ^cA100 G 13:K="-",11:K=","
 ;
2 F UGL="OD","UL","TO","TOL" S US="" F II=1:1 S US=$O(@("^"_Q_UGL_"(0,US)")) Q:'$L(US)  D S1
21 S US="" F II=1:1 S US=$O(@("^"_Q_"FA(US)")) Q:'$L(US)  D S2
 ;
YZ Q
 ;
 ;overzetten UGL
S1 S KC=0
S1A S KC=$O(@("^"_Q_UGL_"(KC)")) G S1Z:'KC S UR="" S FP=2403 W @F,KC,@F2
S1B S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")),UZ=100 G S1A:'$L(UR)
S1C F I=1:1 S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) Q:'$L(UZ)  S X=@("^"_Q_UGL_"(KC,US,UR,UZ)") I $P(X,D,14)=QO S $P(^(UZ),D,14)=QN
S1D G S1B
S1Z Q
 ;
 ;overzetten FA
S2 S FNR=""
S2A S FNR=$O(@("^"_Q_"FA(US,FNR)")) G S2Z:'FNR S I3="U",FP=2403 W @F,FNR,@F2
S2B S I3=$O(@("^"_Q_"FA(US,FNR,I3)")),I4=100 G S2A:'$L(I3)
S2C F I=1:1 S I4=$O(@("^"_Q_"FA(US,FNR,I3,I4)")) Q:'$L(I4)  S X=@("^"_Q_"FA(US,FNR,I3,I4)") I $P(X,D,14)=QO S $P(^(I4),D,14)=QN
S2D G S2B
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 20.07.95 - 14 u 16 * V5.5.01