cABI5	;Factuurlijnen; %ABI0 ; [ 13/03/2002 - 16:57:25 - 58876,61045 ]
	;
T0	;Factuurlijnen ;
T1	;Keuze\"I[] = installatie   D[] = de-installatie";       
T2	;De-installatie;verwijderd.;
T3	;Installatie;opgezet.;
T4	;Factuurlijnen kan niet worden geïnstalleerd/verwijderd, ^DMS(Q,"FA.D" bestaat niet;
T5	;Factuurlijnen kan niet worden geïnstalleerd/verwijderd, ^DMA(Q,"FA.H" bestaat niet;
T6	;F^cFNU2(US,FNR,$G(UPW),BP) niet gevonden;
	;
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	W /CUP(2,3) ZW Q
	W /CUP(3,3) ZW QN
11	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""ID-""[K&$L(K)\\\1" D R0 G YZ:K="-"
	;
	; de-installatie
2	I K="D" D
	. W /CUP(5,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,!
	. I '$D(^DMS(Q,"FA.D")) S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) Q
	. I '$D(^DMS(Q,"FA.H")) S K=$P($T(@("T5"_QT)),U,2) D TXT^cAFA1(250) Q
	. S $P(^DMS(Q,"FA.H",0),D,30)=1
	. S $P(^DMS(Q,"FA.D",0),D,30)=1
	. K @("^"_Q_"BA")@("MENU",81,11) D S1
	. S ^DPAR(Q,"SETUP","FA.H",0)=0_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. S ^DPAR(Q,"SETUP","FA.D",0)=0_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. D TXT^cAFA1(4)
	;
	; installatie
3	I K="I" D
	. W /CUP(5,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,!
	. I '$D(^DMS(Q,"FA.D")) S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) Q
	. I '$D(^DMS(Q,"FA.H")) S K=$P($T(@("T5"_QT)),U,2) D TXT^cAFA1(250) Q
	. S $P(^DMS(Q,"FA.D",0),D,30)=""
	. S $P(^DMS(Q,"FA.H",0),D,30)=""
	. S @("^"_Q_"BA")@("MENU",81,11)="Actualiseren bestanden\17\3\89\M\89\\\\\Actualisation fichiers" D S2
	. S ^DPAR(Q,"SETUP","FA.H",0)=1_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. S ^DPAR(Q,"SETUP","FA.D",0)=1_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0) D S2
	. S US="",LIJN=5
	. F  S US=$O(@("^"_Q_"UL(0,US)")) Q:US=""  D
	.. W /CUP(LIJN,2),@F2,"^"_Q_"UL(0,"""_US_""",""UDO"")"
	.. S INH=$G(^(US,"UDO"))
	.. I INH["FNU2" W /CUP(LIJN,25),"ok"
	.. I INH'["FNU2" W /CUP(LIJN,25),$P($T(@("T6"_QT)),U,2)
	.. S LIJN=LIJN+1
	. D TXT^cAFA1(4)
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S1	W !?5,$ZR,?40,$P($T(@("T2"_QT)),U,3)
S1Z	Q
	;
S2	W !?5,$ZR,?40,$P($T(@("T3"_QT)),U,3)
S2Z	Q
	;
S3	F I=1:10:31 S $P(^(11),D,I)=$P(J,D,I)
S3Z	Q
	;
ZZ	; 19.05.04 - 16 u 09 * V8