cI42	;Opbouwen ^TEMP met gebruikte betalingstermijnen; cI42
	;
T0	;Opbouwen ^TEMP met gebruikte betalingstermijnen;	
	;
YZ	Q
	;
DMA(DMS)	; Aanpassen velden ^DMA's ivm [] en 0[]
	N I1,I2,I3,BIN,COM,I,BI
	S $ZT="TRAP^cAN000"
	I DMS="KL" S BIN="\110\117\302\202\112\230\241\"
	I DMS="LE" S BIN="\117\223\230\210\"
	I DMS="PR" S BIN="\318\231\213\211\210\208\223\107\"
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,DMS)) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,DMS,I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,DMS,I2,I3)) Q:I3=""  D
	... S BI=$G(^DMA(I1,DMS,I2,I3,16))
	... I BIN'[(D_BI_D) Q
	... W !,I1_" - "_DMS_" - "_I2_" - "_I3
	... I BI=110 S ^DMA(I1,DMS,I2,I3,7)="I UFU=""O"",'$L(K) S K=1"
	... I BI'=110 S ^DMA(I1,DMS,I2,I3,7)="I UFU=""O"",'$L(K) S K=0"
	... S ^DMA(I1,DMS,I2,I3,12)="S K=+K"
	... I DMS="PR",((BI=107)!(BI=318)) S ^DMA(I1,DMS,I2,I3,12)="S K=+K S REFRESH=1"
	... S COM=$G(^DMA(I1,DMS,I2,I3,10))
	... F I=1:1:4 I $E($P(COM,D,I))="[" S $P(COM,D,I)=0_$P(COM,D,I)
	... I $L(COM) S ^DMA(I1,DMS,I2,I3,10)=COM
DMAZ	Q
	;
