cA701	;BESTAANDE DOS-BESTANDEN ;%A701 ; [ 01/04/01  2:41 PM ]
	;
T0	;Bestaande uitvoerbestanden ;
T1	;Dit bestand is gereserveerd\".[] = keuze bestand ok   -[] = ander bestand";
T2	;Nummer bestand\"-[] = einde   xx[] = volgnummer voor het bestand dat u wil gebruiken";
T3	;Mag het vorig bestand overschreven worden\",[] = hernemen   V[] = definitief verwijderen vorig bestand";
T4	;Het formaat;
T5	;Gegevens ok\"[] = ok   ,[] = hernemen";
	;
T0F	;Fichiers d'exportation existants ;
T1F	;Ce fichier est réservé\".[] = choix fichier ok   -[] = autre fichier";
T2F	;N° de fichier\"-[] = fin   xx[] = numéro d'ordre à utiliser";
T3F	;L'ancien fichier peut être transcrit\",[] = reprendre   V[] = oui, radier définitivement";
T4F	;Format;
T5F	;Confirmation\"[] = ok   ,[] = reprendre";
	;
T0E	;Existing export files ;
T1E	;This file is reserved\".[] = choice file ok   -[] = other file";
T2E	;Number file\"-[] = end   xx[] = number file to use";
T3E	;Overwrite previous file\",[] = retry   V[] = yes, remove previous file";
T4E	;The file type;
T5E	;Data ok\"[] = ok   ,[] = retry";
	;
T0D	;Bestehende Ausführdossiers ;
T1D	;Dieser Dossier ist reserviert\".[] = Wahl Dossier ok  -[] = anderen Dossier";
T2D	;Nummer Dossier\"-[] = Ende   xx[] = Fortlaufende Nummer für den Dossier den Sie gebrauchen wollen";
T3D	;Darf den vorigen Dossier überschrieben werden\",[] = wiedernehmen   V[] = vollständig löschen voriges Dossiers";
T4D	;Format;
T5D	;Daten ok\"[] = ok   ,[] = wiedernehmen";
	;
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S R="TR" D ^cA709 S TNR=1 G 23:'$D(^HULP("TR",Q,TNR))
	;
2	I $G(TNR) D S3
20	F I=1:1:10 S FP=I+5*100+1 W @F,"  "
21	S R="TNR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K?.N&$E(K)!(K=""-"")" D R0 I K="-" D S3 G YZ
23	S FP=TNR+5*100+1 W @F,"->" L +^HULP("TR",Q,TNR):2 E  S R=14 D F2 G 2
25	I '$D(^HULP("TR",Q,TNR,0)) G 3
27	I $P(^(0),D,8) S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 2:K'="."
29	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G 2:K'="V"
	;
3	K ^HULP("TR",Q,TNR) S ^(TNR,0)=$E($G(S4),1,20)_D_DT_D_TD_D_0_D_$G(FORM)_D_$G(MSDOS)_D_D_D_D D S1
	; indien nieuwe bestandslocaties
	I "\F\3\"[(D_$G(PTS)_D),$D(PTS(1)),$P($G(^cLOG(boot,"DAM",3)),D) D
	. S B=$$SIG^cAFA1("SYS.LOC",PTS(1),104),FORM=$P(^(0),D,3)
	. I $L(B) S B=B_"/"
	. S $P(^HULP("TR",Q,TNR,0),D,6)=B,$P(^(0),D,5)=FORM,$P(^(0),D,10)=PTS(1)
31	I $G(FORM) G 4
33	S S1=$$^cANSYN("FORM") G 2:K="-"
35	S $P(^HULP("TR",Q,TNR,0),D,5)=S1 D S1
37	S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,""[K" D R0 G 2:K="," I K="-" G 2:$G(FORM),33
	S FORM=S1
	;
4	S (K,I)=""
	I $G(FORM) S K=$$SIGN^cAFA1("FORM",FORM,0),I=$G(^(1))
	S VL=$P(K,D,3),VS=$P(K,D,4),RS=$P(K,D,6),TVG=9,MRL=$P(I,D,4),VQ=$P(I,D,5)
41	S S1=VS D S2 S VS=S2,S1=RS D S2 S RS=S2
	; beginlijnen
43	S S1=$P(K,D,8) D S2 S:$L(S2) ^HULP("TR",Q,TNR,1)=S2
	S S1=$P(K,D,9) D S2 S:$L(S2) ^HULP("TR",Q,TNR,2)=S2
	S S1=$P(I,D) D S2 S:$L(S2) ^HULP("TR",Q,TNR,3)=S2
	; eindlijnen
45	S S1=$P(I,D,2) D S2 S:$L(S2) ^HULP("TR",Q,TNR,"1 ")=S2
	S S1=$P(I,D,3) D S2 S:$L(S2) ^HULP("TR",Q,TNR,"2 ")=S2
	;
YZ	K S1,S2,S3,S4 Q
	;
S1	S R="TR\"_TNR D S2^cA709 Q
	;
S2	S S2="" F S3=1:1:$L(S1) S S4=$E(S1,S3,S3+1) S:S4="^/" S4=$C(28) S:$E(S4)="^" S4=$C($A($E(S4,2))-64),S3=S3+1 S S2=S2_$E(S4)
S2Z	Q
	;
S3	L -^HULP("TR",Q,TNR) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
PRINT	; via printerkeuze
	K FORM
	I $P($G(^cLOG(boot,"DAM",3)),D) S K=$$^cANSYN("SYS.LOC") G PRINTZ:K="-" S PTS(1)=K
	D B^cA612
	D 1 I K="-"!$G(swclose) D C^cA612 G PRINTZ
PRINTZ	Q
	;
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03