PACKAGE BODY: APPS.AR_ARHGDPRQ_XMLP_PKG

Source

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