DECLARE
G_LAST_UPDATE_DATE DATE := SYSDATE;
G_LAST_UPDATED_BY NUMBER ;
G_LAST_UPDATE_LOGIN NUMBER ;
CURSOR C_UPDATE_FUNCTION
IS
SELECT FUNCTION_ID,
WEB_HOST_NAME,
WEB_AGENT_NAME,
WEB_HTML_CALL,
WEB_ENCRYPT_PARAMETERS,
WEB_SECURED,
WEB_ICON,
OBJECT_ID,
REGION_APPLICATION_ID,
FORM_ID,
REGION_CODE,
FUNCTION_NAME,
APPLICATION_ID,
PARAMETERS,
TYPE,
USER_FUNCTION_NAME,
DESCRIPTION,
MAINTENANCE_MODE_SUPPORT,
CONTEXT_DEPENDENCE,
JRAD_REF_PATH
FROM FND_FORM_FUNCTIONS_VL
WHERE FUNCTION_NAME LIKE 'XX%';
BEGIN
SELECT USER_ID
INTO G_LAST_UPDATED_BY
FROM FND_USER
WHERE USER_NAME = 'ORACLE12.1.0';
G_LAST_UPDATE_LOGIN := G_LAST_UPDATED_BY;
FOR C_UPDATE_FUNCTION_REC IN C_UPDATE_FUNCTION
LOOP
BEGIN
FND_FORM_FUNCTIONS_PKG.UPDATE_ROW ( X_FUNCTION_ID => C_UPDATE_FUNCTION_REC.FUNCTION_ID,
X_WEB_HOST_NAME => C_UPDATE_FUNCTION_REC.WEB_HOST_NAME,
X_WEB_AGENT_NAME => C_UPDATE_FUNCTION_REC.WEB_AGENT_NAME,
X_WEB_HTML_CALL => 'BneApplicationService',
X_WEB_ENCRYPT_PARAMETERS => C_UPDATE_FUNCTION_REC.WEB_ENCRYPT_PARAMETERS,
X_WEB_SECURED => C_UPDATE_FUNCTION_REC.WEB_SECURED,
X_WEB_ICON => C_UPDATE_FUNCTION_REC.WEB_ICON,
X_OBJECT_ID => C_UPDATE_FUNCTION_REC.OBJECT_ID,
X_REGION_APPLICATION_ID => C_UPDATE_FUNCTION_REC.REGION_APPLICATION_ID,
X_REGION_CODE => C_UPDATE_FUNCTION_REC.REGION_CODE,
X_FUNCTION_NAME => C_UPDATE_FUNCTION_REC.FUNCTION_NAME,
X_APPLICATION_ID => C_UPDATE_FUNCTION_REC.APPLICATION_ID,
X_FORM_ID => C_UPDATE_FUNCTION_REC.FORM_ID,
X_PARAMETERS => C_UPDATE_FUNCTION_REC.PARAMETERS,
X_TYPE => C_UPDATE_FUNCTION_REC.TYPE,
X_USER_FUNCTION_NAME => C_UPDATE_FUNCTION_REC.USER_FUNCTION_NAME,
X_DESCRIPTION => C_UPDATE_FUNCTION_REC.DESCRIPTION,
X_LAST_UPDATE_DATE => G_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => G_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => G_LAST_UPDATE_LOGIN,
X_MAINTENANCE_MODE_SUPPORT => C_UPDATE_FUNCTION_REC.MAINTENANCE_MODE_SUPPORT,
X_CONTEXT_DEPENDENCE => C_UPDATE_FUNCTION_REC.CONTEXT_DEPENDENCE,
X_JRAD_REF_PATH => C_UPDATE_FUNCTION_REC.JRAD_REF_PATH
);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE ('Failed the update function '||C_UPDATE_FUNCTION_REC.FUNCTION_NAME);
END;
END LOOP;
COMMIT;
END;
/
No comments:
Post a Comment