分享
 
 
 

大型数据库信息排错一法

王朝other·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

摘要 个人信息库是医疗保险信息治理系统中最为重要的基础数据库之一,数据初次录入计算机后,会有许多差错,一般地要花费数月的时间和大量的人力物力来整理。本文介绍了一种采用"软件"排错的方法,该方法效果非凡明显。

类似如医疗保险信息治理系统的应用系统,有非常大的数据量,采用的是Oracle之类的大型数据库。个人信息库是医疗保险信息治理系统中最为重要的基础数据库之一,它记录了每个参保人员与参加医疗保险有关的信息,如"姓名"、"性别"、"社保编号"、"人员分类"……等几十个字段,一般都有数以万计、十万计的参保人员。将这样大量的数据初次录入计算机后,会有许多差错,而软件商提供的医疗保险信息治理系统皆没有提供数据库信息的排错功能,为此现有的各医疗保险信息治理系统软件的用户们都花费了数月的时间和大量的人力物力来整理个人信息数据库。

为了解决个人信息数据库的排错的问题,加快排错的进度和准确性,四川省南充市医保中心采用"软件"排错的方法,其效果非凡明显。

其步骤如下:

一、 从Oracle数据库中得到某单位"9999"的个人信息存入文本格式文件out.txt

启动sql*plus

设置环境变量:

set heading off

set pagesize 0

set feedback off

set trimspool on

set echo off

设置输出:

spool d:\out.txt

输出单位"9999"的所有人员的姓名、性别、社保编号、人员分类等字段(以","分隔)到d:\out.txt:

select xm','xb','sbbh','ryfl',' from shbx_nc.grxxk where dwid=9999;

关闭输出,将缓冲写入d:\out.txt:

spool off

重复

spool d:\out8888.txt

select xm','xb','sbbh','ryfl',' from shbx_nc.grxxk where dwid=8888;

spool off

可从Oracle数据库中获取某单位"8888"的个人信息。

二、打开FoXPro,建立两个数据库

1.数据库D:\DBF\LYC1.DBF 结构表:

Field

Field Name

Type

Width

1

XH

Integer

4

序号

2

XM

Character

10

姓名

3

XB

Character

4

性别

4

SBBH

Character

40

社保编号

5

RYFL

Character

10

人员分类

6

BJ

Character

2

标记

7

DB

Character

20

对比

** Total **

91

2.数据库D:\DBF\LYC1_1.DBF结构表

Field

Field Name

Type

Width

1

XH

Integer

4

序号

2

XM

Character

10

姓名

3

XB

Character

4

性别

4

SBBH

Character

40

社保编号

5

ZGZ

Integer

4

在职工资

6

TGZ

Integer

4

退休工资

7

BJ

Character

2

标记

8

DB

Character

20

对比

** Total **

89

三、加数据到两个数据库

1.将out.txt 导入到lyc1.dbf

sele 1

USE d:\dbf\lyc1.dbf IN 0 EXCLUSIVE

dele all

pack

append from d:\dbf\out.txt fields xm,xb,sbbh,ryfl delimited with ","

brow

2.将out1.txt 导入到lyc1.dbf (out1.txt来自与医保个人帐户电子文档,分单位,包含个人的姓名、性别、社保编号、在职工资、退休工资等信息)

sele 2

USE d:\dbf\lyc1_1.dbf IN 0 EXCLUSIVE

dele all

pack

append from d:\dbf\out1.txt fields xh,xm,sbbh,zgz,tgz delimited with ","

brow

四、比较两个数据库的个人信息,设标记

do 1

1.prg

SET DEFAULT TO d:\dbf

SET PATH TO d:\dbf

select 1

use lyc1

select 2

use lyc1_1

do while not eof()

select 1

go 1

locate for xm = lyc1_1 -> xm

do while not eof()

if sbbh = lyc1_1 -> sbbh 假如姓名相同,社保编号也相同,设标记为y

replace xh with lyc1_1 -> xh

replace bj with "y"

replace lyc1_1 -> bj with "y"

