PACKAGE BODY: APPS.PA_PAXTRTXS_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXTRTXS_XMLP_PKG AS
2 /* $Header: PAXTRTXSB.pls 120.1 2008/01/09 13:56:19 krreddy noship $ */
3 
4 FUNCTION  get_cover_page_values   RETURN BOOLEAN IS
5 
6 BEGIN
7 
8 RETURN(TRUE);
9 
10 EXCEPTION
11  WHEN OTHERS THEN
12   RETURN(FALSE);
13 
14 END;
15 
16 function BeforeReport return boolean is
17 begin
18 
19 Declare
20  init_failure exception;
21  ndf VARCHAR2(80);
22 BEGIN
23 
24 /*srw.user_exit('FND SRWINIT');*/null;
25 
26 
27 
28 
29 
30 
31 
32 
33   IF (get_company_name <> TRUE) THEN       RAISE init_failure;
34   END IF;
35    select meaning into ndf from pa_lookups where
36     lookup_code = 'NO_DATA_FOUND' and
37     lookup_type = 'MESSAGE';
38   c_no_data_found := ndf;
39 
40 EXCEPTION
41   WHEN  NO_DATA_FOUND THEN
42    select meaning into ndf from pa_lookups where
43     lookup_code = 'NO_DATA_FOUND' and
44     lookup_type = 'MESSAGE';
45   c_no_data_found := ndf;
46    c_dummy_data := 1;
47   WHEN   OTHERS  THEN
48     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
49 
50 END;  return (TRUE);
51 end;
52 
53 FUNCTION  get_company_name    RETURN BOOLEAN IS
54   l_name                  gl_sets_of_books.name%TYPE;
55 BEGIN
56 /*  SELECT  gl.name
57   INTO    l_name
58   FROM    gl_sets_of_books gl,pa_implementations pi
59   WHERE   gl.set_of_books_id = pi.set_of_books_id;*/
60   select name
61   into l_name
62   from gl_sets_of_books
63   where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
64 
65   c_company_name_header     := l_name;
66 
67   RETURN (TRUE);
68 
69 EXCEPTION
70 
71   WHEN   OTHERS  THEN
72     RETURN (FALSE);
73 
74 END;
75 
76 function AfterReport return boolean is
77 begin
78   /*srw.user_exit('FND SRWEXIT') ;*/null;
79 
80   return (TRUE);
81 end;
82 
83 --Functions to refer Oracle report placeholders--
84 
85  Function C_COMPANY_NAME_HEADER_p return varchar2 is
86 	Begin
87 	 return C_COMPANY_NAME_HEADER;
88 	 END;
89  Function C_no_data_found_p return varchar2 is
90 	Begin
91 	 return C_no_data_found;
92 	 END;
93  Function C_dummy_data_p return number is
94 	Begin
95 	 return C_dummy_data;
96 	 END;
97 END PA_PAXTRTXS_XMLP_PKG ;
98