1 PACKAGE BODY ast_dashboard_refresh_package AS
2 /* $Header: astdbrsb.pls 120.0.12010000.2 2009/09/17 11:35:32 sariff ship $ */
3 -- Start of Comments
4 -- Package name : ast_dashboard_refresh_package
5 -- Purpose : Wrapper package to call the CSC package/procedure to refresh dashboard data to avoid install errors if their package is changed/becomes invalid.
6 -- History :
7 -- NOTE : Temporary workaround till the CSC package is made public(enh bug#2599015)
8 -- End of Comments
9 -- p_psite_id added for bug 8869234
10
11 procedure run_refresh_engine (
12 p_errbuf OUT NOCOPY VARCHAR2,
13 p_retcode OUT NOCOPY NUMBER,
14 p_party_id IN NUMBER,
15 p_acct_id IN NUMBER,
16 p_psite_id IN NUMBER DEFAULT NULL,
17 p_group_id IN NUMBER ) is
18
19 plsql_block VARCHAR2(1000);
20
21 begin
22
23 plsql_block := 'BEGIN CSC_PROFILE_ENGINE_PKG.RUN_ENGINE(:p_errbuf,:p_retcode,:p_party_id,:p_acct_id,:p_psite_id,:p_group_id);END;';
24
25 EXECUTE IMMEDIATE plsql_block USING OUT p_errbuf, OUT p_retcode, IN p_party_id, IN p_acct_id, IN p_psite_id, IN p_group_id;
26
27 exception
28 when others then
29 if (nvl(p_retcode,-1) <> 2) then
30 p_retcode := 2;
31 end if;
32 if (p_errbuf IS NULL) then
33 --p_errbuf := sqlcode || ' ' || sqlerrm;
34 p_errbuf := sqlerrm;
35 fnd_file.put_line(fnd_file.log , 'ast_dashboard_refresh_package Reported Error In Call To CSC_PROFILE_ENGINE_PKG.RUN_ENGINE: '||p_errbuf);
36 end if;
37
38 end run_refresh_engine;
39
40 END ast_dashboard_refresh_package;