cA705 ;INGELEZEN MS-DOS BESTANDEN ;%A705 ;[ 01/04/01  3:20 PM ]
 ;
T0 ;Ingelezen bestanden ;
T1 ;Bevestiging\".[] = keuze bestand ok   ,[] = hernemen";
T2 ;Nummer bestand\"nummer van het bestand dat u wil verwerken";
T3 ;Invoerbestand  : ;
T4 ;Omschrijving   : ;
T5 ;Ingelezen op   : ;
T6 ;Aantal records : ;
T7 ;Nummer formaat : ;
T8 ;Dit bestand is niet beschikbaar ;
 ;
T0F ;Fichiers importés ;
T1F ;Confirmation\".[] = choix fichier ok   ,[] = reprendre";
T2F ;N° du fichier\"numéro du fichier à traiter";
T3F ;Fichier        : ;
T4F ;Description    : ;
T5F ;Date d'import. : ;
T6F ;Nombre records : ;
T7F ;N° du format   : ;
T8F ;Ce fichier n'est pas disponible ;
 ;
T0E ;Imported files ;
T1E ;Confirmation\".[] = file ok   ,[] = retry";
T2E ;Number file\"number of file to use";
T3E ;Import file    : ;
T4E ;Description    : ;
T5E ;Imported on    : ;
T6E ;# records      : ;
T7E ;File type      : ;
T8E ;This file is not available ;
 ;
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="RC" D ^cA709
13 I $G(TNR),TNR<11 G 17
15 S R="TNR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K?.N&K&(K<11)!(K=""-"")" D R0 G YZ:K="-"
17 S FP=TNR*100+501 W @F,"->"
19 I '$D(^HULP("RC",Q,TNR,0)) S K=$P($T(@("T8"_QT)),U,2) D F1 S FP=TNR*100+501 W @F,"  " G 15
 ;
2 S R=^(0),FP=401 W @F,@F1
21 S FP=403 W @F,$P($T(@("T3"_QT)),U,2),TNR
23 S FP=503 W @F,$P($T(@("T4"_QT)),U,2),$P(R,D)
25 S FP=603 W @F,$P($T(@("T5"_QT)),U,2),$P(R,D,2)," - ",$P(R,D,3)
27 S FP=703 W @F,$P($T(@("T6"_QT)),U,2),+$P(R,D,4)
29 S FP=803 W @F,$P($T(@("T7"_QT)),U,2),$$COM^cAFO3("FORM",$P(R,D,5))
 ;
3 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." K TNR G 1
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84