BLKALAL G 1 ;INVULLEN AB-LIJNNUMMER;BLKALAL; [ 11/25/96  2:42 PM ]
 ;
1 Set R=^KTO(5005,ToeNr,SortNr) Goto YZ:$P(R,D,2)'=$P(RecToe,D,2)
 Set $P(^(SortNr),D,14)=$P(RecToe,D,34),$P(RecToe,D,14)=$P(RecToe,D,34)
 Kill ^KTO3(ToeNr,$P(R,D,13,14)_D_SortNr) Set ^($P(RecToe,D,13,14)_D_SortNr)=""
 Set ^BLTO(5005,SoDo,ToeNr,SortNr)=RecToe
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.06.91 - 14 u 18