摘要 个人信息库是医疗保险信息治理系统中最为重要的基础数据库之一，数据初次录入计算机后，会有许多差错，一般地要花费数月的时间和大量的人力物力来整理。本文介绍了一种采用"软件"排错的方法，该方法效果非凡明显。
类似如医疗保险信息治理系统的应用系统，有非常大的数据量，采用的是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) 医保数据库中与校对文稿中姓名、社保编号都不对应的，对比栏为空
|
