コード例 #1
0
 public KcbChidinhclsChitietCollection FetchAll()
 {
     KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection();
     Query qry = new Query(KcbChidinhclsChitiet.Schema);
     coll.LoadAndCloseReader(qry.ExecuteReader());
     return coll;
 }
コード例 #2
0
        public KcbChidinhclsChitietCollection FetchByQuery(Query qry)
        {
            KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection();

            coll.LoadAndCloseReader(qry.ExecuteReader());
            return(coll);
        }
コード例 #3
0
        public KcbChidinhclsChitietCollection FetchAll()
        {
            KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection();
            Query qry = new Query(KcbChidinhclsChitiet.Schema);

            coll.LoadAndCloseReader(qry.ExecuteReader());
            return(coll);
        }
コード例 #4
0
        /// <summary>
        /// hàm thực hiện việc tính phàn trăm bảo hiểm y tế cho cận lâm sàng
        /// </summary>
        /// <param name="objPatientExam"></param>
        public static void TinhPtramBHYTForCLS(KcbLuotkham objPatientExam)
        {
            SqlQuery sqlQuery = new Select().From(KcbChidinhclsChitiet.Schema)
                                .Where(KcbChidinhclsChitiet.Columns.IdChidinh).In(
                new Select(KcbChidinhcl.Columns.IdChidinh).From(KcbChidinhcl.Schema).Where(
                    KcbChidinhcl.Columns.MaLuotkham).IsEqualTo(
                    objPatientExam.MaLuotkham).And(KcbChidinhcl.Columns.IdBenhnhan).IsEqualTo(
                    objPatientExam.IdBenhnhan).And(KcbChidinhcl.Columns.Noitru).IsEqualTo(1));
            KcbChidinhclsChitietCollection objAssignDetailCollection = sqlQuery.ExecuteAsCollection <KcbChidinhclsChitietCollection>();
            decimal PtramBHYT = Utility.DecimaltoDbnull(objPatientExam.PtramBhyt);

            foreach (KcbChidinhclsChitiet objAssignDetail in objAssignDetailCollection)
            {
                TinhCLS.GB_TinhPhtramBHYT(objAssignDetail, objPatientExam, PtramBHYT);
                new Update(KcbChidinhclsChitiet.Schema)
                .Set(KcbChidinhclsChitiet.Columns.NgaySua).EqualTo(globalVariables.SysDate)
                .Set(KcbChidinhclsChitiet.Columns.NguoiSua).EqualTo(globalVariables.UserName)
                .Set(KcbChidinhclsChitiet.Columns.PtramBhyt).EqualTo(objAssignDetail.PtramBhyt)
                .Set(KcbChidinhclsChitiet.Columns.BnhanChitra).EqualTo(objAssignDetail.BnhanChitra)
                .Set(KcbChidinhclsChitiet.Columns.BhytChitra).EqualTo(objAssignDetail.BhytChitra)
                .Set(KcbChidinhclsChitiet.Columns.PhuThu).EqualTo(objAssignDetail.PhuThu)
                .Where(KcbChidinhclsChitiet.Columns.IdChitietchidinh).IsEqualTo(objAssignDetail.IdChitietchidinh).Execute();
            }
        }
コード例 #5
0
 public KcbChidinhclsChitietCollection FetchByQuery(Query qry)
 {
     KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection();
     coll.LoadAndCloseReader(qry.ExecuteReader());
     return coll;
 }
コード例 #6
0
 public KcbChidinhclsChitietCollection FetchByID(object IdChitietchidinh)
 {
     KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection().Where("id_chitietchidinh", IdChitietchidinh).Load();
     return coll;
 }
コード例 #7
0
        public KcbChidinhclsChitietCollection FetchByID(object IdChitietchidinh)
        {
            KcbChidinhclsChitietCollection coll = new KcbChidinhclsChitietCollection().Where("id_chitietchidinh", IdChitietchidinh).Load();

            return(coll);
        }
