Oracle将以逗号分隔的数字字符串根据字典表转换为中文字符串

CREATE OR REPLACE FUNCTION FN_GET_STATUS_STR(P_STR IN VARCHAR2)
RETURN VARCHAR2 AS
LSTR VARCHAR2(1000) DEFAULT P_STR || ',';
RETSTR VARCHAR2(1000) DEFAULT NULL;
TMPSTR VARCHAR2(50) DEFAULT NULL;
LREC NUMBER;
LNO NUMBER;
LID NUMBER;
BEGIN
LOOP
LNO := INSTR(LSTR, ',');
EXIT WHEN(NVL(LNO, 0) = 0);
LID := NVL(TO_NUMBER(LTRIM(RTRIM(SUBSTR(LSTR, 1, LNO - 1))), '999'), 0);
IF LID > 0 THEN
SELECT COUNT(*)
INTO LREC
FROM RESPONSESTATUS T
WHERE RESPONSESTATUS_ID = LID;
IF LREC > 0 THEN
SELECT RESPONSESTATUS
INTO TMPSTR
FROM RESPONSESTATUS T
WHERE RESPONSESTATUS_ID = LID;
IF TMPSTR IS NOT NULL THEN
IF RETSTR IS NULL THEN
RETSTR := TMPSTR;
ELSE
RETSTR := RETSTR || ',' || TMPSTR;
END IF;
END IF;
END IF;
END IF;
LSTR := SUBSTR(LSTR, LNO + 1);
END LOOP;
RETURN RETSTR;
END;