cABI27	;(De)Installatie klantenstock; cABI27 [ 02/14/02  4:58 PM ]
	;
T0	;Klantenstock;
T1	;Keuze\"0[] = de-installatie   1[] = installatie";
T2	;De-installatie;Installatie;
T3	;Klantenstock kan niet worden geïnstalleerd, ^DMS(Q,"KL_PR.STOCK" bestaat niet;
T4	;Installatie;opgezet.;
T5	;Klantenstock kan niet worden geïnstalleerd, ^DMS(Q,"KL_PR.STOCK.HIS" bestaat niet;
	;
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,"KL_PR.STOCK")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. I '$D(^DMS(Q,"KL_PR.STOCK.HIS")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. ; Buiten gebruik zetten DMS ivm klantenstock
	. S $P(^DMS(Q,"KL_PR.STOCK",0),D,30)=1
	. S $P(^DMS(Q,"KL_PR.STOCK.HIS",0),D,30)=1
	. S ^DPAR(Q,"SETUP","KL_PR.STOCK",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,"KL_PR.STOCK")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. I '$D(^DMS(Q,"KL_PR.STOCK.HIS")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) Q
	. ;  In gebruik zetten DMS ivm klantenstock
	. S $P(^DMS(Q,"KL_PR.STOCK",0),D,30)=""
	. S $P(^DMS(Q,"KL_PR.STOCK.HIS",0),D,30)=""
	. S ^DPAR(Q,"SETUP","KL_PR.STOCK",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	; 29.10.02 - 11 u 38 * V7.93