コード例 #8
0
        public static ActionResult CapnhatLichsuDoituongKCB(List<KcbLichsuDoituongKcb> lstLichsu,List<long> lstDelete)
        {
            try
            {
                ActionResult _ActionResult = ActionResult.Success;

                using (var Scope = new TransactionScope())
                {
                    using (var dbScope = new SharedDbConnectionScope())
                    {
                        KcbLichsuDoituongKcb _item=lstLichsu[0];

                        List<long> lstID = new List<long>();
                        KcbDangkyKcbCollection lstDangkyKCB = new Select().From(KcbDangkyKcb.Schema)
                            .Where(KcbDangkyKcb.Columns.IdBenhnhan).IsEqualTo(_item.IdBenhnhan)
                            .And(KcbDangkyKcb.Columns.MaLuotkham).IsEqualTo(_item.MaLuotkham)
                            .ExecuteAsCollection<KcbDangkyKcbCollection>();

                        NoitruPhanbuonggiuongCollection lstbuonggiuong=new Select().From(NoitruPhanbuonggiuong.Schema)
                            .Where(NoitruPhanbuonggiuong.Columns.IdBenhnhan).IsEqualTo(_item.IdBenhnhan)
                            .And(NoitruPhanbuonggiuong.Columns.MaLuotkham).IsEqualTo(_item.MaLuotkham)
                            .ExecuteAsCollection<NoitruPhanbuonggiuongCollection>();

                        KcbDonthuocCollection lstDonthuoc = new Select().From(KcbDonthuoc.Schema)
                            .Where(KcbDonthuoc.Columns.IdBenhnhan).IsEqualTo(_item.IdBenhnhan)
                            .And(KcbDonthuoc.Columns.MaLuotkham).IsEqualTo(_item.MaLuotkham)
                            .ExecuteAsCollection<KcbDonthuocCollection>();
                        lstID = lstDonthuoc.Select(c => c.IdDonthuoc).ToList<long>();
                        KcbDonthuocChitietCollection lstDonthuocChitiet = new KcbDonthuocChitietCollection();
                        if (lstID.Count > 0)
                            lstDonthuocChitiet = new Select().From(KcbDonthuocChitiet.Schema)
                                 .Where(KcbDonthuocChitiet.Columns.IdDonthuoc).In(lstID)
                                 .ExecuteAsCollection<KcbDonthuocChitietCollection>();

                        KcbChidinhclCollection lstChidinh = new Select().From(KcbChidinhcl.Schema)
                            .Where(KcbChidinhcl.Columns.IdBenhnhan).IsEqualTo(_item.IdBenhnhan)
                            .And(KcbChidinhcl.Columns.MaLuotkham).IsEqualTo(_item.MaLuotkham)
                            .ExecuteAsCollection<KcbChidinhclCollection>();
                        lstID = lstChidinh.Select(c => c.IdChidinh).ToList<long>();

                        KcbChidinhclsChitietCollection lstChidinhChitiet = new KcbChidinhclsChitietCollection();
                        if (lstID.Count > 0)
                            lstChidinhChitiet = new Select().From(KcbChidinhclsChitiet.Schema)
                           .Where(KcbChidinhclsChitiet.Columns.IdChidinh).In(lstID)
                           .ExecuteAsCollection<KcbChidinhclsChitietCollection>();
                        if (lstDelete.Count > 0)
                            new Delete().From(KcbLichsuDoituongKcb.Schema).Where(KcbLichsuDoituongKcb.Columns.IdLichsuDoituongKcb).In(lstDelete).Execute();
                        foreach (KcbLichsuDoituongKcb objLichsu in lstLichsu)
                        {

                            //Gán thông tin nội trú
                            if (objLichsu.TrangthaiNoitru > 0)
                            {
                                var q = from p in lstbuonggiuong
                                        where Utility.Int32Dbnull(Utility.GetYYYYMMDD(p.NgayVaokhoa), 0) >= Utility.Int32Dbnull(Utility.GetYYYYMMDD(objLichsu.NgayHieuluc), 0)
                                        select p;
                                if (q.Any())
                                {
                                    objLichsu.IdKhoanoitru = q.FirstOrDefault().IdKhoanoitru;
                                    objLichsu.IdBuong = q.FirstOrDefault().IdBuong;
                                    objLichsu.IdGiuong = q.FirstOrDefault().IdGiuong;
                                    objLichsu.IdRavien = q.FirstOrDefault().IdKhoanoitru;

                                }
                            }
                            objLichsu.Save();
                           _ActionResult= CapnhatChiphiKCB(objLichsu, lstDangkyKCB.ToList<KcbDangkyKcb>());
                            if (_ActionResult == ActionResult.Cancel)
                                return _ActionResult;
                            List<KcbChidinhcl> _chidinhCLS = (from p in lstChidinh
                                                              where Utility.Int32Dbnull(Utility.GetYYYYMMDD(p.NgayChidinh), 0) >= Utility.Int32Dbnull(Utility.GetYYYYMMDD(objLichsu.NgayHieuluc), 0)
                                                              && Utility.Int32Dbnull(Utility.GetYYYYMMDD(p.NgayChidinh), 0) <= Utility.Int32Dbnull(Utility.GetYYYYMMDD(objLichsu.NgayHethieuluc,new DateTime(2099,1,1)), 0)
                                                              select p).ToList<KcbChidinhcl>();
                            lstID = _chidinhCLS.Select(c => c.IdChidinh).ToList<long>();

                            List<KcbChidinhclsChitiet> _chidinhCLsChitiet = (from p in lstChidinhChitiet
                                                                             where lstID.Contains(p.IdChidinh)
                                                                             select p).ToList<KcbChidinhclsChitiet>();

                          _ActionResult=  CapnhatChiphiCLS(objLichsu, _chidinhCLS, _chidinhCLsChitiet);
                            if (_ActionResult == ActionResult.Cancel)
                                return _ActionResult;
                            List<KcbDonthuoc> _donthuoc = (from p in lstDonthuoc
                                                           where Utility.Int32Dbnull(Utility.GetYYYYMMDD(p.NgayKedon), 0) >= Utility.Int32Dbnull(Utility.GetYYYYMMDD(objLichsu.NgayHieuluc), 0)
                                                             && Utility.Int32Dbnull(Utility.GetYYYYMMDD(p.NgayKedon), 0) <= Utility.Int32Dbnull(Utility.GetYYYYMMDD(objLichsu.NgayHethieuluc, new DateTime(2099, 1, 1)), 0)
                                                           select p).ToList<KcbDonthuoc>();
                            lstID = _donthuoc.Select(c => c.IdDonthuoc).ToList<long>();

                            List<KcbDonthuocChitiet> _donthuocChitiet = (from p in lstDonthuocChitiet
                                                                         where lstID.Contains(p.IdDonthuoc)
                                                                         select p).ToList<KcbDonthuocChitiet>();

                           _ActionResult= CapnhatChiphiThuoc(objLichsu, _donthuoc, _donthuocChitiet);
                            if (_ActionResult == ActionResult.Cancel)
                                return _ActionResult;
                            List<NoitruPhanbuonggiuong> _Bg = (from p in lstbuonggiuong
                                                                     where p.NgayVaokhoa >= objLichsu.NgayHieuluc && p.NgayVaokhoa <= objLichsu.NgayHethieuluc
                                                                     select p).ToList<NoitruPhanbuonggiuong>();
                          _ActionResult=  CapnhatBuonggiuong(objLichsu, _Bg);
                            if (_ActionResult == ActionResult.Cancel)
                                return _ActionResult;

                        }
                        DateTime maxDate = lstLichsu.Max(c => c.NgayHieuluc);
                        KcbLichsuDoituongKcb objMax = lstLichsu.Where(c => c.NgayHieuluc == maxDate).FirstOrDefault();
                        if (objMax != null)
                        {
                            new Update(KcbLuotkham.Schema)
                                                      .Set(KcbLuotkham.Columns.MatheBhyt).EqualTo(objMax.MatheBhyt)
                                                      .Set(KcbLuotkham.Columns.MaNoicapBhyt).EqualTo(objMax.MaNoicapBhyt)
                                                      .Set(KcbLuotkham.Columns.MaQuyenloi).EqualTo(objMax.MaQuyenloi)
                                                      .Set(KcbLuotkham.Columns.NgaybatdauBhyt).EqualTo(objMax.NgaybatdauBhyt)
                                                      .Set(KcbLuotkham.Columns.NgayketthucBhyt).EqualTo(objMax.NgayketthucBhyt)
                                                      .Set(KcbLuotkham.Columns.NoicapBhyt).EqualTo(objMax.NoicapBhyt)
                                                      .Set(KcbLuotkham.Columns.IdDoituongKcb).EqualTo(objMax.IdDoituongKcb)
                                                      .Set(KcbLuotkham.Columns.MaKcbbd).EqualTo(objMax.MaKcbbd)
                                                      .Set(KcbLuotkham.Columns.NoiDongtrusoKcbbd).EqualTo(objMax.NoiDongtrusoKcbbd)
                                                      .Set(KcbLuotkham.Columns.MaDoituongBhyt).EqualTo(objMax.MaDoituongBhyt)
                                                      .Set(KcbLuotkham.Columns.DungTuyen).EqualTo(objMax.DungTuyen)
                                                      .Set(KcbLuotkham.Columns.MaDoituongKcb).EqualTo(objMax.MaDoituongKcb)
                                                      .Set(KcbLuotkham.Columns.NguoiSua).EqualTo(globalVariables.UserName)
                                                      .Set(KcbLuotkham.Columns.NgaySua).EqualTo(globalVariables.SysDate)
                                                      .Set(KcbLuotkham.Columns.MadtuongSinhsong).EqualTo(objMax.MadtuongSinhsong)
                                                      .Set(KcbLuotkham.Columns.GiayBhyt).EqualTo(objMax.GiayBhyt)
                                                      .Set(KcbLuotkham.Columns.PtramBhyt).EqualTo(objMax.PtramBhyt)
                                                      .Set(KcbLuotkham.Columns.PtramBhytGoc).EqualTo(objMax.PtramBhytGoc)
                                                      .Set(KcbLuotkham.Columns.DiachiBhyt).EqualTo(objMax.DiachiBhyt)
                                                      .Set(KcbLuotkham.Columns.IdLichsuDoituongKcb).EqualTo(objMax.IdLichsuDoituongKcb)

                                                      .Where(KcbLuotkham.Columns.MaLuotkham).IsEqualTo(objMax.MaLuotkham)
                                                      .And(KcbLuotkham.Columns.IdBenhnhan).IsEqualTo(objMax.IdBenhnhan)
                                                      .Execute();

                        }
                    }
                    Scope.Complete();
                    return ActionResult.Success;
                }
            }
            catch (Exception ex)
            {
                Utility.ShowMsg("Lỗi khi chuyển đối tượng:\n" + ex.Message);
                return ActionResult.Exception;
            }
        }