Um die Schnittstelle auf dem SHD-MHS-Server zu installieren:

• Die Datei MAXPRO1.TXT (im folgenden Abschnitt) abspeichern und mit einem Texteditor (etwa Notepad) öffnen

• Hier steht in Zeile 12 der Pfad, der für den Datenexport verwendet werden soll. Den Text in den Anführungszeichen hier entsprechend dem lokalen Export-Verzeichnis anpassen. Der Export darf i.d.R. nicht im Netzwerk liegen, sondern muss auf der gleichen Maschine sein.
  WICHTIG: Am Ende muss ein Backslash („\“) stehen!

• Die Textdatei dann am Server in das Datenbank-Verzeichnis D:\Db\App\ kopieren (Pfad kann auch abweichen)

• Dann in SHD MHS normal anmelden und dort das Programm 0.9990 aufrufen

• Dort das Programm %RI aufrufen.
  

Das Programm fragt im nächsten Schritt nach dem Namen der Prozedur, hier den Dateinamen MAXPRO1.TXT eingeben und bestätigen.

Dann kommt die Frage: Routine Input Option: Hier „ALL“ eingeben.

Die drei folgenden Fragen mit „Y“ (YES) beantworten.

• Die Programme MAXPRO und MAXPRO01 stehen damit zur Verfügung.

• Jetzt in der 0.9990 das Programm MAXPRO01 aufrufen und die Namen aller Tabellen eingeben, die exportiert werden sollen.
  Am Ende mit 2x Enter-Taste bestätigen.

• Sind die Tabellen eingetragen, kann der Datenexport in der 0.9990 mit dem Programm MAXPRO gestartet werden.

MAXPRO1.TXT

Cache for Windows NT^INT^ASC^~Format=Cache.S~
%RO on 08 Nov 2006  11:12 AM
MAXPRO^INT^1^60167,37851^1
MAXPRO ; ; 14 Dec 2001  11:10 AM
 S A=""
 F I=1:1 S A=$O(^MAXPRO("MINFOX",A)) Q:A=""  D WGLOB
 Q
 ;
WGLOB ;PROCEED ENTIRE GLOBAL
 W !,"Processing: ",^MAXPRO("MINFOX",A)
 S GT="^"_^MAXPRO("MINFOX",A)
 S FN="D:\MAXPRO\Import\"_^MAXPRO("MINFOX",A)_".ASC"
 O FN:"WN":2 Q:$T=0
 F GI1=0:0 S (GT,GV)=$ZO(@GT) Q:GT=""  D PROC Q:GRPC
 C FN
 Q
PROC ;WRITE VECTOR TO DISK
 U FN W GT,!,@GV,!
 S GRPC=0
 ;R GRPC
 Q
 
MAXPRO01^INT^1^60167,37742^1
MAXPRO01 ;Create an manage ^MAXPRO
 S X="",Y="BE000"
 F I=0:0 S X=$O(^MAXPRO("MINFOX",X)) Q:X=""  S Y=X
 S I=$E(Y,3,5)
 ;W I,!
LOOP ;
 S I=I+1
 R A,!
 Q:A=""
 G:$E(A,1,1)="-" SUBT
 S J=I S:$L(J)=1 J="00"_I S:$L(J)=2 J="0"_I
 S J="BE"_J
 S ^MAXPRO("MINFOX",J)=A
 G LOOP
SUBT ;DELETE ENTRY FROM ^MAXPRO
 S A=$E(A,2,$L(A))
 S B=""
 F I=1:1 S B=$O(^MAXPRO("MINFOX",B)) Q:B=""  D
 . K:^MAXPRO("MINFOX",B)=A ^MAXPRO("MINFOX",B)
 G MAXPRO01