TISS - MD5hash em Delphi




Doação

Blogger
O que você gostaria de ver nesta página? Envie sua sugestão.

TISS - MD5hash em Delphi

Função para gerar Hash nas mensagens XML do Padrão TISS da ANS

uses md5;

function LimpaXML(XML:String):String;
var
x:Integer;
lDeleta,lBranco : Boolean;
cXML : String;
begin
lDeleta := false;
lBranco := False;
cXML := '';
XML := trim(XML);
for x:=0 to Length(XML) do begin
if (XML[x] = #13) then continue
else if (XML[x] = #10) then continue
else if (XML[x] = #0 ) then continue
else if (XML[x] = '<') then begin
cXML := Trim(cXML);
if (XML[x+1] = '/') then lBranco := False else lBranco := true;
lDeleta := True
end
else if XML[x] = '>' then begin
if Copy(XML,x-4,5) <> 'hash>' then // vamos desconciderar o codigo hash do arquivo
lDeleta := False;
continue;
end;
if (lDeleta) then continue;
if (not lBranco) and (XML[x] = ' ') then continue;
cXML := cXML+XML[x];
end;
result := cXML;
end;


// http://www.fichtner.net/delphi/md5.delphi.phtml?download=md5.pas


Add Favorites / Bookmark
importar no delicious






Domínio Grátis!

Hospedagem de Páginas Grátis

Backup Online Grátis

Expositores:

Poker Regras

Poker

cores html
webdesign
poker de graça
importar no delicious



Bookmark to:


TISS - MD5hash em Delphi

Função para gerar Hash nas mensagens XML do Padrão TISS da ANS






CID10: a09 b34_9 c18_9 c44_9 c61 c73 f06_8 f19 f20_0 f29 f31_8 f31_9 f32 f32_0 f32_2 f33_1 f40_9 f41_1 f41_9 f42_2 f43_1 f43_2 f60_3 f71_0 f72 f72_8 f84_0 f90_1 i10 j18 m19_0 m25_5 m41_1 m46_9 m47_2 m47_8 m48_0 m50_1 m53_1 m54_1 m54_4 m54_5 m65 m75_1 m75_2 m77_1 m79_0 m79_1 n60_2 n87_1 q90 r42 s60_0 z31_0 z43_1 z43_5 z54_0 CID-10