-- Start of DDL script for P_PACS_JMJK
-- Generated 20-二月-14  8:46:50 am
-- from fw2-SPACS:1

-- Procedure P_PACS_JMJK

CREATE OR REPLACE
procedure P_PACS_JMJK(pSickID    in varchar2, --病人ID
                                        pMIcard in varchar2 --医保医保
                                        ) as
  type TApplyNoArray is table of exam_apply.apply_no%type index by binary_integer;
  vApplyNoArray TApplyNoArray;
  vApplyNo      exam_apply.apply_no%type;


  vNo      integer;
  vPos     integer;
  vPrevPos integer;


  bExamNo boolean;
  vExamNo exams.Exam_No%type;


begin
  vNo      := 1;
  vPos     := 1;
  vPrevPos := 0;
  --循环分开医技单据号串

    Update EXAM_PATIENT Set MI_CARD = pMIcard Where SICK_ID = pSickID;
    DELETE FROM EXAM_QUEUE WHERE Exam_no = vExamNo;

  --end if;


  --pSucc := 0;
end;
/

-- End of DDL script for P_PACS_JMJK