DELIMITER $$
DROP FUNCTION IF EXISTS `Fun_GetPY`$$
CREATE FUNCTION `HIS`.`Fun_GetPY`
    (in_string VARCHAR(21845)) 
    RETURNS VARCHAR(21845) CHARSET utf8
    BEGIN
	#截取字符串,每次做截取后的字符串存放在该变量中,初始为函数参数in_string值
	DECLARE tmp_str VARCHAR(21845) CHARSET gbk DEFAULT '' ; 
	#tmp_str的长度
	DECLARE tmp_len SMALLINT DEFAULT 0;
	#tmp_str的长度
	DECLARE tmp_loc SMALLINT DEFAULT 0;
	#截取字符,每次 left(tmp_str,1) 返回值存放在该变量中
	DECLARE tmp_char VARCHAR(2) CHARSET gbk DEFAULT '';
	#结果字符串
	DECLARE tmp_rs VARCHAR(21845)CHARSET gbk DEFAULT '';
	#拼音字符,存放单个汉字对应的拼音首字符
	DECLARE tmp_cc VARCHAR(2) CHARSET gbk DEFAULT '';
	#初始化,将in_string赋给tmp_str
	SET tmp_str = in_string;
	#初始化长度
	SET tmp_len = LENGTH(tmp_str);
	#如果被计算的tmp_str长度大于0则进入该while
	WHILE tmp_len > 0 DO 
		#获取tmp_str最左端的首个字符,注意这里是获取首个字符,该字符可能是汉字,也可能不是。
		SET tmp_char = LEFT(tmp_str,1);
		#左端首个字符赋值给拼音字符
		SET tmp_cc = tmp_char;
		#获取字符的编码范围的位置,为了确认汉字拼音首字母是那一个
		SET tmp_loc=INTERVAL(CONV(HEX(tmp_char),16,10),0xB0A1,0xB0C5,0xB2C1,0xB4EE,0xB6EA,0xB7A2,0xB8C1,0xB9FE,0xBBF7,0xBFA6,0xC0AC
		,0xC2E8,0xC4C3,0xC5B6,0xC5BE,0xC6DA,0xC8BB,0xC8F6,0xCBFA,0xCDDA ,0xCEF4,0xD1B9,0xD4D1);
		#判断左端首个字符是多字节还是单字节字符,要是多字节则认为是汉字且作以下拼音获取,要是单字节则不处理。如果是多字节字符但是不在对应的编码范围之内,即对应的不是大写字母则也不做处理,这样数字或者特殊字符就保持原样了
		IF (LENGTH(tmp_char)>1 AND tmp_loc>0 AND tmp_loc<24) THEN
		#获得汉字拼音首字符
		SELECT ELT(tmp_loc,'A','B','C','D','E','F','G','H','J','K','L','M','N','O','P','Q','R','S','T','W','X','Y','Z') INTO tmp_cc; 
		END IF;
		IF ASCII(tmp_cc)>64 AND ASCII(tmp_cc)  <91
		THEN
			#将当前tmp_str左端首个字符拼音首字符与返回字符串拼接
			SET tmp_rs = CONCAT(tmp_rs,tmp_cc);
		END IF;
		#将tmp_str左端首字符去除
		SET tmp_str = SUBSTRING(tmp_str,2);
		#计算当前字符串长度
		SET tmp_len = LENGTH(tmp_str);
	END WHILE;
	#返回结果字符串
	RETURN tmp_rs;
	END$$DELIMITER ;

 

测试:

select Fun_GetPY('2016年9月,电子病历,EMR衛生局外加中文英文标点符号\>\,\/,.;')