cT360	;Controle structuur 'CODA' ;%T36 ;do uit %T36 ; [ 09/20/01  2:10 PM ]
	G 1
	;
T0	;Controle structuur 'CODA' ;
T1	;  Controle van het bestand ... even geduld;Record : ;
T2	;ER=1;Eerste record foutief ;
T3	;ER=2;Tweede record foutief ;
T4	;ER=3;Laatste record foutief ;
T5	;ER=4;De recordlengte klopt niet ;
T6	;ER=5;Het record bevat controletekens ;
T7	;ER=6;De structuur van het bestand klopt niet ;
T8	;ER=7;De volgnummers zijn onderbroken ;
T9	;ER=8;Het aantal records klopt niet ;
T10	;ER=9;Onbekend record-type ;
T11	;ER=10;Verkeerde toepassingscode ;
T12	;ER=11;Verkeerde versiecode ;
T13	;Het bestand moet opnieuw worden ingelezen ;
	;
T0F	;Contrôle structure 'CODA' ;
T1F	;  Contrôle du fichier ... un instant;Enregistrement : ;
T2F	;ER=1;Premier enregistrement fautif ;
T3F	;ER=2;Deuxième enregistrement fautif ;
T4F	;ER=3;Dernier enregistrement fautif ;
T5F	;ER=4;La longueur d'enregistrement n'est pas correcte ;
T6F	;ER=5;L'enregistrement contient des caractères de contrôle ;
T7F	;ER=6;La structure du fichier n'est pas correcte ;
T8F	;ER=7;La numérotation est interrompue ;
T9F	;ER=8;Le nombre total d'enregistrements n'est pas correct ;
T10F	;ER=9;Type d'enregistrement inconnu ;
T11F	;ER=10;Code d'application fautif ;
T12F	;ER=11;Code version fautif ;
T13F	;Le fichier doit être lu de nouveau ;
	;
T0E	;Controle structuur 'CODA' ;
T1E	;  Controle van het bestand ... even geduld;Record : ;
T2E	;ER=1;Eerste record foutief ;
T3E	;ER=2;Tweede record foutief ;
T4E	;ER=3;Laatste record foutief ;
T5E	;ER=4;De recordlengte klopt niet ;
T6E	;ER=5;Het record bevat controletekens ;
T7E	;ER=6;De structuur van het bestand klopt niet ;
T8E	;ER=7;De volgnummers zijn onderbroken ;
T9E	;ER=8;Het aantal records klopt niet ;
T10E	;ER=9;Onbekend record-type ;
T11E	;ER=10;Verkeerde toepassingscode ;
T12E	;ER=11;Verkeerde versiecode ;
T13E	;Het bestand moet opnieuw worden ingelezen ;
	;
	; volgende record
S1	S TVG=$O(^HULP("RC",Q,TNR,TVG)) I TVG="" S ER=3
S1A	I 'ER S L=^(TVG),A=A+1,TYPE=$E(L),ART=$E(L,2) I $L(L)'=128 S ER=4
	I 'ER,L["""" S L=$TR(L,"""","'"),^(TVG)=L         ; VJ 17.08.01
	I 'ER,L[D S L=$TR(L,D,"/"),^(TVG)=L
