PACKAGE BODY: APPS.PA_PAXRWETP_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWETP_XMLP_PKG AS
2 /* $Header: PAXRWETPB.pls 120.0 2008/01/02 11:57:23 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 
22 BEGIN
23 
24 /*srw.user_exit('FND SRWINIT');*/null;
25 
26 
27 
28 /*srw.user_exit('FND GETPROFILE
29 NAME="PA_RULE_BASED_OPTIMIZER"
30 FIELD=":p_rule_optimizer"
31 PRINT_ERROR="N"');*/null;
32 
33 
34 
35 
36 
37 
38 /*srw.user_exit('FND GETPROFILE
39 NAME="PA_DEBUG_MODE"
40 FIELD=":p_debug_mode"
41 PRINT_ERROR="N"');*/null;
42 
43 
44 
45 
46 
47 
48   IF (get_company_name <> TRUE) THEN       RAISE init_failure;
49   END IF;
50  IF (no_data_found_func <> TRUE) THEN
51      RAISE init_failure;
52   END IF;
53 EXCEPTION
54   WHEN   OTHERS  THEN
55     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
56 
57 END;  return (TRUE);
58 end;
59 
60 FUNCTION  get_company_name    RETURN BOOLEAN IS
61   l_name                  gl_sets_of_books.name%TYPE;
62 BEGIN
63 
64   select name
65   into l_name
66   from gl_sets_of_books
67   where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
68 
69 
70   c_company_name_header     := l_name;
71 
72   RETURN (TRUE);
73 
74 EXCEPTION
75 
76   WHEN   OTHERS  THEN
77     RETURN (FALSE);
78 
79 END;
80 
81 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
82 message_name VARCHAR2(80);
83 begin
84   select meaning into message_name from pa_lookups
85 where lookup_type = 'MESSAGE'
86 and lookup_code = 'NO_DATA_FOUND';
87 c_no_data_found := message_name;
88 
89 return(TRUE);
90 
91 EXCEPTION
92  WHEN OTHERS THEN
93    RETURN(FALSE);
94 
95 END;
96 
97 function AfterReport return boolean is
98 begin
99 
100 BEGIN
101  /*srw.user_exit('FND SRWEXIT');*/null;
102 
103 END;  return (TRUE);
104 end;
105 
106 --Functions to refer Oracle report placeholders--
107 
108  Function C_COMPANY_NAME_HEADER_p return varchar2 is
109 	Begin
110 	 return C_COMPANY_NAME_HEADER;
111 	 END;
112  Function c_no_data_found_p return varchar2 is
113 	Begin
114 	 return c_no_data_found;
115 	 END;
116 END PA_PAXRWETP_XMLP_PKG ;
117