ฝากให้ รพ นครนายก

[doramon]

Unit Script;


function addzero(s:string;i:integer):string;
begin
  //result:=s;
  while length(s)<i do
  begin
    s:='0'+s;
  end;
  result:=s;
end;

function CheckPID(pid: string): boolean;
var
  i: integer;
  nMod, nValue, cv: integer;
  snmod: string;
begin
  pid := replacestr(pid, '-', '');
  result := false;
  if length(replacestr(pid, ' ', '')) <> 13 then
    exit;

  try

    cv := strtoint(copy(pid, 1, 1));
    nValue := cv * 13;

    for i := 2 to 12 do
    begin
      cv := strtoint(copy(pid, i, 1));
      nValue := nValue + (cv * (14 - i));

    end;

    nMod := 11 - (nValue mod 11);
    snmod := inttostr(nmod);
    snmod := copy(snmod, length(snmod), 1);
    result := copy(pid, 13, 1) = snmod;

  except
    result := false;

  end;

end;

function MakeFullCID(cid: string): string;
begin
  result := cid;
  if length(cid) = 17 then
    exit;
  result := '';
  if length(cid) <> 13 then
    exit;
  result := copy(cid, 1, 1) + '-' +
    copy(cid, 2, 4) + '-' +
    copy(cid, 6, 5) + '-' +
    copy(cid, 11, 2) + '-' +
    copy(cid, 13, 1);
end;



Procedure Main;
var
  i:integer;
  dbf:TDBF;
  tc:tclientdataset;
  tcid:tclientdataset;
begin

  dbf:=tdbf.create(nil);
  dbf.tablename:='c:\CSCDMEM.DBF';
  dbf.open;
  dbf.first;
  tc:=tclientdataset.create(nil);
  tcid:=tclientdataset.create(nil);
  while not dbf.eof do
  begin
    tc.data:=HoSxP_GetDataset('select * from patient where hn = "'+copy(dbf.fieldbyname('hn').asstring,3,7)+'"');
    if tc.recordcount>0 then
    begin
      showdebugtext('Update patient : '+tc.fieldbyname('hn').asstring);
      tc.edit;
      tc.fieldbyname('gov_chronic_id').asstring:=dbf.fieldbyname('memberno').asstring;
      tc.fieldbyname('pttype').asstring:= '40';
      if checkpid(dbf.fieldbyname('pid').asstring) then
      begin
        tc.fieldbyname('cid').asstring:=dbf.fieldbyname('pid').asstring;
        tcid.data:=HOSxP_GetDataset('select * from ptcardno where hn="'+copy(dbf.fieldbyname('hn').asstring,3,7)+'" and cardtype="01"');
        if tcid.recordcount>0 then
        begin
          tcid.edit;

        end else
        begin
          tcid.insert;
        end;

        tcid.fieldbyname('hn').asstring:=copy(dbf.fieldbyname('hn').asstring,3,7);
        tcid.fieldbyname('cardno').asstring:=makefullcid(dbf.fieldbyname('pid').asstring);
        tcid.fieldbyname('cardtype').asstring:='01';
        tcid.post;
        if tcid.changecount>0 then
         HOSxP_UpdateDelta(tcid.delta, 'select * from ptcardno where hn="'+copy(dbf.fieldbyname('hn').asstring,3,7)+'" and cardtype="01"');
      end;
      tc.post;

      if tc.changecount>0 then
      HOSxP_UpdateDelta(tc.delta,'select * from patient where hn = "'+copy(dbf.fieldbyname('hn').asstring,3,7)+'"');

    end;
    dbf.next;
  end;


  dbf.free;
  tc.free;
  showmessage('done.');
end;





end.

[nayok]

ขอบคุณคร๊าบ