S1B	I 'ER,L?.E1C.E!(L["""")!(L[D) S ER=5
S1C	I 'ER,"\0\1\2\3\4\8\9\"'[(D_TYPE_D) S ER=9
S1Z	S FP=2312 W @F,A Q
	;
	; controle type 2
S2	S VNR=$E(L,3,6),BEW=$E(L,7,10)
S2A	I K="\2.1\",VNR=$E(10001+OVNR,2,5),BEW="0000" G S2Z
	I K="\2.1\",VNR="0002",OVNR="0000",BEW="0000" G S2Z
S2B	I VNR=OVNR,BEW=$E(10000+OBEW,2,5) G S2Z  ; 'VVG+
	I K="\2.1\",VNR=OVNR,BEW=$E(10001+OBEW,2,5) G S2Z
S2C	S ER=7
S2Z	S OVNR=VNR,OBEW=BEW,VVG=$E(L,126) Q
	;
	; controle type 3
S3	S VNR=$E(L,3,6) I VERSIE=2 S BEW=$E(L,7,10)  ; KU : ophalen bew in versie 2
S3A	I VNR'=OVNR S ER=7 G S3Z
	I VERSIE=1 G S3Z
	I VNR=OVNR,BEW=$E(10000+OBEW,2,5) G S3Z
	I VNR=OVNR,BEW=$E(10001+OBEW,2,5) G S3Z
S3C	S ER=7
S3Z	S:VERSIE=2 OVNR=VNR,OBEW=BEW Q
	;
	; controle type 4
S4	S VNR=$E(L,3,6),BEW=$E(L,7,10) I OLTY'=4 S OBEW="0000"
S4A	I VNR=OVNR,BEW=$E(10001+OBEW,2,5) G S4Z
S4B	I VNR=$E(10001+OVNR,2,5),BEW=OBEW G S4Z
S4C	S ER=7
S4Z	S OVNR=VNR,OBEW=BEW Q
	;
	; type 0 & type 1
1	S (A,B,ER,TVG)=0,FP=2201 W @F,@F1,$P($T(@("T1"_QT)),U,2),!?2,$P($T(@("T1"_QT)),U,3)
	B 1
10	S $P(^HULP("RC",Q,TNR,0),D,7)=0
11	D S1 G Y:ER I TYPE'=0 S ER=1 G Y
13	I $E(L,15,16)'="05" S ER=10 G Y
	S VERSIE=$E(L,128)  ; versie : KU : 11.03.08
15	I "\1\2\"'[(D_VERSIE_D) S ER=11 G Y
17	D S1 G Y:ER I TYPE'=1 S ER=2 G Y
19	S OLTY=TYPE,OLAR=0,B=1,(OVNR,VNR,OBEW,BEW)="0000",VVG=0
	;
	; 3' record tot voorlaatste record
2	D S1 G Y:ER S:TYPE=4!(TYPE=8)!(TYPE=9) ART=1 S K=D_TYPE_"."_ART_D,ER=6
21	I OLTY=1 I "\2.1\4.1\8.1\"[K S ER=0
22	I OLTY=2,OLAR=1 I "\2.1\2.2\2.3\3.1\4.1\8.1\"[K S ER=0
23	I OLTY=2,OLAR=2 I "\2.1\2.3\3.1\4.1\8.1\"[K S ER=0
24	I OLTY=2,OLAR=3 I "\2.1\3.1\4.1\8.1\"[K S ER=0
25	I OLTY=3,OLAR=1 I "\2.1\3.2\4.1\8.1\"[K S ER=0
26	I OLTY=3,OLAR=2 I "\2.1\3.3\4.1\8.1\"[K S ER=0
27	I OLTY=3,OLAR=3 I "\2.1\4.1\8.1\"[K S ER=0
28	I OLTY=4 I "\2.1\2.2\2.3\3.1\3.2\3.3\4.1\8.1\9.1\"[K S ER=0
29	I OLTY=8 I "\4.1\9.1\"[K S ER=0
	;
3	G Y:ER I TYPE,TYPE<9,$S(VERSIE=2:TYPE'=4,1:1) S B=B+1  ; KU : 11.03.08 : Versie 2 : type 4 niet meetellen
31	I TYPE=9,+$E(L,17,22)'=B S ER=8 G Y
33	I "234"[TYPE D @("S"_TYPE) G Y:ER
37	S OLTY=TYPE,OLAR=ART
39	G Y:TYPE=9,2
	;
	; laatste record (type 9)
Y	I 'ER S $P(^HULP("RC",Q,TNR,0),D,7)=1 G YZ
YA	F R=1:1 S K=$T(@("T"_R_QT)) Q:K=""  I $E($P(K,U,2),1,3)="ER=",@$P(K,U,2) S K=$P(K,U,3) D F1 Q
YB	S K=$P($T(@("T13"_QT)),U,2) D F1
YZ	K A,B,L,TYPE,OLTY,ART,OLAR,VNR,OVNR,BEW,OBEW,VVG Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.04.08 - 16 u 39 * V9.01