1 PACKAGE BODY ast_dashboard_refresh_package AS
2 /* $Header: astdbrsb.pls 115.1 2002/12/05 08:31:20 karamach 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
10 procedure run_refresh_engine (
11 p_errbuf OUT NOCOPY VARCHAR2,
12 p_retcode OUT NOCOPY NUMBER,
13 p_party_id IN NUMBER,
14 p_acct_id IN NUMBER,
15 p_group_id IN NUMBER ) is
16
17 plsql_block VARCHAR2(1000);
18
19 begin
20
21 plsql_block := 'BEGIN CSC_PROFILE_ENGINE_PKG.RUN_ENGINE(:p_errbuf,:p_retcode,:p_party_id,:p_acct_id,:p_group_id);END;';
22
23 EXECUTE IMMEDIATE plsql_block USING OUT p_errbuf, OUT p_retcode, IN p_party_id, IN p_acct_id, IN p_group_id;
24
25 exception
26 when others then
27 if (nvl(p_retcode,-1) <> 2) then
28 p_retcode := 2;
29 end if;
30 if (p_errbuf IS NULL) then
31 --p_errbuf := sqlcode || ' ' || sqlerrm;
32 p_errbuf := sqlerrm;
33 fnd_file.put_line(fnd_file.log , 'ast_dashboard_refresh_package Reported Error In Call To CSC_PROFILE_ENGINE_PKG.RUN_ENGINE: '||p_errbuf);
34 end if;
35
36 end run_refresh_engine;
37
38 END ast_dashboard_refresh_package;