PACKAGE BODY: APPS.PA_PAXSMPRD_XMLP_PKG

Source

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