[Home] [Help]
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