DMALE	; Aanpassen DMA leveranciers veld betalingstermijn
	N I1,I2,I3,BIN,BI
	S $ZT="TRAP^cAN000"
	S BIN="\118\"
	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
	... S BI=$G(^DMA(I1,"LE",I2,I3,16))
	... I BIN'[(D_BI_D) Q
	... W !,I1_" - LE - "_I2_" - "_I3
	... S ^DMA(I1,"LE",I2,I3,12)="S I=$$BET^cAFI1(K,"""",""CODE.9028"")"
DMALEZ	Q
	;
BOUW(DMS)	; Opbouwen ^DKODE(0,"CODE.9024" adhv ^TEMPC("cI43"
	N I1,I2,I3,TAB,I,TYPE,CODE,STR,REF,IREF,IIREF
	S $ZT="TRAP^cAN000"
	S CODE=$S(DMS="LE":"CODE.9028",1:"CODE.9024")
	S STR=$$REF^cAFA10(Q,CODE)
	S REF=$P($P(STR,D),",UI1")_")",IREF=$P(STR,D,2),IIREF=$P(STR,D,3)
	; Verwijderen bestaande codes
	; K @REF,@IREF,@IIREF
	; K ^DIN(0,CODE),^DLOG(0,CODE)
	; Opzoeken te openen codes
	S I1=""
	F  S I1=$O(^TEMPC($T(+0),I1)) Q:I1=""  D
	. S Q=I1
	. S Q(49)=$$Q49^cAFVBA03(Q,"CODE.9024")
	. S I3=""
	. F  S I3=$O(^TEMPC($T(+0),I1,DMS,I3)) Q:I3=""  D
	.. ; Code CONTANT niet mee openen
	.. I $$UC^cAFA1(I3)="CONTANT" Q
	.. ; Controleren of code nog niet bestaat
	.. I $L($$UI1OP^cAFA1(CODE,110,"",I3)) Q
	.. K TAB
	.. ; Aantal
	.. S $P(TAB(1),D,3)=+I3
	.. ; Type
	.. S TYPE=$P(I3,$P(TAB(1),D,3),2)
	.. I TYPE["-" S TYPE=$P(TYPE,"-")
	.. I TYPE["+" S TYPE=$P(TYPE,"+")
	.. I TYPE="D"!(TYPE="J")!(TYPE="T") S TYPE=0
	.. I TYPE="DEM"!(TYPE="JFM")!(TYPE="TEM") S TYPE=1
	.. I TYPE="M" S TYPE=2
	.. I TYPE="MEM"!(TYPE="MFM") S TYPE=3
	.. I TYPE="DEC"!(TYPE="JFC")!(TYPE="TEC") S TYPE=4
	.. I TYPE="MEC"!(TYPE="MFC") S TYPE=5
	.. S $P(TAB(1),D,4)=TYPE
	.. ; Wissel
	.. S $P(TAB(1),D,5)=$S(I3["-":1,1:0)
	.. ; +10 dagen na einde decode
	.. S $P(TAB(1),D,6)=$S(I3["+":1,1:0)
	.. ; Code
	.. S $P(TAB(1),D)=$$TERM^cAFO10(Q,"",TAB(1),$P($G(@("^"_Q_"BA(39)")),D,2))
	.. ; Invullen omschrijvingen
	.. S $P(TAB(1),D,2)=$$TERM^cAFO10(Q,"",TAB(1),"")
	.. S $P(TAB(1),D,12)=$$TERM^cAFO10(Q,"",TAB(1),"F")
	.. S $P(TAB(1),D,22)=$$TERM^cAFO10(Q,"",TAB(1),"D")
	.. S $P(TAB(1),D,32)=$$TERM^cAFO10(Q,"",TAB(1),"E")
	.. D P^cAN220(CODE,"","","TAB","")
	.. I K="-" X STOP
	W !!,"Einde opbouwen ^DKODE(0,"""_CODE_""""
BOUWZ	Q
	;
BTERM(Q,DMS)	; Opbouwen ^TEMP met gebruikte betalingstermijnen
	N REF,UI1,INH
	S $ZT="TRAP^cAN000"
	K ^TEMPC($T(+0),Q,DMS)
	S UREF=$P($$REF^cAFA10(.Q,DMS),D)
	S UI1=0
	F  S UI1=$O(@UREF) Q:UI1=""  D
	. S INH=^(UI1,0)
	. I $L($P(INH,D,18)) S $P(^TEMPC($T(+0),Q,DMS,$P(INH,D,18)),D,$S($P(INH,D,30):2,1:1))=$P($G(^TEMPC($T(+0),Q,DMS,$P(INH,D,18))),D,$S($P(INH,D,30):2,1:1))+1,^TEMPC($T(+0),Q,DMS,$P(INH,D,18),UI1,"118")=""
	. I $L($P(INH,D,24)) S $P(^TEMPC($T(+0),Q,DMS,$P(INH,D,24)),D,$S($P(INH,D,30):2,1:1))=$P($G(^TEMPC($T(+0),Q,DMS,$P(INH,D,24))),D,$S($P(INH,D,30):2,1:1))+1,^TEMPC($T(+0),Q,DMS,$P(INH,D,24),UI1,"124")=""
BTERMZ	Q
	;
KLLEA(Q,DMS)	; aanpassen DKL of DLE
	S REF=$$REF^cAFA10(Q,DMS)
	S UREF=$P(REF,D)
	S CODE=$S(DMS="LE.A":"CODE.9028",1:"CODE.9024")
	S STRB=$S(DMS="LE.A":"118",1:"118,124")
	W !,"Begin conversie betalingstermijnen",!
	S UI1=""
	F  S UI1=$O(@UREF) Q:UI1=""  F BIN=STRB D
	. S K=$P(@UREF@(BIN\100-1),D,BIN#100)
	. I '$L(K) Q
	. I K?4N Q
	. S K=$$UI1OP^cAFA1(CODE,110,"",K)
	. I '$L(K) X "STOP"
	. S $P(@UREF@(BIN\100-1),D,BIN#100)=K
	W !,"Einde conversie betalingstermijnen",!
KLLEAZ	Q
	;
PLUS(Q,DMS)	
	N UREF,BINA,BINB,BI,ii,UI1,TAB,OK,I1,I2,UQA,USA,UQC2,USC2,UQA2,USA2,UQC,USC
	S $ZT="TRAP^cAN000"
	I DMS'="KL",DMS'="LE",DMS'="PR" G PLUSZ
	S UREF=$P($$REF^cAFA10(.Q,DMS),D)
	S BINA=""
	S BINB=""
	I DMS="KL" S BIN="110\117\302\202\112\230\241"
	I DMS="LE" S BIN="117\223\230\210"
	I DMS="PR" S BIN="318\231\213\211\210\223\208\107"
	I $D(^DMS(Q,DMS)),'$P(^(DMS,0),D,30) S UQA=$G(^("DMA","W")),USA=$P(UQA,D,2),UQA=$P(UQA,D),UQC=$P(^DMS(Q,DMS),D),USC=$P(^(DMS),D,2)
	I '$L(USA),$D(^DMS(0,DMS)),'$P(^(DMS,0),D,30) S UQA=$G(^("DMA","W")),USA=$P(UQA,D,2),UQA=$P(UQA,D),UQC=$P(^DMS(0,DMS),D),USC=$P(^(DMS),D,2)
	I '$L(USA) S UQA=0,USA=DMS,UQC=0,USC=DMS
	I $D(^DMS(Q,DMS,2)) D
	. S UQC2=$P(^(2),D),USC2=$P(^(2),D,2)
	. I '$L(UQC2)!'$L(USC2) Q
	. I $D(^DMS(0,USC2)),'$P(^(USC2,0),D,30) S UQA2=$G(^("DMA","W")),USA2=$P(UQA2,D,2),UQA2=$P(UQA2,D)
	; staan de rubrieken in ^DMA ?
	S I1=0 F  S I1=$O(^DMA(UQA,USA,I1)) Q:I1=""  D
	. S I2=""  F  S I2=$O(^DMA(UQA,USA,I1,I2)) Q:I2=""  S BI=$G(^(I2,16)) I $L(BI),(D_BIN_D)[(D_BI_D) S BINA=BINA_$S($L(BINA):D,1:"")_BI
	; Staan rubrieken in DMA 2e bestand?
	I $L($G(UQA2)),$L($G(USA2)) D
	. S I1=0 F  S I1=$O(^DMA(UQA2,USA2,I1)) Q:I1=""  D
	.. S I2=""  F  S I2=$O(^DMA(UQA2,USA2,I1,I2)) Q:I2=""  S BI=$G(^(I2,16)) I $L(BI),(D_BIN_D)[(D_BI_D) S BINB=BINB_$S($L(BINB):D,1:"")_BI
	I '$L(BINA)&'$L(BINB) G PLUSZ
	; Controleren of er B-indexen zijn uit 2e bestand die niet in eerste bestand zitten
	I $L(BINB) D
	. F ii=1:1:$L(BINB,D) S BIN=$P(BINB,D,ii) I $L(BIN),(D_BINA_D)'[(D_BIN_D) S BINA=BINA_$S($L(BINA):D,1:"")_BIN I '$D(^DMC(UQC,USC,"LOGGING","NOT",BIN)) S ^DMC(UQC,USC,"LOGGING","NOT",BIN)=1
	S UI1=0
	F  S UI1=$O(@UREF) Q:UI1=""  D
	. K TAB
	. F ii=1:1:$L(BINA,D) S BIN=$P(BINA,D,ii) I $L(BIN),'$L($P(@UREF@(BIN\100-1),D,BIN#100)) S TAB(BIN)=0
	. I $D(TAB) D B^cAN220(DMS,"",UI1,"TAB") I K="-" X "STOP"
PLUSZ	Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09