SEPA2014	; Specifieke aanpassingen ivm SEPA ; SEPA2014
	;
YZ	Q
	;
CONV	W !,"aanpassing DMA leveranciers",!
	F I1="LVH","LVH1" D DMALEV
	;
	W !,"opschuiven schermen ivm nieuw scherm 2"
	M ^DMA("LVH","LE",7)=^DMA("LVH","LE",6) K ^DMA("LVH","LE",6)
	M ^DMA("LVH","LE",6)=^DMA("LVH","LE",5) K ^DMA("LVH","LE",5)
	M ^DMA("LVH","LE",5)=^DMA("LVH","LE",4) K ^DMA("LVH","LE",4)
	M ^DMA("LVH","LE",4)=^DMA("LVH","LE",3) K ^DMA("LVH","LE",3)
	M ^DMA("LVH","LE",3)=^DMA("LVH","LE",2) K ^DMA("LVH","LE",2)
	;
	M ^DMA("LVH1","LE",3)=^DMA("LVH1","LE",2) K ^DMA("LVH1","LE",2)
	;
CONVB	W !,"opbouwen ^DATA(,Q,",!
	D DATAQ^cTN901("K",0,1,1)
	;
CONVY	W !,"einde specifieke correcties"
	;
CONVZ	Q
	;
DMALEV	S I4=0
	W !,"verwijderen rubriek banknummer van 1e scherm"
DMALEVA	S I4=$O(^DMA(I1,"LE",1,I4)) G DMALEVA:I4=""
	S BIN=$G(^DMA(I1,"LE",1,I4,16))
	I BIN=201 k ^DMA(I1,"LE",1,I4) G DMALEVZ
	G DMALEVA
	;
DMALEVZ	Q
	;
ZZ	; 03.01.14 - FB/KU