cT364	;Gestructureerde mededelingen ;%T36 ; [ 01/11/01  4:58 PM ]
	G 1
	;
T0	;Gestructureerde mededelingen ;
T1	;Dit bestand kan niet verwerkt worden ;De rekening ;
T2	;Dit bestand werd reeds verwerkt ;
T3	;  Verwerking van de gegevens + printen verwerkingslijst ;
T4	;Record = ;
T5	;Lijnen = ;
T6	;Verwerkt = ;
T7	;Ongeldig = ;
	;
T0F	;Communications structurées ;
T1F	;Ce fichier ne peut pas etre traité ;Le compte ;
T2F	;Ce fichier a déjà été traité ;
T3F	;  Traitement des données + Edition de la liste de traitement ;
T4F	;Enreg. = ;
T5F	;Lignes = ;
T6F	;Traitées = ;
T7F	;Invalide = ;
	;
T0E	;Gestructureerde mededelingen ;
T1E	;Dit bestand kan niet verwerkt worden ;De rekening ;
T2E	;Dit bestand werd reeds verwerkt ;
T3E	;  Verwerking van de gegevens + printen verwerkingslijst ;
T4E	;Record = ;
T5E	;Lijnen = ;
T6E	;Verwerkt = ;
T7E	;Ongeldig = ;
	;
S1	S FNR=$E(OGM,1,6),OK=FNR?6N
S1Z	Q
	;
1	S FP=1601 W @F,@F1,!,$P($T(@("T3"_QT)),U,2)
11	S K=$P($T(@("T1"_QT)),U,2),L=^HULP("RC",Q,TNR,0) I '$E($P(L,D,7)) D F1 G YZ
13	S I1=$P($P(L,D,7),"#",2) I I1'?1N.N1" " D F1 G YZ
15	I '$D(@("^"_Q_"AR(I1,0)")) S K=$P($T(@("T1"_QT)),U,3),R=76 D F2 G YZ
17	S L=^(0),BNM=$P(L,D,2),PRO=$P(L,D,12),K=$P(L,D,11),DEC=QD
19	S BA39=@("^"_Q_"BA(39)"),BEF=$P(BA39,D) ; VJ 11.01.01
	;
2	S TVG=0 L (^HULP("RC",Q,TNR),@("^"_Q_"K4(PRO)")):3 E  S R=14 D F2 G YZ
21	S TVG=$O(^HULP("RC",Q,TNR,TVG)) G YZ:TVG="",21:$E(^(TVG))'=0
23	S K=$E(^(TVG),6,11),DDX=$E(K,5,6)<50+19_$E(K,5,6)_$E(K,3,4)_$E(K,1,2) I '$D(@("^"_Q_"K4(PRO,DDX)")) G 3
25	S K=$P($T(@("T2"_QT)),U,2) D F1 G YZ
	;
3	S (A,AL,ALO,ALV,TEL,TVG,TOT)=0,SR="S1" I $D(@("^"_Q_"BA(""%T"",""%T36"",0)")) S SR=^(0)
30	K ^HULP(boot,$J) S FP=2201 W @F,@F1
31	S TVG=$O(^HULP("RC",Q,TNR,TVG)) G 7:TVG="" S A=A+1,L=^(TVG),TYPE=$E(L),FP=2203 W @F,$P($T(@("T4"_QT)),U,2),A
33	G 7:TYPE=9,31:TYPE'=2,31:$E(L,2)'=1 S B=$J($E(L,33,47)/1000,0,DEC),AL=AL+1,FP=2233 W @F,$P($T(@("T5"_QT)),U,2),AL I $E(L,32) S B=-B
35	S BEW=$E(L,54) G 6:'$D(^cBA(6,BEW)),6:'$P(^(BEW),D,9)
36	S FAM=$E(L,55,56) G 60:'($D(^cBA(4,FAM))#2),60:'$P(^(FAM),D,9)
37	S VER=$E(L,57,58) G 61:'$D(^cBA(4,FAM,VER)),61:'$P(^(VER),D,9)
38	S DET=$E(L,59,61) G 62:'$D(^cBA(5,DET)),62:'$P(^(DET),D,9)
	;
4	S OGM=$E(L,62) G 63:'OGM S OGM=$E(L,63,65) G 63:OGM'=101&(OGM'=102)
41	S OGM=$E(L,66,77) I $E($E(OGM,1,10)#97+100,2,3)'=$E(OGM,11,12) G 63
43	D @SR G 64:'OK,64:'$D(FNR),65:'$D(@("^"_Q_"VF(FNR)")) S L=^(FNR),KC=$P(L,D) I KC[" " S KC=$P(KC," ",2)
45	G 66:'$D(@("^"_Q_"K1(KC)")),66:'$D(@("^"_Q_"KL(^"_Q_"K1(KC),0)")),66:'$D(^(FNR))
47	S L=^(0),KC=$P(L,D),KNM=$P(L,D,2),KWP=$P(L,D,7)
49	S L=^(FNR),FC=$P(L,D),FDT=$P(L,D,2),TTB=$P(L,D,4),KKT=$P(L,D,6),VM=$P(L,D,9)
	I $L(VM),VM'=BEF,VM'=$P(BA39,D,7),VM'=$P(BA39,D,9) G 67
	I $P(@("^"_Q_"BA")@("%T",2),D,18),B+KKT<TTB G 68     ; VJ 02.09.02
	I B>TTB G 68
	;
5	S TEL=TEL+1,L=KC_D_D_D_D_FDT_D_DT_D_TTB_D_D_FC_D_D_B_D_KKT_D_D_FNR_D_D_VM_D,@("^"_Q_"K4(PRO,DDX,KC,TEL)")=L
51	S ALV=ALV+1,TOT=TOT+B,FP=2263 W @F,$P($T(@("T6"_QT)),U,2),ALV G 31
	;
6	S K=1_D_BEW G 69
60	S K=2_D_FAM G 69
61	S K=3_D_VER G 69
62	S K=4_D_DET G 69
63	S K=5_D_OGM G 69
64	S K=6 G 69
65	S K=7_D_FNR G 69
66	S K=8_D_KC G 69
67	S K=9_D_VM G 69
68	S K=10_D_FNR_" : "_$J(B,0,DEC)_" <> "_$J(TTB,0,DEC) G 69
69	S ^HULP(boot,$J,A)=K,ALO=ALO+1,FP=2363 W @F,$P($T(@("T7"_QT)),U,2),ALO G 31
	;
7	I ALV S @("^"_Q_"K4(PRO,DDX)")=TOT_D_BNM_D_PRO_D_D_$P(I1," ")_D_DT_D_BEF_D_DEC_D
71	S R=4 D F2 G ^cT365
	;
YZ	Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.04.08 - 16 u 39 * V9.01