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