MaxPro-Schnittstelle installieren

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.

Programm MAXPRO1.TXT

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
allgemeines/schnittstellen/shd-mhs/installation.txt · Zuletzt geändert: 21.10.2021 14:06 von fschaefer · 1407 Zugriffe bisher