ACS3 Data Model

     1: function im_first_letter_default_to_a ( p_string IN varchar )
     2: RETURN char
     3: IS
     4:    v_initial   char(1);
     5: BEGIN
     6: 
     7:    v_initial := substr(upper(p_string),1,1);
     8: 
     9:    IF v_initial IN ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z') THEN
    10: 	RETURN v_initial;
    11:    END IF;
    12: 
    13:    RETURN 'A';
    14: 
    15: END;