BLIMPREC ;Importeren van een BLUM record definitie pasted vanuit EXCEL en opgeslagen in het BLRecDef bestand. [ 02/25/2003  10:25 AM ]
 SET RecNr=1
 Set LevNr=5005
 ;Set LevNr=$$SELECT^LEVER()
 ;Quit:'LevNr
 Kill MemKey
 Quit:LevNr'=5005  ; Blum en ...
 Write !!,"Send file OF Paste",!,"<Enter>-<Enter> om te eindigen",!
 SET ^BLRecDef(0)="BeginPos\EindPos\Lengte\PieceNr\Local Var\Veldtype\Default\BLUMKode\Omschrijving\Mogelijke waarden"
Cont READ K:20 Q:'$TEST  Goto Cont:K="" Q:K="-"
 Set Key=$P(K,"@",1)	
 Goto:Key="" Cont 
 If '$D(MemKey(Key)) Kill ^BLRecDef(LevNr,Key), ^BLRecDef(Key) Set MemKey(Key)="",RecNr=1
 SET ^BLRecDef(LevNr,Key,RecNr)=$P(K,"@",2)
 Write !,"->",Key,"=",$P(K,"@",2),!
 SET RecNr=RecNr+1
 Goto Cont
YZ Q
 ;