MINI

files >> C:/siak/05_script/05_script/01_TABLE/SQL03_CreateFunction.sql
 DROP FUNCTION F5_GET_KONJEN;

CREATE OR REPLACE FUNCTION F5_GET_KONJEN(in_no VARCHAR2)
RETURN VARCHAR2 IS
out_desc  T5_KONJEN.NAMA_KONJEN%TYPE;
BEGIN

    SELECT NAMA_KONJEN INTO out_desc FROM T5_KONJEN WHERE KODE_KONJEN = in_no;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN
            RETURN('-');          
    RAISE;         
END;
/


DROP FUNCTION F5_GET_NAMA_KABUPATEN;

CREATE OR REPLACE FUNCTION F5_GET_NAMA_KABUPATEN(in_no_prop NUMBER,in_no_kab NUMBER)
RETURN VARCHAR2 IS
out_nama_kab  SETUP_KAB.NAMA_KAB%TYPE;
BEGIN

    SELECT NAMA_KAB INTO out_nama_kab FROM SETUP_KAB WHERE NO_PROP=in_no_prop AND NO_KAB = in_no_kab;
    RETURN(out_nama_kab);
    
    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;     
END;
/


DROP FUNCTION F5_GET_NAMA_KECAMATAN;

CREATE OR REPLACE FUNCTION F5_GET_NAMA_KECAMATAN(in_no_prop NUMBER,in_no_kab NUMBER,in_no_kec NUMBER)
RETURN VARCHAR2 IS
out_nama_kec  SETUP_KEC.NAMA_KEC%TYPE;
BEGIN

    SELECT NAMA_KEC INTO out_nama_kec FROM SETUP_KEC WHERE NO_PROP=in_no_prop AND NO_KAB = in_no_kab AND NO_KEC = in_no_kec;
    RETURN(out_nama_kec);
    
    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;        
END;
/


DROP FUNCTION F5_GET_NAMA_KELURAHAN;

CREATE OR REPLACE FUNCTION F5_GET_NAMA_KELURAHAN(in_no_prop NUMBER,in_no_kab NUMBER,in_no_kec NUMBER,in_no_kel NUMBER)
RETURN VARCHAR2 IS
out_nama_kel  SETUP_KEL.NAMA_KEL%TYPE;
BEGIN

    SELECT NAMA_KEL INTO out_nama_kel FROM SETUP_KEL WHERE NO_PROP=in_no_prop AND NO_KAB = in_no_kab AND NO_KEC = in_no_kec AND NO_KEL = in_no_kel;
    RETURN(out_nama_kel);
    
    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;         
END;
/


DROP FUNCTION F5_GET_NAMA_PROVINSI;

CREATE OR REPLACE FUNCTION F5_GET_NAMA_PROVINSI(in_no_prop NUMBER)
RETURN VARCHAR2 IS
out_nama_prop  SETUP_PROP.NAMA_PROP%TYPE;
BEGIN

    SELECT NAMA_PROP INTO out_nama_prop FROM SETUP_PROP WHERE NO_PROP = in_no_prop;
    RETURN(out_nama_prop);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_NEGARA;

CREATE OR REPLACE FUNCTION F5_GET_NEGARA(in_no VARCHAR2)
RETURN VARCHAR2 IS
out_desc  REF_NEGARA.DESCRIP%TYPE;
BEGIN

    SELECT DESCRIP INTO out_desc FROM REF_NEGARA WHERE NO = in_no;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_ACTIVITY;

CREATE OR REPLACE FUNCTION F5_GET_REF_ACTIVITY(act_id VARCHAR2)
RETURN VARCHAR2 IS
out_desc  T5_HIST_ACTIVITY_REF.ACTIVITY_NAME%TYPE;
BEGIN
    SELECT ACTIVITY_NAME INTO out_desc FROM T5_HIST_ACTIVITY_REF WHERE ACTIVITY_ID = act_id;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_ACTIVITY_CLASS;

CREATE OR REPLACE FUNCTION F5_GET_REF_ACTIVITY_CLASS(act_id VARCHAR2)
RETURN VARCHAR2 IS
out_desc  T5_HIST_ACTIVITY_REF.CLAZZ%TYPE;
BEGIN
    SELECT CLAZZ INTO out_desc FROM T5_HIST_ACTIVITY_REF WHERE ACTIVITY_ID = act_id;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_PINDAI_DOC;

CREATE OR REPLACE FUNCTION F5_GET_REF_PINDAI_DOC(in_no NUMBER,in_sect NUMBER)
RETURN VARCHAR2 IS
out_desc  T5_REF_SIAK_DOC.DESCRIPTION%TYPE;
BEGIN

    SELECT DESCRIPTION INTO out_desc FROM T5_REF_SIAK_DOC WHERE NO = in_no AND SECTION = in_sect;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_PINDAI_LOKASI;

