cANIMP01	;Import functies ; cANIMP01
	;
T0	;Transmissies;
T1	;Definitie ; bestaat niet;
T2	;Definitie ; is buiten gebruik;
T3	;Bestand verwerken\"0[] = neen   1[] = ja";
T4	;Bestand werd niet goed ingelezen, opnieuw verwerken onmogelijk;
	;
T0F	;Transmissions;
T1F	;Définition ;n'existe pas;
T2F	;Définition ;est hors usage;
T3F	;Traiter le fichier\"0[] = non   1[] = oui";
	;
T0E	;Transmissies;
T1E	;Definitie ; bestaat niet;
T2E	;Definitie ; is buiten gebruik;
T3E	;Bestand verwerken\"0[] = neen   1[] = ja";
	;
YZ	Q
	;
DEF(Q,IMPCODE)	; ophalen definitie
	S $ZT="TRAP^cAN000"
	N IMPCDUI1,IMPDEF,i
	S IMPCDUI1=$$UI1^cAFA1("IMPORT.DEF",101,IMPCODE)
	I '$L(IMPCDUI1) D F1 S IMPDEF="" G DEFZ
	S IMPDEF=$$SIGN^cAFA1("IMPORT.DEF",IMPCDUI1,0)
	I '$L(IMPDEF) D F1 G DEFZ
	I $P(IMPDEF,D,30) D F2 S IMPDEF="" G DEFZ
	F i=3,4,15 I '$L($P(IMPDEF,D,i)) S $P(IMPDEF,D,i)="IMPORT"
	F i=14,16,17 I '$L($P(IMPDEF,D,i)) S $P(IMPDEF,D,i)=0
DEFZ	Q IMPCDUI1_D_IMPDEF
	;
