MFTK ;Fax pictures inlezen in global [ 10/31/95  4:13 PM ]
 ;
1 S DL=$C(0,0,0,128),FILE="a:\VHSIGN.QFX",GLOB=$NA(^TKFAXGR("VH_BOT")),A=DL
 O 51:(FILE:"R"::::"") U 51 I $ZA<0 C 51 U $P W !,"Bestand ",FILE," niet gevonden.",! G YZ
 F I1=1:1:10 I '$D(@GLOB@(I1)) S @GLOB@(I1)=0 Q
 ;
 U 51 F I=1:1:12 R B#128
2 F  U 51 R B#128 Q:$ZC<0  S A=A_B D
 . F I=2:1:$L(A,DL)-1 S B=$P(A,DL,I) D
 .. F  Q:$A(B)'=0  S B=$E(B,2,$L(B))
 .. F  Q:$A(B)'=128  S B=$E(B,2,$L(B))
 .. F  Q:$A(B,$L(B))'=0  S B=$E(B,1,$L(B)-1)
 .. S J=0 F  S J=$F(B,$C(16),J) Q:'J  I $A(B,J)'=16 S B=$E(B,1,J-1)_$C(16)_$E(B,J,$L(B)),J=J+1 
 .. I $L(B)>1 S (^(I1),VNR)=@GLOB@(I1)+1,@GLOB@(I1,VNR)=DL_B_$C(0)
 . S A=DL_$P(A,DL,$L(A,DL))
 C 51
 ;
YZ Q
 
TRIM Set GLOB=$NA(^TKFAXGR("LOGO_VH",1))
 For I=$O(@GLOB@(""),-1):-1:6 Quit:@GLOB@(I)'=@GLOB@(I-5)  Kill @GLOB@(I)
 Set @GLOB=$O(@GLOB@(""),-1)
 Quit
 
CH F I=1:1 I $P(^MFTK(I1,I),$C(128),2)'=$P(^TKFAXGR("LOGO VH",I),$C(128),2) W !,I R K
 Q
TRANSPR ;Transfert naar programma
 o 85 u 85
 Set ProgName="PVFAXB"
 Set GLOB=$NA(^TKFAXGR("VH_BOT",5))
 For I=1:1:$O(@GLOB@(""),-1) Do
 .Write !,I,"="
 .Set Rec=@GLOB@(I)
 .For J=1:1:$L(Rec) Write $A($E(Rec,J)),","
 c 85
 Q
 ;
ZZ ; 31.01.94 - 13 u 37 *