cTI99	;CONVERSIE INTR IVM STAT.WAARDE VM ;%TI99; [ 02/11/93  10:34 AM ]
	;
T0	;Conversie INTR ivm stat.waarde VM ;
	;
T0F	;Conversion INTR conc. val.stat. PE ;
	G 1
	;
	; aankoop
1	S QD=+$G(@("^"_Q_"BA(34)")),BP=0
11	S BP=$O(@("^"_Q_"INTR(BP)")) G 2:BP="" S FNR=""
12	S FNR=$O(@("^"_Q_"INTR(BP,19,FNR)")) G 11:FNR="" S UZ=100
13	S UZ=$O(@("^"_Q_"INTR(BP,19,FNR,UZ)")) G 12:UZ="" S K=^(UZ)
14	G 13:$P(K,D,7) S BJ=$J(BP/100,0,2) G 13:'$D(@("^"_Q_"AA(BJ,FNR)")) S UDB=^(FNR)
15	S PAR=$P(UDB,D,26) I '$L(PAR) S PAR=1
16	S A=$J($P(K,D,6)*PAR,0,QD) S:'A A="" S $P(K,D,7)=A
17	S @("^"_Q_"INTR(BP,19,FNR,UZ)")=K G 13
	;
	; verkoop
2	S BP=0
21	S BP=$O(@("^"_Q_"INTR(BP)")) G YZ:BP="" S FNR=""
22	S FNR=$O(@("^"_Q_"INTR(BP,29,FNR)")) G 21:FNR="" S UZ=100
23	S UZ=$O(@("^"_Q_"INTR(BP,29,FNR,UZ)")) G 22:UZ="" S K=^(UZ)
24	G 23:$P(K,D,7) S BJ=$J(BP/100,0,2) G 23:'$D(@("^"_Q_"VE(BJ,FNR)")) S UDB=^(FNR)
25	S PAR=$P(UDB,D,26) I '$L(PAR) S PAR=1
26	S A=$J($P(K,D,6)*PAR,0,QD) S:'A A="" S $P(K,D,7)=A
27	S @("^"_Q_"INTR(BP,29,FNR,UZ)")=K G 23
	;
YZ	Q
	;
Z	X ^cZ
ZZ	; 19.09.96 - 13 u 49 * V6.2.05