if ryfl="在职" and lyc1_1 -> tgz > 0 假如有退休工资,不能是在职

replace ryfl with "在职?"

endif

if ryfl="退休" and lyc1_1 -> zgz > 0

replace ryfl with "退休?"

endif

if ryfl=" " and lyc1_1 -> tgz > 0

replace ryfl with "?退休"

endif

if ryfl=" " and lyc1_1 -> zgz > 0

replace ryfl with "?在职"

endif

exit

else

if bj<>"y" 假如标记没设为y

replace xh with lyc1_1 -> xh

replace bj with "n" 姓名相同,社保编号不同,设标记为n

endif

continue

endif

enddo

select 2

skip 1

enddo

sele 1

use

sele 2

use

五、为标记为"n"和" "的记录寻找"对比"信息

do 2

2.prg

SET DEFAULT TO d:\dbf

SET PATH TO d:\dbf

select 1

use lyc1

select 2

use lyc1_1

select 1

go 1

do while not eof()

if bj="n"

select 2

go 1

locate for xm = lyc1 -> xm

if not eof()

replace db with lyc1 -> sbbh 姓名相同,对比社保编号

replace lyc1 -> db with sbbh

endif

endif

select 1

if bj=" "

select 2

go 1

locate for sbbh = lyc1 -> sbbh

if not eof()

replace db with lyc1 -> xm 社保编号相同,对比姓名

replace lyc1 -> db with xm

endif

endif

select 1

skip 1

enddo

sele 1

use

sele 2

use

六、打印排错信息

do p3

p3.prg

clear

set print on

set device to print

set default to d:\dbf

set path to d:\dbf

select 1

use lyc1

i=2

@1,10 say " 医保数据库 错误记录:"

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'

locate for bj="n"

do while not eof()

i=i+1

if i>76

@1,10 say " 医保数据库 错误记录:"

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'

i=3

endif

@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db

continue

enddo

go 1

i=2

@1,10 say "****************医保数据库 无对应记录:******************"

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'

locate for bj=" "

do while not eof()

i=i+1

if i>76

@1,10 say "****************医保数据库 无对应记录:****************"

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'

i=3

endif

@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db

continue

enddo

go 1

i=i+1

@i,10 say "****************医保数据库 分类有问题:****************"

i=i+1

@i,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'

locate for at('?',ryfl)>0

do while not eof()

i=i+1

if i>76

@1,10 say "****************医保数据库 分类有问题:****************"

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'

i=3

endif

@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db

continue

enddo

count all to t

count all for bj="y" to s

count all for ryfl="在职" to zs

count all for ryfl="退休" to tx

@i+1,10 say "****医保数据库 正确记录数:"+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0)

select 2

use lyc1_1

i=2

@1,10 say "===============校对文稿 无对应记录:==============="

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'

locate for bj=" "

do while not eof()

i=i+1

if i>76

@1,10 say "===============校对文稿 无对应记录:==============="

@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'

i=3

endif

@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+" "+db

continue

enddo

count all to t

count all for bj="y" to s

count all for zgz > 0 to zs

count all for tgz > 0 to tx

@i+1,10 say "========校对文稿 校对正确记录数:"+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0)

eject

sele 1

use

sele 2

use

set print off

set device to screen

输出结果

1. 医保数据库 错误记录:

医保数据库中与校对文稿中姓名相同而社保编号不同的列入此列,同时输出两个社保编号提供对比

2. 医保数据库 无对应记录:

(1) 医保数据库中与校对文稿中社保编号相同而姓名不同的列入此列,同时输出两个姓名提供对比

(2) 医保数据库中与校对文稿中姓名、社保编号都对应的列入此列,对比栏为空

3. 医保数据库 分类有问题:

在职和退休分类错的

4. 校对文稿 无对应记录:

(1) 医保数据库中与校对文稿中姓名相同而社保编号不同的,同时输出两个社保编号提供对比

(2) 医保数据库中与校对文稿中社保编号相同而姓名不同的,同时输出两个姓名提供对比

(3) 医保数据库中与校对文稿中姓名、社保编号都不对应的,对比栏为空

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有