create or replace PACKAGE XXUNV_CPA_ACTIVITY_BURST_PKG
AS
--
-- Description: This package contains the triggers for the 'XXUNV CPA Activity Report' XML Report
--
-- =================================================================================================
-- MODIFICATION HISTORY
--
-- Date version Person Comments
-- ----------- --------- -------------- ----------------------------------
-- 04/16/2021 1.0 Simhachalam Devaki Initial Version
--
-- =================================================================================================
--Initializing report parameters
P_CONC_REQUEST_ID NUMBER;
P_DATE_FROM DATE;
P_DATE_TO DATE;
P_VENDOR_NUMBER NUMBER;
P_EMAIL VARCHAR2(240);
FUNCTION beforeReport RETURN BOOLEAN;
FUNCTION afterReport RETURN BOOLEAN;
END XXUNV_CPA_ACTIVITY_BURST_PKG;
create or replace PACKAGE BODY XXUNV_CPA_ACTIVITY_BURST_PKG
AS
--
-- Description: This package contains the triggers for the 'XXUNV CPA Activity Report' XML Report
--
-- =================================================================================================
-- MODIFICATION HISTORY
--
-- Date version Person Comments
-- ----------- --------- -------------- ----------------------------------
-- 04/16/2021 1.0 Simhachalam Devaki Initial Version
--
-- =================================================================================================
FUNCTION beforeReport RETURN BOOLEAN
IS
l_err_code NUMBER;
l_err_msg VARCHAR2(2400);
BEGIN
--Initializing the concurrent request ID
P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
RETURN TRUE;
END; -- End of beforeReport Function
FUNCTION afterReport RETURN BOOLEAN
IS
ln_sub_req NUMBER;
lc_cp_description VARCHAR2(100);
lc_cp_request_id CONSTANT NUMBER := P_CONC_REQUEST_ID;
lc_email VARCHAR2(240);
BEGIN
P_EMAIL := TRIM(P_EMAIL);
lc_email := P_EMAIL;
--Fetch the Concurrent Program Name
BEGIN
SELECT fcp.user_concurrent_program_name
INTO lc_cp_description
FROM FND_CONCURRENT_REQUESTS fcr,
FND_CONCURRENT_PROGRAMS_VL fcp
WHERE fcr.concurrent_program_id = fcp.concurrent_program_id
AND fcr.request_id = lc_cp_request_id;
EXCEPTION
WHEN OTHERS THEN
lc_cp_description := NULL;
END;
FND_FILE.PUT_LINE(FND_FILE.LOG,'lc_email: ' || lc_email);
--Call to the standard Oracle Concurrent Request for Bursting
IF lc_email IS NOT NULL THEN
BEGIN
ln_sub_req := FND_REQUEST.SUBMIT_REQUEST(
application => 'XDO', -- application
program => 'XDOBURSTREP', -- Program
description=> lc_cp_description, -- description
argument1=>'N' ,
argument2=> lc_cp_request_id, -- argument1
argument3=> 'Yes' -- argument2
);
COMMIT;
IF ln_sub_req <= 0
THEN
FND_FILE.PUT_LINE(FND_FILE.LOG,'Failed to Submit Bursting XML Publisher Request For CR: ' || lc_cp_request_id);
ELSE
FND_FILE.PUT_LINE(FND_FILE.LOG,'Submitted Bursting XML Publisher Request Request ID: ' || ln_sub_req);
END IF;
EXCEPTION
WHEN OTHERS THEN
FND_FILE.PUT_LINE(FND_FILE.LOG,'Encountered Exception in afterReport Trigger: ' || SUBSTR(SQLERRM,1,100));
END;
END IF;
RETURN TRUE;
END;-- End of afterReport Function
END; -- End of Package
