UIBAN	;IS IBAN-codes;UIBAN
	;
	;  Aanpassen commentaar ivm Banknummer bij de leverancier
1	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"LE",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"LE",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"LE",I2,I3,16))'=201&($G(^DMA(I1,"LE",I2,I3,16))'=217) Q
	... S ^DMA(I1,"LE",I2,I3,10)="xxxxxx[] = binnenlands nummer   IL-xxxxxx[] = buitenlands nummer   [] = geen    ILxxxx[] = IBAN-code           (IL = Iso-Landcode)\xxxxxx[] = numéro national   PI-xxxxxx[] = numéro étranger   [] = aucun(e)      PIxxxx[] = code IBAN        (PI = code Pays Iso)\\xxxxxx[] = domestic number   IC-xxxxxx[] = foreign number   [] = none           ICxxxx[] = IBAN code        (IC = ISO-country code)"
	;
	;  Aanpassen commentaar ivm banknummer bij module overschrijvingen
2	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE.MOD.O")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"LE.MOD.O",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"LE.MOD.O",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"LE.MOD.O",I2,I3,16))'=201&($G(^DMA(I1,"LE.MOD.O",I2,I3,16))'=217) Q
	... S ^DMA(I1,"LE.MOD.O",I2,I3,10)="xxxxxx[] = binnenlands nummer   IL-xxxxxx[] = buitenlands nummer   [] = geen    ILxxxx[] = IBAN-code           (IL = Iso-Landcode)\xxxxxx[] = numéro national   PI-xxxxxx[] = numéro étranger   [] = aucun(e)      PIxxxx[] = code IBAN        (PI = code Pays Iso)\"
	;
	;  Aanpassen commentaar ivm banknummer bij module leveranciersbetalingen
3	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"BVB.LE.B")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"BVB.LE.B",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"BVB.LE.B",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"BVB.LE.B",I2,I3,16))'=110 Q
	... S ^DMA(I1,"BVB.LE.B",I2,I3,10)="xxxxxx[] = binnenlands nummer   IL-xxxxxx[] = buitenlands nummer   [] = geen    ILxxxx[] = IBAN-code           (IL = Iso-Landcode)\xxxxxx[] = numéro national   PI-xxxxxx[] = numéro étranger   [] = aucun(e)      PIxxxx[] = code IBAN        (PI = code Pays Iso)\"
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 49 * V8