Um die Schnittstelle auf dem SHD-MHS-Server zu installieren:
MAXPRO1.TXT
(im folgenden Abschnitt) abspeichern und mit einem Texteditor (etwa Notepad) öffnenD:\Db\App\
kopieren (Pfad kann auch abweichen)0.9990
aufrufen%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.
MAXPRO
und MAXPRO01
stehen damit zur Verfügung.MAXPRO01
aufrufen und die Namen aller Tabellen eingeben, die exportiert werden sollen.MAXPRO
gestartet werden.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