/// <summary> /// 住院发药记录登记 /// </summary> public int InsertIprslip(InPatientCheck inPatient) { if (inPatient == null) { return(0); } var sql = $@" INSERT INTO TWOCS_IPRSLIP( PTNO, BI, INDATE, ADMSEQNO, WARDCODE, ROOMCODE, BEDNO, DEPTCODE, DRCODE, ORDERGUBUN, ORDERCODE, BOHUMCODE, BDATE, SUCODE, BUN, SLIPNO, PLUSCODE, PLUSNAME, CONTENTS, BCONTENTS, REALQTY, DIV, NAL, QTY, JSQTY, GRP, POWDER, TFLAG, SELF, ER, REMARK, PRN, STATUS, BASEUNIT, LABELUNIT, BASEAMT, AMT1, AMT2, ORDERNO, PKORDERNO, SEQNO, INSERTID, INSERTBUSE, INSERTDATE, INSERTTIME, PUMCODE,CHUANGKOU ) SELECT I.PTNO, I.BI, I.INDATE, I.ADMSEQNO, I.WARDCODE, M.ROOMCODE, M.BEDNO, I.DEPTCODE, I.DRCODE, I.ORDERGUBUN, I.ORDERCODE, C.BOHUMCODE, I.BDATE, I.SUCODE, I.BUN, I.SLIPNO, I.PLUSCODE, I.PLUSNAME, I.CONTENTS, I.BCONTENTS, I.REALQTY, I.DIV, I.NAL, I.QTY, I.JSQTY, I.GRP, I.POWDER, I.TFLAG, I.SELF, I.ER, I.REMARK, I.PRN, I.STATUS, C.BASEUNIT, C.LABELUNIT, T.BOAMT BASEAMT,T.BOAMT * I.JSQTY AMT1, '' AMT2, I.ORDERNO, I.PKORDERNO, ROWNUM, '001757', '20010107', TRUNC(SYSDATE), TO_CHAR(SYSDATE,'HH24:MI:SS'), T.PUMCODE ,'MZ' FROM TW_HSP_OCS.TWOCS_IORDER_ZG I, TW_HSP_OCS.TWOCS_ORDERCODE C, TW_HSP_PMPA.TWBAS_TSUGA T, TW_HSP_PMPA.TWBAS_NSUGA N, TW_HSP_PMPA.VIEW_MASTER M WHERE I.PTNO = '{inPatient.PTNO}' AND I.BDATE <= TO_DATE('{Environ.SlowTime.ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.BDATE >= TO_DATE('{Environ.SlowTime.AddDays(-2).ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.GBPICKUP = '1' AND SUBSTR(I.SENDDEPT1,1,2) = '70' AND I.GBAUTO NOT IN ('T','Z') AND I.STATUS = '0' AND I.ORDERGUBUN = 'H' --AND I.WARDCODE = '{inPatient.WARDCODE}' --AND I.DEPTCODE = '{inPatient.DEPTCODE}' --AND I.DRCODE = '{inPatient.DRCODE}' AND I.JUPSU = '0' AND N.SUNEXT = I.SUCODE AND (I.STOPCHKID IS NULL OR TRIM(I.STOPCHKID) = '') AND I.STOPCHKDATE IS NULL AND I.SUNSUNAP ='3' AND I.ORDERCODE = C.ORDERCODE AND I.SUCODE = T.SUCODE AND I.PTNO = M.PTNO "; var count = DBaser.Execute(sql, new WhereBuilder()); return(count); }
/// <summary> /// 获取日间手术病人医嘱 /// </summary> public TWOCS_PRSLIP_CHECK[] GetInpatientOrder(InPatientCheck inPatient) { if (inPatient == null) { return new TWOCS_PRSLIP_CHECK[] { } } ; var sql = $@" SELECT I.SENDDEPT1,I.PTNO, I.BI, I.INDATE, I.ADMSEQNO, I.WARDCODE, M.ROOMCODE, M.BEDNO, I.DEPTCODE, I.DRCODE, I.ORDERGUBUN, I.ORDERCODE, C.BOHUMCODE, I.BDATE, I.SUCODE, I.BUN, I.SLIPNO, I.PLUSCODE DOSCODE, I.PLUSNAME, I.CONTENTS, I.BCONTENTS, I.REALQTY, I.DIV, I.NAL, I.QTY, I.JSQTY, I.GRP, I.POWDER, I.TFLAG, I.SELF, I.ER, I.REMARK, I.PRN, I.STATUS, C.BASEUNIT, C.LABELUNIT, T.BOAMT BASEAMT,T.BOAMT * I.JSQTY AMT1, '' AMT2, I.ORDERNO, I.PKORDERNO, ROWNUM, '001757', '20010107', TRUNC(SYSDATE), TO_CHAR(SYSDATE,'HH24:MI:SS'), T.PUMCODE ,'MZ' FROM TW_HSP_OCS.TWOCS_IORDER_ZG I, TW_HSP_OCS.TWOCS_ORDERCODE C, TW_HSP_PMPA.TWBAS_TSUGA T, TW_HSP_PMPA.TWBAS_NSUGA N, TW_HSP_PMPA.VIEW_MASTER M WHERE I.PTNO = '{inPatient.PTNO}' AND I.BDATE <= TO_DATE('{Environ.SlowTime.ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.BDATE >= TO_DATE('{Environ.SlowTime.AddDays(-2).ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.GBPICKUP = '1' AND SUBSTR(I.SENDDEPT1,1,1) = '7' AND I.GBAUTO NOT IN ('T','Z') AND I.STATUS = '0' AND I.ORDERGUBUN = 'H' AND I.WARDCODE = '{inPatient.WARDCODE}' AND I.DEPTCODE = '{inPatient.DEPTCODE}' AND I.DRCODE = '{inPatient.DRCODE}' AND I.JUPSU = '0' AND N.SUNEXT = I.SUCODE AND (I.STOPCHKID IS NULL OR TRIM(I.STOPCHKID) = '') AND I.STOPCHKDATE IS NULL AND I.SUNSUNAP ='3' AND I.ORDERCODE = C.ORDERCODE AND I.SUCODE = T.SUCODE AND I.PTNO = M.PTNO "; var wb = new WhereBuilder(); var result = DBaser.Query <TWOCS_PRSLIP_CHECK>(sql, wb); return(result); }
/// <summary> /// 报道登记 /// </summary> public int InPatientSignIn(TWOCS_PRSLIP_CHECK orderInfo, InPatientCheck ptInfo) { DBaser.Insert("TWOCS_PRSLIP_CHECK"); DBaser["GBIO"] = orderInfo.GBIO; DBaser["PTNO"] = ptInfo.PTNO; DBaser["BI"] = orderInfo.BI; DBaser["DEPTCODE"] = ptInfo.DEPTCODE; DBaser["DRCODE"] = ptInfo.DRCODE; DBaser["WARDCODE"] = ptInfo.WARDCODE; DBaser["ROOMCODE"] = orderInfo.ROOMCODE; DBaser["ORDERGUBUN"] = orderInfo.ORDERGUBUN; DBaser["ORDERCODE"] = orderInfo.ORDERCODE; DBaser["SENDDEPT1"] = orderInfo.SENDDEPT1; DBaser["BDATE"] = orderInfo.BDATE; DBaser["SUCODE"] = orderInfo.SUCODE; DBaser["BUN"] = orderInfo.BUN; DBaser["SLIPNO"] = orderInfo.SLIPNO; DBaser["QTY"] = orderInfo.QTY; DBaser["NAL"] = orderInfo.NAL; DBaser["DIV"] = orderInfo.DIV; DBaser["REALQTY"] = orderInfo.REALQTY; DBaser["DOSCODE"] = orderInfo.DOSCODE; DBaser["GRP"] = orderInfo.GRP; DBaser["REMARK"] = orderInfo.REMARK; //DBaser["STATUS"] = orderInfo.STATUS; DBaser["ORDERNO"] = orderInfo.ORDERNO; DBaser["CHUANGKOU"] = orderInfo.CHUANGKOU; DBaser["PUMCODE"] = orderInfo.PUMCODE; //DBaser["PRESNO"] = orderInfo.PRESNO; DBaser["CHECKDATE"] = Environ.SlowTime.Date; // orderInfo.CHECKDATE; DBaser["FLAG"] = orderInfo.FLAG; DBaser["CHECKTIME"] = Environ.SlowTime.ToString("HH:mm"); // orderInfo.CHECKTIME; //DBaser["OUTUSER"] = orderInfo.OUTUSER; //DBaser["OUTDATE"] = orderInfo.OUTDATE; //DBaser["OUTTIME"] = orderInfo.OUTTIME; //DBaser["REUSER"] = orderInfo.REUSER; //DBaser["REDATE"] = orderInfo.REDATE; //DBaser["RETIME"] = orderInfo.RETIME; //DBaser["HOSPITALIZEDUID"] = orderInfo.HOSPITALIZEDUID; return(DBaser.AcceptChanges()); }
/// <summary> /// /// </summary> public int UpdateIOrderZG(InPatientCheck inPatient) { if (inPatient == null) { return(0); } var sql = $@" UPDATE TW_HSP_OCS.TWOCS_IORDER_ZG I SET I.JUPSU = '1' WHERE I.ROWID IN ( SELECT I.ROWID FROM TW_HSP_OCS.TWOCS_IORDER_ZG I, TW_HSP_PMPA.TWBAS_NSUGA N WHERE I.PTNO = '{inPatient.PTNO}' AND I.BDATE <= TO_DATE('{Environ.SlowTime.ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.BDATE >= TO_DATE('{Environ.SlowTime.AddDays(-2).ToString("yyyy-MM-dd")}','YYYY-MM-DD') AND I.GBPICKUP = '1' AND SUBSTR(I.SENDDEPT1,1,1) = '7' AND I.GBAUTO NOT IN ('T','Z') AND I.STATUS = '0' AND I.SUNSUNAP = '3' AND I.ORDERGUBUN = 'H' AND I.WARDCODE = '{inPatient.WARDCODE}' AND I.DEPTCODE = '{inPatient.DEPTCODE}' AND I.DRCODE = '{inPatient.DRCODE}' AND I.JUPSU = '0' AND N.SUNEXT = I.SUCODE AND (I.STOPCHKID IS NULL OR TRIM(I.STOPCHKID) = '') AND I.STOPCHKDATE IS NULL ) "; var count = DBaser.Execute(sql, new WhereBuilder()); return(count); }