CREATE OR REPLACE PROCEDURE SP_WLPT_SST_YYQR(
  id0000     in  varchar2,   --预约队列标识
  cardno     in varchar2,   --卡号
  cartype    in varchar2, --IC卡类型
  custname  out varchar2,    --病人姓名
  groupname  out varchar2,   --医生姓名
  qno000  out varchar2,      --预约号
  czsj00  out varchar2,     --就诊日期
  yyksmc  out varchar2,     --预约科室
  hzsj00  out varchar2,     --候诊时间
  zs0000  out varchar2,     --诊室
  outstr  out varchar2   --错误信息
    )
as
-- MODIFICATION HISTORY
-- Person      Date         Comments
-- yanghq      2019.07.31   省二自助机确认取号，从sp_sst_yyqr复制而来
  LS_BRID00  BM_BRXXB0.BRID00%type;
  LS_BRID01  BM_BRXXB0.BRID00%type;
  as_YHMSG0  varchar2(2550);
  as_SYSMSG  varchar2(2550);
  ls_YYZT00  SF_YYBRB0.YYZT00%type;
  LS_CARDNO  IC_YHXX00.ICKH00%type;
  LS_KMH000  IC_YHXX00.KMH000%type;
  LS_BRXM00  SF_YYBRB0.BRXM00%type;
  LS_YYBZ00  YS_HBHZXH.YYBZ00%type;--预约标志 '1'普通'2'优待 '3'预约 '4'电话 '5'分诊 '6'网络
  LS_GHID00  SF_YYBRB0.GHID00%type;
  LS_YYH000  SF_YYBRB0.YYH000%type;
  LS_BRDH00  SF_YYBRB0.BRDH00%type;
  LS_YYRQ00  SF_YYBRB0.YYRQ00%type;
  LS_YYSJ00  SF_YYBRB0.yyjssj%type;
begin
   select SF_SST_GETICKH00(cardno) into LS_CARDNO from dual;
   begin
        select BRID00,KMH000 into LS_BRID00,LS_KMH000 from IC_YHXX00 where  ICKH00 =LS_CARDNO and ZT0000=1;
        exception
          WHEN NO_DATA_FOUND THEN
          outstr:='IC卡号:'||LS_CARDNO||'在本院IC_YHXX00表中未找到,请联系管理员!';
          raise NO_DATA_FOUND;
      end;

     begin
     select nvl(BRID00,0),YYZT00,GHID00,YYH000,BRDH00,BRXM00,YYRQ00,YYJSSJ into LS_BRID01,ls_YYZT00,LS_GHID00,LS_YYH000,LS_BRDH00,LS_BRXM00,LS_YYRQ00,LS_YYSJ00 from SF_YYBRB0 where YYID00=id0000 ;
   end;
   if ls_YYZT00='1' then
     outstr:='您的预约信息已签到，请等候医生叫诊！';
 return;
       end if;
 if LS_YYRQ00<>TO_CHAR(SYSDATE,'YYYYMMDD') then
     outstr:='病人预约信息不是该时段，请在对应时段签到1';
 return;
       end if;
 if TO_NUMBER(substr(LS_YYSJ00,1,2))-12>=0 and TO_NUMBER(to_char(sysdate,'hh24'))-12<0 then
     outstr:='病人预约信息不是该时段，请在对应时段签到2';
 return;
       end if;

 if TO_NUMBER(substr(LS_YYSJ00,1,2))<TO_NUMBER(to_char(sysdate,'hh24'))+1 then
     outstr:='病人预约时间已过,不可签到,请取消该预约重新取号！';
 return;
       end if;


  if  LS_BRID01=0 then

    ----SP_SST_MZYY_ZJYYDJ
     --更新预约病人信息
     update SF_YYBRB0 set brid00=LS_BRID00,KMH000=LS_KMH000,ICKH00=LS_CARDNO where YYID00=id0000 ;

     --更新医生号表侯诊序号
   update YS_HBHZXH set BRID00=LS_BRID00,YYID00=id0000,BRXM00=LS_BRXM00  where GHHBID=LS_GHID00 and HZXH00=LS_YYH000; --YYBZ00

   --update SF_YSGHHB set YYXHS0=YYXHS0+1,TQYYS0=TQYYS0+1 where GHHBID = P_PBLSH;

   --更新病人电话号码 20180702重新启用
    update BM_BRXXB0 set BRDH00=nvl(LS_BRDH00,BRDH00) where BRID00=LS_BRID00;
  end if;

   outstr:=' ';
   if ls_YYZT00='0' then
     SP_YY_YYZYGH_DGBR(ls_BRID00,to_number(id0000),outstr,as_SYSMSG);
   end if;
   if nvl(outstr,' ')=' ' then
   /*
     select
            BRXM00   Custname,  --病人姓名
            YYYSXM  groupname,  --医生队列
                YYH000   qno000,    --预约号码
            YYRQ00  visitdatetime,  --就诊时间
            YYKSMC,
            (select HZQSSJ from YS_HBHZXH where GHHBID=a.GHHBID and HZXH00=a.YYH000) HZSJ00

            into Custname,groupname,qno000,czsj00,yyksmc,hzsj00
    from SF_YYBRB0 a where  YYID00=id0000;
    */
        select a.BRXM00 Custname,a.YYYSXM groupname,a.YYH000 qno000,a.YYRQ00 visitdatetime,
        --a.YYKSMC,
        a.YYKSMC||','||(select nvl(h.CKMC00,h.CKXXDZ) from bm_ckbm00 h where c.GHHZCK=h.ckbh00 and rownum=1) yyksmc,-- h.CKXXDZ||h.CKMC00
       (select nvl(h.CKMC00,h.CKXXDZ)  from bm_ckbm00 h where c.GHHZCK=h.ckbh00 and rownum=1) zs0000,
    decode(a.YYYSBH,'163',least(to_char(to_date(a.YYRQ00||a.YYJSSJ,'YYYYMMDDHH24:MI:SS'),'HH24:MI:SS'),
     to_char(to_date(C.GHMZSJ||C.GHJSSJ,'YYYYMMDDHH24:MI:SS')-1/32,'HH24:MI:SS') ),
     least(to_char(to_date(a.YYRQ00||a.YYJSSJ,'YYYYMMDDHH24:MI:SS'),'HH24:MI:SS'),
     to_char(to_date(C.GHMZSJ||C.GHJSSJ,'YYYYMMDDHH24:MI:SS')-1/96,'HH24:MI:SS') ) )  HZSJ00
  --(select c.ckmc00 from sf_ysghhb b,bm_ckbm00 c where b.ghhbid=a.ghhbid and b.ghhzck=c.ckbh00 and c.flag00='4') ckmc00,
    into Custname,groupname,qno000,czsj00,yyksmc,zs0000,hzsj00
   from sf_yybrb0 a,SF_YSGHHB c
   where a.GHHBID=c.GHHBID and a.YYID00=id0000;
    update SF_YYBRB0 set HZDYCS=NVL(HZDYCS,0)+1 where YYID00=id0000 ;
   end if;
 --sp_yy_yyzygh;
 exception
    when others then
      outstr:=outstr||','||SqlErrm||as_SYSMSG;
      RAISE_APPLICATION_ERROR(-20020,'确认失败'||','||SqlErrm||as_SYSMSG);
end;