FND_GLOBAL.APPS_INITIALIZE

--BEFORE REPORT trigger:
FUNCTION beforereport
    RETURN BOOLEAN
IS
    l_resp_id   NUMBER;
    l_appl_id   NUMBER;
    l_user_id   NUMBER;
BEGIN
    srw.USER_EXIT ('FND SRWINIT');

    BEGIN
        l_resp_id := fnd_profile.VALUE ('RESP_ID');
        l_appl_id := fnd_profile.VALUE ('RESP_APPL_ID');
        l_user_id := fnd_profile.VALUE ('USER_ID');
        fnd_global.apps_initialize (l_user_id, l_resp_id, l_appl_id);
        hphc_rmb_load_statements.main (:p_customer_id,
                                       :p_contract_group_id,
                                       :p_bill_period);
    EXCEPTION
        WHEN OTHERS
        THEN
            NULL;
    END;

    IF :p_customer_id IS NOT NULL
    THEN
        :lp_customer_id := ' AND hdr.customer_id = ' || :p_customer_id;
    ELSE
        :lp_customer_id := NULL;
    END IF;

    IF :p_contract_group_id IS NOT NULL
    THEN
        :lp_contract_grp_id := ' AND groups.id = ' || :p_contract_group_id;
    ELSE
        :lp_contract_grp_id := NULL;
    END IF;

    RETURN (TRUE);
END;



--After Report TRIGGER
FUNCTION AfterReport
    RETURN BOOLEAN
IS
BEGIN
    BEGIN
        SRW.USER_EXIT ('FND SRWEXIT');
    END;

    RETURN (TRUE);
END;

DECLARE
    -- Variable declarations
    l_RetVal         BOOLEAN;
    l_PR_USER_NAME   VARCHAR2 (32767);
    l_PR_RESP_ID     NUMBER;
BEGIN
    -- Variable initializations
    l_PR_USER_NAME := 'FPT';
    l_PR_RESP_ID := 50766;

    -- Call
    l_RetVal :=
        APPS.PKG_GET_FUNCTION_OF_APPS.START_RESP (
            PR_USER_NAME   => l_PR_USER_NAME,
            PR_RESP_ID     => l_PR_RESP_ID);

    -- Transaction control
    COMMIT;
END;

----
BEGIN
    mo_global.init ('AR');
    fnd_global.apps_initialize (user_id        => FND_PROFILE.VALUE('USER_ID'),
                                resp_id        => FND_PROFILE.VALUE('RESP_ID'),
                                resp_appl_id   => FND_PROFILE.VALUE('RESP_APPL_ID'));
END;
----
SELECT
    FR.RESPONSIBILITY_NAME,
    FR.RESPONSIBILITY_ID
FROM
    APPS.FND_USER FU,
    APPS.FND_USER_RESP_GROUPS_DIRECT FD,
    APPS.FND_RESPONSIBILITY_VL FR
WHERE
    FU.USER_ID = FD.USER_ID
    AND FD.RESPONSIBILITY_ID = FR.RESPONSIBILITY_ID
    AND FU.USER_NAME = UPPER('FPT')
ORDER BY
    FR.RESPONSIBILITY_NAME