cI96	;Conversie ivm wijzigen omschrijving voorschotten; cI96
	;
T0	;conversie ivm wijzigen omschrijving voorschotten;
	;
T0F	;conversie ivm wijzigen omschrijving voorschotten;
	;
1	K ^TEMP(boot,$j)
11	F GL="KL","LE" D S1
	;
	; aflopen FI
2	S I1="" W !,"aflopen FI",!
21	S I1=$O(@("^"_Q_"FI(I1)"),-1) G 3:I1="" S I2=""
23	S I2=$O(@("^"_Q_"FI(I1,I2)"),-1) G 21:I2="" S I3=""
25	S I3=$O(@("^"_Q_"FI(I1,I2,I3)"),-1) G 23:I3="" S INH=^(I3)
	S FNR=$P(INH,D,13),KL=$P(INH,D,7)
	I $E(FNR,1,2)'=99 G 25
	I $P(INH,D,7)'="K",$P(INH,D,7)'="L" G 25
	S GL=$S($P(INH,D,7)="K":"KL",1:"LE")
	S KC=$P($P(INH,D,8),"#")
	I '$D(^TEMP(boot,$j,Q,GL,KC,FNR)) G 25
	S VORIG=$P($G(^TEMP(boot,$J,Q,GL,KC,FNR)),D)
	I $TR($P(INH,D,28),",",".")>$TR(VORIG,",",".") S ^TEMP(boot,$J,Q,GL,KC,FNR)=$P(INH,D,28)_D_I1_"#"_I2_"#"_I3
	G 25
	;
	; linken ^TEMP aan FI
3	F GL="KL","LE" D S2
	;
Y	K ^TEMP(boot,$J)
YZ	Q
	;
S1	S I1=0 W !,"opbouw ^TEMP voor ",GL,!
S1A	S I1=$O(@("^"_Q_GL_"(I1)")) G S1Z:I1="" S I2=990000 S KC=$P(I1," ",2)
S1B	S I2=$O(@("^"_Q_GL_"(I1,I2)")) G S1A:$E(I2,1,2)'=99
	S ^TEMP(boot,$J,Q,GL,KC,I2)=""
	G S1B
S1Z	Q
	;
S2	S KC=0 W !,"invullen linken voor ",GL,!
S2A	S KC=$O(^TEMP(boot,$J,Q,GL,KC)) G S2Z:KC="" S I2=""
S2B	S I2=$O(^TEMP(boot,$J,Q,GL,KC,I2)) G S2A:I2="" S INH=^(I2) S I1=$S(GL="KL":@("^"_Q_"K1(KC)"),1:@("^"_Q_"L1(KC)"))
	S $P(@("^"_Q_GL_"(I1,I2)"),D,21)=$P(INH,D,2)
	G S2B
S2Z	Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06