MENU(Q,QU,IMPCODE)	; op te roepen vanaf de menu
	; IMPCODE  : code procedure uit ^DATA(Q,"IMP.DEF"
	; IMPUQH   : UQH voor ^DMH
	;              leeg = "IMPORT"
	; IMPUSH   : USH voor ^DMH
	;              leeg = "IMPORT"
	; IMPUQC   : UQC voor ^DMC
	;              leeg = "0"
	; IMPUQM   : UQM voor ^DMM
	;              leeg = "0"
	;            
	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	S IMPDEF=$$DEF(Q,IMPCODE)
	I '$L($P(IMPDEF,D,2)) G MENUZ
	S IMPCDUI1=$P(IMPDEF,D),IMPDEF=$P(IMPDEF,D,2,99)
	S IMPDMS=$P(IMPDEF,D,3)     ; DMS
	S IMPTYPE=$P(IMPDEF,D,4)    ; 2de subscript logbestand (niet ingevuld = "IMPORT")
	S IMPUQH=$P(IMPDEF,D,14)    ; UQH
	S IMPUSH=$P(IMPDEF,D,15)    ; USH
	S IMPUQC=$P(IMPDEF,D,16)    ; UQC
	S IMPUQM=$P(IMPDEF,D,17)    ; UQM
	D BS^cAN210(IMPUSH,IMPUQH,IMPUQC,IMPUQM,"","")
MENUZ	D C^cA612 Q
	;
PROC(Q,QU,IMPCODE,IMPUI1,BG)
	; IMPCODE  : code procedure uit ^DATA(Q,"IMP.DEF"
	; IMPUI1   : UI1 van logbestand : indien doorgegeven wordt het inlezen niet meer uitgevoerd
	; BG      : 1 = via background, 2 = via VB
	S $ZT="TRAP^cAN000"
	N IMPCDUI1,IMPDEF,DMS,IMPTYPE,TRF,ARCH,ARCLOC,DEL,PROC,QVERW,TAB,R,OK,IMPB
	S IMPDEF=$$DEF(Q,IMPCODE)
	I '$L($P(IMPDEF,D,2)) G PROCZ
	S IMPCDUI1=$P(IMPDEF,D),IMPDEF=$P(IMPDEF,D,2,99)
	S IMPDMS=$P(IMPDEF,D,3)        ; DMS
	S IMPTYPE=$P(IMPDEF,D,4)    ; 2de subscript logbestand (niet ingevuld = "IMPORT")
	S R=$$REF^cANIMP02(Q,IMPDMS,$G(BG)),IMPUQC=$P(R,D,2),IMPUSC=$P(R,D,3),IMPREF=$P(R,D) ; ophalen ref. van logbestand
	I '$L(IMPREF) D F1^cANIMP02 G PROCZ
	S TRF=$P(IMPDEF,D,5)        ; bestandslocatie + bestand
	I $L($P(IMPDEF,D,6)) S K="" X $P(IMPDEF,D,6) S TRF=K ; execute om bestandlocatie op te halen (zie TBK)
	S ARCH=$P(IMPDEF,D,7)       ; Archiveren
	S ARCLOC=$P(IMPDEF,D,8)        ; bestandslocatie + bestand
	I $L($P(IMPDEF,D,9)) S K="" X $P(IMPDEF,D,8) S ARLOC=K ; execute om bestandlocatie op te halen (zie TBK)
	S ARCLOC=$$MAP^cANIMP02(ARCLOC,1)
	S DEL=$P(IMPDEF,D,10)        ; Delete bestand
	S PROC=$P(IMPDEF,D,11)       ; Uit te voeren functie
	S QVERW=$P(IMPDEF,D,13)      ; vraag naar verwerken ?
	I $G(BG) S QVERW=""
	;
PROCA	; UI1 werd doorgegeven : bestand wordt niet meer ingelezen.
	I '$G(IMPUI1) G PROCAA
	;;;;;;
	S OK=IMPUI1 G PROCZ
	;;;;;;
	;;;;;; Nog niet compleet uitgewerkt : na te vragen aan KU ;;;;;;;
	;;;;;; 
	L +@IMPREF:2 E  D F9^cANIMP02 G PROCY
	S IMPB=$$SIGN^cAFA1(IMPDMS,IMPUI1,0)
	; mag dit opnieuw verwerkt worden ?
	I '$L($P(IMPB,D,6)) D F3 G PROCY
	S OK=0 I $L($P(IMPDEF,D,18)) X $P(IMPDEF,D,18)
	I 'OK G PROCY
	; Reeds verwerkt ?
	I '$L($P(IMPB,D,13)) G PROCB
	S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""01""[K&$L(K)" D R0 I 'K G PROCY
	G PROCB
PROCAA	; inlezen bestand
	S IMPUI1=$$IMP^cANIMP02(Q,QU,IMPDMS,IMPTYPE,IMPCDUI1,TRF,DEL=1,$S(ARCH=1:ARCLOC,1:""),$G(BG))
	S OK=$P(IMPUI1,D,2),TRF=$P(IMPUI1,D,3,$L(IMPUI1,D)),IMPUI1=$P(IMPUI1,D) I 'OK G PROCY	        ; niet of verkeerd ingelezen
	;
PROCB	; specifieke procedure uitvoeren
	I '$L(PROC) G PROCD
	; Vraag naar verwerken ?
PROCC	I QVERW S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""01""[K&$L(K)" D R0 I 'K G PROCY
	K TAB
	S TAB(109)=QU,TAB(110)=$$HD^cAFD1($H),TAB(111)=$$HT^cAFD1($H)
	S OK=$$LOGW^cANIMP02(Q,IMPDMS,IMPUI1,.TAB) I 'OK G PROCY ; begin
	X PROC
	S TAB(112)=$$HD^cAFD1($H),TAB(113)=$$HT^cAFD1($H)
	I OK S TAB(115)=$$SIG^cAFA1(IMPDMS,IMPUI1,115)+1  ; indien OK : verwerkt ophogen
	S R=$$LOGW^cANIMP02(Q,IMPDMS,IMPUI1,.TAB) I 'OK G PROCY ; einde
	;
PROCD	; Verwijderen en of archiveren
	I (DEL=2)!(ARCH=2) S OK=$$DELARCH^cANIMP02(Q,QU,IMPDMS,IMPTYPE,IMPUI1,TRF,DEL=2,$S(ARCH=2:ARCLOC,1:""),$G(BG))
PROCY	S OK=IMPUI1
	I IMPUI1 D
	. N UI1 S UI1=IMPUI1 L -@IMPREF
PROCZ	Q OK
	;
F1	S K=$P($T(@("T1"_QT)),U,2)_IMPCODE_$P($T(@("T1"_QT)),U,3) G FY
F2	S K=$P($T(@("T2"_QT)),U,2)_IMPCODE_$P($T(@("T2"_QT)),U,3) G FY
F3	S K=$P($T(@("T4"_QT)),U,2) G FY
FX	S i=$$ERR^cANIMP02(Q,QU,DMS,IMPTYPE,IMPUI1,"",K,0,$G(BG))
FY	S OK="0\"_K I '$G(BG) D TXT^cAFA1(250)
FZ	Q
	;
R0	S $P(R,D,12)=$T(+0),$P(R,D,13)=1 D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03