PACKAGE BODY: APPS.PA_PAXAASRP_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXAASRP_XMLP_PKG AS
2 /* $Header: PAXAASRPB.pls 120.1 2008/01/03 11:11:36 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  hold_function_name  VARCHAR2(40);
22 
23 BEGIN
24 
25 /*srw.user_exit('FND SRWINIT');*/null;
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 /*srw.user_exit('FND GETPROFILE
37 NAME="PA_DEBUG_MODE"
38 FIELD=":p_debug_mode"
39 PRINT_ERROR="N"');*/null;
40 
41 
42 
43 
44 
45 
46 
47 If p_function_code is not null
48   then
49     select substr(function_name, 1, 40)
50     into   hold_function_name
51     from   pa_functions
52     where  function_code = p_function_code;
53 end if;
54     c_function_name := hold_function_name;
55 
56 
57   IF (get_company_name <> TRUE) THEN       RAISE init_failure;
58   END IF;
59 
60 EXCEPTION
61   WHEN OTHERS THEN
62     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
63 
64 END;  return (TRUE);
65 end;
66 
67 FUNCTION  get_company_name    RETURN BOOLEAN IS
68   l_name                  gl_sets_of_books.name%TYPE;
69 BEGIN
70   SELECT  gl.name
71   INTO    l_name
72   FROM    gl_sets_of_books gl,pa_implementations pi
73   WHERE   gl.set_of_books_id = pi.set_of_books_id;
74 
75   c_company_name_header     := l_name;
76 
77   RETURN (TRUE);
78 
79 EXCEPTION
80 
81   WHEN   OTHERS  THEN
82     RETURN (FALSE);
83 
84 END;
85 
86 function AfterReport return boolean is
87 begin
88 
89 BEGIN
90  /*srw.user_exit('FND SRWEXIT');*/null;
91 
92 END;  return (TRUE);
93 end;
94 
95 --Functions to refer Oracle report placeholders--
96 
97  Function C_COMPANY_NAME_HEADER_p return varchar2 is
98 	Begin
99 	 return C_COMPANY_NAME_HEADER;
100 	 END;
101  Function C_function_name_p return varchar2 is
102 	Begin
103 	 return C_function_name;
104 	 END;
105 END PA_PAXAASRP_XMLP_PKG ;
106