Password reset for Apps Foundation user

In my consulting experience i have faced login issues (forgot password) couple of times.Sometimes it is difficult to wait for the admin response.So i will prefer the

following code snippet to reset the apps foundation user password.
DECLARE
    lb_status BOOLEAN;
BEGIN
    lb_status := FND_USER_PKG.CHANGEPASSWORD
                                                            (
                                                                username           => 'XX_DEMO',
                                                                newpassword     => 'apps123'
                                                           );

    IF lb_status
    THEN
        DBMS_OUTPUT.PUT_LINE('Request processed sucessfully'); 
    ELSE
        DBMS_OUTPUT.PUT_LINE('Error while processing the request'); 
    END IF;
END;