Unit Bdst_h; {         }
interface
   uses
{$IFNDEF NOTUSEFORMS}
StdCtrls,ExtCtrls,ComCtrls,Dialogs,
{$ENDIF}
   SysUtils,   DateUtils,inifiles,Classes,
   Glob,Glob_h,Glob_ho,Glob_v_h,Glob_v,Bortn_h,StringConv;
Procedure Bdstart_h(f0:smallint);
Procedure Nach_znach;
Procedure Nacpeis; {    }
Procedure Popravka_j_e;
Procedure Popravka_strok;
Procedure readi0h(jekg,F0:smallint); {        }
procedure writ_pok(F:byte);{      }
procedure Virez(inac,F0:smallint);{     F0-  Th   1- T3h}
procedure Write_Peism_pok;{ c Peism_pok   }
procedure Rewrite_fanh2(inr:integer); {    }
procedure write_fanh;
procedure write_fdeb_p;
procedure write_o;
procedure write_obrazi;
procedure write_hvost;
procedure write_Porogi;
procedure obratno_fanh(j1,j2:integer);
procedure obratno_deb(j1,j2:integer);
procedure obratno_tre(j1,j2:integer);
procedure obratno_o(puth:string);
procedure obratno_obrazi(puth:string);
procedure obratno_hvost;
procedure obratno_Porogi(puth:string);
Procedure Clos_h;
procedure Pac_otv(T_in:tmth;n1:smallint;Var T_out:thd;Var beg:posl_;P_iwr:byte);{    30    }
procedure Pac_otv_new(T_in:tmth;n1:smallint;Var T_out:thd_new;Var beg:posl_);{    30    }
Function _LoadDan(Var data:ish_vh;Path:string):integer;
Function _WriteDan(Var data:ish_vh;Path:string;rost:integer):integer;
Procedure Iorel;
//function FileCopy(const SourceFileName, TargetFileName: string):boolean;

Const
    progr_new:array[0..15] of smallint = (
 {   0  1  2  3  4  5  6  7  8  9 10 11 12  13  14 1 5 }
    18,21,24,28,33,39,46,54,63,73,84,96,109,123,139,160);
    progr:array[0..7] of smallint = (
 {   0  1  2  3  4  5  6  7  }
    10,13,18,24,33,43,56,70);
    progri:array[0..7] of smallint = (
 {   0  1  2  3  4  5  6  7  }
    10,13,20,30,50,80,130,200);


implementation
{$IFNDEF NOTUSEFORMS}
uses Unit1;
{$ENDIF}
Type
    TECG_Unique_Descriptor = packed record
     ID_Medical_Institution:word;//    0 
     ID_ECG:integer;// ,      
     DateTime_Of_Entry:TDateTime;//    
   end;

  Ishod = packed record
 // UniqueName:TECG_Unique_Descriptor;//            
	 dni:smallint; {    }
   FIO:array[0..20] of byte;
   Gr:smallint;  {   }
   POL:array[0..1] of byte;
   ads,add:smallint;
   Mr:array[0..13] of byte;    {   }
