cABI4	;(De)Installatie leveringsadressen; %ABI4 [ 02/14/02  4:58 PM ]
	;
T0	;Leveringsadressen;
T1	;Keuze\"0[] = de-installatie   1[] = installatie";
T2	;De-installatie;Installatie;
T3	;Leveringsadressen kan niet worden geïnstalleerd, ^DMS(Q,"LA" bestaat niet;
T4	;Installatie;opgezet.;
	;
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11	S $ZT="TRAP^cAN000"
13	S R="ID\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""01-""[K&$L(K)" D R0 G YZ:K="-"
15	W /CUP(4,3),$P($T(@("T2"_QT)),U,2+ID),@F2
	;
	;  De-installatie
2	I ID=0 D
	. I '$D(^DMS(Q,"LA")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. ; Buiten gebruik zetten DMS ivm leveringsadr.
	. S $P(^DMS(Q,"LA",0),D,30)=1
	. K @("^"_Q_"BA(""MENU"",10,24)")
	. S $P(^DPAR(Q,"PAR","KL",1),D,4)=""
	. F UGL="OD","UL" D
	.. S US=""
	.. F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:US=""  D 
	... I '$D(@("^"_Q_UGL_"(0,US,""101.5"")")) Q 
	... I $D(@("^"_Q_UGL_"(0,US,""UD"")")) D
	.... S $P(^("UD"),D)=$P(^("UD"),D)-1 
	... K @("^"_Q_UGL_"(0,US,""101.5"")")
	... S I1="100"
	... F  S I1=$O(@("^"_Q_UGL_"(0,US,I1)")) Q:I1>199!(I1'?1.N)  D
	.... I $P(^(I1),U,2)<5 Q
	.... S $P(^(I1),U,2)=$P(^(I1),U,2)-1
	.... S $P(^(I1),U,5)=$P(^(I1),U,5)-1
	. S ^DPAR(Q,"SETUP","LA",0)=0_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. D TXT^cAFA1(4)
	;
	;  Installatie
21	I ID=1 D
	. I '$D(^DMS(Q,"LA")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. ;  In gebruik zetten DMS ivm leveringsadr.
	. S $P(^DMS(Q,"LA",0),D,30)=""
	. ;  Opzetten menu 
	. S @("^"_Q_"BA(""MENU"",10,24)")="Leveringsadressen\7\43\113\M\113\\\\\Adresses de livraison"
	. S $P(^DPAR(Q,"PAR","KL",1),D,4)=1
	. F UGL="OD","UL" D
	.. S US=""
	.. F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:US=""  D
	... I $D(@("^"_Q_UGL_"(0,US,""101.5"")")) Q
	... I $D(@("^"_Q_UGL_"(0,US,""UD"")")) D
	.... S $P(^("UD"),D)=$P(^("UD"),D)+1
	... S I1="100"
	... F  S I1=$O(@("^"_Q_UGL_"(0,US,I1)")) Q:I1>199!(I1'?1.N)  D
	.... I $P(^(I1),U,2)<5 Q
	.... S $P(^(I1),U,2)=$P(^(I1),U,2)+1
	.... S $P(^(I1),U,5)=$P(^(I1),U,5)+1
	... S @("^"_Q_UGL_"(0,US,""101.5"")")="L.adr~Adr.L;5;1;;5;12;;K S U3=$$LA^cAFA4(""LA"",K);;;;;68;;;155;;;S K=$$^cANSYN(""LA"","""",$P(B(1),D,55),1,"""","""",""I $P(^(0),D)=KC"","""","""");1;;;;"
	. S ^DPAR(Q,"SETUP","LA",0)=1_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. D TXT^cAFA1(4)
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S2	W !?5,$ZR,?40,$P($T(@("T4"_QT)),U,3)
S2Z	Q
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92