自动按系统当前的挂号安排产生挂号单

------------------------------------------------------------------------------------------------
-- 功 能：自动按系统当前的挂号安排产生挂号单，以方便护士练习分诊和医生接诊
------------------------------------------------------------------------------------------------[@more@]

CREATE OR REPLACE Procedure zl1_UserJobAutoRegist As
------------------------------------------------------------------------------------------------
-- 功 能：自动按系统当前的挂号安排产生挂号单，以方便护士练习分诊和医生接诊
------------------------------------------------------------------------------------------------
Cursor c_号表 Is
Select Distinct P.ID,P.号码 as 号别,P.号类,P.科室ID,B.名称 As 科室,P.项目ID,C.名称 As 项目,
P.医生ID,P.医生姓名 as 医生,Nvl(A.已挂数,0) as 已挂,Nvl(A.已约数,0) as 已约,
P.限号数 as 限号,P.限约数 as 限约,Nvl(P.病案必须,0) as 病案,Nvl(C.急诊标记,0) as 急诊,
P.周日 as 日,P.周一 as 一,P.周二 as 二,P.周三 as 三,P.周四 as 四,P.周五 as 五,P.周六 as 六,
Decode(P.分诊方式,1,'指定',2,'动态',3,'平均',NULL) as 分诊
From 挂号安排 P,(Select A.ID as 安排ID,B.已挂数,B.已约数 From 挂号安排 A,病人挂号汇总 B
Where A.科室ID = B.科室ID And A.项目ID = B.项目ID And Nvl(A.医生ID,0)=Nvl(B.医生ID,0)
And Nvl(A.医生姓名,'医生')=Nvl(B.医生姓名,'医生') And B.日期=Trunc(Sysdate)) A,部门表 B,挂号项目 C
Where P.ID=A.安排ID(+) And P.科室ID=B.ID And P.项目ID=C.序号
And (C.撤档时间 is NULL Or C.撤档时间=To_Date('3000-01-01','YYYY-MM-DD'))
And Decode(To_Char(Sysdate,'D'),'1',P.周日,'2',P.周一,'3',P.周二,'4',P.周三,'5',P.周四,'6',P.周五,'7',P.周六,NULL)
IN(Select 时间段 From 时间段 Where ('3000-01-10 '||To_Char(SysDate,'HH24:MI:SS') Between Decode(Sign(开始时间-终止时间),1,'3000-01-09 '||To_Char(开始时间,'HH24:MI:SS'),'3000-01-10 '||To_Char(开始时间,'HH24:MI:SS')) And '3000-01-10 '||To_Char(终止时间,'HH24:MI:SS')) Or ('3000-01-10 '||To_Char(SysDate,'HH24:MI:SS') Between '3000-01-10 '||To_Char(开始时间,'HH24:MI:SS') And Decode(Sign(开始时间-终止时间),1,'3000-01-11 '||To_Char(终止时间,'HH24:MI:SS'),'3000-01-10 '||To_Char(终止时间,'HH24:MI:SS'))))
Order by 号别;
r_号表 c_号表%RowType; Cursor c_收入项目(lng细目ID 收费项目目录.ID%Type) Is
Select b.ID,b.名称,b.收据费目,a.现价
From 收费价目 a,收入项目 b
Where Sysdate Between a.执行日期 And a.终止日期 And a.收入项目ID=b.ID
And a.收费细目id=lng细目ID;
r_收入项目 c_收入项目%RowType; lng从项ID 收费项目目录.ID%Type;
lngID 病人信息.病人ID%Type;
lng门诊号 病人信息.门诊号%Type;
lng结帐ID 病人结帐记录.ID%Type;
strNo 号码控制表.最大号码%Type;
strName Number(6);
dtDate Date;
Begin
For r_号表 In c_号表 Loop
--求病人ID
Select Nvl(最大号码,0) Into lngID From 号码控制表 Where 项目序号=1;
lngID :=lngID+1;
Update 号码控制表 Set 最大号码=lngID Where 项目序号=1; --求门诊号
Select Nvl(最大号码,0) Into lng门诊号 From 号码控制表 Where 项目序号=3;
lng门诊号 :=lng门诊号+1;
Update 号码控制表 Set 最大号码=lng门诊号 Where 项目序号=3; --求挂号单号,以按日规则求取
Select Nvl(最大号码,'0') Into strNo From 号码控制表 Where 项目序号=12;
If Substr(strNo,1,4)='E'||To_Char(Sysdate,'DDD') Then
strName :=To_Number(Substr(strNo,5))+1;
strNO :='E'||Lpad(To_Char(To_Number(Substr(strNO,2))+1),7,'0');
Else
strName :=1;
strNo :='E'||To_Char(Sysdate,'DDD')||'0001';
End If;
Update 号码控制表 Set 最大号码=strNo Where 项目序号=12; --病人信息
Select SysDate Into dtDate From dual;
zl_病人信息_Insert(lngID,lng门诊号,'自费','自费医疗','测试'||To_Char(strName),'男','',Null,Null,Null,Null,Null,Null,Null,Null,Null,
Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,dtDate);
Select 病人结帐记录_ID.NextVal Into lng结帐ID From Dual;
--挂号项目
For r_收入项目 In c_收入项目(r_号表.项目ID) Loop
zl_病人挂号记录_INSERT(lngID,lng门诊号,'测试'||To_Char(strName),'男','',5,'自费',strNo,'',1,NULL,
NULL,'1',r_号表.项目ID,1,r_收入项目.现价,r_收入项目.ID,r_收入项目.收据费目,'现金',r_收入项目.现价,r_收入项目.现价,
r_号表.科室ID,r_号表.科室ID,r_号表.科室ID,'D2325','马志晖',dtDate,dtDate,r_号表.医生,r_号表.医生ID,0,r_号表.急诊,r_号表.号别,
'',lng结帐ID,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0,'',0,null);
End Loop;
--处理从属项目
Begin
Select 从项ID Into lng从项ID From 收费从属项目 Where 主项ID=r_号表.项目ID;
EXCEPTION
WHEN NO_DATA_FOUND THEN
For r_收入项目 In c_收入项目(lng从项ID) Loop
zl_病人挂号记录_INSERT(lngID,lng门诊号,'测试'||To_Char(strName),'男','',5,'自费',strNo,'',2,NULL,
1,'1',lng从项ID,1,r_收入项目.现价,r_收入项目.ID,r_收入项目.收据费目,'现金',r_收入项目.现价,r_收入项目.现价,
r_号表.科室ID,r_号表.科室ID,r_号表.科室ID,'D2325','马志晖',dtDate,dtDate,r_号表.医生,r_号表.医生ID,0,r_号表.急诊,r_号表.号别,
'',lng结帐ID,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0,'',0,null);
End Loop;
strName := strName+1;
End;
End Loop;
End;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8351093/viewspace-891161/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8351093/viewspace-891161/