create or replace procedure "PROC_PRIME_YELLOWCARNOENTRY"(
 M_RES            OUT        VARCHAR2,--返回值:0--成功,1
 M_MSG            OUT        VARCHAR2,--返回消息
 M_VID            OUT        VARCHAR2,
 V_ID             IN         VARCHAR2

is
M_WK_PLATECOLOR VARCHAR2(10);
M_WK_KKID VARCHAR2(40);
M_WK_CARTYPE VARCHAR2(10);
M_WK_TYPECAR VARCHAR2(20);
M_WD_HPHM VARCHAR2(40);
M_WD_MEMO VARCHAR2(10);
M_CLLX VARCHAR2(10);
V_EXIST NUMBER;
begin
  M_RES:='0';
  M_WK_KKID:='';
  V_EXIST:=0;
  --------------------
  SELECT WP_PLATECOLOR,WK_KKID,WP_CARPLATE,WP_CARTYPE,WP_TYPECAR INTO M_WK_PLATECOLOR,M_WK_KKID, M_WD_HPHM,M_WK_CARTYPE,M_WK_TYPECAR FROM WP_T_PASSCAR WHERE WP_ID=V_ID;
  
  SELECT COUNT(1) INTO V_EXIST FROM (SELECT WK_KKID FROM WP_T_KKINFO WHERE WK_HPCJZTX=1) WHERE WK_KKID = M_WK_KKID;
  
  IF(V_EXIST>0) THEN
       IF(M_WK_PLATECOLOR='1')THEN
          SELECT WD_MEMO INTO M_WD_MEMO  FROM WP_T_DICT WHERE WD_TYPE='CARTYPE' AND WD_CODE=M_WK_CARTYPE;
          SELECT CLLX INTO M_CLLX FROM VEHICLE WHERE FZJG=SUBSTR(M_WD_HPHM,0,2) AND HPHM=SUBSTR(M_WD_HPHM,2);
           IF (M_CLLX='H11' OR M_CLLX='H12' OR M_CLLX='H13' OR M_CLLX='H14' OR M_CLLX='H15' OR M_CLLX='H16'
            OR M_CLLX='H17' OR M_CLLX='H18' OR M_CLLX='H19' OR M_CLLX='H21' OR M_CLLX='H22' OR M_CLLX='H23'
            OR M_CLLX='H24' OR M_CLLX='H25' OR M_CLLX='H26' OR M_CLLX='H27' OR M_CLLX='H28' OR M_CLLX='H29'
            OR M_CLLX='H31' OR M_CLLX='H32' OR M_CLLX='H33' OR M_CLLX='H34' OR M_CLLX='H35' OR M_CLLX='H37'
            OR M_CLLX='H38' OR M_CLLX='H39' OR M_CLLX='H41' OR M_CLLX='H42' OR M_CLLX='H43' OR M_CLLX='H44'
            OR M_CLLX='H45' OR M_CLLX='H46' OR M_CLLX='H47' OR M_CLLX='H51' OR M_CLLX='H52' OR M_CLLX='H53'
            OR M_CLLX='H54' OR M_CLLX='H55'
           ) THEN
              M_VID := '1';
           END IF;   
       END IF;
    ELSE
     M_VID := '0';
  END IF;
  -------------------
  M_MSG:='调用接口成功!ID:'||V_ID;
 COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
    M_RES:='1';
    M_MSG:='调用接口出错:'||SUBSTR(SQLERRM,1,200)||V_ID;    
END;