帮我写一个函数啊，谢谢！

Question

Function Get_Atrr_Value_Chara (
      CONTRACT_    IN    VARCHAR2, 
      part_no_     IN    VARCHAR2,
   descriptionIN    VARCHAR2,
      CHARACTERISTIC_CODE_  IN    VARCHAR2
   ) RETURN  VARCHAR2
 IS
 chang_no      VARCHAR2(200);
 chang_no1     VARCHAR2(20);
 chang_no2     VARCHAR2(20);
 chang_no3     VARCHAR2(20);
 chang_no4     VARCHAR2(20);
 chang_no5     VARCHAR2(20);
 chang_no6     VARCHAR2(20);
 chang_no7     VARCHAR2(20);
 chang_no8     VARCHAR2(20);
 chang_no9     VARCHAR2(20);
 chang_no10    VARCHAR2(20);
 chang_no11    VARCHAR2(20);
 chang_no12    VARCHAR2(20);
 chang_no13    VARCHAR2(20);
 chang_no14    VARCHAR2(20);
 chang_no15    VARCHAR2(20);
 chang_no16    VARCHAR2(20);
 chang_no17    VARCHAR2(20); 
 chang_no18    VARCHAR2(20);
 chang_no19    VARCHAR2(20);
 t             NUMBER;
 m             NUMBER; 
 n             NUMBER;
description_       VARCHAR2(200);BEGIN  chang_no1:='L 21';
       chang_no2:=' ';
       t:=to_number(SUBSTR(DESCRIPTION_ ,7,4));
       chang_no3:=formatnum(to_char(ROUND(t/25400,4)));
       chang_no4:=' ';
    IF  SUBSTR(DESCRIPTION_ ,19,2)='RT' THEN 
              chang_no5:='S';
              chang_no6:='S';
   ELSIF SUBSTR(DESCRIPTION_ ,19,2)='RN'  THEN 
             chang_no5:='N';  
             chang_no6:='N';  
  
   ELSIF SUBSTR(DESCRIPTION_ ,19,2)='DT' THEN
              chang_no5:='P';
              chang_no6:='P';
    
   ELSIF SUBSTR(DESCRIPTION_ ,19,2)='VP'  THEN 
               chang_no5:='V';
               chang_no6:='V'; 
           
    ELSE   chang_no5:='H'  ;
           chang_no6:='H'; 
   END IF;
             chang_no7:=SUBSTR(DESCRIPTION_ ,5,1);
            chang_no8:=SUBSTR(DESCRIPTION_ ,6,1);
             chang_no9:='/';
           chang_no10:=' ';
       
   IF   to_number(SUBSTR(DESCRIPTION_ ,11,4))>to_number(SUBSTR(DESCRIPTION_ ,15,4))THEN     
     IF   SUBSTR(DESCRIPTION_ ,4,1)='L'  THEN
            chang_no11:='B';
        ELSIF SUBSTR(DESCRIPTION_ ,4,1)='R' OR (SUBSTR(DESCRIPTION_ ,1,4)='CFR4' AND SUBSTR(DESCRIPTION_ ,3,1)='R')THEN 
            chang_no11:='L';
     END IF;
   END IF;       
           
   IF   to_number(SUBSTR(DESCRIPTION_ ,11,4))<to_number(SUBSTR(DESCRIPTION_ ,15,4))THEN
     IF   SUBSTR(DESCRIPTION_ ,4,1)='L'  THEN
            chang_no11:='C';
       ELSIF SUBSTR(DESCRIPTION_ ,4,1)='R'OR (SUBSTR(DESCRIPTION_ ,1,4)='CFR4' AND SUBSTR(DESCRIPTION_ ,3,1)='R')THEN
            chang_no11:='M';
      END IF;
   END IF;
           chang_no12:=' ';
           chang_no13:=' A ';
           chang_no14:=' ';
           m:=to_number(SUBSTR(DESCRIPTION_ ,11,4));
           chang_no15:=SUBSTR(to_char(m/25.4),1,4);
           chang_no16:='*';
           n:=to_NUMBER(SUBSTR(DESCRIPTION_,15,4));
           chang_no17:=SUBSTR(to_char(n/25.4),1,4);
           chang_no18:='"';
          chang_no19:='(GR)';
          chang_no:=chang_no1||chang_no2||chang_no3||chang_no4||chang_no5||chang_no7||chang_no9||
          chang_no6||chang_no8||chang_no10||chang_no11||chang_no12||chang_no13||chang_no14||chang_no15||
           chang_no16||chang_no17||chang_no18||chang_no19;
         
    RETURN  chang_no;
  END   Get_Atrr_Value_Chara;