=====

PROCEDURE LOG (P_MSG IN VARCHAR2)

IS

BEGIN

FND_FILE.PUT_LINE (FND_FILE.LOG, P_MSG);

END LOG;

--==========================================================

=====

-- Output

--==========================================================

=====

PROCEDURE OUTPUT (P_MSG IN VARCHAR2)

IS

BEGIN

FND_FILE.PUT_LINE (FND_FILE.OUTPUT, P_MSG);

END OUTPUT;

---输入消息的级别。决定消息是否输出

---P_DEBUG_LEVEL:该消息的级别

----如果G_DEBUG_LEVEL设定：0:则是失效消息输出;1:消息级别<=1的会输

出;2:消息级别<=2的会输出

FUNCTION DEBUG_ENABLE(P_DEBUG_LEVEL IN NUMBER)

RETURN BOOLEAN

IS

BEGIN

RETURN P_DEBUG_LEVEL <= G_DEBUG_LEVEL;

END;

PROCEDURE DEBUGLOG (P_MSG IN VARCHAR2)

IS

BEGIN

IF G_DEBUG_TYPE = 'DBMS_OUTPUT' THEN

DBMS_OUTPUT.PUT_LINE(P_MSG);

ELSIF G_DEBUG_TYPE = 'FILE_OUTPUT' THEN

XYG_FND_FILE.PUT_LINE(FND_FILE.OUTPUT, P_MSG);

ELSIF G_DEBUG_TYPE = 'REQUEST_OUTPUT' THEN

LOG(P_MSG);

END IF;

END DEBUGLOG;

----------------------

------程序主体部分----

----------------------

FUNCTION GENERATE_QRCode(P_Content STRING,P_ImgPath STRING)RETURN VARCHAR2

IS

LANGUAGE JAVA NAME '

XYGQRCodeEncoder.encoderQRCode(ng.String,ng.St

ring) return ng.String';

FUNCTION GENERATE_QRCode(P_Content STRING,P_ImgPath

STRING,P_imgIcon STRING) RETURN VARCHAR2

IS

LANGUAGE JAVA NAME '

XYGQRCodeEncoder.encoderQRCode(ng.String,ng.St

ring,ng.String) return ng.String';