BB543	; check-update voor SEPA - update ; BB543
	; 
YZ	Q
	;
NA	; Executes naupdate
	;
	I $D(^DMS(0,"Q")) G NAA
	S ^DMS(0,"Q")="0\Q"
	S ^DMS(0,"Q",0)="Firma's\0\\\0\\\\\\Firmes\\\\\\\\\\\\\\\\\57274,40389\KU\\Firma's"
	S ^DMS(0,"Q","DMA","L")="0\Q"
	S ^DMS(0,"Q","DMA","O")="0\Q"
	S ^DMS(0,"Q","DMA","V")="0\Q"
	S ^DMS(0,"Q","DMA","W")="0\Q"
	W !,"^DMS(0,""Q"") opgezet"
	;
NAA	I $D(^DMS(0,"SWIFT")) G NAB
	S ^DMS(0,"SWIFT")="0\SWIFT"
	S ^DMS(0,"SWIFT",0)="Bankcodes\1\0\SWIFT\\\\\\\Codes bancairs\\\\\\\\\\\\\\\\\57468,34024\VJ\0\Bankcodes"
	S ^DMS(0,"SWIFT","DMA","L")="0\SWIFT"
	S ^DMS(0,"SWIFT","DMA","O")="0\SWIFT"
	S ^DMS(0,"SWIFT","DMA","V")="0\SWIFT"
	S ^DMS(0,"SWIFT","DMA","W")="0\SWIFT"
	W !,"^DMS(0,""SWIFT"") opgezet"
	;
NAB	S I1=""
NAC	S I1=$O(^DMS(I1)) G NAD:I1=""
	I $D(^DMS(I1,"Q")),'$D(^DMS(I1,"Q","DMA")) D
	. S ^DMS(I1,"Q","DMA","L")="0\Q"
	. S ^DMS(I1,"Q","DMA","O")="0\Q"
	. S ^DMS(I1,"Q","DMA","V")="0\Q"
	. S ^DMS(I1,"Q","DMA","W")="0\Q"
	. W !,"^DMS("""_I1_""",""Q"",""DMA"") opgezet"
	I $D(^DMS(I1,"SWIFT")),'$D(^DMS(I1,"SWIFT","DMA")) D
	. S ^DMS(I1,"SWIFT","DMA","L")="0\SWIFT"
	. S ^DMS(I1,"SWIFT","DMA","O")="0\SWIFT"
	. S ^DMS(I1,"SWIFT","DMA","V")="0\SWIFT"
	. S ^DMS(I1,"SWIFT","DMA","W")="0\SWIFT"
	. W !,"^DMS("""_I1_""",""SWIFT"",""DMA"") opgezet"
	G NAC
	;
NAD	I $D(^DOCU("BA015")) G NAZ
	;
	; Conversie veld SEPA-zone bij ISO.LAND
NAE	S UI1=""
NAF	S UI1=$O(^ISO(0,"ISO.LAND",UI1))
	S SEPA=0
	I ";1019;1031;1047;1048;1052;1057;1063;1064;1074;1088;1089;1096;1114;1119;1120;1130;1147;1164;1174;1176;1179;1192;1193;1196;1213;1235;1090;1118;1158;1236;1072;1065;1178;1134;1077;1076;"[(U_UI1_U) S SEPA=1
	D W^cAN220("ISO.LAND",0,UI1,109,SEPA) I K="-" X "STOP"
	G NAF
	;
NAZ	Q
	;
KOST	S $ZT="TRAP^cAN000"
	; Omvormen kostencodes
	S ^DMA(0,"CODE.9046",1,1,15)="'$G(EXTWIJZ)"
	; BEN -> CRED
KOSTA	S UI1=$$UI1OP^cAFA1("CODE.9046",101,"","BEN")
	I '$L(UI1) G KOSTB
	D W^cAN220("CODE.9046","",UI1,101,"CRED") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,112,"A la charge du bénéficiaire") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,132,"To the debit of the beneficiary") I K="-" X "STOP"
	; OUR -> DBET
KOSTB	S UI1=$$UI1OP^cAFA1("CODE.9046",101,"","OUR")
	I '$L(UI1) G KOSTC
	D W^cAN220("CODE.9046","",UI1,101,"DBET") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,112,"A la charge du mandataire") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,132,"To the debit of the principal") I K="-" X "STOP"
	; NOR -> SHAR
KOSTC	S UI1=$$UI1OP^cAFA1("CODE.9046",101,"","NOR")
	I '$L(UI1) G KOSTD
	D W^cAN220("CODE.9046","",UI1,101,"SHAR") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,112,"Frais (partagés)") I K="-" X "STOP"
	D W^cAN220("CODE.9046","",UI1,132,"Costs (shared)") I K="-" X "STOP"
	; Nieuwe code SLEV
KOSTD	S UI1=$$UI1OP^cAFA1("CODE.9046",101,"","SLEV")
	I $L(UI1) G KOSTZ
	K TAB
	S TAB(1)="SLEV\Volgens service level overeenkomst of schema"
	S $P(TAB(1),D,12)="Suivant contrat de niveau de service ou schéma"
	S $P(TAB(1),D,32)="According to service level agreement or scheme"
	D P^cAN220("CODE.9046","","","TAB","") I K="-" X "STOP"
KOSTZ	Q
	;
ZZ	; 06.01.14 - FB/KU