PACKAGE BODY: APPS.AR_ARHDUNDP_XMLP_PKG

Source

1 PACKAGE BODY AR_ARHDUNDP_XMLP_PKG AS
2 /* $Header: ARHDUNDPB.pls 120.0 2007/12/27 13:19:50 abraghun noship $ */
3 
4 FUNCTION BeforeReport RETURN BOOLEAN IS
5 BEGIN
6 
7 DECLARE
8 
9     CURSOR get_co_name IS
10       SELECT glsb.name   name
11       FROM   gl_sets_of_books      glsb,
12              ar_system_parameters  arsp
13       WHERE  glsb.set_of_books_id = arsp.set_of_books_id;
14 
15       r1     get_co_name%ROWTYPE;
16 
17       l_len  number;
18 
19 BEGIN
20 
21           /*srw.user_exit('FND SRWINIT');*/null;
22 
23 
24           hz_common_pub.disable_cont_source_security;
25 
26           OPEN get_co_name;
27      FETCH get_co_name INTO r1;
28      CLOSE get_co_name;
29 
30      p_company_name := r1.name;
31 
32 
33 EXCEPTION
34 
35     WHEN others then
36        /*srw.message('100','Oracle  Error : ' || SQLERRM) ;*/null;
37 
38 END;
39 
40     RETURN (TRUE);
41 
42 END;
43 
44 FUNCTION AfterReport RETURN BOOLEAN IS
45 BEGIN
46 
47 BEGIN
48 
49         hz_common_pub.enable_cont_source_security;
50 
51         /*SRW.USER_EXIT('FND SRWEXIT');*/null;
52 
53 
54 EXCEPTION
55 
56     WHEN others then
57        /*srw.message('100','Oracle  Error : ' || SQLERRM) ;*/null;
58 
59 
60 END;
61 
62     RETURN (TRUE);
63 
64 END;
65 
66 --Functions to refer Oracle report placeholders--
67 
68 END AR_ARHDUNDP_XMLP_PKG ;
69