VonDoczuDoc.de

Code: Alles auswählen

echo ***********************VERZ  EINGEBEN***************************
echo  Hier Namen mit geburtsdatum eingeben nach Turbomed hyperlink-Standard
	rem  pat ist der Familienname+Geburtsdatum jjjmmtt  wie er in Turbomed\dokumente als dateiname  geschrieben wird
	rem dazu muss man in der kartei ein dokument/befund suchen, mit re maustaste auf den blauen punkt und 
	rem den Namen kopieren

rem Lapins19510426-5
set patnr=5
set gebu=19510426
set name=Lapins
rem  das \turbomed verzeichnis   zB auf f:\turbomed...
set c1=f
rem c2 ist das Zielverzeichnis wo die Befunde hingeschrieben werden
set c2=d

rem ---------------  ab hier nix verändern

set verz=%name%%gebu%-%patnr%
set gebpat=

				echo ***********************************hISTORIENVERZEICHNIS EINGEBEN
				rem das Historie verzeichniss hier nennen ( nachsehen  \turbomed\dokumente\$historie\xxxx
set xxx=video\$Historie\xxxxBasan
	
	echo zuerst eventuell vorhandenes altes Verzeichnis löschen
rd %c2%:\$befunde%verz% /s /q


rem call xup     %c1% %c2% \turbomed\dokumente "\$befunde%verz%\dokumente" "*%verz%*" "*%gebu%-%patnr%-*"
robocopy %c1%:\turbomed\dokumente "%c2%:\$befunde%verz%\dokumente" "*%verz%*" "*%gebu%-%patnr%-*" /s /FFT /TEE /np /r:1 /w:0 /ndl /xo /xx
rem call xup     %c1% %c2% \turbomed\dokumente\%xxx% "\$befunde%verz%\$Historie"
robocopy %c1%:\turbomed\dokumente\%xxx% "%c2%:\$befunde%verz%\$Historie" *.* /s /FFT /TEE /np /r:1 /w:0 /ndl /xo /xx


ECHO ***********************ein oder mehrere Sonoverzeichnisse aus Kartei holen und hier eingeben
rem Sonographien in F3 nachsehen, verzeichnisnamen herauskopieren  ab \ultrasound  bis   \E00...
rem zb call xup   %c1% %c2% \ultrasound\MAINSYS\Sonoview\Image\Y2008M02\D13\E0000004 \$befunde%verz%\Sono1 


rem y2009M12\D01\E0000006

call xup %c1% %c2%  \Sonosiemens\%patnr% \$befunde%verz%\SonoSiemensAccuson


rem T:\ultrasound\MAINSYS\Sonoview\Image\y2010M04\D14\E0000002
set sono=y2018M06\D19\E0000001
robocopy %c1%:\ultrasound\MAINSYS\Sonoview\Image\%sono% "%c2%:\$befunde%verz%\Sono\%sono%"  /s /FFT /TEE /np /r:1 /w:0 /ndl /xo /xx
GOTO SONOFI

rem								call xup   %c1% %c2%  \ultrasound\MAINSYS\Sonoview\Image\%sono%  \$befunde%verz%\Sono\%sono% 


:sonofi


rem   nachdem auch Fritzfax-files mit Endung   sff  zb  Mustermann19580119-8551kljkjkjkj.sff kopiert werden
rem  wird eine Programm sffview201.exe mitkopiert, damit man die Faxe auch lesen kann.
rem  es hat ja nicht jeder das Fritzfax


rem call xup %c2% %c2%  \pxsoft\sffview \$befunde%verz%\sffview

rem  exe darf nicht.... move %c2%:\$befunde%verz%\sffview201.exe   %c2%:\$befunde%verz%\sffview201.ex-

set lies=%c2%:\$befunde%verz%\LiesMichsffview201.txt
echo xxxxxxx.sff   Dateien 								>>%lies%
echo Dateien   mit Endung   .sff   >>%lies%
echo .>>%lies%
echo Fritz-fax dateien können Sie mit dem sffview201.exe ansehen >>%lies%
echo die datei sffview201.ex- muessen Sie auf sffview201.exe   umbenennen>>%lies%

echo   .>>%lies%
echo   .>>%lies%
echo   Bzw aus dem internet holen   Fritzfax-viewer>>%lies%
echo   .>>%lies%
echo   .>>%lies%
echo  Mfg Richard Lapins 0174 349 6827 >>%lies%

set lies=								

Code: Alles auswählen

$1040$
$1041$
$1042$
$1043$	Tel:$1044$
Fax:$1045$
$1046$
BSNR:$1039$
28.02.2023 11:12
$5016$ $1063$ $1061$, $1062$
$1051$,
$1052$
geb. $1077$
Vers-Nr: $1121$ $1122$
$1074$ $1075$ $1082$ $1083$

Laborblatt 1 
$2032$

Laborblatt 2  (wenn vorhanden) 
$2032$

Laborblatt 3  (wenn vorhanden)
$2032$

Laborblatt  4  (wenn vorhanden) 
$2032$

Quartals-Diagnosen		
$2004[d,900,20,ja,ja]$		

Dauerdiagnosen
$2004[dd,,20,ja,ja]$

Alle Diagnosen §2000§ Dauerdiagnosen §2002§

Rezepte(rp) /Langrezepte
$2004[rp,,20,ja,ja]$
$2004[lar,,20,ja,ja]$

Privatrezepte 
$2004[prp,,19,ja,ja]$

Private Langrezepte
$2004[plar,,19,ja,ja]$

Karteikartenheilmitteleinträge
$2021$

Karteikartenhilfsmittel
$2022$

Befunde „xxx, xx“
$2004[xxx,,,ja,ja]$
$2004[xx,,,ja,ja]$

Befunde „bef“
$2004[bef,,,ja,ja]$

Sono, Sonp, Sdso
$2004[sono,,,ja,ja]$

$2004[sdso,,,ja,ja]$
$2004[sonp,,,ja,]$

Impf Karteitexteinträge
$2011[impf,,,ja,ja]$