pacs_conclusion.~dpr

a program written by delphi about middle layer

program pacs_conclusion;

uses
  Forms,
  IniFiles,
  SysUtils,
  Dialogs,
  Unit_Pacs_Conclusion in 'Unit_Pacs_Conclusion.pas' {frmPacsConclusion},
  Unit_global_variant in 'Unit_global_variant.pas';

{$R *.res}
{$I+}       // I/O检测
{$Q+}
var
  MyRegistry1: TIniFile;
begin
  gv_App_Dir := GetCurrentDir;
  MyRegistry1 := TIniFile.Create(GetCurrentDir+'\chis.ini');
  try
    Application.Initialize;

//    sInstallDirectory := GetCurrentDir;

    with MyRegistry1 do
    begin
      gv_subsys_id := ReadString  ('Chis','SubSys','');  //子系统号
      gv_subsys_name := ReadString('Chis','SubSysName','');//子系统名称
      gv_hospital := ReadString('Chis','HospitalName','');//医院名称

    //改变默认值，原为登陆用户所在科室
      gv_dept_code := ReadString('Chis','dept_code',gv_dept_code);

      gv_AppServer := ReadString  ('Server','AppServer','' );
      gv_login_appserver:=readstring('Server','LoginAppServer','');
      //gv_repeated_subject_charge_flag := ReadString ('Chis','repeated_subject_charge_flag','0');
      gv_node_no := ReadString ('Chis','node_no','');
      gv_register_unit_flag := ReadString ('Chis','register_unit_flag','');
      //gv_overall_checktype_code := ReadString ('Chis','overall_checktype_code','');
      gv_blood_sample_code := ReadString ('Chis','blood_sample_code','');
      gv_lis_dept_code := ReadString ('Chis','lis_dept_code','');
      gv_section_no := ReadString ('Chis','section_no','');
      gv_Input_Method := ReadString ('input','InputMethod','');
      gv_station_name := ReadString ('Chis','station_name','');
      gv_general_dept_code := ReadString ('Chis','general_dept_code','');
      gv_overall_dept_code := ReadString ('Chis','overall_dept_code','');
      gv_restaurant_dept_code := ReadString ('Chis','restaurant_dept_code','');
      gv_inquiry_dept_code := ReadString ('Chis','inquiry_dept_code','');
      gv_vip_dept_flag := ReadString ('Chis','vip_dept_flag','');
      gv_need_checkout_flag := ReadString ('Chis','need_checkout_flag','1');
      gv_flow_node_flag := ReadString ('Chis','flow_node_flag','1');
      gv_checktype_no := ReadString ('Chis','checktype_code','');
      gv_com_no := ReadString ('Chis','gv_com_no','');
      gv_pdf_printer := ReadString('Chis','gv_pdf_printer','');
      gv_debug := ReadString('Chis','debug','');

      gv_trans_start_time := ReadString('Chis', 'pacs_start_time', '07:00:00');
      gv_trans_stop_time := ReadString('Chis', 'pacs_stop_time', '18:00:00');
      //取客户端网卡地址
      //gv_pc_id:=GetMAC;
    end;

    //装入登录模块
    //**********************
    //frm_background:=Tfrm_background.Create(Application);
    //frm_background.Show;
    //frm_background.Update;

    //*******************

    {if Login(pchar(gv_login_appserver),pchar(gv_subsys_id),pchar(gv_subsys_name),
             pchar(gv_hospital),pUserMi,pDeptCode,pEmpName,pUserName)
    then begin
      //gv_dept_code := String(pDeptCode);
      gv_user_mi := String(pUserMi);
      gv_operation_code := gv_user_mi;
      gv_user_name := String(pUserName);

      gv_emp_name := String(pEmpName);
      Application.Title := 'CHIS5.0健康管理子系统';


      Application.CreateForm(TfrmPacsConclusion, frmPacsConclusion);
  Application.Run;
    end
    else begin
      Application.Terminate;
    end;}
      Application.CreateForm(TfrmPacsConclusion, frmPacsConclusion);
      Application.Run;
  finally
    MyRegistry1.Free;
    //frm_background.Free;
  end;

end.