DMALE	; scherm 2 tussenvoegen voor leveranciers in HALUX ; DMALE
	;
1	R !,"ok voor aanpassing scherm leveranciers?  .[] = ok",K
	I K'="." G YZ
	M ^DMA(0,"LE",8)=^DMA(0,"LE",7)
	K ^DMA(0,"LE",7) M ^DMA(0,"LE",7)=^DMA(0,"LE",6)
	K ^DMA(0,"LE",6) M ^DMA(0,"LE",6)=^DMA(0,"LE",5)
	K ^DMA(0,"LE",5) M ^DMA(0,"LE",5)=^DMA(0,"LE",4)
	K ^DMA(0,"LE",4) M ^DMA(0,"LE",4)=^DMA(0,"LE",3)
	K ^DMA(0,"LE",3) M ^DMA(0,"LE",3)=^DMA(0,"LE",2)
	K ^DMA(0,"LE",2)
	M ^DMA(0,"LE",2)=^DMA("LVH","LE",2)
	;
	K ^DMA(1,"LE",4) M ^DMA(1,"LE",4)=^DMA(1,"LE",3)
	K ^DMA(1,"LE",3) M ^DMA(1,"LE",3)=^DMA(1,"LE",2)
	K ^DMA(1,"LE",2)
	M ^DMA(1,"LE",2)=^DMA("LVH1","LE",2)
	;
Y	W !,"einde aanpassing schermen leveranciers"
YZ	Q
	;
ZZ	; 10.02.14 - FB