儿童、计免排队表迁移.docx

儿童、计免排队表迁移 说明：鉴于服务器稳定性要求，将儿童、计免排队表数据迁移到医院HIS数据库。 表结构修改 新建表SQ_PDDL IF OBJECT_ID ('dbo.SQ_PDDL') IS NOT NULL DROP TABLE dbo.SQ_PDDL GO CREATE TABLE dbo.SQ_PDDL ( JLXH NUMERIC (18) NOT NULL, PMID NUMERIC (2) NOT NULL, PDRQ DATETIME NOT NULL, PDLB NUMERIC (2) NOT NULL, PDHM NUMERIC (4) NOT NULL, GRBM VARCHAR (30) NOT NULL, BRXM VARCHAR (10) NOT NULL, DZXW VARCHAR (40) NOT NULL, JHFS NUMERIC (1) DEFAULT 0, YFSB NUMERIC (3) NULL, YYHM NUMERIC (4) NULL, YWLB NUMERIC (2) NULL, PMIP VARCHAR (50) NULL, PB_PMID VARCHAR (10) NULL, CONSTRAINT PK_SQ_PDDL PRIMARY KEY (JLXH) ) GO CREATE NONCLUSTERED INDEX IDX_SQ_PDDL_YFSB_PMID ON SQ_PDDL (YFSB,PMID) 新建表SQ_PDDL_EB IF OBJECT_ID ('SQ_PDDL_EB') IS NOT NULL DROP TABLE SQ_PDDL_EB GO CREATE TABLE SQ_PDDL_EB ( GRBM VARCHAR (40) NOT NULL, PDHM VARCHAR (10) NOT NULL, XM VARCHAR (12) NOT NULL, PDDL INT NOT NULL, YYHM NUMERIC (4) NULL, CONSTRAINT PK_PDDL_EB_GRBM PRIMARY KEY NONCLUSTERED (GRBM) ) GO HIS中新增参数 参数名称 默认值 说明 SQ_PDBSJK SQ 社区_排队表数据库,如为HIS则连接HIS,否则为SQ 门急诊医生站 新增全局变量 //社区B Transaction sql_sq, sql_lis ,SQL_TJ, SQL_PDB 对象clinic 修改open事件 //============================================================================== // Script - open for clinic // Reason: 社区_排队表迁移·连接数据库 //------------------------------------------------------------------------------ // Modified By: Richard Date: 2014.07.22 //------------------------------------------------------------------------------ SQL_PDB = create transaction if gf_getpara_trans(0, "SQ_PDBSJK", "SQ", "社区_排队表数据库,如为HIS则连接HIS,否则为SQ", SQLCA) = "HIS" then SQL_PDB = SQLCA else SQL_PDB = SQL_SQ end if //============================================================================== Open(w_clinic_login) 修改close事件 //============================================================================== // Script - close for clinic // Reason: 社区_排队表迁移·断开数据库连接 //------------------------------------------------------------------------------ // Modi