CREATE OR REPLACE FUNCTION F5_GET_REF_PINDAI_LOKASI(in_no VARCHAR,in_sect NUMBER)
RETURN VARCHAR2 IS
out_desc  T5_REF_SIAK_DOC_LOKASI.DESCRIPTION%TYPE;
BEGIN

    SELECT DESCRIPTION INTO out_desc FROM T5_REF_SIAK_DOC_LOKASI WHERE NO = in_no AND SECTION = in_sect;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_WNA;

CREATE OR REPLACE FUNCTION F5_GET_REF_WNA(in_no NUMBER,in_sect NUMBER)
RETURN VARCHAR2 IS
out_desc  REF_SIAK_WNA.DESCRIP%TYPE;
BEGIN

    SELECT DESCRIP INTO out_desc FROM REF_SIAK_WNA WHERE NO = in_no AND SECT = in_sect;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_GET_REF_WNI;

CREATE OR REPLACE FUNCTION F5_GET_REF_WNI(in_no NUMBER,in_sect NUMBER)
RETURN VARCHAR2 IS
out_desc  REF_SIAK_WNI.DESCRIP%TYPE;
BEGIN

    SELECT DESCRIP INTO out_desc FROM REF_SIAK_WNI WHERE NO = in_no AND SECT = in_sect;
    RETURN(out_desc);

    EXCEPTION
        WHEN OTHERS THEN 
            RETURN('-');            
    RAISE;           
END;
/


DROP FUNCTION F5_TO_NUMBER;

CREATE OR REPLACE FUNCTION F5_TO_NUMBER(in_no VARCHAR2,in_default NUMBER)
RETURN NUMBER IS
out_no NUMBER;
BEGIN
    RETURN TO_NUMBER(in_no);   
    EXCEPTION
        WHEN OTHERS THEN
            RETURN(in_default);          
    RAISE;         
END;
/


DROP FUNCTION SMS_CHECK_PHONE_NUMBER;

CREATE OR REPLACE FUNCTION SMS_CHECK_PHONE_NUMBER (
    p_candidate_phone_number    IN  VARCHAR2,
    p_phone_number_chars        IN  VARCHAR2 DEFAULT '0123456789+/'
)
RETURN VARCHAR2
IS
l_is_valid      VARCHAR2(1);
BEGIN
    IF (TRANSLATE (p_candidate_phone_number,
        CHR(1) || p_phone_number_chars,
        CHR(1)) IS NULL) THEN
        l_is_valid := 'Y';
    ELSE
        l_is_valid := 'N';
    END IF;
    RETURN (l_is_valid);
END;
/


DROP FUNCTION SMS_GET_NAMA_KAB;

CREATE OR REPLACE FUNCTION SMS_GET_NAMA_KAB(no_propin NUMBER,no_kabin NUMBER)
RETURN VARCHAR2 IS
nama_kabin setup_kab.nama_kab%TYPE;
BEGIN
 SELECT nama_kab INTO nama_kabin FROM setup_kab WHERE no_prop=no_propin AND no_kab=no_kabin;
RETURN(trim(nama_kabin));
END;
/


DROP FUNCTION SMS_GET_NAMA_KEC;

CREATE OR REPLACE FUNCTION SMS_GET_NAMA_KEC(no_propin NUMBER,no_kabin NUMBER,no_kecin NUMBER)
RETURN VARCHAR2 IS
nama_kecin  setup_kec.nama_kec%TYPE;
BEGIN
SELECT nama_kec INTO  nama_kecin FROM setup_kec WHERE
no_kec=no_kecin
AND
no_kab=no_kabin
AND
no_prop=no_propin;
RETURN(nama_kecin);
END;
/


DROP FUNCTION SMS_GET_NAMA_KEL;

CREATE OR REPLACE FUNCTION SMS_GET_NAMA_KEL(no_propin NUMBER,no_kabin NUMBER,no_kecin NUMBER,no_kelin NUMBER)
RETURN VARCHAR2 IS
nama_kelin  setup_kel.nama_kel%TYPE DEFAULT '-';
BEGIN
SELECT decode(nama_kel,null,'-',nama_kel) INTO  nama_kelin FROM setup_kel WHERE
no_kel=no_kelin
AND
no_kec=no_kecin
AND
no_kab=no_kabin
AND
no_prop=no_propin;
RETURN(nama_kelin);
END;
/


DROP FUNCTION SMS_GET_NAMA_PROV;

CREATE OR REPLACE FUNCTION SMS_GET_NAMA_PROV(no_propin NUMBER)
RETURN VARCHAR2 deterministic IS
nama_propin  setup_prop.nama_prop%TYPE;
BEGIN
SELECT nama_prop INTO  nama_propin FROM setup_prop WHERE
no_prop=no_propin;
RETURN(nama_propin);
END;
/


DROP FUNCTION SMS_IS_NUMBER;

CREATE OR REPLACE FUNCTION SMS_IS_NUMBER(a varchar2)
    return varchar2 is
    begin
    for i in 1..length(a) loop
    if not((ascii(substr(a,i,1))>=48)  and  
         (ascii(substr(a,i,1))<=57))  then
    return 'F';
    end if;
    end loop;
    return 'T';
end;
/
exit;